getparΒΆ

getpar is used for get observational parameters from event file.

Input: event file name

Output: observational parameters

Example:

getpar sw00585834000xwtw2po_cl.evt
OBJECT = 'GRB140206a'
OBS_ID = '00585834000'
TSTART = 4.133639020059217E+08
TSTOP = 4.134087866215617E+08
RA_OBJ = 145.3342917
DEC_OBJ = 66.7606944
TRIGTIME = 413363851.776
ATTFLAG = '110


getpar sw00585834000xwtw2po_cl.evt TRIGTIME
TRIGTIME = 413363851.776

Source code:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl

#warn "Input filename" if ($ARGV[1] eq "");

my $evtFilename=$ARGV[0];
my $evtFilenamePrimary="$evtFilename"."[primary]";
 

unless ($ARGV[1]){
	$ARGV[1] = "OBJECT";
	$ARGV[2] = "OBS_ID";
	$ARGV[3] = "TSTART";
	$ARGV[4] = "TSTOP";
	$ARGV[5] = "RA_OBJ";
	$ARGV[6] = "DEC_OBJ";
	$ARGV[7] = "TRIGTIME";
	$ARGV[8] = "ATTFLAG";
}
foreach $argv (@ARGV){
next if ($argv eq $ARGV[0]);
my $par = `ftlist $evtFilenamePrimary hck`;
$par =~ /\s{0,1}$argv\s*=\s+(.+?)\s+/;
$par = $1;
print "$argv = $par\n"
}