spectra

scripts/do_pha_igr_v3_mCrab.pl

@@ -1,7 +1,7 @@
 #! /usr/bin/perl
 #require "utils.pl";
 #require "getopts.pl";
-
+use File::Basename;
 #&Getopts('i:o:n:c:e');
 
 #############################################
@@ -138,6 +138,9 @@ print COLS "STAT_ERR                   1D                  counts\n";
 
 close(COLS);
 
+
+$base = basename($rmff);
+
 open(HEADER,">header");
 print HEADER <<EOHEAD;
 EXTNAME = 'SPECTRUM'           / name of this binary table extension
@@ -159,7 +162,7 @@ BACKSCAL=       1.00000000E+00 / Background scale factor
 CORRSCAL=       0.00000000E+00 / Correlation scale factor
 BACKFILE= 'NONE    '           / Background FITS file for this object
 CORRFILE= 'NONE    '           / Correlation FITS file for this object
-RESPFILE= '$rmff'         / Redistribution matrix file (RMF)
+RESPFILE= '$base'         / Redistribution matrix file (RMF)
 ANCRFILE= 'NONE    '           / Ancillary response file (ARF)
 XFLT0001= 'NONE    '           / XSPEC selection filter description
 CHANTYPE= 'PHA     '           / Channels assigned by detector electronics