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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/*******************************************************************************
* Johns Hopkins University
* Center For Astrophysical Sciences
* FUSE
*******************************************************************************
*
* Synopsis: make_screen_file
*
* Description: Make the screening parameters file.
*
* History: 07/14/98 emm Begin work.
* 07/08/99 peb Added PHAMIN and PHAMAX keywords.
* 07/29/99 emm Added SAA_SCR and LIMB_SCR keywords
******************************************************************************/
#include <stdio.h>
#include "calfuse.h"
#define VERSION 3
#define EFFMJD 50000.0
int main()
{
char *channel[]={"LiF","SiC"};
char *segment[]={"1A","1B","2A","2B"};
char *segments[]={"1a","1b","2a","2b"};
char *aperture[]={"HIRS","MDRS","LWRS","PINH"};
char dummy[30];
char extname[]="SCREENING PARAMETERS";
char filename[80];
int i, status=0, vers;
long numbl, dumar[2]={0, 0};
float numb, effmjd;
fitsfile *parmfits;
for (i=0; i<4; i++) { /* 1A,1B,2A,2B */
sprintf(filename,"scrn%2.2s%03d.fit", segments[i],VERSION);
printf("%20.20s\n",filename);
FITS_create_file(&parmfits,filename,&status);
FITS_create_img(parmfits, SHORT_IMG, 0, dumar, &status);
FITS_write_key(parmfits, TSTRING, "CALFTYPE", "SCRN",
"Calibration file type", &status);
vers=VERSION;
FITS_write_key(parmfits,TINT,"CALFVERS",&vers,
"Calibration file version", &status);
FITS_write_key(parmfits,TSTRING,"DETECTOR",segment[i],
"detector (1A, 1B, 2A, 2B", &status);
effmjd=EFFMJD;
FITS_write_key(parmfits,TFLOAT,"EFFMJD",&effmjd,
"Date on which file should be applied (MJD)", &status);
FITS_write_date(parmfits, &status);
FITS_write_key(parmfits,TSTRING,"AUTHOR","EDWARD MURPHY",
"Author of file", &status);
numb=10.0;
FITS_write_key(parmfits,TFLOAT,"TIMESTEP",&numb,
"[sec] Screening time step", &status);
FITS_write_key(parmfits,TSTRING,"SAA_SCR","ON",
"SAA screening ON/OFF", &status);
FITS_write_key(parmfits,TSTRING,"LIMB_SCR","ON",
"Limb angle screening ON/OFF", &status);
FITS_write_key(parmfits,TSTRING,"DAYNIGHT","BOTH",
"Use only DAY, NIGHT or BOTH", &status);
numbl = 0;
FITS_write_key(parmfits, TLONG, "PHALOW",&numbl,
"Minimum acceptable PHA value", &status);
numbl = 31;
FITS_write_key(parmfits, TLONG, "PHAHIGH",&numbl,
"Maximum acceptable PHA value", &status);
numb = 1.0;
FITS_write_key(parmfits, TFLOAT, "PHA_BKGD",&numb,
"Background scaling factor for PHA screening", &status);
numb=15.0;
FITS_write_key(parmfits,TFLOAT,"BRITLIMB",&numb,
"[deg] Bright limb avoidance angle", &status);
numb=10.0;
FITS_write_key(parmfits,TFLOAT,"DARKLIMB",&numb,
"[deg] Dark limb avoidance angle", &status);
numbl=0;
FITS_write_key(parmfits,TLONG,"NUSERGTI",&numbl,
"Number of user defined good time intervals",&status);
numb=0.0;
FITS_write_key(parmfits,TFLOAT,"GTIBEG01",&numb,
"[sec] Beginning good time interval", &status);
numb=0.0;
FITS_write_key(parmfits,TFLOAT,"GTIEND01",&numb,
"[sec] Ending good time interval", &status);
numb=0.0;
FITS_write_key(parmfits,TFLOAT,"GTIBEG02",&numb,
"[sec] Beginning good time interval", &status);
numb=0.0;
FITS_write_key(parmfits,TFLOAT,"GTIEND02",&numb,
"[sec] Ending good time interval", &status);
FITS_close_file(parmfits, &status);
}
return 0;
}
|
