Initial commit

1 files changed, 122 insertions, 0 deletions

diff --git a/src/cal/screen/make_screen_file.c b/src/cal/screen/make_screen_file.c
new file mode 100644
index 0000000..01b41da
--- /dev/null
+++ b/src/cal/screen/make_screen_file.c
@@ -0,0 +1,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;
+}