From d54fe7c1f704a63824c5bfa0ece65245572e9b27 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 4 Mar 2015 21:21:30 -0500 Subject: Initial commit --- src/cal/screen/Makefile.orig.orig | 28 +++++++++ src/cal/screen/make_screen_file | Bin 0 -> 11700 bytes src/cal/screen/make_screen_file.c | 122 ++++++++++++++++++++++++++++++++++++++ 3 files changed, 150 insertions(+) create mode 100644 src/cal/screen/Makefile.orig.orig create mode 100755 src/cal/screen/make_screen_file create mode 100644 src/cal/screen/make_screen_file.c (limited to 'src/cal/screen') diff --git a/src/cal/screen/Makefile.orig.orig b/src/cal/screen/Makefile.orig.orig new file mode 100644 index 0000000..7579595 --- /dev/null +++ b/src/cal/screen/Makefile.orig.orig @@ -0,0 +1,28 @@ +VERSION= v1.7 + +CFDIR= /usr/local/fusesw/calfuse/$(VERSION) +BIN= ${CFDIR}/bin +FITSINCLDIR= /usr/local/include +FUSEINCLDIR= $(CFDIR)/include +CC= cc +OPT= -O -KPIC +CFLAGS= $(OPT) -I${FUSEINCLDIR} -I$(FITSINCLDIR) + +LDSHARED= ld +FUSELIBDIR= $(CFDIR)/lib +FUSELIBS= -lcf -lsla -lcalfits -lcfitsio +LIBS= -lm -lsocket -lnsl -ldl + +# - <<-- ignore error code + +all: make_screen_file + +make_screen_file: + ${CC} $(CFLAGS) -o make_screen_file make_screen_file.c \ + -L$(FUSELIBDIR) $(FUSELIBS) $(LIBS) $(LDFLAGS) + +clean: + - /bin/rm -f *.o make_screen_file + +install: all + - /bin/cp make_screen_file ${BIN}/make_screen_file diff --git a/src/cal/screen/make_screen_file b/src/cal/screen/make_screen_file new file mode 100755 index 0000000..ae0f83b Binary files /dev/null and b/src/cal/screen/make_screen_file differ 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 +#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; +} -- cgit