Index: /branches/elixir/Ohana/src/imregister/Makefile =================================================================== --- /branches/elixir/Ohana/src/imregister/Makefile (revision 2487) +++ /branches/elixir/Ohana/src/imregister/Makefile (revision 2487) @@ -0,0 +1,173 @@ +include ../../Configure +HOME = $(ROOT)/src/imregister + +default: all + +BIN = $(HOME)/bin +INC = $(HOME)/include +SRC = $(HOME)/src +MAN = $(HOME)/doc +DESTBIN = $(LBIN) +DESTLIB = $(LLIB) +DESTINC = $(LINC) +DESTMAN = $(LMAN) + +BASEDIR = $(HOME)/base +DETREND = $(HOME)/detrend +PHOTREG = $(HOME)/photreg +IMREG = $(HOME)/imreg +SPREG = $(HOME)/spreg + +INCS = -I$(INC) -I$(LINC) -I$(XINC) -I$(LINC)/$(ARCH) -Wunused +LIBS = -L$(LLIB) -lFITS -lohana -lm +# CFLAGS = $(INCS) -Wall -Wunused +CFLAGS = $(INCS) +LFLAGS = $(LIBS) + +# programs which should be installed +INSTALL = \ +detregister detsearch \ +imregister imstatreg \ +imsort imsearch \ +showiminfo convertimreg \ +imregtable photcode \ +photsearch photreg \ +cameraconfig filtnames \ +imphotsearch imphotmerge \ +imphotset + +# spregister spsearch + +# program under development, not installed +DEVEL = + +IMOBJ = \ +$(IMREG)/db.$(ARCH).o \ +$(IMREG)/delete.$(ARCH).o \ +$(IMREG)/define.$(ARCH).o \ +$(IMREG)/iminfo.$(ARCH).o \ +$(IMREG)/load_probes.$(ARCH).o \ +$(IMREG)/match.$(ARCH).o \ +$(IMREG)/modify.$(ARCH).o \ +$(IMREG)/output.$(ARCH).o \ +$(IMREG)/unique.$(ARCH).o \ +$(IMREG)/cadc.$(ARCH).o \ +$(IMREG)/mosaics.$(ARCH).o \ +$(IMREG)/ConfigPID.$(ARCH).o \ +$(IMREG)/SetSignals.$(ARCH).o \ +$(IMREG)/imregclient.$(ARCH).o \ +$(IMREG)/rconnect.$(ARCH).o \ +$(IMREG)/FifoOps.$(ARCH).o \ +$(IMREG)/SockScan.$(ARCH).o \ +$(IMREG)/submit.$(ARCH).o + +SPOBJ = \ +$(SPREG)/db.$(ARCH).o \ +$(SPREG)/delete.$(ARCH).o \ +$(SPREG)/define.$(ARCH).o \ +$(SPREG)/spinfo.$(ARCH).o \ +$(SPREG)/match.$(ARCH).o \ +$(SPREG)/modify.$(ARCH).o \ +$(SPREG)/fits_scan_nchar.$(ARCH).o \ +$(SPREG)/output.$(ARCH).o \ +$(SPREG)/unique.$(ARCH).o \ +$(SPREG)/ConfigInit.$(ARCH).o \ +$(BASEDIR)/misc.$(ARCH).o \ +$(BASEDIR)/parse_time.$(ARCH).o \ +$(BASEDIR)/sort.$(ARCH).o + +PHOTOBJ = \ +$(PHOTREG)/db.$(ARCH).o \ +$(PHOTREG)/delete.$(ARCH).o \ +$(PHOTREG)/match.$(ARCH).o \ +$(PHOTREG)/define.$(ARCH).o \ +$(PHOTREG)/getImageData.$(ARCH).o \ +$(PHOTREG)/output.$(ARCH).o + +DETOBJ = \ +$(DETREND)/db.$(ARCH).o \ +$(DETREND)/define.$(ARCH).o \ +$(DETREND)/criteria.$(ARCH).o \ +$(DETREND)/define.$(ARCH).o \ +$(DETREND)/delete.$(ARCH).o \ +$(DETREND)/entry.$(ARCH).o \ +$(DETREND)/image.$(ARCH).o \ +$(DETREND)/imdef.$(ARCH).o \ +$(DETREND)/match.$(ARCH).o \ +$(DETREND)/modify.$(ARCH).o \ +$(DETREND)/mosaic.$(ARCH).o \ +$(DETREND)/output.$(ARCH).o \ +$(DETREND)/recipe.$(ARCH).o \ +$(DETREND)/select.$(ARCH).o \ +$(DETREND)/unique.$(ARCH).o \ +$(DETREND)/altpath.$(ARCH).o \ +$(DETREND)/usage.$(ARCH).o + +BASEOBJ = \ +$(BASEDIR)/ConfigCamera.$(ARCH).o \ +$(BASEDIR)/ConfigFilter.$(ARCH).o \ +$(BASEDIR)/ConfigInit.$(ARCH).o \ +$(BASEDIR)/WriteFIFO.$(ARCH).o \ +$(BASEDIR)/get_fwhm.$(ARCH).o \ +$(BASEDIR)/misc.$(ARCH).o \ +$(BASEDIR)/parse_time.$(ARCH).o \ +$(BASEDIR)/sort.$(ARCH).o + +all: $(INSTALL) $(DEVEL) + +IR = $(IMREG)/args.imregister.$(ARCH).o $(IMOBJ) $(BASEOBJ) +IS = $(IMREG)/args.imsearch.$(ARCH).o $(IMOBJ) $(BASEOBJ) +DR = $(DETREND)/args.detregister.$(ARCH).o $(DETOBJ) $(BASEOBJ) +DS = $(DETREND)/args.detsearch.$(ARCH).o $(DETOBJ) $(BASEOBJ) +PS = $(PHOTREG)/args.photsearch.$(ARCH).o $(PHOTOBJ) $(BASEOBJ) +PR = $(PHOTREG)/args.photreg.$(ARCH).o $(PHOTOBJ) $(BASEOBJ) +SR = $(SPREG)/args.spregister.$(ARCH).o $(SPOBJ) +SS = $(SPREG)/args.spsearch.$(ARCH).o $(SPOBJ) + +# special rules: +$(BIN)/photreg.$(ARCH) : $(SRC)/photreg.$(ARCH).o $(PR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/photsearch.$(ARCH) : $(SRC)/photsearch.$(ARCH).o $(PS) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/imsearch.$(ARCH) : $(SRC)/imsearch.$(ARCH).o $(IS) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/imregister.$(ARCH) : $(SRC)/imregister.$(ARCH).o $(IR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/imstatreg.$(ARCH) : $(SRC)/imstatreg.$(ARCH).o $(IR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/showiminfo.$(ARCH) : $(SRC)/showiminfo.$(ARCH).o $(IR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/imregtable.$(ARCH) : $(SRC)/imregtable.$(ARCH).o $(IR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/convertimreg.$(ARCH) : $(SRC)/convertimreg.$(ARCH).o $(IR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/detregister.$(ARCH) : $(SRC)/detregister.$(ARCH).o $(DR) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/detsearch.$(ARCH) : $(SRC)/detsearch.$(ARCH).o $(DS) ; $(CC) $^ -o $@ $(LFLAGS) + +$(BIN)/imsort.$(ARCH) : $(BIN)/imregister.$(ARCH) ; rm -f $(BIN)/imsort.$(ARCH) ; ln $(BIN)/imregister.$(ARCH) $(BIN)/imsort.$(ARCH) + +$(BIN)/spsearch.$(ARCH) : $(SRC)/spsearch.$(ARCH).o $(SS) ; $(CC) $^ -o $@ $(LFLAGS) +$(BIN)/spregister.$(ARCH) : $(SRC)/spregister.$(ARCH).o $(SR) ; $(CC) $^ -o $@ $(LFLAGS) + +# dependancy rules for binary code ######################### +.PRECIOUS: %.$(ARCH).o +.PRECIOUS: $(BIN)/%.$(ARCH) + +%.$(ARCH).o : %.c + $(CC) $(CFLAGS) -c $^ -o $@ + +$(BIN)/%.$(ARCH) : $(SRC)/%.$(ARCH).o $(BASEOBJ) + $(CC) $^ -o $@ $(LFLAGS) + +$(DESTBIN)/%: $(BIN)/%.$(ARCH) + rm -f $(DESTBIN)/$* + cp $(BIN)/$*.$(ARCH) $(DESTBIN)/$* + +$(INSTALL) $(DEVEL): % : $(BIN)/%.$(ARCH) + +%.clean : + rm -f $(BIN)/$*.$(ARCH) + +%.install: + make $(DESTBIN)/$* + +# utilities ################################################# + +install: + for i in $(INSTALL); do make $$i.install; done + +clean: + rm -f */*.o + rm -f */*~ Index: /branches/elixir/Ohana/src/imregister/base/convert.c =================================================================== --- /branches/elixir/Ohana/src/imregister/base/convert.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/base/convert.c (revision 2487) @@ -0,0 +1,2 @@ +# include "imregister.h" + Index: /branches/elixir/Ohana/src/imregister/doc/Change.log =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/Change.log (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/Change.log (revision 2487) @@ -0,0 +1,8 @@ + +imregister-3.0 represents a completely new organization of these +programs, with the twin goals of making the FITS table handling more +cleanly encapsulated and of easing the addition of a mysql database +engine in place of the FITS tables. As programs from imregister-1.0 +are adapted to match this structure, they will be moved into the +imregister-3.0 directory. + Index: /branches/elixir/Ohana/src/imregister/doc/Compatibility =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/Compatibility (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/Compatibility (revision 2487) @@ -0,0 +1,58 @@ + +transearch-1.0: + v1: ok + v2: ok + +transearch-2.0: + v1: not compatible, exits gracefully + v2: ok + +transreg-1.0: + v1: ok + v2: not compatible, exits gracefully + +transreg-1.0: + v1: not compatible, exits gracefully + v2: ok + +photsearch-1.0: + v1: ok + v2: ok + +photsearch-2.0: + v1: not compatible, exits gracefully + v2: ok + +photreg-1.0: + v1: ok + v2: ok [creates v1] + +photreg-2.0: + v1: not compatible, exits gracefully + v2: ok + +imsearch-1.0: + v1, v2: ok + v3: not compatible, exits gracefully + +imregister-1.0: + v1, v2: ok + v3: not compatible **** + +imregister-2.0: + v1, v2: ok + v3: not compatible, exits gracefully + +imsort-1.0: + v1, v2: ok + v3: not compatible **** + +imsort-2.0: + v1, v2: ok + v3: not compatible *** + +imregtable-3.0: + v1, v2: not compatibe, exits gracefully + v3: ok + + Index: /branches/elixir/Ohana/src/imregister/doc/dbtools.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/dbtools.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/dbtools.txt (revision 2487) @@ -0,0 +1,41 @@ + +Elixir uses several databases to store a variety of information. +One of these databases is the photometry database, with several +interface tools (status, nrphot, addstar, etc). The other databases +are manipulated with the tools found in this directory. In addition, +tools used to abstract the camera description, photcodes, and filters +are included here. + +imregister : add images to the image registration database (imreg.db) + +imsearch : find images in imreg.db + +imsort : add images to imreg.db and pass to elixir systems + +imstatreg : update stats to imreg.db (fwhm, flux, bias) + +detregister : add images to the detrend database + +detsearch : find images in the detrend database + +photreg : add photometry datapoints to zeropoint db (phot.db) + +photsearch : search phot.db + +transreg : add transparency points to database (trans.db) + +transsearch : search trans.db + +photcode : find photcode for given image + +filtnames : filter name lookups + +cameraconfig : get configuration information for camera + +As in all Elixir programs, a reference to a specific CCD in a MEF +image can be done with (file) (ccd) MEF, where the value of 'ccd' is +one of the valid extension names, associated in the header with the +keyword defined by CCDNUM-KEYWORD. In addition, searches (imsearch, +detsearch) may be restricted to specific ccds with the -ccd flag, +which also takes the extension name ID. + Index: /branches/elixir/Ohana/src/imregister/doc/det.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/det.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/det.txt (revision 2487) @@ -0,0 +1,46 @@ + +detregister: +-time")) { +-label")) { +-ID")) { +-order")) { +-type")) { +-ccd")) { +-exptime")) { +-filter")) { + +detsearch: +--help : ok +-ccd : ok +-close : ok +-exptime : ok +-filter : ok +-h : ok +-image : ok +-label : ok +-mosaic : ok +-recipe : ok +-select : ok +-time : ok +-trange : ok +-treg : ok +-tstop : ok +-type : ok +-ve : ok +-quiet : ok + +-match : ? +-entry : ok + +-fits : ok +-binfits : ok +-del : ok +-delete : ok +-modify : ok + +--help : clean up usage statement + +option behavior: + +-close implies -time or -trange +-select returns best for all detrend base selection Index: /branches/elixir/Ohana/src/imregister/doc/detsearch.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/detsearch.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/detsearch.txt (revision 2487) @@ -0,0 +1,74 @@ + +detregister / detsearch MEF support: + +issue of database image format: + +filename type CCD mode +modes/2001A.modes.R.12.00.fits modes 12 modes +flat/R/02Bk06.flat.R.00.00.fits flat 00 split +flat/R/03Ak01.flat.R.00.fits flat 12 mef + +detsearch / detregister concepts: + +selection rules: + + match all simple filters + + -image foo.fits[ccd 08] matches (split 08) or (mef NCCD) + + if CCD is defined, return foo.fits[ext] if foo.fits is MEF + +simple filters: + + -ccd (N) : match ccd + -time yyyy/mm/dd,HH:MM:SS : match time + -trange (start) (stop) : match time range + -entry (value) : match entry (entry == version number) + -label (word) : match this label + -filter (name) : match filter + -exptime (value) : match exposure time + +complex rules: + -image (filename) (ccd) (mode) : determine filters from image + + -mosaic (filename) : determine filters from image + + -recipe : determine filters from image + + -type (type) : match type, limit valid filters + + -match (value) : only list the Nth matched entry ??? + + -close : allow non-perfect matches + + -select : select 'best' match + +display rules: + -tstop : display end of valid time range + -treg : display time of image registration + -ve : Elixir verbose (SUCCESS / ERROR) + -quiet : Elixir quiet (no SUCCESS / ERROR) + + +behaviour rules: + -modify (entry) (value) : change entry for matched images to value + [possible -modify entries: label, order, tstart, tstop] + + -del : delete the matched entries + -delete : delete the matched entries + + +-image sets: -filter, -ccd, -time, -exptime +-mosaic sets: -filter, -time, -exptime, (-ccds?) +-recipe sets -type, for each type, sets - + +possible values for -type: mask, bias, dark, flat, fringe, scatter, modes + +valid filters for type selections: + mask: -ccd, -label, -entry, -time || -trange + bias: -ccd, -label, -entry, -time || -trange + dark: -ccd, -label, -entry, -time || -trange, -exptime + flat: -ccd, -label, -entry, -time || -trange, -filter + fringe: -ccd, -label, -entry, -time || -trange, -filter + scatter: -ccd, -label, -entry, -time || -trange, -filter + modes: -ccd, -label, -entry, -time || -trange, -filter Index: /branches/elixir/Ohana/src/imregister/doc/imreg.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/imreg.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/imreg.txt (revision 2487) @@ -0,0 +1,25 @@ + +command-line options from imregister: +-split - OK +-noreg - OK + +command-line options from imsearch: +-type - ok +-etime - ok +-mode - ok +-ccd - ok +-filter - ok +-name - ok + +-treg -ok +-seq -ok +-pt -ok +-table -ok +-bintable -ok +-del -ok +-delete -ok +-newpath -ok +-mef2split -ok +-split2mef -ok + + Index: /branches/elixir/Ohana/src/imregister/doc/imregister.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/imregister.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/imregister.txt (revision 2487) @@ -0,0 +1,63 @@ + +This directory contains several routines which are related to +maintaining a small, elixir-internal databases about the images which +have been obtained. + +This database can be used to find the location on disk of the images +which we have analysed, or to display various statistics about images, +or to find types of images which have been obtained. + +The basic program is 'imregister', which places the basic information +about an image in the database, as determined from the header. The +program is invoked with: {\tt imregister (filename) [-split]}. The +optional flag is used to tell the program to distinguish the +individual (SPLIT) frames of a mosaic CCD from an individual CCD which +should be treated as an isolated image. + +The second program is 'imsort', which does the same task as +'imregister', but it also sends a trigger to the IMSTAT elixir and if +needed to the PTOLEMY elixir. For this program, the -split flag makes +a difference in how these images are treated in the elixir processes. +The basic point is that a SINGLE image /fullpath/filename.fits +produces analysis files of the form /newpath/filename.ext while a +SPLIT image will have the form /fullpath/word/wordNN.fits and output +files of the form /newpath/word/wordNN.ext. + +May 11, 2000 + +I have been working to clean up some of the details of the Elixir +system. There are three big issues I have been attempting to address. +First, I have wanted to create a single set of Elixirs for both MEF +and SPLIT (and even SINGLE) images. I also want to minimize the +number of programs are required to know something special about our +system, our camera, or our method of naming files. Finally, I have +been trying to automate the selection of the appropriate detrend data. +These are connected problems, in many ways. + +Here, in order, are the programs (and scripts) needed to run the +Elixir system for which these issues are relevant: + +elixir.fork: this program is launched by the camera to introduce a + new image to the system. It must understand the + difference between SPLIT and MEF, and also the naming + convention. + +imsort: this program adds the image to the database and passes a + trigger to the elixirs ptolemy and imstats. imsort + needs to distinguish SPLIT, MEF, and SINGLE images, and + it must know the naming convention. + +elixir (ptolemy): this script is now independent of the mode and + naming issues + +elixir (imstats): this script is now independent of the mode and + naming issues + +flatten: this script needs to distinguish SPLIT and MEF + images (it is told the mode by the input line), but + it does not know the naming convention. + +imstats: this script needs to distinguish SPLIT and MEF + images (it is told the mode by the input line), but + it does not know the naming convention. + Index: /branches/elixir/Ohana/src/imregister/doc/imtable.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/imtable.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/imtable.txt (revision 2487) @@ -0,0 +1,22 @@ + +Image Table: run @ 6 AM in ert + +- for given time period: + +* are all images in database? (compare archive db & elixir db) +* have all images passed imstats? + +- complete images should be extracted into a table, sent to CADC +- missing images should be registered or a warning sent on failure + (relink on /data/kapu/elixir/cfh12k) + +- nostat images should be sent to imstats + (launch imstats to process) + +* imsearch output format CADC: + + fits_define_table_column (&theader, "A64", "FILE", "filename in db", "", 1.0, 0.0); + fits_define_table_column (&theader, "F7.1", "SKY", "background level", "counts / pixel", 1.0, 0.0); + fits_define_table_column (&theader, "F6.1", "BIAS", "bias level", "counts / pixel", 1.0, 0.0); + fits_define_table_column (&theader, "F5.2", "FWHM", "image quality", "pixels", 1.0, 0.0); + Index: /branches/elixir/Ohana/src/imregister/doc/notes.2.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/notes.2.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/notes.2.txt (revision 2487) @@ -0,0 +1,63 @@ + +problem: imstatreg is too slow because of network I/O + +option 1: add mysql db to imstats system + +option 2: create client / server pair for imregister / imstatreg + +option 3: create buffer file for network I/O, local daemon for update + +1: best soln but will take a while +2: ok option, but significant programming effort (worse than 1) +3: easy programming, acceptable + +for imstatreg update, we need the only following data: + +obstime (unsigned int) +ccd (char or int) +fwhm +bias +sky +ra +dec + +imstatreg -client: + + read image info + load temp db + append data + close + +imstatreg -daemon: + + load temp db + load main db + match images + update db + close db + empty temp db + +------------------------------------------------------ + +detsearch needs optional alternative detrend.db paths + +- add column ALTPATH : true / false +- add option -altpath : + - select images + - select ALTPATH images + - find subset 'add' + - find subset 'remove' + - 'remove': unlink files & unset ALTPATH + - 'add' : copy files & set ALTPATH + + +if (ADD) : all images in match are 'add', no images are 'delete' +if (DELETE) : all images in match are 'delete', no images are 'add' +if (UPDATE) : ?? + +----------------------------------------------------- + +photreg / photsearch + +- need to define the target photometry system in the output table. + Index: /branches/elixir/Ohana/src/imregister/doc/notes.old.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/notes.old.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/notes.old.txt (revision 2487) @@ -0,0 +1,12 @@ + +there are some issues with the imregister database that should get +addressed eventually. currently, I am loading and saving the entire +file each time I make a change. this seems like a bad plan. when we +get a few hundred nights of images in there, we will have several +megabytes to load, change, and save each time. two things could +change. first, imregister (imsort) could only add a record at the end +of the file. second, the imstatreg function could find the right +image and write over the few needed bytes. + +should I uses mmap to do the I/O? + Index: /branches/elixir/Ohana/src/imregister/doc/notes.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/notes.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/notes.txt (revision 2487) @@ -0,0 +1,101 @@ + +imsearch & CADC distribution: + +i need to create raw image tables for the CADC for only those images +which have been processed (-proc t) and for which a distribution table +has not been created. + +imsearch -modify help +imsearch -modify path /oldpath /newpath +imsearch -modify mode [mef/split] +imsearch -modify dist [t/f] + +history: + +v1 : < 2002.09 + + - FITS table interface had errors, incorrect TFORM values + - imreg db used pseudo FITS table + +v2 : 2002.09 + + - FITS table interface repaired + - imreg db uses pseudo FITS table + - unwieldy files which contain many functions (esp detsearch / + imsearch) + +v3 : 2002.11 + + - FITS table interface repaired + - imreg db converted to read FITS tables + - use of vtable interface introduced + - db interactions abstracted to allow for SQL + - reorganization of files + +v3: functions & dependancies + +function : external : globals : structs + +WriteFIFO : ohana : : +LoadCameraConfig : ohana : ccd data, keywords : +MatchCCDName : ohana : ccd data, keywords : +ConfigCamera : ohana : ccd data, keywords : +LoadFilterList : ohana : filt data, keywords : +MatchFilterList : ohana : filt data : +ConfigInit : ohana : keywords +get_fwhm : ohana +load_probes : ohana +parse_time : ohana : keywords +get_trange_arguments : ohana +make_backup : ohana +uppercase : +check_unixtime : UNUSED +sort (various) : + +(why aren't these in libohana?) +dms_to_ddd +str_to_radec +chk_time +str_to_time +str_to_dtime +sec_to_jd +jd_to_sec +date_to_sec +Fseek - allow for timeout... + +problems: + + imregister2.c: args + imsort2.c: args, SubmitImages + imstatreg2.c: args + photcode.c: ConfigSystem (ConfigCamera ConfigFilters) + photreg2.c: make_backup + photsearch2.c: DumpFitsTable + showiminfo.c: args + transearch2: LoadFilters, DumpFitsTable + transreg2: make_backup + +main programs: + +cameraconfig +convertimreg +filtnames +imphotsearch +imregister2 +imsearch2 +imsort2 +imstatreg2 +photcode +photreg2 +photsearch2 +showiminfo +transearch +transreg + + +dependency types: + +external libraries +local library +group +program-specific functions Index: /branches/elixir/Ohana/src/imregister/doc/photdb.dat =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/photdb.dat (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/photdb.dat (revision 2487) @@ -0,0 +1,349 @@ +u 2003/02/10,13:00:46 25.3434 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/10,13:27:24 25.3435 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/10,13:33:10 25.3496 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/10,13:38:47 25.3583 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/10,13:56:21 25.3455 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/24,12:36:34 25.2875 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/24,12:37:43 25.2855 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/09,13:01:29 25.3035 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/09,13:05:05 25.3034 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/09,13:06:14 25.3004 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/02/24,12:39:01 25.3197 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/02/23,10:10:59 26.4664 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/23,10:11:59 26.4654 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/23,10:13:00 26.4604 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/24,12:00:51 26.4463 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/24,12:01:43 26.4393 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/24,12:02:35 26.4343 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/09,12:47:05 26.4692 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/09,12:47:48 26.4642 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/09,12:48:40 26.4624 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/02/23,10:17:28 25.9736 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/23,10:20:12 25.9708 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/23,10:20:55 25.9648 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/08,13:30:08 25.9878 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/08,13:30:51 25.9862 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/08,13:31:43 25.9816 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/24,12:07:20 25.9939 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/24,12:10:39 25.9897 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/24,12:09:47 25.9722 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/09,12:26:03 25.9581 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/09,12:26:55 25.9529 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/09,12:27:38 25.9617 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/12,15:18:51 26.0073 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/02/23,10:25:32 25.7384 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/23,10:28:07 25.7415 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/23,10:28:59 25.7465 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/08,13:18:37 25.7317 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/08,13:19:29 25.7307 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/08,13:20:12 25.7289 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/24,12:15:24 25.7579 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/24,12:18:51 25.7489 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/09,13:22:04 25.7434 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/09,13:23:39 25.7397 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/24,12:18:00 25.7399 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/09,13:22:56 25.7318 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/02/23,10:33:44 24.7826 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/23,10:36:54 24.7967 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/24,12:26:47 24.7562 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/09,13:12:43 24.7879 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/09,13:13:26 24.7888 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/24,12:23:19 24.7178 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/24,12:25:46 24.7117 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/09,13:11:51 24.7789 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +g 2003/03/24,15:07:46 26.4566 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/03/30,13:12:34 26.4501 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +i 2003/03/25,15:12:48 25.7633 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +r 2003/03/24,15:10:56 25.9917 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/03/25,15:21:27 26.0231 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +u 2003/03/22,15:11:13 25.4630 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/03/23,15:12:14 25.3056 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +z 2003/03/24,14:59:16 24.8271 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/03/30,13:20:55 24.7152 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +g 2003/04/25,09:06:28 26.4030 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/04/26,12:38:26 25.9774 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/26,13:14:35 25.9455 25.9780 0.0046 6 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/25,08:55:23 25.9287 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/27,08:44:44 25.9646 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/26,10:44:32 25.9647 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/26,13:05:05 26.0053 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/27,08:47:28 25.9676 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/26,13:06:05 25.9697 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/27,09:57:10 25.7930 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/04/25,08:58:07 25.7034 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/04/25,09:00:43 24.7533 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/06/09,14:36:14 25.2311 25.2800 0.0071 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/05/30,14:21:41 25.2892 25.2800 0.0150 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +r 2003/06/08,14:43:35 25.9302 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/06/02,07:20:29 25.7291 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/04,06:40:27 25.7566 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/05,06:21:27 25.5921 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/06,05:58:59 25.7441 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/08,14:48:20 25.6812 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/06/02,07:23:22 24.8465 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/09,14:42:25 24.7583 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/06/24,14:36:40 25.2756 25.2800 0.0361 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/29,14:36:40 25.2756 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/01,13:04:48 25.2674 25.2800 0.0365 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/05,14:51:04 25.2739 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/27,14:43:26 25.2580 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/30,14:44:00 25.1926 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/06/23,10:19:29 26.4170 26.4600 0.0112 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/24,10:28:33 26.4245 26.4600 0.0086 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/26,11:56:32 26.4183 26.4600 0.0130 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/27,10:17:02 26.4285 26.4600 0.0113 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/29,09:53:25 26.4350 26.4600 0.0274 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/28,12:25:29 26.4477 26.4600 0.0251 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/01,09:52:16 26.4206 26.4600 0.0130 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/04,10:25:06 26.4018 26.4600 0.0143 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/05,10:25:14 26.4114 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/22,14:27:01 26.4249 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/29,14:33:38 26.4104 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/01,13:01:55 26.4169 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/24,14:39:24 26.4019 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/30,14:40:59 26.3187 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/06/22,12:56:00 25.9895 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/23,10:13:35 25.9652 25.9780 0.0047 6 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/24,10:19:55 25.9644 25.9780 0.0033 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/26,12:02:09 25.9610 25.9780 0.0073 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/27,10:19:46 25.9708 25.9780 0.0008 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/29,09:56:18 25.9528 25.9780 0.0089 6 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/28,12:28:22 25.9663 25.9780 0.0058 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/01,09:55:00 25.9672 25.9780 0.0073 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/04,10:29:42 25.9544 25.9780 0.0103 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/05,10:16:36 25.9552 25.9780 0.0067 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/05,14:48:46 25.9320 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/22,14:29:45 25.9493 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/24,14:42:17 25.9354 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/27,14:49:29 25.9371 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/29,14:45:27 25.9172 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/30,14:52:30 25.9221 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/01,13:07:49 25.9294 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/07,07:42:14 25.8036 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/06/22,12:58:53 25.7312 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/24,10:25:49 25.7261 25.7430 0.0095 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/26,11:59:16 25.7120 25.7430 0.0099 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/27,10:22:39 25.7250 25.7430 0.0103 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/29,09:59:02 25.7016 25.7430 0.0193 6 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/28,12:30:57 25.7047 25.7430 0.0152 6 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/04,10:33:53 25.7089 25.7430 0.0085 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/05,10:21:04 25.7078 25.7430 0.0080 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/01,09:57:53 25.7179 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/22,14:22:42 25.7170 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/24,14:45:01 25.7069 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/27,14:46:36 25.7100 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/29,14:39:33 25.6881 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/30,14:46:45 25.6658 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/06/23,10:16:27 24.8045 24.8000 0.0426 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/24,10:22:47 24.8213 24.8000 0.0363 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/27,10:25:23 24.8190 24.8000 0.0415 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/29,10:01:55 24.7694 24.8000 0.0431 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/28,12:33:41 24.7714 24.8000 0.0408 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/01,10:00:28 24.8012 24.8000 0.0394 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/04,10:31:43 24.7981 24.8000 0.0419 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/05,10:23:05 24.7617 24.8000 0.0311 4 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/24,14:33:30 24.7644 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/27,14:52:13 24.7629 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/29,14:42:34 24.7233 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/30,14:49:37 24.7408 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +g 2003/05/25,08:16:48 26.4408 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/25,14:02:24 26.4275 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/25,14:03:59 26.4430 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/26,14:50:55 26.4043 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/26,07:54:11 26.4084 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/25,08:18:23 26.3957 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/05/27,10:26:41 25.9994 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,10:27:41 25.9876 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/25,14:06:51 25.9703 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,14:38:23 25.9785 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/26,14:47:54 25.9553 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/25,14:08:26 25.9845 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,14:40:16 25.9925 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/26,07:58:30 25.9474 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/25,08:23:08 25.9621 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,06:04:10 25.9786 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,10:29:16 25.9440 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/05/27,06:06:54 25.7535 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,10:31:52 25.7376 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/25,14:11:19 25.7157 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,14:43:26 25.7314 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/26,14:45:01 25.7264 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/25,14:12:54 25.7356 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,14:44:52 25.7485 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/26,08:02:41 25.7276 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/25,08:27:35 25.6939 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,06:08:29 25.6955 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,10:33:27 25.6919 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/05/25,08:30:28 24.8014 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:15:38 24.7352 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:17:13 24.7520 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:39:50 24.7505 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:42:25 24.7538 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:44:52 24.7559 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,14:50:55 24.7465 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/26,08:08:00 24.6889 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/26,08:09:44 24.7414 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/25,08:32:03 24.7488 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/07/22,13:40:22 25.3017 25.2800 0.0209 6 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/31,10:28:33 25.2284 25.2800 0.0319 7 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/01,11:32:47 25.2627 25.2800 0.0124 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/22,11:26:35 25.2747 25.2800 0.0072 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/07/30,12:30:05 26.3704 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:31:32 26.3815 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:32:24 26.4011 26.4600 0.0175 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:33:15 26.3942 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:34:07 26.3715 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:34:59 26.3837 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:36:43 26.3226 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:38:26 26.3463 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:39:18 26.3810 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:12:46 26.4141 26.4600 0.0199 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:14:38 26.2761 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:44:18 26.4026 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:45:10 26.3946 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:46:10 26.4046 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:47:02 26.3942 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:47:54 26.4032 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:48:46 26.4307 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:49:37 26.4329 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/01,14:30:46 26.4302 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:35:51 26.3759 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:37:35 26.3472 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:13:46 26.3669 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:40:19 26.4117 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:41:19 26.4284 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:42:20 26.4288 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:43:11 26.3882 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:44:21 26.4019 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:45:21 26.4233 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:46:22 26.3867 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:47:13 26.4394 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:48:23 26.4528 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,12:49:23 26.4335 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:15:30 26.2898 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:16:22 26.2841 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:28:01 26.3029 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:32:12 26.2736 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:33:12 26.3506 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:34:22 26.3716 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:35:22 26.3566 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:36:14 26.3866 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:37:23 26.3626 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:38:23 26.3926 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:39:24 26.3606 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:40:16 26.3566 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:41:25 26.3863 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:42:25 26.3973 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:50:29 26.4281 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,14:51:21 26.4151 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/22,11:20:06 26.4140 26.4600 0.0058 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:36:02 26.3875 26.4600 0.0082 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:36:54 26.3962 26.4600 0.0061 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:38:47 26.3939 26.4600 0.0048 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:39:38 26.3879 26.4600 0.0071 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/01,11:24:17 26.4161 26.4600 0.0192 7 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/22,13:42:40 26.4298 26.4600 0.0089 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:23:57 26.3996 26.4600 0.0087 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:35:02 26.3865 26.4600 0.0082 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:37:55 26.3802 26.4600 0.0061 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:40:30 26.3766 26.4600 0.0064 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:41:22 26.3746 26.4600 0.0090 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:42:31 26.3733 26.4600 0.0090 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,10:43:23 26.3783 26.4600 0.0086 5 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/07/30,12:28:04 25.9364 25.9780 0.0140 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/01,14:28:45 25.9363 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/01,11:28:27 25.9590 25.9780 0.0195 7 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/22,11:22:16 25.9475 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/22,13:38:03 25.9685 25.9780 0.0152 5 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/31,10:30:43 25.9386 25.9780 0.0138 5 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/08/01,14:35:13 25.7086 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/01,11:30:28 25.7165 25.7430 0.0193 5 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/22,11:17:57 25.7288 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/22,13:44:49 25.7200 25.7430 0.0187 5 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/31,10:32:52 25.6899 25.7430 0.0179 5 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/08/01,14:37:06 24.7903 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/22,11:24:17 24.7831 24.8000 0.0416 7 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/22,13:46:50 24.7811 24.8000 0.0401 7 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/31,10:26:15 24.7419 24.8000 0.0384 7 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/21,06:16:07 24.8628 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/08/21,09:56:35 25.3331 25.2800 0.0357 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/22,06:16:24 25.4472 25.2800 0.0382 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/22,09:13:32 25.3878 25.2800 0.0050 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/25,12:39:10 25.4175 25.2800 0.0310 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/28,10:14:35 25.3980 25.2800 0.0296 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/29,08:14:38 25.3912 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/29,08:15:38 25.3885 25.2800 0.0373 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/30,09:59:02 25.3895 25.2800 0.0318 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/31,07:15:10 25.4075 25.2800 0.0273 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/09/04,08:31:03 25.3510 25.2800 0.0058 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/25,05:52:39 25.3050 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/30,07:13:00 25.4598 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/08/27,15:09:21 26.5096 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/03,15:00:34 26.5288 26.4600 0.0205 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/23,14:57:24 26.5457 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/30,14:25:00 26.5669 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/04,15:11:05 26.4714 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/28,07:13:09 26.5061 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/21,10:07:58 26.4956 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/22,06:24:46 26.5343 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/25,12:36:51 26.5242 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/28,10:18:54 26.5111 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/29,08:22:24 26.5010 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/30,09:56:44 26.5113 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/31,07:19:37 26.5286 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/04,08:28:53 26.4813 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/23,07:09:15 26.5158 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/25,05:50:21 26.4298 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/30,07:10:33 26.5390 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/03,05:49:29 26.4413 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/08/23,14:50:55 26.0223 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/30,14:27:10 26.0383 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/09/03,15:02:35 26.0080 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/09/04,15:13:14 25.9757 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/30,09:52:24 25.9954 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/21,09:59:36 25.9575 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/22,06:18:25 26.0393 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/22,09:15:50 26.0112 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/25,12:34:50 26.0245 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/29,08:17:57 25.9944 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/31,07:21:47 26.0173 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/23,07:05:13 26.0000 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/30,07:06:23 26.0434 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/09/03,05:45:10 25.9892 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/09/03,15:04:45 25.7557 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/23,14:52:56 25.7570 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/30,14:29:02 25.7823 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/09/04,15:06:20 25.7414 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/28,07:18:20 25.7614 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/22,06:20:35 25.7676 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/22,09:17:42 25.7562 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/30,09:50:24 25.7790 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/21,10:02:21 25.7279 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/25,12:41:36 25.7803 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/28,10:20:55 25.7747 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/29,08:24:25 25.7721 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/31,07:13:00 25.7795 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/09/04,08:33:30 25.7536 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/23,07:07:23 25.7556 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/30,07:08:32 25.7745 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/09/03,05:47:19 25.7456 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/08/27,15:18:00 24.7928 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/28,15:15:24 24.8363 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/03,15:09:21 24.8027 24.8000 0.0193 4 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/23,14:59:42 24.7762 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/30,14:33:38 24.8063 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/04,15:15:15 24.7638 24.8000 0.0355 5 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/28,07:21:12 24.8333 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/21,10:05:13 24.7669 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/22,09:11:13 24.7917 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/25,12:43:46 24.7967 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/28,10:22:56 24.8075 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/29,08:20:06 24.7902 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/30,09:54:25 24.8141 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/31,07:17:28 24.8038 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/04,08:35:31 24.7788 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/22,06:22:36 24.8321 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/23,07:03:04 24.7013 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/25,05:44:00 24.7611 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/30,07:04:13 24.8370 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/03,05:43:00 24.7850 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir Index: /branches/elixir/Ohana/src/imregister/doc/photdb.src =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/photdb.src (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/photdb.src (revision 2487) @@ -0,0 +1,349 @@ +photreg -photcode i -trange 2003/02/08,13:18:37 1s -zp 25.7317 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/08,13:19:29 1s -zp 25.7307 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/08,13:20:12 1s -zp 25.7289 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/08,13:30:08 1s -zp 25.9878 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/08,13:30:51 1s -zp 25.9862 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/08,13:31:43 1s -zp 25.9816 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/09,12:26:03 1s -zp 25.9581 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/09,12:26:55 1s -zp 25.9529 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/09,12:27:38 1s -zp 25.9617 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/09,12:47:05 1s -zp 26.4692 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/09,12:47:48 1s -zp 26.4642 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/09,12:48:40 1s -zp 26.4624 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/09,13:01:29 1s -zp 25.3035 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/09,13:05:05 1s -zp 25.3034 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/09,13:06:14 1s -zp 25.3004 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/09,13:11:51 1s -zp 24.7789 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/09,13:12:43 1s -zp 24.7879 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/09,13:13:26 1s -zp 24.7888 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/09,13:22:04 1s -zp 25.7434 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/09,13:22:56 1s -zp 25.7318 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/09,13:23:39 1s -zp 25.7397 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/10,13:00:46 1s -zp 25.3434 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/10,13:27:24 1s -zp 25.3435 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/10,13:33:10 1s -zp 25.3496 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/10,13:38:47 1s -zp 25.3583 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/10,13:56:21 1s -zp 25.3455 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/12,15:18:51 1s -zp 26.0073 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/23,10:10:59 1s -zp 26.4664 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/23,10:11:59 1s -zp 26.4654 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/23,10:13:00 1s -zp 26.4604 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/23,10:17:28 1s -zp 25.9736 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/23,10:20:12 1s -zp 25.9708 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/23,10:20:55 1s -zp 25.9648 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/23,10:25:32 1s -zp 25.7384 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/23,10:28:07 1s -zp 25.7415 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/23,10:28:59 1s -zp 25.7465 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/23,10:33:44 1s -zp 24.7826 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/23,10:36:54 1s -zp 24.7967 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/24,12:00:51 1s -zp 26.4463 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/24,12:01:43 1s -zp 26.4393 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/02/24,12:02:35 1s -zp 26.4343 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/24,12:07:20 1s -zp 25.9939 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/24,12:09:47 1s -zp 25.9722 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/02/24,12:10:39 1s -zp 25.9897 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/24,12:15:24 1s -zp 25.7579 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/24,12:18:00 1s -zp 25.7399 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/02/24,12:18:51 1s -zp 25.7489 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/24,12:23:19 1s -zp 24.7178 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/24,12:25:46 1s -zp 24.7117 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/02/24,12:26:47 1s -zp 24.7562 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/24,12:36:34 1s -zp 25.2875 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/24,12:37:43 1s -zp 25.2855 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/02/24,12:39:01 1s -zp 25.3197 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/03/22,15:11:13 1s -zp 25.4630 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/03/23,15:12:14 1s -zp 25.3056 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/03/24,14:59:16 1s -zp 24.8271 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/03/24,15:07:46 1s -zp 26.4566 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/03/24,15:10:56 1s -zp 25.9917 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/03/25,15:12:48 1s -zp 25.7633 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/03/25,15:21:27 1s -zp 26.0231 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/03/30,13:12:34 1s -zp 26.4501 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/03/30,13:20:55 1s -zp 24.7152 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/25,08:55:23 1s -zp 25.9287 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/04/25,08:58:07 1s -zp 25.7034 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/04/25,09:00:43 1s -zp 24.7533 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/04/25,09:06:28 1s -zp 26.4030 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/26,10:44:32 1s -zp 25.9647 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/26,12:38:26 1s -zp 25.9774 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/26,13:05:05 1s -zp 26.0053 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/26,13:06:05 1s -zp 25.9697 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/26,13:14:35 1s -zp 25.9455 -dzp 0.0046 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/27,08:44:44 1s -zp 25.9646 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/27,08:47:28 1s -zp 25.9676 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/04/27,09:57:10 1s -zp 25.7930 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/25,08:16:48 1s -zp 26.4408 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/25,08:18:23 1s -zp 26.3957 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/25,08:23:08 1s -zp 25.9621 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/25,08:27:35 1s -zp 25.6939 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,08:30:28 1s -zp 24.8014 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,08:32:03 1s -zp 24.7488 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/25,14:02:24 1s -zp 26.4275 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/25,14:03:59 1s -zp 26.4430 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/25,14:06:51 1s -zp 25.9703 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/25,14:08:26 1s -zp 25.9845 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/25,14:11:19 1s -zp 25.7157 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/25,14:12:54 1s -zp 25.7356 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:15:38 1s -zp 24.7352 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:17:13 1s -zp 24.7520 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:39:50 1s -zp 24.7505 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:42:25 1s -zp 24.7538 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:44:52 1s -zp 24.7559 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/25,14:50:55 1s -zp 24.7465 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/26,07:54:11 1s -zp 26.4084 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/26,07:58:30 1s -zp 25.9474 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/26,08:02:41 1s -zp 25.7276 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/26,08:08:00 1s -zp 24.6889 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/05/26,08:09:44 1s -zp 24.7414 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/26,14:45:01 1s -zp 25.7264 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/26,14:47:54 1s -zp 25.9553 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/05/26,14:50:55 1s -zp 26.4043 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,06:04:10 1s -zp 25.9786 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,06:06:54 1s -zp 25.7535 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,06:08:29 1s -zp 25.6955 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,10:26:41 1s -zp 25.9994 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,10:27:41 1s -zp 25.9876 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,10:29:16 1s -zp 25.9440 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,10:31:52 1s -zp 25.7376 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,10:33:27 1s -zp 25.6919 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,14:38:23 1s -zp 25.9785 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/05/27,14:40:16 1s -zp 25.9925 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,14:43:26 1s -zp 25.7314 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/05/27,14:44:52 1s -zp 25.7485 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/05/30,14:21:41 1s -zp 25.2892 -dzp 0.0150 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/02,07:20:29 1s -zp 25.7291 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/02,07:23:22 1s -zp 24.8465 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/04,06:40:27 1s -zp 25.7566 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/05,06:21:27 1s -zp 25.5921 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/06,05:58:59 1s -zp 25.7441 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/08,14:43:35 1s -zp 25.9302 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/08,14:48:20 1s -zp 25.6812 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/06/09,14:36:14 1s -zp 25.2311 -dzp 0.0071 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/09,14:42:25 1s -zp 24.7583 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/22,12:56:00 1s -zp 25.9895 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/22,12:58:53 1s -zp 25.7312 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/22,14:22:42 1s -zp 25.7170 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/22,14:27:01 1s -zp 26.4249 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/22,14:29:45 1s -zp 25.9493 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/23,10:13:35 1s -zp 25.9652 -dzp 0.0047 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/23,10:16:27 1s -zp 24.8045 -dzp 0.0426 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/23,10:19:29 1s -zp 26.4170 -dzp 0.0112 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/24,10:19:55 1s -zp 25.9644 -dzp 0.0033 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/24,10:22:47 1s -zp 24.8213 -dzp 0.0363 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/24,10:25:49 1s -zp 25.7261 -dzp 0.0095 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/24,10:28:33 1s -zp 26.4245 -dzp 0.0086 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/24,14:33:30 1s -zp 24.7644 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/06/24,14:36:40 1s -zp 25.2756 -dzp 0.0361 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/24,14:39:24 1s -zp 26.4019 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/24,14:42:17 1s -zp 25.9354 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/24,14:45:01 1s -zp 25.7069 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/26,11:56:32 1s -zp 26.4183 -dzp 0.0130 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/26,11:59:16 1s -zp 25.7120 -dzp 0.0099 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/26,12:02:09 1s -zp 25.9610 -dzp 0.0073 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/27,10:17:02 1s -zp 26.4285 -dzp 0.0113 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/27,10:19:46 1s -zp 25.9708 -dzp 0.0008 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/27,10:22:39 1s -zp 25.7250 -dzp 0.0103 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/27,10:25:23 1s -zp 24.8190 -dzp 0.0415 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/06/27,14:43:26 1s -zp 25.2580 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/27,14:46:36 1s -zp 25.7100 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/27,14:49:29 1s -zp 25.9371 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/27,14:52:13 1s -zp 24.7629 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/28,12:25:29 1s -zp 26.4477 -dzp 0.0251 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/28,12:28:22 1s -zp 25.9663 -dzp 0.0058 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/28,12:30:57 1s -zp 25.7047 -dzp 0.0152 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/28,12:33:41 1s -zp 24.7714 -dzp 0.0408 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/29,09:53:25 1s -zp 26.4350 -dzp 0.0274 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/29,09:56:18 1s -zp 25.9528 -dzp 0.0089 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/29,09:59:02 1s -zp 25.7016 -dzp 0.0193 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/29,10:01:55 1s -zp 24.7694 -dzp 0.0431 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/29,14:33:38 1s -zp 26.4104 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/06/29,14:36:40 1s -zp 25.2756 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/29,14:39:33 1s -zp 25.6881 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/29,14:42:34 1s -zp 24.7233 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/29,14:45:27 1s -zp 25.9172 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/06/30,14:40:59 1s -zp 26.3187 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/06/30,14:44:00 1s -zp 25.1926 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/06/30,14:46:45 1s -zp 25.6658 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/06/30,14:49:37 1s -zp 24.7408 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/06/30,14:52:30 1s -zp 25.9221 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/01,09:52:16 1s -zp 26.4206 -dzp 0.0130 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/01,09:55:00 1s -zp 25.9672 -dzp 0.0073 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/01,09:57:53 1s -zp 25.7179 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/01,10:00:28 1s -zp 24.8012 -dzp 0.0394 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/01,13:01:55 1s -zp 26.4169 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/07/01,13:04:48 1s -zp 25.2674 -dzp 0.0365 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/01,13:07:49 1s -zp 25.9294 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/04,10:25:06 1s -zp 26.4018 -dzp 0.0143 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/04,10:29:42 1s -zp 25.9544 -dzp 0.0103 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/04,10:31:43 1s -zp 24.7981 -dzp 0.0419 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/04,10:33:53 1s -zp 25.7089 -dzp 0.0085 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/05,10:16:36 1s -zp 25.9552 -dzp 0.0067 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/05,10:21:04 1s -zp 25.7078 -dzp 0.0080 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/05,10:23:05 1s -zp 24.7617 -dzp 0.0311 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/05,10:25:14 1s -zp 26.4114 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/05,14:48:46 1s -zp 25.9320 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/07/05,14:51:04 1s -zp 25.2739 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/07,07:42:14 1s -zp 25.8036 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/21,06:16:07 1s -zp 24.8628 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/22,11:17:57 1s -zp 25.7288 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/22,11:20:06 1s -zp 26.4140 -dzp 0.0058 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/22,11:22:16 1s -zp 25.9475 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/22,11:24:17 1s -zp 24.7831 -dzp 0.0416 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/07/22,11:26:35 1s -zp 25.2747 -dzp 0.0072 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/22,13:38:03 1s -zp 25.9685 -dzp 0.0152 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/07/22,13:40:22 1s -zp 25.3017 -dzp 0.0209 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/22,13:42:40 1s -zp 26.4298 -dzp 0.0089 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/22,13:44:49 1s -zp 25.7200 -dzp 0.0187 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/22,13:46:50 1s -zp 24.7811 -dzp 0.0401 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/30,12:28:04 1s -zp 25.9364 -dzp 0.0140 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:30:05 1s -zp 26.3704 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:31:32 1s -zp 26.3815 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:32:24 1s -zp 26.4011 -dzp 0.0175 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:33:15 1s -zp 26.3942 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:34:07 1s -zp 26.3715 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:34:59 1s -zp 26.3837 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:35:51 1s -zp 26.3759 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:36:43 1s -zp 26.3226 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:37:35 1s -zp 26.3472 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:38:26 1s -zp 26.3463 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:39:18 1s -zp 26.3810 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:40:19 1s -zp 26.4117 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:41:19 1s -zp 26.4284 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:42:20 1s -zp 26.4288 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:43:11 1s -zp 26.3882 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:44:21 1s -zp 26.4019 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:45:21 1s -zp 26.4233 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:46:22 1s -zp 26.3867 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:47:13 1s -zp 26.4394 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:48:23 1s -zp 26.4528 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,12:49:23 1s -zp 26.4335 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:12:46 1s -zp 26.4141 -dzp 0.0199 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:13:46 1s -zp 26.3669 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:14:38 1s -zp 26.2761 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:15:30 1s -zp 26.2898 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:16:22 1s -zp 26.2841 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:28:01 1s -zp 26.3029 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:32:12 1s -zp 26.2736 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:33:12 1s -zp 26.3506 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:34:22 1s -zp 26.3716 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:35:22 1s -zp 26.3566 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:36:14 1s -zp 26.3866 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:37:23 1s -zp 26.3626 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:38:23 1s -zp 26.3926 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:39:24 1s -zp 26.3606 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:40:16 1s -zp 26.3566 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:41:25 1s -zp 26.3863 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:42:25 1s -zp 26.3973 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:44:18 1s -zp 26.4026 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:45:10 1s -zp 26.3946 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:46:10 1s -zp 26.4046 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:47:02 1s -zp 26.3942 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:47:54 1s -zp 26.4032 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:48:46 1s -zp 26.4307 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:49:37 1s -zp 26.4329 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:50:29 1s -zp 26.4281 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/30,14:51:21 1s -zp 26.4151 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:23:57 1s -zp 26.3996 -dzp 0.0087 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/07/31,10:26:15 1s -zp 24.7419 -dzp 0.0384 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/07/31,10:28:33 1s -zp 25.2284 -dzp 0.0319 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/07/31,10:30:43 1s -zp 25.9386 -dzp 0.0138 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/07/31,10:32:52 1s -zp 25.6899 -dzp 0.0179 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:35:02 1s -zp 26.3865 -dzp 0.0082 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:36:02 1s -zp 26.3875 -dzp 0.0082 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:36:54 1s -zp 26.3962 -dzp 0.0061 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:37:55 1s -zp 26.3802 -dzp 0.0061 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:38:47 1s -zp 26.3939 -dzp 0.0048 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:39:38 1s -zp 26.3879 -dzp 0.0071 -Nmeas 6 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:40:30 1s -zp 26.3766 -dzp 0.0064 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:41:22 1s -zp 26.3746 -dzp 0.0090 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:42:31 1s -zp 26.3733 -dzp 0.0090 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/07/31,10:43:23 1s -zp 26.3783 -dzp 0.0086 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/01,11:24:17 1s -zp 26.4161 -dzp 0.0192 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/01,11:28:27 1s -zp 25.9590 -dzp 0.0195 -Nmeas 7 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/01,11:30:28 1s -zp 25.7165 -dzp 0.0193 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/01,11:32:47 1s -zp 25.2627 -dzp 0.0124 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/01,14:28:45 1s -zp 25.9363 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/01,14:30:46 1s -zp 26.4302 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/01,14:35:13 1s -zp 25.7086 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/01,14:37:06 1s -zp 24.7903 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/21,09:56:35 1s -zp 25.3331 -dzp 0.0357 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/21,09:59:36 1s -zp 25.9575 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/21,10:02:21 1s -zp 25.7279 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/21,10:05:13 1s -zp 24.7669 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/21,10:07:58 1s -zp 26.4956 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/22,06:16:24 1s -zp 25.4472 -dzp 0.0382 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/22,06:18:25 1s -zp 26.0393 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/22,06:20:35 1s -zp 25.7676 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/22,06:22:36 1s -zp 24.8321 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/22,06:24:46 1s -zp 26.5343 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/22,09:11:13 1s -zp 24.7917 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/22,09:13:32 1s -zp 25.3878 -dzp 0.0050 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/22,09:15:50 1s -zp 26.0112 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/22,09:17:42 1s -zp 25.7562 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/23,07:03:04 1s -zp 24.7013 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/23,07:05:13 1s -zp 26.0000 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/23,07:07:23 1s -zp 25.7556 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/23,07:09:15 1s -zp 26.5158 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/23,14:50:55 1s -zp 26.0223 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/23,14:52:56 1s -zp 25.7570 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/23,14:57:24 1s -zp 26.5457 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/23,14:59:42 1s -zp 24.7762 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/25,05:44:00 1s -zp 24.7611 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/25,05:50:21 1s -zp 26.4298 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/25,05:52:39 1s -zp 25.3050 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/25,12:34:50 1s -zp 26.0245 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/25,12:36:51 1s -zp 26.5242 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/25,12:39:10 1s -zp 25.4175 -dzp 0.0310 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/25,12:41:36 1s -zp 25.7803 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/25,12:43:46 1s -zp 24.7967 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/27,15:09:21 1s -zp 26.5096 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/27,15:18:00 1s -zp 24.7928 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/28,07:13:09 1s -zp 26.5061 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/28,07:18:20 1s -zp 25.7614 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/28,07:21:12 1s -zp 24.8333 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/28,10:14:35 1s -zp 25.3980 -dzp 0.0296 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/28,10:18:54 1s -zp 26.5111 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/28,10:20:55 1s -zp 25.7747 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/28,10:22:56 1s -zp 24.8075 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/28,15:15:24 1s -zp 24.8363 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/29,08:14:38 1s -zp 25.3912 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/29,08:15:38 1s -zp 25.3885 -dzp 0.0373 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/29,08:17:57 1s -zp 25.9944 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/29,08:20:06 1s -zp 24.7902 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/29,08:22:24 1s -zp 26.5010 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/29,08:24:25 1s -zp 25.7721 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/30,07:04:13 1s -zp 24.8370 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/30,07:06:23 1s -zp 26.0434 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/30,07:08:32 1s -zp 25.7745 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/30,07:10:33 1s -zp 26.5390 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/30,07:13:00 1s -zp 25.4598 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/30,09:50:24 1s -zp 25.7790 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/30,09:52:24 1s -zp 25.9954 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/30,09:54:25 1s -zp 24.8141 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/30,09:56:44 1s -zp 26.5113 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/30,09:59:02 1s -zp 25.3895 -dzp 0.0318 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/30,14:25:00 1s -zp 26.5669 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/30,14:27:10 1s -zp 26.0383 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/30,14:29:02 1s -zp 25.7823 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/30,14:33:38 1s -zp 24.8063 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/08/31,07:13:00 1s -zp 25.7795 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/08/31,07:15:10 1s -zp 25.4075 -dzp 0.0273 -Nmeas 5 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/08/31,07:17:28 1s -zp 24.8038 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/08/31,07:19:37 1s -zp 26.5286 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/08/31,07:21:47 1s -zp 26.0173 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/09/03,05:43:00 1s -zp 24.7850 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/09/03,05:45:10 1s -zp 25.9892 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/09/03,05:47:19 1s -zp 25.7456 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/09/03,05:49:29 1s -zp 26.4413 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/09/03,15:00:34 1s -zp 26.5288 -dzp 0.0205 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/09/03,15:02:35 1s -zp 26.0080 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/09/03,15:04:45 1s -zp 25.7557 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/09/03,15:09:21 1s -zp 24.8027 -dzp 0.0193 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/09/04,08:28:53 1s -zp 26.4813 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode u -trange 2003/09/04,08:31:03 1s -zp 25.3510 -dzp 0.0058 -Nmeas 4 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/09/04,08:33:30 1s -zp 25.7536 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/09/04,08:35:31 1s -zp 24.7788 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -photcode i -trange 2003/09/04,15:06:20 1s -zp 25.7414 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode g -trange 2003/09/04,15:11:05 1s -zp 26.4714 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode r -trange 2003/09/04,15:13:14 1s -zp 25.9757 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -photcode z -trange 2003/09/04,15:15:15 1s -zp 24.7638 -dzp 0.0355 -Nmeas 5 -Ntime 1 -label elixir Index: /branches/elixir/Ohana/src/imregister/doc/spdb.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/spdb.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/spdb.txt (revision 2487) @@ -0,0 +1,58 @@ + +plan - use imregister / imsearch framework for spectra.db + +relevant database usages: + +use this for spectra.db ref ? + average.code or average.Xg + + +spectra in spectra.db will have RA,DEC: join between tables using position + +example queries: + +spsearch + +/* structure for Spectra Registration Database */ +typedef struct { + char filename[64]; + char pathname[128]; + char telescope[32]; + char instrument[32]; + + char objname[64]; + + char mode (MEF?) + + float ra, dec; + float exptime; + float airmass; + + /* spectral range representation */ + float W0, W1, dW; + + /* spectral range start, end; average value for nm / pixel */ + + float sky; + float bias; + float fwhm; + + float telfocus; + float xprobe, yprobe, zprobe; + float dettemp; + float teltemp[4]; + float rotangle; + + unsigned long int obstime; + unsigned long int regtime; +} RegImage; /* 360 bytes / image */ + + +outstanding questions: + +- convert spectral file to standard format on db insertion? + - uniform keywords for wavelength calibration? + - need header WCS + - single FITS file + - how to store discontiguous spectra? (MEF?) + - Index: /branches/elixir/Ohana/src/imregister/doc/transdb.dat =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/transdb.dat (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/transdb.dat (revision 2487) @@ -0,0 +1,159 @@ +u 2003/02/24,00:00:00 25.2980 25.2800 0.0157 7 3 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/02/23,00:00:00 26.4640 26.4600 0.0026 3 3 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/02/24,00:00:00 26.4400 26.4600 0.0049 6 3 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/02/23,00:00:00 25.9700 25.9780 0.0037 3 3 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/02/24,00:00:00 25.9850 25.9780 0.0094 5 3 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/02/23,00:00:00 25.7420 25.7430 0.0033 3 3 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/02/24,00:00:00 25.7490 25.7430 0.0073 6 3 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/02/23,00:00:00 24.7900 24.8000 0.0070 2 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/02/24,00:00:00 24.7290 24.8000 0.0197 4 3 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/03/22,00:00:00 25.4630 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/03/23,00:00:00 25.3060 25.2800 0.0000 1 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/03/24,00:00:00 26.4570 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/03/30,00:00:00 26.4500 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/03/24,00:00:00 25.9920 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/03/25,00:00:00 26.0230 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/03/25,00:00:00 25.7630 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/03/24,00:00:00 24.8270 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/03/30,00:00:00 24.7150 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +g 2003/04/25,00:00:00 26.4030 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/04/25,00:00:00 25.9290 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/26,00:00:00 25.9730 25.9780 0.0195 11 5 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/04/27,00:00:00 25.9080 25.9780 0.0816 5 3 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/04/25,00:00:00 25.7030 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/04/25,00:00:00 24.7530 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/05/30,00:00:00 25.2890 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/09,00:00:00 25.2310 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +r 2003/06/08,00:00:00 25.9300 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/06/02,00:00:00 25.7290 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/04,00:00:00 25.7570 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/05,00:00:00 25.5920 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/06,00:00:00 25.7440 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/08,00:00:00 25.6810 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/06/02,00:00:00 24.8460 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/09,00:00:00 24.7580 24.8000 0.0000 1 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/06/24,00:00:00 25.2760 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/27,00:00:00 25.2580 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/29,00:00:00 25.2760 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/06/30,00:00:00 25.1930 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/01,00:00:00 25.2670 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/05,00:00:00 25.2740 25.2800 0.0000 3 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/06/22,00:00:00 26.4250 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/23,00:00:00 26.4170 26.4600 0.0000 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/24,00:00:00 26.4130 26.4600 0.0113 5 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/26,00:00:00 26.4180 26.4600 0.0000 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/27,00:00:00 26.4280 26.4600 0.0000 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/28,00:00:00 26.4480 26.4600 0.0000 6 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/29,00:00:00 26.4230 26.4600 0.0123 8 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/06/30,00:00:00 26.3190 26.4600 0.0000 1 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/01,00:00:00 26.4190 26.4600 0.0019 6 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/04,00:00:00 26.4020 26.4600 0.0000 4 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/05,00:00:00 26.4110 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/06/22,00:00:00 25.9690 25.9780 0.0201 4 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/23,00:00:00 25.9650 25.9780 0.0000 6 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/24,00:00:00 25.9500 25.9780 0.0145 6 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/26,00:00:00 25.9610 25.9780 0.0000 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/27,00:00:00 25.9540 25.9780 0.0169 6 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/28,00:00:00 25.9660 25.9780 0.0000 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/29,00:00:00 25.9350 25.9780 0.0178 8 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/06/30,00:00:00 25.9220 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/01,00:00:00 25.9480 25.9780 0.0189 6 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/04,00:00:00 25.9540 25.9780 0.0000 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/05,00:00:00 25.9440 25.9780 0.0116 7 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/07,00:00:00 25.8040 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/06/22,00:00:00 25.7240 25.7430 0.0071 4 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/24,00:00:00 25.7160 25.7430 0.0096 6 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/26,00:00:00 25.7120 25.7430 0.0000 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/27,00:00:00 25.7180 25.7430 0.0075 6 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/28,00:00:00 25.7050 25.7430 0.0000 6 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/29,00:00:00 25.6950 25.7430 0.0067 8 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/06/30,00:00:00 25.6660 25.7430 0.0000 2 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/01,00:00:00 25.7180 25.7430 0.0000 3 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/04,00:00:00 25.7090 25.7430 0.0000 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/05,00:00:00 25.7080 25.7430 0.0000 4 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/06/23,00:00:00 24.8050 24.8000 0.0000 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/24,00:00:00 24.7930 24.8000 0.0284 8 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/27,00:00:00 24.7910 24.8000 0.0280 8 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/28,00:00:00 24.7710 24.8000 0.0000 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/29,00:00:00 24.7460 24.8000 0.0231 8 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/06/30,00:00:00 24.7410 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/01,00:00:00 24.8010 24.8000 0.0000 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/04,00:00:00 24.7980 24.8000 0.0000 6 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/05,00:00:00 24.7620 24.8000 0.0000 4 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +g 2003/05/25,00:00:00 26.4270 26.4600 0.0189 5 4 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/05/26,00:00:00 26.4060 26.4600 0.0021 2 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/05/25,00:00:00 25.9720 25.9780 0.0093 4 3 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/26,00:00:00 25.9510 25.9780 0.0040 3 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/05/27,00:00:00 25.9800 25.9780 0.0178 7 6 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/05/25,00:00:00 25.7150 25.7430 0.0170 3 3 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/26,00:00:00 25.7270 25.7430 0.0006 3 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/05/27,00:00:00 25.7260 25.7430 0.0242 6 6 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/05/25,00:00:00 24.7560 24.8000 0.0183 9 8 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/05/26,00:00:00 24.7150 24.8000 0.0262 3 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/07/22,00:00:00 25.2880 25.2800 0.0135 10 2 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/07/31,00:00:00 25.2280 25.2800 0.0000 7 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/01,00:00:00 25.2630 25.2800 0.0000 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/07/22,00:00:00 26.4220 26.4600 0.0079 11 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/30,00:00:00 26.3810 26.4600 0.0431 78 47 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/07/31,00:00:00 26.3850 26.4600 0.0086 59 11 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/01,00:00:00 26.4230 26.4600 0.0070 9 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/07/22,00:00:00 25.9580 25.9780 0.0105 8 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/30,00:00:00 25.9360 25.9780 0.0000 4 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/07/31,00:00:00 25.9390 25.9780 0.0000 5 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/01,00:00:00 25.9480 25.9780 0.0113 9 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/07/22,00:00:00 25.7240 25.7430 0.0044 6 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/07/31,00:00:00 25.6900 25.7430 0.0000 5 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/01,00:00:00 25.7130 25.7430 0.0039 8 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/07/21,00:00:00 24.8630 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/22,00:00:00 24.7820 24.8000 0.0010 14 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/07/31,00:00:00 24.7420 24.8000 0.0000 7 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/01,00:00:00 24.7900 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +u 2003/08/21,00:00:00 25.3330 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/22,00:00:00 25.4170 25.2800 0.0297 8 2 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/25,00:00:00 25.3610 25.2800 0.0563 6 2 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/28,00:00:00 25.3980 25.2800 0.0000 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/29,00:00:00 25.3900 25.2800 0.0013 7 2 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/30,00:00:00 25.4250 25.2800 0.0351 6 2 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/08/31,00:00:00 25.4070 25.2800 0.0000 5 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +u 2003/09/04,00:00:00 25.3510 25.2800 0.0000 4 1 0.2410 -0.3500 unknown u_SDSS g_SDSS elixir +g 2003/08/21,00:00:00 26.4960 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/22,00:00:00 26.5340 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/23,00:00:00 26.5310 26.4600 0.0150 2 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/25,00:00:00 26.4770 26.4600 0.0472 3 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/27,00:00:00 26.5100 26.4600 0.0000 3 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/28,00:00:00 26.5090 26.4600 0.0025 4 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/29,00:00:00 26.5010 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/30,00:00:00 26.5390 26.4600 0.0227 5 3 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/08/31,00:00:00 26.5290 26.4600 0.0000 2 1 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/03,00:00:00 26.4850 26.4600 0.0437 5 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +g 2003/09/04,00:00:00 26.4760 26.4600 0.0049 4 2 0.1480 -0.1500 unknown g_SDSS r_SDSS elixir +r 2003/08/21,00:00:00 25.9570 25.9780 0.0000 2 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/22,00:00:00 26.0250 25.9780 0.0141 2 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/23,00:00:00 26.0110 25.9780 0.0112 2 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/25,00:00:00 26.0240 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/29,00:00:00 25.9940 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/30,00:00:00 26.0260 25.9780 0.0215 3 3 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/08/31,00:00:00 26.0170 25.9780 0.0000 1 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/09/03,00:00:00 25.9990 25.9780 0.0094 2 2 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +r 2003/09/04,00:00:00 25.9760 25.9780 0.0000 3 1 0.0000 -0.1000 unknown g_SDSS r_SDSS elixir +i 2003/08/21,00:00:00 25.7280 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/22,00:00:00 25.7620 25.7430 0.0057 4 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/23,00:00:00 25.7560 25.7430 0.0007 2 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/25,00:00:00 25.7800 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/28,00:00:00 25.7680 25.7430 0.0067 2 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/29,00:00:00 25.7720 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/30,00:00:00 25.7790 25.7430 0.0032 4 3 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/08/31,00:00:00 25.7790 25.7430 0.0000 1 1 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/09/03,00:00:00 25.7510 25.7430 0.0050 4 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +i 2003/09/04,00:00:00 25.7470 25.7430 0.0061 4 2 0.0830 -0.0400 unknown r_SDSS i_SDSS elixir +z 2003/08/21,00:00:00 24.7670 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/22,00:00:00 24.8120 24.8000 0.0202 3 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/23,00:00:00 24.7390 24.8000 0.0374 2 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/25,00:00:00 24.7790 24.8000 0.0178 4 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/27,00:00:00 24.7930 24.8000 0.0000 3 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/28,00:00:00 24.8260 24.8000 0.0129 5 3 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/29,00:00:00 24.7900 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/30,00:00:00 24.8190 24.8000 0.0130 4 3 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/08/31,00:00:00 24.8040 24.8000 0.0000 2 1 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/03,00:00:00 24.7940 24.8000 0.0089 5 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir +z 2003/09/04,00:00:00 24.7710 24.8000 0.0075 7 2 0.0500 -0.0300 unknown g_SDSS z_SDSS elixir Index: /branches/elixir/Ohana/src/imregister/doc/transdb.src =================================================================== --- /branches/elixir/Ohana/src/imregister/doc/transdb.src (revision 2487) +++ /branches/elixir/Ohana/src/imregister/doc/transdb.src (revision 2487) @@ -0,0 +1,159 @@ +photreg -trans -photcode z -trange 2003/02/23,00:00:00 1s -zp 24.7900 -dzp 0.0070 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/02/23,00:00:00 1s -zp 25.7420 -dzp 0.0033 -Nmeas 3 -Ntime 3 -label elixir +photreg -trans -photcode r -trange 2003/02/23,00:00:00 1s -zp 25.9700 -dzp 0.0037 -Nmeas 3 -Ntime 3 -label elixir +photreg -trans -photcode g -trange 2003/02/23,00:00:00 1s -zp 26.4640 -dzp 0.0026 -Nmeas 3 -Ntime 3 -label elixir +photreg -trans -photcode z -trange 2003/02/24,00:00:00 1s -zp 24.7290 -dzp 0.0197 -Nmeas 4 -Ntime 3 -label elixir +photreg -trans -photcode u -trange 2003/02/24,00:00:00 1s -zp 25.2980 -dzp 0.0157 -Nmeas 7 -Ntime 3 -label elixir +photreg -trans -photcode i -trange 2003/02/24,00:00:00 1s -zp 25.7490 -dzp 0.0073 -Nmeas 6 -Ntime 3 -label elixir +photreg -trans -photcode r -trange 2003/02/24,00:00:00 1s -zp 25.9850 -dzp 0.0094 -Nmeas 5 -Ntime 3 -label elixir +photreg -trans -photcode g -trange 2003/02/24,00:00:00 1s -zp 26.4400 -dzp 0.0049 -Nmeas 6 -Ntime 3 -label elixir +photreg -trans -photcode u -trange 2003/03/22,00:00:00 1s -zp 25.4630 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/03/23,00:00:00 1s -zp 25.3060 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/03/24,00:00:00 1s -zp 24.8270 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/03/24,00:00:00 1s -zp 25.9920 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/03/24,00:00:00 1s -zp 26.4570 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/03/25,00:00:00 1s -zp 25.7630 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/03/25,00:00:00 1s -zp 26.0230 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/03/30,00:00:00 1s -zp 24.7150 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/03/30,00:00:00 1s -zp 26.4500 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/04/25,00:00:00 1s -zp 24.7530 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/04/25,00:00:00 1s -zp 25.7030 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/04/25,00:00:00 1s -zp 25.9290 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/04/25,00:00:00 1s -zp 26.4030 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/04/26,00:00:00 1s -zp 25.9730 -dzp 0.0195 -Nmeas 11 -Ntime 5 -label elixir +photreg -trans -photcode r -trange 2003/04/27,00:00:00 1s -zp 25.9080 -dzp 0.0816 -Nmeas 5 -Ntime 3 -label elixir +photreg -trans -photcode z -trange 2003/05/25,00:00:00 1s -zp 24.7560 -dzp 0.0183 -Nmeas 9 -Ntime 8 -label elixir +photreg -trans -photcode i -trange 2003/05/25,00:00:00 1s -zp 25.7150 -dzp 0.0170 -Nmeas 3 -Ntime 3 -label elixir +photreg -trans -photcode r -trange 2003/05/25,00:00:00 1s -zp 25.9720 -dzp 0.0093 -Nmeas 4 -Ntime 3 -label elixir +photreg -trans -photcode g -trange 2003/05/25,00:00:00 1s -zp 26.4270 -dzp 0.0189 -Nmeas 5 -Ntime 4 -label elixir +photreg -trans -photcode z -trange 2003/05/26,00:00:00 1s -zp 24.7150 -dzp 0.0262 -Nmeas 3 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/05/26,00:00:00 1s -zp 25.7270 -dzp 0.0006 -Nmeas 3 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/05/26,00:00:00 1s -zp 25.9510 -dzp 0.0040 -Nmeas 3 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/05/26,00:00:00 1s -zp 26.4060 -dzp 0.0021 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/05/27,00:00:00 1s -zp 25.7260 -dzp 0.0242 -Nmeas 6 -Ntime 6 -label elixir +photreg -trans -photcode r -trange 2003/05/27,00:00:00 1s -zp 25.9800 -dzp 0.0178 -Nmeas 7 -Ntime 6 -label elixir +photreg -trans -photcode u -trange 2003/05/30,00:00:00 1s -zp 25.2890 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/02,00:00:00 1s -zp 24.8460 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/02,00:00:00 1s -zp 25.7290 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/04,00:00:00 1s -zp 25.7570 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/05,00:00:00 1s -zp 25.5920 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/06,00:00:00 1s -zp 25.7440 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/08,00:00:00 1s -zp 25.6810 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/06/08,00:00:00 1s -zp 25.9300 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/09,00:00:00 1s -zp 24.7580 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/06/09,00:00:00 1s -zp 25.2310 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/22,00:00:00 1s -zp 25.7240 -dzp 0.0071 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/06/22,00:00:00 1s -zp 25.9690 -dzp 0.0201 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/06/22,00:00:00 1s -zp 26.4250 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/23,00:00:00 1s -zp 24.8050 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/06/23,00:00:00 1s -zp 25.9650 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/06/23,00:00:00 1s -zp 26.4170 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/24,00:00:00 1s -zp 24.7930 -dzp 0.0284 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/06/24,00:00:00 1s -zp 25.2760 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/24,00:00:00 1s -zp 25.7160 -dzp 0.0096 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/06/24,00:00:00 1s -zp 25.9500 -dzp 0.0145 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/06/24,00:00:00 1s -zp 26.4130 -dzp 0.0113 -Nmeas 5 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/06/26,00:00:00 1s -zp 25.7120 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/06/26,00:00:00 1s -zp 25.9610 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/06/26,00:00:00 1s -zp 26.4180 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/27,00:00:00 1s -zp 24.7910 -dzp 0.0280 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/06/27,00:00:00 1s -zp 25.2580 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/27,00:00:00 1s -zp 25.7180 -dzp 0.0075 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/06/27,00:00:00 1s -zp 25.9540 -dzp 0.0169 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/06/27,00:00:00 1s -zp 26.4280 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/28,00:00:00 1s -zp 24.7710 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/28,00:00:00 1s -zp 25.7050 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/06/28,00:00:00 1s -zp 25.9660 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/06/28,00:00:00 1s -zp 26.4480 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/06/29,00:00:00 1s -zp 24.7460 -dzp 0.0231 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/06/29,00:00:00 1s -zp 25.2760 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/29,00:00:00 1s -zp 25.6950 -dzp 0.0067 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/06/29,00:00:00 1s -zp 25.9350 -dzp 0.0178 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/06/29,00:00:00 1s -zp 26.4230 -dzp 0.0123 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/06/30,00:00:00 1s -zp 24.7410 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/06/30,00:00:00 1s -zp 25.1930 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/06/30,00:00:00 1s -zp 25.6660 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/06/30,00:00:00 1s -zp 25.9220 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/06/30,00:00:00 1s -zp 26.3190 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/07/01,00:00:00 1s -zp 24.8010 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/07/01,00:00:00 1s -zp 25.2670 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/07/01,00:00:00 1s -zp 25.7180 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/07/01,00:00:00 1s -zp 25.9480 -dzp 0.0189 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/07/01,00:00:00 1s -zp 26.4190 -dzp 0.0019 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/07/04,00:00:00 1s -zp 24.7980 -dzp 0.0000 -Nmeas 6 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/07/04,00:00:00 1s -zp 25.7090 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/07/04,00:00:00 1s -zp 25.9540 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/07/04,00:00:00 1s -zp 26.4020 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/07/05,00:00:00 1s -zp 24.7620 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/07/05,00:00:00 1s -zp 25.2740 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/07/05,00:00:00 1s -zp 25.7080 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/07/05,00:00:00 1s -zp 25.9440 -dzp 0.0116 -Nmeas 7 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/07/05,00:00:00 1s -zp 26.4110 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/07/07,00:00:00 1s -zp 25.8040 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/07/21,00:00:00 1s -zp 24.8630 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/07/22,00:00:00 1s -zp 24.7820 -dzp 0.0010 -Nmeas 14 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/07/22,00:00:00 1s -zp 25.2880 -dzp 0.0135 -Nmeas 10 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/07/22,00:00:00 1s -zp 25.7240 -dzp 0.0044 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/07/22,00:00:00 1s -zp 25.9580 -dzp 0.0105 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/07/22,00:00:00 1s -zp 26.4220 -dzp 0.0079 -Nmeas 11 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/07/30,00:00:00 1s -zp 25.9360 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/07/30,00:00:00 1s -zp 26.3810 -dzp 0.0431 -Nmeas 78 -Ntime 47 -label elixir +photreg -trans -photcode z -trange 2003/07/31,00:00:00 1s -zp 24.7420 -dzp 0.0000 -Nmeas 7 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/07/31,00:00:00 1s -zp 25.2280 -dzp 0.0000 -Nmeas 7 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/07/31,00:00:00 1s -zp 25.6900 -dzp 0.0000 -Nmeas 5 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/07/31,00:00:00 1s -zp 25.9390 -dzp 0.0000 -Nmeas 5 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/07/31,00:00:00 1s -zp 26.3850 -dzp 0.0086 -Nmeas 59 -Ntime 11 -label elixir +photreg -trans -photcode z -trange 2003/08/01,00:00:00 1s -zp 24.7900 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/08/01,00:00:00 1s -zp 25.2630 -dzp 0.0000 -Nmeas 5 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/08/01,00:00:00 1s -zp 25.7130 -dzp 0.0039 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/08/01,00:00:00 1s -zp 25.9480 -dzp 0.0113 -Nmeas 9 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/08/01,00:00:00 1s -zp 26.4230 -dzp 0.0070 -Nmeas 9 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/08/21,00:00:00 1s -zp 24.7670 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/08/21,00:00:00 1s -zp 25.3330 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/08/21,00:00:00 1s -zp 25.7280 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/08/21,00:00:00 1s -zp 25.9570 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/08/21,00:00:00 1s -zp 26.4960 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/08/22,00:00:00 1s -zp 24.8120 -dzp 0.0202 -Nmeas 3 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/08/22,00:00:00 1s -zp 25.4170 -dzp 0.0297 -Nmeas 8 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/08/22,00:00:00 1s -zp 25.7620 -dzp 0.0057 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/08/22,00:00:00 1s -zp 26.0250 -dzp 0.0141 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/08/22,00:00:00 1s -zp 26.5340 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/08/23,00:00:00 1s -zp 24.7390 -dzp 0.0374 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/08/23,00:00:00 1s -zp 25.7560 -dzp 0.0007 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/08/23,00:00:00 1s -zp 26.0110 -dzp 0.0112 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/08/23,00:00:00 1s -zp 26.5310 -dzp 0.0150 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/08/25,00:00:00 1s -zp 24.7790 -dzp 0.0178 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/08/25,00:00:00 1s -zp 25.3610 -dzp 0.0563 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/08/25,00:00:00 1s -zp 25.7800 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/08/25,00:00:00 1s -zp 26.0240 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/08/25,00:00:00 1s -zp 26.4770 -dzp 0.0472 -Nmeas 3 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/08/27,00:00:00 1s -zp 24.7930 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/08/27,00:00:00 1s -zp 26.5100 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/08/28,00:00:00 1s -zp 24.8260 -dzp 0.0129 -Nmeas 5 -Ntime 3 -label elixir +photreg -trans -photcode u -trange 2003/08/28,00:00:00 1s -zp 25.3980 -dzp 0.0000 -Nmeas 5 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/08/28,00:00:00 1s -zp 25.7680 -dzp 0.0067 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/08/28,00:00:00 1s -zp 26.5090 -dzp 0.0025 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/08/29,00:00:00 1s -zp 24.7900 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/08/29,00:00:00 1s -zp 25.3900 -dzp 0.0013 -Nmeas 7 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/08/29,00:00:00 1s -zp 25.7720 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/08/29,00:00:00 1s -zp 25.9940 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/08/29,00:00:00 1s -zp 26.5010 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/08/30,00:00:00 1s -zp 24.8190 -dzp 0.0130 -Nmeas 4 -Ntime 3 -label elixir +photreg -trans -photcode u -trange 2003/08/30,00:00:00 1s -zp 25.4250 -dzp 0.0351 -Nmeas 6 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/08/30,00:00:00 1s -zp 25.7790 -dzp 0.0032 -Nmeas 4 -Ntime 3 -label elixir +photreg -trans -photcode r -trange 2003/08/30,00:00:00 1s -zp 26.0260 -dzp 0.0215 -Nmeas 3 -Ntime 3 -label elixir +photreg -trans -photcode g -trange 2003/08/30,00:00:00 1s -zp 26.5390 -dzp 0.0227 -Nmeas 5 -Ntime 3 -label elixir +photreg -trans -photcode z -trange 2003/08/31,00:00:00 1s -zp 24.8040 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode u -trange 2003/08/31,00:00:00 1s -zp 25.4070 -dzp 0.0000 -Nmeas 5 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/08/31,00:00:00 1s -zp 25.7790 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode r -trange 2003/08/31,00:00:00 1s -zp 26.0170 -dzp 0.0000 -Nmeas 1 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/08/31,00:00:00 1s -zp 26.5290 -dzp 0.0000 -Nmeas 2 -Ntime 1 -label elixir +photreg -trans -photcode z -trange 2003/09/03,00:00:00 1s -zp 24.7940 -dzp 0.0089 -Nmeas 5 -Ntime 2 -label elixir +photreg -trans -photcode i -trange 2003/09/03,00:00:00 1s -zp 25.7510 -dzp 0.0050 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/09/03,00:00:00 1s -zp 25.9990 -dzp 0.0094 -Nmeas 2 -Ntime 2 -label elixir +photreg -trans -photcode g -trange 2003/09/03,00:00:00 1s -zp 26.4850 -dzp 0.0437 -Nmeas 5 -Ntime 2 -label elixir +photreg -trans -photcode z -trange 2003/09/04,00:00:00 1s -zp 24.7710 -dzp 0.0075 -Nmeas 7 -Ntime 2 -label elixir +photreg -trans -photcode u -trange 2003/09/04,00:00:00 1s -zp 25.3510 -dzp 0.0000 -Nmeas 4 -Ntime 1 -label elixir +photreg -trans -photcode i -trange 2003/09/04,00:00:00 1s -zp 25.7470 -dzp 0.0061 -Nmeas 4 -Ntime 2 -label elixir +photreg -trans -photcode r -trange 2003/09/04,00:00:00 1s -zp 25.9760 -dzp 0.0000 -Nmeas 3 -Ntime 1 -label elixir +photreg -trans -photcode g -trange 2003/09/04,00:00:00 1s -zp 26.4760 -dzp 0.0049 -Nmeas 4 -Ntime 2 -label elixir Index: /branches/elixir/Ohana/src/imregister/include/photreg.h =================================================================== --- /branches/elixir/Ohana/src/imregister/include/photreg.h (revision 2487) +++ /branches/elixir/Ohana/src/imregister/include/photreg.h (revision 2487) @@ -0,0 +1,47 @@ +# include + +struct { + int Ntimes; unsigned long *tstart, *tstop; + int PhotCodeSelect; int photcode; + int LabelSelect; char *Label; +} criteria; + +struct { + int delete; + int modify; + + int HST; + int verbose; + int convert; + char *table; + char *bintable; + char *cadctable; + + int equiv; + int offset; + char *db; +} output; + +enum {UNLOCK, LOCK, IGNORE}; + +int args (int argc, char **argv); +int regargs (int argc, char **argv, PhotPars *); +PhotPars *get_images (int *N); +int set_images (PhotPars *new, int Nnew); +int load_db (); +int save_db (); +int update_db (int *match, int Nmatch); +int append_db (PhotPars *new, int Nnew); +int create_db (); +int close_db (); +void DeleteSubset (int *match, int Nmatch); +int *match_criteria (int *Nmatch); +int *match_images (PhotPars *subset, int Nsubset, int *Nmatch); +void ModifySubset (int *match, int Nmatch); +void OutputSubset (int *match, int Nmatch); +void DumpFitsBintable (char *filename, PhotPars *image, int *match, int Nmatch); +void DumpFitsTable (char *filename, PhotPars *image, int *match, int Nmatch); +int PrintSubset (PhotPars *image, int *match, int Nmatch); +int define_table (Header *header, Matrix *matrix, Header *theader, FTable *table); +void set_timezone (double dt); +void DumpCADCTable (char *filename, PhotPars *image, int *match, int Nmatch); Index: /branches/elixir/Ohana/src/imregister/include/spreg.h =================================================================== --- /branches/elixir/Ohana/src/imregister/include/spreg.h (revision 2487) +++ /branches/elixir/Ohana/src/imregister/include/spreg.h (revision 2487) @@ -0,0 +1,113 @@ +# include + +enum { + SPMODE_UKN, /* unknown mode */ + SPMODE_PHU, /* one spectrum, primary header unit */ + SPMODE_MEF, /* spectrum group, extensions */ + SPMODE_EXT, /* one of a spectrum group, extension */ + SPMODE_N +}; + +enum { + SPSTATE_UKN, /* unknown state */ + SPSTATE_RAW, /* raw image counts */ + SPSTATE_FLT, /* flattened image counts */ + SPSTATE_CLN, /* clean extraction */ + SPSTATE_WAV, /* wavelength calibrated */ + SPSTATE_FLX, /* flux calibrated (implies WAV) */ + SPSTATE_N +}; + +struct { + int Ntimes; unsigned long *tstart, *tstop; + int ModeSelect; int Mode; + int StateSelect; int State; + int ExptimeSelect; float Exptime; + int FilenameSelect; char *Filename; + int ObjectSelect; char *Object; + int TelescopeSelect; char *Telescope; + int InstrumentSelect; char *Instrument; + int MatchNumber; +} criteria; + +struct { + int delete; + int modify; + + int unique; + int modify_path; + char *oldpath, *newpath; + + int modify_mode, mode; + int modify_state, state; + + int HST; + int verbose; + char *table; + char *bintable; +} output; + +typedef struct { + int *ccd; + int Nccd; + char name[64]; +} MosaicRegion; + +typedef struct { + MosaicRegion center; + MosaicRegion outer; + MosaicRegion top; + MosaicRegion bottom; + MosaicRegion left; + MosaicRegion right; +} MosaicLayout; + +enum {UNLOCK, LOCK, IGNORE}; + +int SingleIsSplit; +int NeedType; +int NoReg; +int IMSORT; +int CLIENT; +char *PIDFILE; +int LOOP_DELAY; + +char SpectrumDB[64]; +char ObjectKeyword[64]; +char TelescopeKeyword[64]; + + +int args (int argc, char **argv); +Spectrum *get_spectrums (int *N); +int set_spectrums (Spectrum *new, int Nnew); +int load_db (); +int save_db (); +int update_db (int *match, int Nmatch); +int append_db (Spectrum *new, int Nnew); +int create_db (); +int close_db (); +void DeleteSubset (int *match, int Nmatch); +Spectrum *spinfo (char *filename); +int *match_criteria (int *Nmatch); +int *match_spectrums (Spectrum *subset, int Nsubset, int *Nmatch); +void ModifySubset (int *match, int Nmatch); +void SetOutputMode (char *mode); +void OutputSubset (int *match, int Nmatch); +void DumpFitsBintable (char *filename, Spectrum *spectrum, int *match, int Nmatch); +void DumpFitsTable (char *filename, Spectrum *spectrum, int *match, int Nmatch); +int PrintSubset (Spectrum *spectrum, int *match, int Nmatch); +int dump_data (Spectrum *spectrum, int Nspectrum); +int SubmitSpectrums (Spectrum *spectrum); +int load_probes (char *filename, unsigned long tzero, int *wantprobe, double *values, int Nprobe); +int define_table (Header *header, Matrix *matrix, Header *theader, FTable *table); +void set_timezone (double dt); + +void DumpCADCTable (char *filename, Spectrum *spectrum, int *match, int Nmatch); +int *GetObsIDSubset (Spectrum *spectrum, int start, int *index, int *entry, int Nindex, int *Nsubset); +int *GetUniqueObsID (Spectrum *spectrum, int *index, int *entry, int Nindex, int *Nmatch); +void GetObsIDIndex (Spectrum *spectrum, int *match, int Nmatch, int **Index, int **Entry); +double SigmaClipList (double *list, int N); +double MosaicIQStats (Spectrum *spectrum, int *match, int Nmatch, MosaicRegion *region); +MosaicLayout *CreateCFH12K (); +MosaicLayout *CreateMegaCam (); +int GetREFCCD (Spectrum *spectrum, int *index, int *entry, int Nindex, int start); Index: /branches/elixir/Ohana/src/imregister/spreg/ConfigInit.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/ConfigInit.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/ConfigInit.c (revision 2487) @@ -0,0 +1,63 @@ +# include "imregister.h" +# include "spreg.h" + +int success; + +void ConfigInit (int *argc, char **argv) { + + int i, NDB; + char *config, *file, ElixirBase[80]; + + /*** load configuration info ***/ + file = SelectConfigFile (argc, argv, "ptolemy"); + config = LoadConfigFile (file); + if (config == (char *) NULL) { + fprintf (stderr, "ERROR: can't find configuration file %s\n", file); + if (file != (char *) NULL) free (file); + exit (0); + } + + success = TRUE; + + WarnConfig (config, "SPECTRUM_DATABASE", "%s", 0, SpectrumDB); + + /* keyword abstractions for parse_time */ + WarnConfig (config, "DATE-KEYWORD", "%s", 0, DateKeyword); + WarnConfig (config, "DATE-MODE", "%s", 0, DateMode); + WarnConfig (config, "UT-KEYWORD", "%s", 0, UTKeyword); + WarnConfig (config, "MJD-KEYWORD", "%s", 0, MJDKeyword); + WarnConfig (config, "JD-KEYWORD", "%s", 0, JDKeyword); + + /* keyword abstractions for spinfo */ + WarnConfig (config, "EXPTIME-KEYWORD", "%s", 0, ExptimeKeyword); + WarnConfig (config, "AIRMASS-KEYWORD", "%s", 0, AirmassKeyword); + WarnConfig (config, "CAMERA-KEYWORD", "%s", 0, CameraKeyword); + WarnConfig (config, "OBJECT-KEYWORD", "%s", 0, ObjectKeyword); + WarnConfig (config, "TELESCOPE-KEYWORD", "%s", 0, TelescopeKeyword); + + /* semi-optional values */ + ScanConfig (config, "RA-DDD-KEYWORD", "%s", 0, RADecDegKeyword); + ScanConfig (config, "DEC-DDD-KEYWORD", "%s", 0, DECDecDegKeyword); + ScanConfig (config, "RA-HMS-KEYWORD", "%s", 0, RASexigKeyword); + ScanConfig (config, "DEC-DMS-KEYWORD", "%s", 0, DECSexigKeyword); + if (!RADecDegKeyword[0] & !DECDecDegKeyword[0] && !RASexigKeyword[0] && !DECSexigKeyword[0]) { + fprintf (stderr, "missing astrometry configuration information\n"); + success = FALSE; + } + + if (! success) { + fprintf (stderr, "ERROR: problem with elixir configuration\n"); + exit (1); + } + + free (config); + free (file); + +} + +void WarnConfig (char *config, char *key, char * mode, int N, void *var) { + if (!ScanConfig (config, key, mode, N, var)) { + fprintf (stderr, "missing config variable %s\n", key); + success = FALSE; + } +} Index: /branches/elixir/Ohana/src/imregister/spreg/args.spregister.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/args.spregister.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/args.spregister.c (revision 2487) @@ -0,0 +1,47 @@ +# include "imregister.h" +# include "spreg.h" + +int args (int argc, char **argv) { + + int N; + + ConfigInit (&argc, argv); /* load elixir config data */ + + NoReg = FALSE; + if (N = get_argument (argc, argv, "-noreg")) { + remove_argument (N, &argc, argv); + NoReg = TRUE; + } + + output.verbose = FALSE; + if (N = get_argument (argc, argv, "-v")) { + remove_argument (N, &argc, argv); + output.verbose = TRUE; + } + + NeedType = FALSE; + if (N = get_argument (argc, argv, "-needtype")) { + remove_argument (N, &argc, argv); + NeedType = TRUE; + } + + /* all imregister programs are implicitly modifying the db */ + output.modify = TRUE; + IMSORT = FALSE; + + if (strstr (argv[0], "spregister") != (char *) NULL) { + if (argc != 2) { + fprintf (stderr, "ERROR: Usage: spregister (filename) [-noreg]\n"); + exit (1); + } + return (TRUE); + } + if (strstr (argv[0], "showspinfo") != (char *) NULL) { + if (argc != 2) { + fprintf (stderr, "ERROR: Usage: showspinfo (filename)\n"); + exit (1); + } + return (TRUE); + } + return (FALSE); +} Index: /branches/elixir/Ohana/src/imregister/spreg/args.spsearch.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/args.spsearch.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/args.spsearch.c (revision 2487) @@ -0,0 +1,178 @@ +# include "imregister.h" +# include "spreg.h" + +/* criteria struct is global */ +int args (int argc, char **argv) { + + double dt; + int N, i; + + ConfigInit (&argc, argv); /* load elixir config data */ + + /* set timezone (set static in misc.c) */ + if (N = get_argument (argc, argv, "-tz")) { + remove_argument (N, &argc, argv); + dt = atof (argv[N]); + set_timezone (dt); + remove_argument (N, &argc, argv); + } + + /* define time range */ + criteria.Ntimes = 0; + if (!get_trange_arguments (&argc, argv, &criteria.tstart, &criteria.tstop, &criteria.Ntimes)) { + fprintf (stderr, "ERROR: syntax error\n"); + exit (1); + } + + /* exposure time */ + criteria.ExptimeSelect = FALSE; + if (N = get_argument (argc, argv, "-etime")) { + remove_argument (N, &argc, argv); + criteria.Exptime = atof (argv[N]); + remove_argument (N, &argc, argv); + criteria.ExptimeSelect = TRUE; + } + + /* image type (dark, flat, bias, etc) */ + criteria.StateSelect = FALSE; + + + /* image mode (split, mef, single) */ + criteria.ModeSelect = FALSE; + /* + criteria.Mode = M_NONE; + if (N = get_argument (argc, argv, "-mode")) { + remove_argument (N, &argc, argv); + for (i = 0; (i < NMODE) && (criteria.Mode == M_NONE); i++) { + if (!strncasecmp (argv[N], modename[i], strlen(argv[N]))) criteria.Mode = i; + } + if (criteria.Mode == M_NONE) { + fprintf (stderr, "ERROR: invalid image mode %s\n", argv[N]); + exit (1); + } + remove_argument (N, &argc, argv); + criteria.ModeSelect = TRUE; + } + */ + + /* string in image name */ + criteria.FilenameSelect = FALSE; + if (N = get_argument (argc, argv, "-filename")) { + remove_argument (N, &argc, argv); + criteria.Filename = strcreate (argv[N]); + remove_argument (N, &argc, argv); + criteria.FilenameSelect = TRUE; + } + + /* string in image name */ + criteria.ObjectSelect = FALSE; + if (N = get_argument (argc, argv, "-object")) { + remove_argument (N, &argc, argv); + criteria.Object = strcreate (argv[N]); + remove_argument (N, &argc, argv); + criteria.ObjectSelect = TRUE; + } + + /* string in image name */ + criteria.TelescopeSelect = FALSE; + if (N = get_argument (argc, argv, "-tel")) { + remove_argument (N, &argc, argv); + criteria.Telescope = strcreate (argv[N]); + remove_argument (N, &argc, argv); + criteria.TelescopeSelect = TRUE; + } + + /* string in image name */ + criteria.InstrumentSelect = FALSE; + if (N = get_argument (argc, argv, "-inst")) { + remove_argument (N, &argc, argv); + criteria.Instrument = strcreate (argv[N]); + remove_argument (N, &argc, argv); + criteria.InstrumentSelect = TRUE; + } + + /*** command-line options which modify the output list */ + if (N = get_argument (argc, argv, "-treg")) { + remove_argument (N, &argc, argv); + SetOutputMode ("RegTimeMode"); + } + output.table = (char *) NULL; + if (N = get_argument (argc, argv, "-table")) { + remove_argument (N, &argc, argv); + output.table = strcreate (argv[N]); + remove_argument (N, &argc, argv); + } + output.bintable = (char *) NULL; + if (N = get_argument (argc, argv, "-bintable")) { + remove_argument (N, &argc, argv); + output.bintable = strcreate (argv[N]); + remove_argument (N, &argc, argv); + } + + /*** command-line options which modify behavior (delete, modify, newpath, mef2split split2mef */ + output.delete = FALSE; + output.modify = FALSE; + output.modify_path = FALSE; + output.unique = FALSE; + + if (N = get_argument (argc, argv, "-delete")) { + remove_argument (N, &argc, argv); + output.delete = TRUE; + } + + if (N = get_argument (argc, argv, "-unique")) { + remove_argument (N, &argc, argv); + output.unique = TRUE; + } + + if (N = get_argument (argc, argv, "-modify")) { + if (output.delete) { + fprintf (stderr, "can't specify more than one modifier at a time\n"); + exit (1); + } + remove_argument (N, &argc, argv); + output.modify = TRUE; + + /* modify part of the path */ + if (!strcasecmp (argv[N], "path")) { + output.modify_path = TRUE; + remove_argument (N, &argc, argv); + output.oldpath = strcreate (argv[N]); + remove_argument (N, &argc, argv); + output.newpath = strcreate (argv[N]); + remove_argument (N, &argc, argv); + goto valid_modify; + } + + /* modify distributed status */ + if (!strcasecmp (argv[N], "mode")) { + output.modify_mode = TRUE; + remove_argument (N, &argc, argv); + output.mode = atoi(argv[N]); + remove_argument (N, &argc, argv); + goto valid_modify; + } + + if (!strcasecmp (argv[N], "help")) { + fprintf (stderr, "-modify option: \n"); + fprintf (stderr, " -modify path (oldpath) (newpath)\n"); + fprintf (stderr, " -modify mode (mef | split)\n"); + exit (2); + } + + fprintf (stderr, "invalid -modify option, try -modify help\n"); + exit (1); + } + valid_modify: + + if (argc != 1) { + fprintf (stderr, "USAGE: imsearch [config ops] \n"); + fprintf (stderr, " [-type type] [-mode mode] [-trange start range] [-ccd N]\n"); + fprintf (stderr, " [-etime exptime] [-filter name] [-name string] [-proc t/f]\n"); + fprintf (stderr, " [-treg] [-seq] [-pt] [-table] [-cadctable] [-bintable]\n"); + fprintf (stderr, " [-delete] [-modify (options)]\n"); + exit (1); + } + + return (TRUE); +} Index: /branches/elixir/Ohana/src/imregister/spreg/db.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/db.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/db.c (revision 2487) @@ -0,0 +1,250 @@ +# include "imregister.h" +# include "spreg.h" + +/* variables which describe the db */ +char *dBFile = (char *) NULL; +FILE *f; +Header header; +Header theader; +Matrix matrix; +FTable table; +Spectrum *spectrum; +int Nspectrum; +int lockstate; +int dbstate = LCK_UNLOCK; + +/* set the name of the currently active database table + be careful: don't change db without closing old db */ +int set_db (char *filename) { + dBFile = filename; + return (TRUE); +} + +/* load the complete db table into memory */ +int load_db () { + + int Nx, Ny; + + /* database name must be set first */ + if (dBFile == (char *) NULL) { + fprintf (stderr, "ERROR: db file is not set\n"); + exit (1); + } + + /* set locking state */ + lockstate = (output.modify || output.delete) ? LCK_HARD : LCK_SOFT; + header.buffer = matrix.buffer = theader.buffer = table.buffer = (char *) NULL; + + /* lock & open database */ + f = fsetlockfile (dBFile, 300.0, lockstate, &dbstate); + if (dbstate == LCK_EMPTY) return (0); + if (f == (FILE *) NULL) { + fprintf (stderr, "ERROR: can't set lock on %s\n", dBFile); + exit (1); + } + + /* init & load in FITS table data */ + table.header = &theader; + if (!fits_fread_header (f, &header)) escape (UNLOCK, "ERROR: can't read primary header"); + if (!fits_fread_matrix (f, &matrix, &header)) escape (UNLOCK, "ERROR: can't read primary matrix"); + if (!fits_fread_ftable (f, &table, "SPECTRUM_DATABASE")) escape (UNLOCK, "ERROR: can't read table SPECTRUM_DATABASE"); + + /* convert to internal format */ + spectrum = (Spectrum *) table.buffer; + fits_scan (table.header, "NAXIS1", "%d", 1, &Nx); + fits_scan (table.header, "NAXIS2", "%d", 1, &Ny); + Nspectrum = Ny; + + if (!ConvertStruct ((char *) spectrum, sizeof (Spectrum), Nspectrum, "spectrum")) escape (UNLOCK, "ERROR: can't convert to internal format"); + return (TRUE); +} + +/* save complete db file */ +int save_db () { + + if (!ConvertStruct ((char *) spectrum, sizeof (Spectrum), Nspectrum, "spectrum")) escape (UNLOCK, "ERROR: can't convert from native format"); + + /* write all spectra to file */ + make_backup (dBFile); + Fseek (f, 0, SEEK_SET); + if (!fits_fwrite_header (f, &header)) escape (LOCK, "ERROR: can't write primary header"); + if (!fits_fwrite_matrix (f, &matrix)) escape (LOCK, "ERROR: can't write primary matrix"); + if (!fits_fwrite_Theader (f, &theader)) escape (LOCK, "ERROR: can't write table header"); + if (!fits_fwrite_table (f, &table)) escape (LOCK, "ERROR: can't write table data"); + + fits_free_header (&header); + fits_free_matrix (&matrix); + fits_free_header (&theader); + fits_free_table (&table); + + fclearlockfile (dBFile, f, lockstate, &dbstate); + return (TRUE); +} + +/* write selected rows to db file + complete db must already be loaded in memory (table) */ +int update_db (int *match, int Nmatch) { + + int i, N, Nx, Ny; + VTable vtable; + + fits_scan (table.header, "NAXIS1", "%d", 1, &Nx); + fits_scan (table.header, "NAXIS2", "%d", 1, &Ny); + + /* make empty vtable from table */ + vtable.header = table.header; + vtable.size = table.size; + vtable.Nrow = Ny; + vtable.pad = vtable.size - Nx*Ny; + + /* insert selected rows in vtable */ + ALLOCATE (vtable.row, int, Nmatch); + ALLOCATE (vtable.buffer, char *, Nmatch); + for (N = i = 0; i < Nmatch; i++) { + if (match[i] == -1) continue; + vtable.row[N] = match[i]; + ALLOCATE (vtable.buffer[N], char, Nx); + memcpy (vtable.buffer[N], &spectrum[match[i]], sizeof (Spectrum)); + ConvertStruct ((char *) vtable.buffer[N], sizeof (Spectrum), 1, "spectrum"); + N++; + } + vtable.Nrow = N; + + /* write subset to file */ + make_backup (dBFile); + Fseek (f, 0, SEEK_SET); + if (!fits_fwrite_header (f, &header)) escape (LOCK, "ERROR: can't update primary header"); + if (!fits_fwrite_matrix (f, &matrix)) escape (LOCK, "ERROR: can't update primary matrix"); + if (!fits_fwrite_Theader (f, &theader)) escape (LOCK, "ERROR: can't update table header"); + if (!fits_fwrite_vtable (f, &vtable)) escape (LOCK, "ERROR: can't update table data"); + + fits_free_header (&header); + fits_free_matrix (&matrix); + fits_free_header (&theader); + fits_free_vtable (&vtable); + fits_free_table (&table); + + fclearlockfile (dBFile, f, lockstate, &dbstate); + return (TRUE); +} + +/* write a row to the end of the existing table + file must be open, but need not be in memory */ +int append_db (Spectrum *new, int Nnew) { + + VTable vtable; + + /* add error checks! */ + fits_table_to_vtable (&table, &vtable, 0, 0); + + ConvertStruct ((char *) new, sizeof (Spectrum), Nnew, "spectrum"); + fits_vadd_rows (&vtable, new, Nnew, sizeof(Spectrum)); + + /* write subset to file */ + Fseek (f, 0, SEEK_SET); + if (!fits_fwrite_header (f, &header)) escape (LOCK, "ERROR: can't append to db"); + if (!fits_fwrite_matrix (f, &matrix)) escape (LOCK, "ERROR: can't append to db"); + if (!fits_fwrite_Theader (f, &theader)) escape (LOCK, "ERROR: can't append to db"); + if (!fits_fwrite_vtable (f, &vtable)) escape (LOCK, "ERROR: can't append to db"); + + fits_free_header (&header); + fits_free_matrix (&matrix); + fits_free_header (&theader); + fits_free_vtable (&vtable); + + fclearlockfile (dBFile, f, lockstate, &dbstate); + return (TRUE); +} + +/* create a new (empty) db table in memory. + dBFile already set with set_db (filename); + f already set with load_db () */ +int create_db () { + + /* define table layout */ + define_table (&header, &matrix, &theader, &table); + + /* convert to internal format */ + spectrum = (Spectrum *) table.buffer; + Nspectrum = 0; + + return (TRUE); +} + +/* close the db files, free header data + table data remains alloc'ed */ +int close_db () { + + fits_free_header (&header); + fits_free_matrix (&matrix); + fits_free_header (&theader); + + if (dbstate == LCK_UNLOCK) return (TRUE); + fclearlockfile (dBFile, f, lockstate, &dbstate); + return (TRUE); +} + +/* close the db files, free header data + table data remains alloc'ed + clear soft/xcld locks, but keep a hard lock on the db, if it exists */ +int close_lock_db () { + + fits_free_header (&header); + fits_free_matrix (&matrix); + fits_free_header (&theader); + + if (dbstate == LCK_UNLOCK) return (TRUE); + fclearlockfile (dBFile, f, LCK_XCLD, &dbstate); + return (TRUE); +} + +int print_db_status (char *message) { + + int fd; + + if (!output.verbose) return (0); + if (f == (FILE *) NULL) { + fprintf (stderr, "%s - db: %s - fd: %d\n", message, "null", -1); + return (0); + } + fd = fileno (f); + fprintf (stderr, "%s - db: %s - fd: %d\n", message, dBFile, fd); + return (TRUE); +} + +int escape (int mode, char *message) { + + if (mode == UNLOCK) close_db (); + fprintf (stderr, "%s\n", message); + exit (1); +} + +/* return the current table data */ +Spectrum *get_spectra (int *N) { + *N = Nspectrum; + return (spectrum); +} + +/* set the table to the specified data */ +int set_spectra (Spectrum *new, int Nnew) { + + int Nbytes; + + /* assign pointers to new data block */ + free (spectrum); + Nspectrum = Nnew; + spectrum = new; + + /* update header, table structures */ + fits_modify (table.header, "NAXIS2", "%d", 1, Nnew); + table.header[0].Naxis[1] = Nnew; + Nbytes = fits_matrix_size (table.header); + + /* add padding space to buffer */ + REALLOCATE ((char *) spectrum, char, Nbytes); + table.buffer = (char *) spectrum; + table.size = Nbytes; + + return (TRUE); +} + Index: /branches/elixir/Ohana/src/imregister/spreg/define.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/define.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/define.c (revision 2487) @@ -0,0 +1,44 @@ +# include "imregister.h" +# include "spreg.h" + +int define_table (Header *header, Matrix *matrix, Header *theader, FTable *table) { + + /* create primary header */ + fits_init_header (header); + header[0].extend = TRUE; + fits_create_header (header); + fits_create_matrix (header, matrix); + fits_print (header, "NEXTEND", "%d", 1, 1); + + /* define bintable header layout */ + fits_create_table_header (theader, "BINTABLE", "SPECTRUM_DATABASE"); + + fits_define_bintable_column (theader, "32A", "FILENAME", "filename in db", "", 1.0, 0.0); + fits_define_bintable_column (theader, "64A", "PATHNAME", "fullpath in db", "", 1.0, 0.0); + fits_define_bintable_column (theader, "16A", "INSTRUMENT", "instrument", "", 1.0, 0.0); + fits_define_bintable_column (theader, "16A", "TELESCOPE", "telescope", "", 1.0, 0.0); + fits_define_bintable_column (theader, "16A", "OBJNAME", "object name", "", 1.0, 0.0); + fits_define_bintable_column (theader, "16A", "EXTNAME", "extname in file", "", 1.0, 0.0); + + fits_define_bintable_column (theader, "E", "RA", "ra", "degrees", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "DEC", "dec", "degrees", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "EXPTIME", "exposure time", "seconds", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "AIRMASS", "airmass", "", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "Ws", "spectral range start", "Angstrom", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "We", "spectral range end", "Angstrom", 1.0, 0.0); + fits_define_bintable_column (theader, "E", "dW", "spectral resolution", "Angstrom / pix", 1.0, 0.0); + + fits_define_bintable_column (theader, "J", "NSPECTRA", "number of spectra", "", 1.0, 0.0); + fits_define_bintable_column (theader, "J", "OBS_TIME", "time of measurement", "seconds since Jan 1, 1970 UT", 1.0, 0.0); + fits_define_bintable_column (theader, "J", "REG_TIME", "time of registration", "seconds since Jan 1, 1970 UT", 1.0, 0.0); + + fits_define_bintable_column (theader, "A", "MODE", "phu/mef/ext", "", 1.0, 0.0); + fits_define_bintable_column (theader, "A", "STATE", "raw/wav/flx/etc", "", 1.0, 0.0); + fits_define_bintable_column (theader, "A", "FLAG", "status flags", "", 1.0, 0.0); + fits_define_bintable_column (theader, "13A", "EXTRA", "room for expansion", "", 1.0, 0.0); + + /* create table, add data values */ + fits_create_table (theader, table); + + return (TRUE); +} Index: /branches/elixir/Ohana/src/imregister/spreg/delete.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/delete.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/delete.c (revision 2487) @@ -0,0 +1,40 @@ +# include "imregister.h" +# include "spreg.h" + +void DeleteSubset (int *match, int Nmatch) { + + int i, j; + int *keep, Nbad, Nspectrum, Nsubset; + Spectrum *spectrum, *subset; + + spectrum = get_spectra (&Nspectrum); + + ALLOCATE (keep, int, MAX (Nspectrum, 1)); + for (i = 0; i < Nspectrum; i++) keep[i] = TRUE; + fprintf (stderr, "total of %d spectra\n", Nspectrum); + + Nbad = 0; + for (i = 0; i < Nmatch; i++) { + j = match[i]; + if (j == -1) continue; + keep[j] = FALSE; + Nbad ++; + } + fprintf (stderr, "delete %d spectra\n", Nbad); + + Nsubset = Nspectrum - Nbad; + ALLOCATE (subset, Spectrum, MAX (1, Nsubset)); + fprintf (stderr, "keeping %d spectra\n", Nsubset); + for (j = i = 0; i < Nspectrum; i++) { + if (!keep[i]) continue; + subset[j] = spectrum[i]; + j++; + } + + free (keep); + set_spectra (subset, Nsubset); + + save_db (); + exit (0); + +} Index: /branches/elixir/Ohana/src/imregister/spreg/fits_scan_nchar.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/fits_scan_nchar.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/fits_scan_nchar.c (revision 2487) @@ -0,0 +1,23 @@ +# include "imregister.h" +# include "imreg.h" + +/* scan from header into a string of fixed length */ +int fits_scan_nchar (Header *header, int size, char *field, int N,...) { + + char *tmpstr, *outstr; + va_list argp; + int status; + + va_start (argp, N); + outstr = va_arg (argp, char *); + va_end (argp); + + ALLOCATE (tmpstr, char, size); + status = fits_scan (header, field, "%s", N, tmpstr); + strncpy (outstr, tmpstr, size - 1); + outstr[size-1] = 0; + + free (tmpstr); + return (status); +} + Index: /branches/elixir/Ohana/src/imregister/spreg/match.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/match.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/match.c (revision 2487) @@ -0,0 +1,84 @@ +# include "imregister.h" +# include "spreg.h" + +int *match_criteria (int *Nmatch) { + + int i, j, Nspectrum; + int N, NMATCH; + int *match; + int reject; + int Nfilename, Nobject, Ntelescope, Ninstrument; + Spectrum *spectrum; + + /* create selection index */ + N = 0; + NMATCH = 1000; + ALLOCATE (match, int, NMATCH); + + if (criteria.FilenameSelect) Nfilename = strlen (criteria.Filename); + if (criteria.ObjectSelect) Nobject = strlen (criteria.Object); + if (criteria.TelescopeSelect) Ntelescope = strlen (criteria.Telescope); + if (criteria.InstrumentSelect) Ninstrument = strlen (criteria.Instrument); + + spectrum = get_spectra (&Nspectrum); + + /* find entries that matches criteria */ + for (i = 0; i < Nspectrum; i++) { + for (j = 0, reject = TRUE; reject && (j < criteria.Ntimes); j++) { + reject = (spectrum[i].obstime + spectrum[i].exptime < criteria.tstart[j]) || (spectrum[i].obstime > criteria.tstop[j]); + } + if (criteria.Ntimes && reject) continue; + if (criteria.ModeSelect && (spectrum[i].mode != criteria.Mode)) continue; + if (criteria.StateSelect && (spectrum[i].state != criteria.State)) continue; + + if (criteria.ExptimeSelect && (fabs (spectrum[i].exptime - criteria.Exptime) > 5.0)) continue; + + if (criteria.FilenameSelect && (strncasecmp (spectrum[i].filename, criteria.Filename, Nfilename))) continue; + if (criteria.ObjectSelect && (strncasecmp (spectrum[i].objname, criteria.Object, Nobject))) continue; + if (criteria.TelescopeSelect && (strncasecmp (spectrum[i].telescope, criteria.Telescope, Ntelescope))) continue; + if (criteria.InstrumentSelect && (strncasecmp (spectrum[i].instrument, criteria.Instrument, Ninstrument))) continue; + + match[N] = i; + N ++; + if (N == NMATCH) { + NMATCH += 1000; + REALLOCATE (match, int, NMATCH); + } + } + *Nmatch = N; + return (match); +} + +int *match_spectra (Spectrum *subset, int Nsubset, int *Nmatch) { + + int i, j, N, Nspectrum, Nfound; + int *match; + Spectrum *spectrum; + + spectrum = get_spectra (&Nspectrum); + + /* find matching spectra - very inefficient : sort by obstime, find those first? */ + ALLOCATE (match, int, Nsubset); + for (j = 0; j < Nsubset; j++) { + match[j] = -1; + for (i = 0; (match[j] == -1) && (i < Nspectrum); i++) { + if (spectrum[i].obstime > subset[j].obstime + 1) continue; + if (spectrum[i].obstime < subset[j].obstime - 1) continue; + match[j] = i; + } + } + + Nfound = 0; + for (i = 0; i < Nsubset; i++) { + /* set the new values for this spectrum */ + N = match[i]; + if (N == -1) continue; + spectrum[N].ra = subset[i].ra; + spectrum[N].dec = subset[i].dec; + /* if the spectrum is MEF, these were not correctly assigned by imsort. + this step uses the values from the split ccd spectrum */ + Nfound ++; + } + *Nmatch = Nfound; + return (match); +} Index: /branches/elixir/Ohana/src/imregister/spreg/modify.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/modify.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/modify.c (revision 2487) @@ -0,0 +1,45 @@ +# include "imregister.h" +# include "spreg.h" + +void ModifySubset (int *match, int Nmatch) { + + int i, j, Nold; + char *tmppath; + char *ext, *root, *path; + int Nspectrum; + Spectrum *spectrum; + + spectrum = get_spectra (&Nspectrum); + + /* create some necessary variables */ + if (output.modify_path) { + Nold = strlen (output.oldpath); + ALLOCATE (tmppath, char, 128); + } + + /* modify the selected entries */ + for (j = 0; j < Nmatch; j++) { + + i = match[j]; + + if (output.modify_path) { + if (!strncmp (spectrum[i].pathname, output.oldpath, Nold)) { + strcpy (tmppath, &spectrum[i].pathname[Nold]); + snprintf (spectrum[i].pathname, 128, "%s%s", output.newpath, tmppath); + } + } + + if (output.modify_mode) { + spectrum[i].mode = output.mode; + } + + if (output.modify_state) { + spectrum[i].state = output.state; + } + } + + update_db (match, Nmatch); + fprintf (stderr, "SUCCESS\n"); + exit (0); + +} Index: /branches/elixir/Ohana/src/imregister/spreg/output.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/output.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/output.c (revision 2487) @@ -0,0 +1,182 @@ +# include "imregister.h" +# include "spreg.h" + +static int RegTimeMode = FALSE; +static int PTstyle = FALSE; + +void SetOutputMode (char *mode) { + + if (!strcmp (mode, "RegTimeMode")) { + RegTimeMode = TRUE; + return; + } + if (!strcmp (mode, "PTstyle")) { + PTstyle = TRUE; + return; + } + +} + +/* given a subset list, write out the selected spectra, if desired */ +void OutputSubset (int *match, int Nmatch) { + + int Nspectrum; + Spectrum *spectrum; + + spectrum = get_spectra (&Nspectrum); + + if (output.table != (char *) NULL) { + DumpFitsTable (output.table, spectrum, match, Nmatch); + } + + if (output.bintable != (char *) NULL) { + DumpFitsBintable (output.bintable, spectrum, match, Nmatch); + } + + PrintSubset (spectrum, match, Nmatch); + exit (0); +} + +/* write out complete binary FITS table in format of db */ +void DumpFitsBintable (char *filename, Spectrum *spectrum, int *match, int Nmatch) { + + int i, j, Nx; + Header header, theader; + Matrix matrix; + FTable table; + Spectrum *subset; + + /* define table layout */ + define_table (&header, &matrix, &theader, &table); + + ALLOCATE (subset, Spectrum, MAX (1, Nmatch)); + for (i = 0; i < Nmatch; i++){ + j = match[i]; + memcpy (&subset[i], &spectrum[j], sizeof (Spectrum)); + } + ConvertStruct ((char *) subset, sizeof (Spectrum), Nmatch, "spectrum"); + fits_add_rows (&table, subset, Nmatch, sizeof (Spectrum)); + + fits_write_header (filename, &header); + fits_write_matrix (filename, &matrix); + fits_write_Theader (filename, &theader); + fits_write_table (filename, &table); + exit (0); +} + +void DumpFitsTable (char *filename, Spectrum *spectrum, int *match, int Nmatch) { + + int i; + char *obsstr, *regstr, *line, dummy[64]; + char *modestr, *typestr, *ccdstr, *datestr; + unsigned long tsecond; + Header header, theader; + Matrix matrix; + FTable table; + Spectrum *subset; + + bzero (dummy, 64); + memset (dummy, ' ', 63); + + /* create primary header */ + fits_init_header (&header); + header.extend = TRUE; + fits_create_header (&header); + fits_create_matrix (&header, &matrix); + fits_print (&header, "NEXTEND", "%d", 1, 1); + + /* create table header */ + fits_create_table_header (&theader, "TABLE", "SPECTRUM_DATABASE"); + + /* add current date/time to header */ + str_to_time ("now", &tsecond); + datestr = sec_to_date (tsecond); + fits_modify (&header, "DATE", "%s", 1, datestr); + fits_modify (&theader, "DATE", "%s", 1, datestr); + + /* define table layout */ + fits_define_table_column (&theader, "A32", "FILENAME", "filename in db", "", 1.0, 0.0); + fits_define_table_column (&theader, "A64", "PATHNAME", "fullpath in db", "", 1.0, 0.0); + fits_define_table_column (&theader, "A16", "INSTRUMENT", "instrument", "", 1.0, 0.0); + fits_define_table_column (&theader, "A16", "TELESCOPE", "telescope", "", 1.0, 0.0); + fits_define_table_column (&theader, "A16", "OBJNAME", "object name", "", 1.0, 0.0); + fits_define_table_column (&theader, "A16", "EXTNAME", "extname in file", "", 1.0, 0.0); + + fits_define_table_column (&theader, "F10.6","RA", "ra", "degrees", 1.0, 0.0); + fits_define_table_column (&theader, "F10.6","DEC", "dec", "degrees", 1.0, 0.0); + fits_define_table_column (&theader, "F6.1", "EXPTIME", "exposure time", "seconds", 1.0, 0.0); + fits_define_table_column (&theader, "F5.3", "AIRMASS", "airmass", "", 1.0, 0.0); + fits_define_table_column (&theader, "F7.2", "Ws", "spectral range start", "Angstrom", 1.0, 0.0); + fits_define_table_column (&theader, "F7.2", "We", "spectral range end", "Angstrom", 1.0, 0.0); + fits_define_table_column (&theader, "F7.2", "dW", "spectral resolution", "Angstrom / pix", 1.0, 0.0); + + fits_define_table_column (&theader, "I3", "NSPECTRA", "number of spectra", "", 1.0, 0.0); + fits_define_table_column (&theader, "A20", "OBS_TIME", "time of observation", "yyyy/mm/dd,hh:mm:ss"); + fits_define_table_column (&theader, "A20", "REG_TIME", "time of registration", "yyyy/mm/dd,hh:mm:ss"); + + fits_define_table_column (&theader, "I2", "MODE", "phu/mef/ext", "", 1.0, 0.0); + fits_define_table_column (&theader, "I2", "STATE", "raw/wav/flx/etc", "", 1.0, 0.0); + fits_define_table_column (&theader, "I3", "FLAG", "status flags", "", 1.0, 0.0); + + /* create table, add data values */ + fits_create_table (&theader, &table); + + /* add data to table */ + for (i = 0; i < Nmatch; i++) { + subset = &spectrum[match[i]]; + obsstr = sec_to_date (subset[0].obstime); + regstr = sec_to_date (subset[0].regtime); + + line = fits_table_print (&table, subset[0].filename, subset[0].pathname, subset[0].instrument, + subset[0].telescope, subset[0].objname, subset[0].extname, + subset[0].ra, subset[0].dec, subset[0].exptime, subset[0].airmass, + subset[0].Ws, subset[0].We, subset[0].dW, + subset[0].Nspec, obsstr, regstr, + subset[0].mode, subset[0].state, subset[0].flag); + + fits_add_rows (&table, line, 1, strlen(line)); + free (line); + free (obsstr); + free (regstr); + } + + fits_write_header (filename, &header); + fits_write_matrix (filename, &matrix); + fits_write_Theader (filename, &theader); + fits_write_table (filename, &table); + exit (0); +} + +/* Select, TimeMode are global */ +int PrintSubset (Spectrum *spectrum, int *match, int Nmatch) { + + int i, j; + char *timestr; + + /* print the selected entries */ + for (j = 0; j < Nmatch; j++) { + i = match[j]; + + timestr = RegTimeMode ? sec_to_date (spectrum[i].regtime) : sec_to_date (spectrum[i].obstime); + + /* predefined subset of values */ + fprintf (stdout, "%5d %20s %s %s %s %s ", i, timestr, spectrum[i].pathname, spectrum[i].filename, spectrum[i].objname, spectrum[i].telescope); + fprintf (stdout, "%5.1f %5.3f %.1f %.1f %.2f\n", spectrum[i].exptime, spectrum[i].airmass, spectrum[i].Ws, spectrum[i].We, spectrum[i].dW); + + free (timestr); + } + return (TRUE); +} + +int dump_data (Spectrum *spectrum, int Nspectrum) { + + int i; + + for (i = 0; i < Nspectrum; i++) { + fprintf (stdout, "%s %s %f %f %f %f\n", spectrum[i].filename, spectrum[i].objname, spectrum[i].exptime, spectrum[i].airmass, spectrum[i].Ws, spectrum[i].We); + } + + fprintf (stdout, "SUCCESS\n"); + exit (0); + +} Index: /branches/elixir/Ohana/src/imregister/spreg/spinfo.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/spinfo.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/spinfo.c (revision 2487) @@ -0,0 +1,99 @@ +# include "imregister.h" +# include "spreg.h" + +Spectrum *spinfo (char *filename) { + + Spectrum *spectrum; + Header header; + int Naxes, Nextend; + char Imagetype[80], line[80]; + struct timeval now; + char *name, *cwd, *tempname; + double tmp; + float *dtime; + + ALLOCATE (spectrum, Spectrum, 1); + bzero (spectrum, sizeof (Spectrum)); + + /* load in FITS header from image */ + if (!fits_read_header (filename, &header)) { + fprintf (stderr, "ERROR: can't find image file %s\n", filename); + exit (1); + } + + /* get filename */ + name = filebasename (filename); + snprintf (spectrum[0].filename, 32, "%s", name); + free (name); + + /* get pathname (add cwd if not absolute) */ + name = pathname (filename); + if (name[0] != '/') { + cwd = getcwd (NULL, 64 - strlen(name) - 2); + if (cwd == (char *) NULL) { + cwd = strcreate ("longpath"); + /* pathname is limited to 64 chars. if it is toolong, + we put in the word 'longpath'. no other useful solution. */ + } + ALLOCATE (tempname, char, strlen (cwd) + strlen (name) + 2); + if (!strcmp (name, ".")) { + sprintf (tempname, "%s", cwd); + } else { + sprintf (tempname, "%s/%s", cwd, name); + } + free (name); + free (cwd); + name = tempname; + } + snprintf (spectrum[0].pathname, 64, "%s", name); + free (name); + + /* find the important header keyword values */ + spectrum[0].obstime = parse_time (&header); + + gettimeofday (&now, (void *) NULL); + spectrum[0].regtime = now.tv_sec; + + fits_scan_nchar (&header, 15, ObjectKeyword, 1, spectrum[0].objname); + fits_scan_nchar (&header, 15, CameraKeyword, 1, spectrum[0].instrument); + fits_scan_nchar (&header, 15, TelescopeKeyword, 1, spectrum[0].telescope); + + fits_scan (&header, ExptimeKeyword, "%f", 1, &spectrum[0].exptime); + fits_scan (&header, AirmassKeyword, "%f", 1, &spectrum[0].airmass); + + /* grab coordinates from header */ + if (RADecDegKeyword[0] & DECDecDegKeyword[0]) { + /* expect RA & DEC in decimal degrees */ + fits_scan (&header, RADecDegKeyword, "%f", 1, &spectrum[0].ra); + fits_scan (&header, DECDecDegKeyword, "%f", 1, &spectrum[0].dec); + } else { + if (RASexigKeyword[0] & DECSexigKeyword[0]) { + /* expect RA & DEC in hh:mm:ss, dd:mm:ss */ + fits_scan (&header, RASexigKeyword, "%s", 1, line); + dms_to_ddd (&tmp, line); + spectrum[0].ra = 15*tmp; + fits_scan (&header, DECSexigKeyword, "%s", 1, &line); + dms_to_ddd (&tmp, line); + spectrum[0].dec = tmp; + } + } + + /* for now we will not try to determine the mode, state, or + wavelength ranges from the header. set these with -modify + or on the command line on insert. later on, we can add the logic */ + + spectrum[0].mode = SPMODE_UKN; + spectrum[0].state = SPSTATE_UKN; + spectrum[0].Nspec = 1; + spectrum[0].flag = 0; + + spectrum[0].Ws = 0; + spectrum[0].We = 0; + spectrum[0].dW = 0; + + strcpy (spectrum[0].extname, "PHU"); + + return (spectrum); + +} + Index: /branches/elixir/Ohana/src/imregister/spreg/submit.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/submit.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/submit.c (revision 2487) @@ -0,0 +1,64 @@ +# include "imregister.h" +# include "spreg.h" + +int SubmitImages (RegImage *image) { + + int i; + char line[1024], *root, *path; + + /* send these images to FIFOs for imstat and ptolemy */ + + /* image[0].ccd contains: + MEF : Nccd + SPLIT : ccd number + CUBE : Nslice + SLICE : slice number + SINGLE : 0 + */ + + if (image[0].mode == M_MEF) { + for (i = 0; i < image[0].ccd; i++) { + root = filerootname (image[0].filename); + if (i < Nccd) { + sprintf (line, "%s/%s %s/%s%s %s %s", image[0].pathname, image[0].filename, root, root, ccdn[i], ccds[i], "MEF"); + } else { + sprintf (line, "%s/%s %s/%sxx none %s", image[0].pathname, image[0].filename, root, root, "MEF"); + } + if (!WriteFIFO (ImstatFifo, line)) return (FALSE); + if (image[0].type == T_OBJECT) { + if (!WriteFIFO (PtolemyFifo, line)) return (FALSE); + } + } + } + + if (image[0].mode == M_SINGLE) { + root = filerootname (image[0].filename); + sprintf (line, "%s/%s %s %02d %s", image[0].pathname, image[0].filename, root, 0, "SINGLE"); + if (!WriteFIFO (ImstatFifo, line)) return (FALSE); + if (image[0].type == T_OBJECT) { + if (!WriteFIFO (PtolemyFifo, line)) return (FALSE); + } + } + + if (image[0].mode == M_CUBE) { + root = filerootname (image[0].filename); + sprintf (line, "%s/%s %s %02d %s", image[0].pathname, image[0].filename, root, 0, "CUBE"); + if (!WriteFIFO (ImstatFifo, line)) return (FALSE); + if (image[0].type == T_OBJECT) { + if (!WriteFIFO (PtolemyFifo, line)) return (FALSE); + } + } + + if (image[0].mode == M_SPLIT) { + path = basename (image[0].pathname); + root = filerootname (image[0].filename); + sprintf (line, "%s/%s %s/%s %02d %s", image[0].pathname, image[0].filename, path, root, image[0].ccd, "SPLIT"); + if (!WriteFIFO (ImstatFifo, line)) return (FALSE); + if (image[0].type == T_OBJECT) { + if (!WriteFIFO (PtolemyFifo, line)) return (FALSE); + } + } + + return (TRUE); +} + Index: /branches/elixir/Ohana/src/imregister/spreg/unique.c =================================================================== --- /branches/elixir/Ohana/src/imregister/spreg/unique.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/spreg/unique.c (revision 2487) @@ -0,0 +1,60 @@ +# include "imregister.h" +# include "spreg.h" + +/* input is a subset index of spectrum list, output is a new subset */ +int *unique_entries (int *subset, int *Nmatch) { + + int i, j, k, m, Nspectrum, Nsubset; + int N, NMATCH; + int *match, *entry; + int reject; + Spectrum *spectrum; + char idxline[128]; + char **index; + + if (!output.unique) return (subset); + + /* create output index */ + N = 0; + NMATCH = 1000; + ALLOCATE (match, int, NMATCH); + + Nsubset = *Nmatch; + spectrum = get_spectra (&Nspectrum); + + /* index = filename */ + ALLOCATE (index, char *, Nsubset); + ALLOCATE (entry, int, Nsubset); + for (i = 0; i < Nsubset; i++) { + sprintf (idxline, "%s", spectrum[subset[i]].filename); + index[i] = strcreate (idxline); + entry[i] = subset[i]; + } + sortstr (index, entry, Nsubset); + + /* find unique sequences */ + for (i = 0; i < Nsubset; ) { + for (j = i + 1; (j < Nsubset) && (!strcmp (index[i], index[j])); j++); + m = i; + + /* add unique entry to output list */ + match[N] = entry[m]; + N ++; + if (N == NMATCH) { + NMATCH += 1000; + REALLOCATE (match, int, NMATCH); + } + + /* j always points to the next entry */ + i = j; + } + + for (i = 0; i < Nsubset; i++) free (index[i]); + free (index); + free (entry); + free (subset); + + *Nmatch = N; + return (match); +} + Index: /branches/elixir/Ohana/src/imregister/src/notes.txt =================================================================== --- /branches/elixir/Ohana/src/imregister/src/notes.txt (revision 2487) +++ /branches/elixir/Ohana/src/imregister/src/notes.txt (revision 2487) @@ -0,0 +1,58 @@ + +metadata to extract: + +typedef struct { + char filename[64]; + char pathname[128]; + char instrument[32]; + char telescope[32]; + char objname[64]; + char extname[64]; + + float ra, dec; + float exptime; + float airmass; + + float W0, W1, dW; + int Nspec; /* number of spectra associated with entry */ + + char mode; /* PHU, MEF, EXT */ + char state; /* image state: raw, flx, etc */ + char flag; /* image status flags */ + char junk[9]; + + unsigned long int obstime; + unsigned long int regtime; +} Spectrum; + + +FITS Keywords for metadata + +case 1: +NAXIS = 1 +NAXIS1 = Nw + +case 2: +NAXIS = 2 +NAXIS1 = Nw +NAXIS2 = 1 + +case 3: +NAXIS = 2 +NAXIS1 = 1 +NAXIS2 = Nw + +case 4: +NAXIS = 2 +NAXIS1 = Nw +NAXIS2 = n (flux, dflux, etc) + +case 5: +NAXIS = 3 +NAXIS1 = Nw +NAXIS2 = 1 +NAXIS3 = n (flux, dflux, etc) + +0 1 2 3 4 5 6 7 8 +012345678901234567890123456789012345678901234567890123456789012345678901234567890 +/data/elixir2/datdir/megacam/03Am02/taurus/L1551/VLT/spectra/2002.04.01 Index: /branches/elixir/Ohana/src/imregister/src/spregister.c =================================================================== --- /branches/elixir/Ohana/src/imregister/src/spregister.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/src/spregister.c (revision 2487) @@ -0,0 +1,32 @@ +# include "imregister.h" +# include "spreg.h" +static char *version = "spregister $Revision: 1.1.1.1 $"; + +int main (int argc, char **argv) { + + Spectrum *spectrum, *pspectrum; + int i, status, Nnew; + float *dtime; + + get_version (argc, argv, version); + args (argc, argv); + spectrum = spinfo (argv[1]); + + Nnew = 1; + pspectrum = &spectrum[0]; + + if (NoReg) exit (0); + + set_db (SpectrumDB); + status = load_db (); + if (!status) { + create_db (); + } + append_db (pspectrum, Nnew); +} + + +/* notes: + SpectrumDB set in args:ConfigInit by config variable SPECTRUM_DB + +*/ Index: /branches/elixir/Ohana/src/imregister/src/spsearch.c =================================================================== --- /branches/elixir/Ohana/src/imregister/src/spsearch.c (revision 2487) +++ /branches/elixir/Ohana/src/imregister/src/spsearch.c (revision 2487) @@ -0,0 +1,63 @@ +# include "imregister.h" +# include "spreg.h" +static char *version = "imsearch $Revision: 1.1.1.1 $"; + +int main (int argc, char **argv) { + + int status, Nmatch; + int *match; + + get_version (argc, argv, version); + args (argc, argv); + + set_db (SpectrumDB); + + status = load_db (); + if (!status) { + close_db (); + exit (0); + } + if (!output.modify && !output.delete) close_db (); + + match = match_criteria (&Nmatch); + match = unique_entries (match, &Nmatch); + + if (output.modify) ModifySubset (match, Nmatch); + if (output.delete) DeleteSubset (match, Nmatch); + + OutputSubset (match, Nmatch); + + exit (0); +} + +/* + +FITS table version: + + load_db - open, read in database, store as RegImage structure + match - return index 'match' to matched images + modify - change value of selected images + write out subset of rows + delete - remove selected images from image structure + write out entire table + output - write out subset in various formats + + get_images returns pointer to complete image structure + + +SQL version: + + load_db - set up connection + match - convert criteria to SQL where clause and do: + 'select from images [where clause]' + images structure is filled with result from query + modify - change value of subset selection (identical) + update selected rows + delete - user where clause and do + 'delete from images where clause' + output - (identical) + + get_images returns pointer to image subset from query + match[i] = i + +*/ Index: /branches/elixir/Ohana/src/perl/.mana =================================================================== --- /branches/elixir/Ohana/src/perl/.mana (revision 2487) +++ /branches/elixir/Ohana/src/perl/.mana (revision 2487) @@ -0,0 +1,238 @@ +99/04/02 13:00:13: echo {24*4} +99/04/02 13:00:16: quit +01/06/14 15:51:12: rd a /h/cfh12k/images/591500f-B8.fits +01/06/14 15:51:13: mtv a +01/06/14 15:52:04: quit +01/06/14 15:51:30: rd a /data/koa/cfh12k/01Ak04/581698o.fits -n 9 +01/06/14 15:51:33: mtv a +01/06/14 15:52:14: rd b /data/koa/cfh12k/01Ak04/582130o.fits -n 9 +01/06/14 15:52:18: mtv b +01/06/14 15:53:57: rd c /data/koa/cfh12k/01Ak04/582514o.fits -n 9 +01/06/14 15:54:00: mtv c +01/06/14 15:54:07: cur +01/06/14 15:54:15: stats a - - - - +01/06/14 15:54:35: tv a {0.9*$MEDIAN} {0.2*$MEDIAN} +01/06/14 15:54:45: tv a {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/14 15:54:54: stats b - - - - +01/06/14 15:54:59: tv b {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/14 15:55:04: stats c - - - - +01/06/14 15:55:08: tv c {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/14 15:55:29: cur +01/06/14 15:55:44: tv c {0.99*$MEDIAN} {0.02*$MEDIAN} +01/06/14 15:56:22: stats a - - - - +01/06/14 15:56:28: tv a {0.99*$MEDIAN} {0.02*$MEDIAN} +01/06/14 15:56:49: set A = a / $MEDIAN +01/06/14 15:56:53: stats b - - - - +01/06/14 15:56:59: tv b {0.99*$MEDIAN} {0.02*$MEDIAN} +01/06/14 15:57:07: set B = b / $MEDIAN +01/06/14 15:57:19: tv A 0.99 0.02 +01/06/14 15:57:26: tv B +01/06/14 15:57:35: set C = A - B +01/06/14 15:57:45: tv C -0.01 0.02 +01/06/14 16:22:34: quit +01/06/15 08:43:08: rd a /h/skyprobe/data/20010614/rawFITS/sp_20010615_02h08m.fits +01/06/15 08:43:09: mtv a +01/06/15 08:49:35: quit +01/06/15 13:55:29: rd a 581689o05.fits +01/06/15 13:55:30: mtv a +01/06/15 13:55:35: rd a testdir/581689o/581689o05.fits +01/06/15 13:55:38: mtv a +01/06/15 13:56:09: cur +01/06/15 13:56:16: stats a - - - - +01/06/15 13:56:29: tv a {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/15 13:56:41: tv a {0.99*$MEDIAN} {0.02*$MEDIAN} +01/06/15 13:56:52: tv a {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/15 13:57:00: quit +01/06/15 17:24:57: quit +01/06/18 10:30:56: rd a testdir/test05.fits +01/06/18 10:30:58: mtv a +01/06/18 10:32:14: quit +01/06/15 17:48:06: rd a testdir/test04.MIN.fits +01/06/15 17:48:09: mtv a +01/06/15 17:48:27: rd a testdir/test01.MIN.fits +01/06/15 17:48:29: mtv a +01/06/18 10:38:53: quit +01/06/18 10:36:12: rd a /data/mele/F52/WY31/564116o.fits -n 3 +01/06/18 10:36:14: mtv a +01/06/18 10:40:19: quit +01/06/18 10:56:59: quit +01/06/18 10:57:12: rd a testdir/581689o/581689o09.fits +01/06/18 10:57:14: mtv a +01/06/18 10:57:36: tv a {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/18 10:57:48: rd b testdir/581689o/581689o09r.fits +01/06/18 10:57:49: tv b +01/06/18 10:57:55: stats b - - - - +01/06/18 10:58:03: tv b {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/18 10:58:43: stats a - - - - +01/06/18 10:58:48: tv a {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/18 10:59:00: stats b - - - - +01/06/18 10:59:05: tv b {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/18 10:59:22: stats a - - - - +01/06/18 10:59:28: tv a {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/18 11:01:26: rd c /data/milo/eugene/elixir/detrend/flat/I/01Ak01.flat.I.09.00.fits +01/06/18 11:01:30: mtv c +01/06/18 11:01:45: rd d /data/milo/eugene/elixir/detrend/flat/I/01Ak01.flat.I.09.01.fits +01/06/18 11:01:50: mtv d +01/06/18 11:02:05: mtv c +01/06/18 11:02:10: mtv d +01/06/18 11:03:09: rd c /data/milo/eugene/elixir/detrend/flat/R/01Ak01.flat.R.09.01.fits +01/06/18 11:03:21: rd c /data/milo/eugene/elixir/detrend/flat/R/01Ak01.flat.R.09.03.fits +01/06/18 11:03:24: mtv c +01/06/18 11:03:50: quit +01/06/19 10:54:40: echo {1.75 / 5.44} +01/06/19 11:03:15: quit +01/06/19 15:32:05: rd a testdir/581692o.df/581692o00.fits +01/06/19 15:32:07: mtv a +01/06/19 15:32:44: echo $PACKAG +01/06/19 15:32:45: echo $PACKAGE +01/06/19 15:34:15: package elixir +01/06/19 15:34:19: binmosaic +01/06/19 15:34:29: binmosaic testdir/581692o.outlist 4 +01/06/19 15:35:16: mtv b +01/06/19 15:35:52: stats b - - - - +01/06/19 15:36:06: tv b {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/19 15:36:30: tv b {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/19 15:36:48: tv b {0.99*$MEDIAN} {0.02*$MEDIAN} +01/06/19 15:37:05: !ls +01/06/19 15:37:12: !more test.rlist +01/06/19 15:37:18: !more testdir/581692o.inlist +01/06/19 15:37:46: wd b test1.fits -bitpix -32 -bzero 0 -bscale 1 +01/06/19 15:37:55: binmosaic testdir/581692o.inlist 4 +01/06/19 16:32:55: tv b +01/06/19 16:33:04: stats b - - - - +01/06/19 16:33:10: tv b {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/19 16:33:26: rd a test1.fits +01/06/19 16:33:30: tv a +01/06/19 16:33:37: tv b +01/06/19 16:33:48: stats a - - - - +01/06/19 16:33:54: tv a {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/19 16:34:11: stats b - - - - +01/06/19 16:34:19: tv b {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/20 09:40:10: quit +01/06/20 09:41:04: for i 1 12 +01/06/20 09:50:22: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:50:44: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:50:57: fringelist testdir/581692o.outlist +01/06/20 09:51:05: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:51:05: fringelist testdir/581692o.outlist +01/06/20 09:51:26: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:51:40: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:51:41: fringelist testdir/581692o.outlist +01/06/20 09:54:10: mtv c +01/06/20 09:54:24: cur +01/06/20 09:54:34: stats c - - - - +01/06/20 09:54:44: tv c {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/20 09:54:53: tv c {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/20 09:56:40: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 09:56:47: tvmosaic c +01/06/20 09:56:51: tvmosaic d +01/06/20 10:03:21: buffers +01/06/20 10:03:25: stats a - - - - +01/06/20 10:03:51: echo $MEAN $SIGMA +01/06/20 10:04:19: mtv a +01/06/20 10:04:55: echo $MEDIAN +01/06/20 10:05:21: clip a {0.9*$MEDIAN} 0.0 {1.1*$MEDIAN} 0.0 +01/06/20 10:05:23: tv a +01/06/20 10:05:42: stats a - - - - -ignore 0 +01/06/20 10:05:51: echo $MEAN $SIGMA +01/06/20 10:08:06: echo test # fred +01/06/20 10:08:15: stats a - - - - # this is a test +01/06/20 10:10:25: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 10:10:37: fringelist testdir/581692o.outlist +01/06/20 10:13:40: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 10:14:27: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 10:14:29: fringelist testdir/581692o.outlist +01/06/20 10:22:10: input /data/milo/eugene/elixir/config/mana/fringe.pro +01/06/20 10:22:40: fringelist testdir/581692o.outlist testdir/581692o.tenbin testdir/581692o.medbin testdir/581692o.stats +01/06/20 10:24:32: !ls testdir +01/06/20 10:28:47: quit +01/06/20 10:30:21: fred +01/06/20 10:30:25: exit +01/06/26 13:49:58: rd a 000000o29517.fits +01/06/26 13:50:01: rd a /tmp000000o29517.fits +01/06/26 13:50:04: rd a /tmp/000000o29517.fits +01/06/26 13:50:05: mtv a +01/06/26 13:50:16: tv a 6000 3000 +01/06/26 13:50:34: cur -g +01/06/26 13:50:41: cur +01/06/26 13:50:56: tv a 8000 1200 +01/06/26 13:51:11: pwd +01/06/26 13:51:27: rd b /h/eugene/cfh12k/elixir2/detrend/01Ak03/proc/579401o/579401o00.fits +01/06/26 13:51:31: mtv b +01/06/26 13:51:38: boxstat +01/06/26 13:51:55: tv b {0.9*$MEDIAN} {0.2*$MEDIAN} +01/06/26 13:52:06: tv b {0.95*$MEDIAN} {0.1*$MEDIAN} +01/06/26 13:52:19: tv b {0.98*$MEDIAN} {0.04*$MEDIAN} +01/06/26 13:52:59: tv a 8000 1200 +01/06/26 13:53:33: quit +01/09/07 14:47:45: echo {300*4} +01/09/07 14:47:51: echo {1440/60} +01/09/07 14:48:15: {24+45+24+45+24} +01/09/07 14:48:19: echo {24+45+24+45+24} +01/09/07 14:48:25: echo {(24+45+24+45+24)/60} +01/09/07 14:49:53: quit +01/09/13 14:36:08: echo {337.5 * 0.0185} +01/09/13 14:36:53: echo {112.5 * 0.0185} +01/09/13 14:36:59: echo {462.5 * 0.0185} +01/09/13 14:37:03: echo {102.5 * 0.0185} +01/09/13 14:37:35: quit +02/08/22 08:48:39: echo {1e8*500} +02/08/22 08:48:53: echo {5e7*2000} +02/08/22 10:29:02: quit +03/02/13 11:02:46: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:02:46: getfitpars /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.sublist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar +03/02/13 11:02:46: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:02:47: getfrstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.imstats +03/02/13 11:02:47: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:02:47: getdfstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.def.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.def.imstats +03/02/13 11:23:32: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:23:33: getfitpars /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.sublist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar +03/02/13 11:23:33: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:23:33: showfits /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.stats.png +03/02/13 11:23:35: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:23:35: getfrstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.imstats +03/02/13 11:23:36: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:23:36: getdfstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.def.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.def.imstats +03/02/13 11:23:37: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/13 11:23:37: $RANGE = 0.02 +03/02/13 11:23:37: mkjpegs /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.frlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.medbin.jpg /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.tenbin.jpg +03/02/13 11:29:45: quit +03/05/15 11:57:07: quit +03/05/15 14:19:55: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:19:56: getfitpars /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.sublist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar +03/05/15 14:19:57: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:19:57: showfits /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.stats.png +03/05/15 14:20:02: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:20:03: getfrstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.imstats +03/05/15 14:25:46: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:25:46: getfitpars /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.sublist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar +03/05/15 14:25:46: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:25:47: getfrstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.imstats +03/05/15 14:44:29: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:44:30: getfitpars /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.sublist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar +03/05/15 14:44:30: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:44:31: showfits /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.stats.png +03/05/15 14:44:36: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:44:36: getfrstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.imstats +03/05/15 14:44:37: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:44:37: getdfstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.imstats +03/05/15 14:44:38: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:44:38: $RANGE = 0.02 +03/05/15 14:44:38: mkjpegs /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.frlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.medbin.jpg /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.tenbin.jpg +03/05/15 14:54:53: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:54:54: getfitpars /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.sublist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar +03/05/15 14:54:54: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:54:55: getfrstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.imstats +03/05/15 14:54:55: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 14:54:56: getdfstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.imstats +03/05/15 15:15:49: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 15:15:49: getfitpars /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.sublist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar +03/05/15 15:15:50: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 15:15:50: showfits /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.stats.png +03/05/15 15:15:56: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 15:15:57: getfrstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.med.imstats +03/05/15 15:15:57: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 15:15:58: getdfstats /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.fitpar /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.statlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.def.imstats +03/05/15 15:15:58: input /data/elixir2/srcdir/config/mana/fringe.pro +03/05/15 15:15:59: $RANGE = 0.02 +03/05/15 15:15:59: mkjpegs /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.frlist /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.medbin.jpg /data/elixir1/detdir/megacam/03Am03/fringe/03Am03.fringe.i.0.tenbin.jpg Index: /branches/elixir/Ohana/src/perl/.status =================================================================== --- /branches/elixir/Ohana/src/perl/.status (revision 2487) +++ /branches/elixir/Ohana/src/perl/.status (revision 2487) @@ -0,0 +1,60 @@ +elixir status +elixir flips +elixir ptolemy +nav +nav +!radec -hms +region 168.148 6.9777 1.0 +catalog -g -m 14 20 +catalog -g -all -m 14 20 +style -pt 1 +region 168.148 6.9777 1.0 +catalog -g -all -m 14 20 +region 168.148 6.9777 0.3 +region 168.148 6.9777 1.0 +region 168.148 6.9777 0.3 +catalog -g -all -m 14 20 +catalog -g -all -m 10 15 +region 168.148 6.9777 0.3 +catalog -g -all -m 10 15 +nav +pmeasure -all -m 16 22 +nav +pmeasure -all -m 16 22 +style -pt 2 +c +elixir flips +elixir ptolemy +elixir flips +elixir complete +elixir complete -time +elixir complete -time +na +region +region 30 0 90 ait +style -c red; cgrid +style -c black; images +box +region 30 0 90 ait +style -c red; cgrid +region 40 0 90 ait +style -c red; cgrid +style -c black; images +clear +style -c red; cgrid +style -c black; images +jpeg -g -name /h/eugene/spplots/allsky.png +elixir complete +elixir complete +elixir complete -time +elixir complete -time +elixir complete -time +elixir complete +elixir complete +echo {2500*60/11} +echo {2500*60/11/3600} +elixir complte +elixir complete +elixir complete -time +elixir complete +elixir complete -kill Index: /branches/elixir/Ohana/src/perl/Makefile =================================================================== --- /branches/elixir/Ohana/src/perl/Makefile (revision 2487) +++ /branches/elixir/Ohana/src/perl/Makefile (revision 2487) @@ -0,0 +1,60 @@ +include ../../Configure +HOME = $(ROOT)/src/perl + +DESTBIN = $(LBIN) + +perl: default + +default: install + +DADS = \ +dads.detrend dads.jpeg dads.keywords grab.keywords + +DETREND = \ +darktime.cfh12k darktime.linear \ +demodemap flatten.mana flatten.flips defringe getfringe defringe.ccd + +GENERAL = \ +cfht.names checkconfig mkrun megacenter megacoords \ +update.astrometry.iraf wfi.keywords mefheadunstrip cadc2qso + +IMSTATS = \ +imstatqso imstats \ +irstats seeingstats + +MKDETREND = \ +create.subset dt.select fixscat fixscat.mef mkscat \ +mkdetrend mosaic.merge mosaic.stats \ +normalize split.mef \ +detflips merge.lists + +MKFRINGE = \ +fr.mkmodes fr.modesave fr.modestats \ +fr.ckfile fr.detrend fr.frstats \ +fr.getfringe fr.imdata fr.jpegs \ +fr.medbin.spline fr.medbin.interp fr.mkhtml fr.mklists \ +fr.select mkfringe fr.defringe fr.smooth + +POSTRUN = \ +ckastrom ckdetrend ckphotom \ +ckrunid ckvalid elixir.photreport \ +elixir.postrun mktrans mktreport \ +validate rerun.complete elixir.rerun + +PTOLEMY = \ +cmp.header imclean.cfht imclean.subaru gastro.raw elixir.export + +REALTIME = \ +ckimregdb elixir.link elixir.reload + +CODE = $(DADS) $(DETREND) $(GENERAL) $(IMSTATS) $(MKDETREND) $(MKFRINGE) $(POSTRUN) $(PTOLEMY) $(REALTIME) + +install: + for file in $(CODE); do \ + (chmod +x src/$$file && cd $(DESTBIN) && rm -f $$file && ln -s $(HOME)/src/$$file .); \ + done + +# utilities ################################################# +clean: + rm -f `find . -name "*~"` + rm -f `find . -name "#*"` Index: /branches/elixir/Ohana/src/perl/doc/keywords.txt =================================================================== --- /branches/elixir/Ohana/src/perl/doc/keywords.txt (revision 2487) +++ /branches/elixir/Ohana/src/perl/doc/keywords.txt (revision 2487) @@ -0,0 +1,130 @@ + +Elixir data products are modified by several programs, each of which +needs to make certain additions or changes to the headers. this is a +summary of those programs and the relevant keywords. These programs +may also add COMMENT and HISTORY fields, but these are ignored. + +* basic master bias, flat, dark frames are created by 'imcombred' + and adjusted by 'normalize'. + +- 'imcombred' adds the following keywords: + +IMCMB_DT= 'FLIPS ver 2.0 - Elixir by CFHT - Tue Aug 12 2003 - 9:09:32' / Date +IMCMB_AL= 'SIGMA ' / CCD or SIGMA clipping, Scaled or Weighted Diff +IMCMB_CA= 'MEAN ' / Combining algorithm on final stack +IMCMB_LS= 3.5 / Lower threshold for clipping rejection +IMCMB_HS= 3.5 / Lower threshold for clipping rejection +IMCMB_FT= 'MASTER_DETREND_SKYFLAT' / Stacked frame type +IMCMB_OP= '1DYMODEL_OVERSCAN + COMPUTED_MODE_RESCALING' / Input operations +IMCMB_NI= 16 / Number of input files +IMCMB_DA= T / Dual amplifier A,B (IMCMB_XX list format) +IMCMB_IF= 'NAME BIAS_A MODE_A BIAS_B MODE_B' / Input file parameters +IMCMB_nn= '712143f.fits[ccd00] 1287 3204 1232 3266' / Input file stats + +- 'normalize' adds the following keywords: + +FLATSCAL= 1.0642668848 / +TVSTART = '2000/1/1 ' / data validity start time +TVSTOP = '2001/1/1 ' / data validity start time +ELCONF = '03Bm01.flat.g.0 ' / Original Elixir config +EL_SYS = '2.0 ' / Elixir System Version +EL_NRM = '1.4 ' / Elixir Normalize Version +REL_DATE= '2003-09-30T15:59:33' / UTC Release Date + +* scatter-corrected flats are created by 'fixscat' +- 'fixscat' adds the following keywords: + +EL_SFILE= '02Bm05.scatter.g.36.00.fits' / Scattered Light Image Used +EL_SVER = 'B.0 ' / Scatter Correction Version + +* scatter frames are created by 'mkscat' +- 'mkscat' adds the following keywords: + +TVSTART = '2000/1/1 ' / data validity start time +TVSTOP = '2001/1/1 ' / data validity start time +FILTER = 'g ' / filter uxed for model +EL_SYS = '2.0 ' / Elixir System Version +EL_SVER = 'B.0 ' / Scatter Correction Version +VERSION = 'B.0 ' / Scatter Correction Version + +* master fringe frames are created by 'imcombred' and adjusted by + 'fr.smooth' + +- imcombred adds the following keywords: + +IMCMB_DT= 'FLIPS ver 2.1 - Elixir by CFHT - Tue Sep 16 2003 - 14:00:18' / Date +IMCMB_AL= 'SIGMA ' / CCD or SIGMA clipping, Scaled or Weighted Diff +IMCMB_CA= 'MEDIAN ' / Combining algorithm on final stack +IMCMB_LS= 2.0 / Lower threshold for clipping rejection +IMCMB_HS= 2.0 / Lower threshold for clipping rejection +IMCMB_FT= 'MASTER_DETREND_FRINGE' / Stacked frame type +IMCMB_OP= 'MODE_OFFSETING + FRINGE_RESCALING' / Input operations +IMCMB_NI= 31 / Number of input files +IMCMB_DA= F / Dual amplifier A,B (IMCMB_XX list format) +IMCMB_IF= 'NAME BIAS MODE SCALING' / Input file parameters +IMCMB_00= '714505o00.fits 0 2582 0.441' / Input file stats + +- fr.smooth adds the following keywords: + +FRNG_C0 = 0.0000000000 / Fringe Cross Correlation linear fit term +FRNG_C1 = 0.7197280000 / Fringe Cross Correlation linear fit term +FRNG_SKY= 2882.0000000000 / Fringe Frame sky level +FRNG_RNG= -80.0000000000 / Fringe Frame fringe strength +FRNG_REF= 'ccd13 ' / Fringe Cross Correlation reference chip +FRNG_PTS= '2003A.frpts.i.36.00.fits' / Fringe Point File +TVSTART = '2000/1/1 ' / data validity start time +TVSTOP = '2001/1/1 ' / data validity stop time +EL_SYS = '2.0 ' / Elixir System Version + + +* processed science images are created by 'imred', defringed with + 'imcombred', and keywords are updated with 'grab.keywords' + +- imred adds the following keywords: + +IMRED_DT= 'FLIPS ver 2.1 - Elixir by CFHT - Tue Sep 9 2003 - 12:29:37' / Date +IMRED_IF= '703406o.fits[ccd00]' / Input file to process by imred +IMRED_OF= '703406p00.fits' / Output file resulting from the process by imre +IMRED_OP= 'MASK_BP + OVERSCAN + BIAS + DARK_CURRENT + FLAT-FIELD' / Operation(s +IMRED_MK= '2003A.mask.0.36.00.fits[ccd00]' / Mask of bad pixels (0/1) input fil +IMRED_OV= '1DYMODEL_OVERSCAN' / Type of overscan level correction +IMRED_BS= '03Am04n.bias.0.18.00.fits[ccd00]' / Bias frame input file +IMRED_DK= '03Am04n.dark.300.18.00.fits[ccd00]' / Dark frame input file +IMRED_DS= 1.0000 / Dark frame scaling factor +IMRED_DB= T / Dark frame first corrected by bias frame +IMRED_FF= '03Am04n.flat.r.18.01.fits[ccd00]' / Flat-field frame input file +IMRED_NF= T / Normalized flat-field +IMRED_SF= 1.009331465 / Output file dynamic stretching factor (BSCALe) + +- imcombred adds the following keywords: + +IMCMB_DT= 'FLIPS ver 2.1 - Elixir by CFHT - Tue Sep 9 2003 - 12:16:00' / Date +IMCMB_AL= 'SD ' / CCD or SIGMA clipping, Scaled or Weighted Diff +IMCMB_CA= 'SCALED_DIFFERENCE' / Combining algorithm on final stack +IMCMB_LS= 2.0 / Lower threshold for clipping rejection +IMCMB_HS= 2.0 / Lower threshold for clipping rejection +IMCMB_FT= 'DEFRINGE_SCIENCE' / Stacked frame type +IMCMB_OP= 'MODE_OFFSETING + FRINGE_RESCALING' / Input operations +IMCMB_NI= 2 / Number of input files +IMCMB_DA= F / Dual amplifier A,B (IMCMB_XX list format) +IMCMB_IF= 'NAME BIAS MODE SCALING' / Input file parameters +IMCMB_00= '703266p00.det 0 3808 1.000' / Input file stats +IMCMB_01= '03Am04n.fringe.i.18.00.fits[ccd00] 0 4062 1.108' / Input file stats + +- grab.keywords adds the following keywords: + +NASTRO = 49 / number of stars used for astrometry +CERROR = 0.7334717934 / scatter in astrometry soln (arcsec) +PHOT_C = 25.715 / Nightly zero point - actual +PHOT_C0 = 25.743 / Nightly zero point - nominal +PHOT_CS = 0.017 / Nightly zero point - scatter +PHOT_NS = 3 / Nightly zero point - N stars +PHOT_NM = 3 / Nightly zero point - N images +PHOT_X = 0.083 / Nightly zero point - color term +PHOT_K = -0.04 / Nightly zero point - airmass term +PHOT_C1 = 'r_SDSS ' / Nightly zero point - color 1 +PHOT_C2 = 'i_SDSS ' / Nightly zero point - color 2 +MAG_SAT = 13.8063 / approx saturation (mag) +MAG_LIM = 23.2063 / approx completeness limit (mag) +DATEPROC= '2003-09-30T17:14:50' / Processing Date +EL_SYS = '2.0 ' / Elixir System Version Index: /branches/elixir/Ohana/src/perl/doc/mkdetrend-notes.txt =================================================================== --- /branches/elixir/Ohana/src/perl/doc/mkdetrend-notes.txt (revision 2487) +++ /branches/elixir/Ohana/src/perl/doc/mkdetrend-notes.txt (revision 2487) @@ -0,0 +1,46 @@ + +files used by mkdetrend: + +flips/02Bk06.flat.I.00.0.fits - master image, unnormalized +flips/02Bk06.flat.I.00.0.imbin - binned master image +flips/02Bk06.flat.I.00.0.log - log +flips/02Bk06.flat.I.00.0.master - list of input images +flips/02Bk06.flat.I.00.0.medbin - binned residual stack (50) +flips/02Bk06.flat.I.00.0.mef - list of mef images +flips/02Bk06.flat.I.00.0.msplit - list of split mef images +flips/02Bk06.flat.I.00.0.norm - master image, normalized +flips/02Bk06.flat.I.00.0.split - list of split images +flips/02Bk06.flat.I.00.0.stats - residual stats per input image +flips/02Bk06.flat.I.00.0.subset - list of images to be stacked +flips/02Bk06.flat.I.00.0.tenbin - binned residual stack (10) + +changes: + +dt.select2: +mkdetrend2 +mode.mkdetrend2 +cfh12k.config.mef + + +chip ID rules: + +there are two chip identifiers: CCD ID & CCD N + +CCD ID is an arbitrary string +CCD N is a two digit code for the CCDs base on the camera config file + +CCD ID: cameraconfig -ccds +CCD N: cameraconfig -ccdn + +detsearch / imsearch use CCD ID for -ccd filter + +filenames of derivative products should use CCD N as a marker +eg: 654321o.fits -> 654321o23.fits (for megacam ccd23 image) + +--- + +dt.select2 : CCD ID fixed +merge.lists : CCD n/a +create.subset : CCD n/a +detflips : CCD n/a - flips path needs to be set? +normalize : CCD ID Keyword used to id REF ccd (OK) Index: /branches/elixir/Ohana/src/perl/doc/mkfringe.notes =================================================================== --- /branches/elixir/Ohana/src/perl/doc/mkfringe.notes (revision 2487) +++ /branches/elixir/Ohana/src/perl/doc/mkfringe.notes (revision 2487) @@ -0,0 +1,109 @@ + +mkfringe file name examples + +CONFIG = 01Ak01.fringe.I.0 +CONF-CCD = 01Ak01.fringe.I.00.0 +RAWPATH = /data/koa/cfh12k/01Ak04 +TMPPATH = /data/elixir2/cfh12k/detrend/01Ak04/proc +TMPDET-CCD = /data/elixir2/cfh12k/detrend/01Ak04/proc/543210o/543210o00.fits +TMPDEF-CCD = /data/elixir2/cfh12k/detrend/01Ak04/proc/543210o.def/543210o00.fits + +ROOT = 543210o +MODE = SPLIT / MEF +status = 2 = new image, detrend it please, 1 = use to create master, 0 = don't use + +CONFIG.mef, CONFIG.split [Nimage] + RAWPATH ROOT MODE + /data/koa/cfh12k/01Ak04 581688o SPLIT + /data/koa/cfh12k/01Ak04 581689o MEF + +CONFIG.master [Nimage] + RAWPATH ROOT MODE status + /data/koa/cfh12k/01Ak04 581688o SPLIT 1 + /data/koa/cfh12k/01Ak04 581689o MEF 1 + +CONFIG.detrend [Nimage] + RAWPATH ROOT MODE + /data/koa/cfh12k/01Ak04 581688o SPLIT + /data/koa/cfh12k/01Ak04 581689o MEF + +CONFIG.defringe [Nimage] + TMPPATH/ROOT CONFIG + proc/581688o 01Ak01.fringe.I.0 + +TMPPATH/ROOT.detlist [Nccd] + TMPDET-CCD + proc/581688o/581688o00.fits + +TMPPATH/ROOT.deflist [Nccd] + TMPDEF-CCD + proc/581688o.def/581688o00.fits + +CONF-CCD.ccdstats [Nimage] + TMPDET-CCD (sky) (fringe) 0.0 0.0 + proc/581688o/581688o00.fits (sky) (fringe) 0.0 0.0 + +CONFIG.statlist: + CONF-CCD.ccdstats + fringe/01Ak01.fringe.I.00.0.ccdstats + +CONFIG.frlist [Nccd] + CONF-CCD.fr.fits + fringe/01Ak01.fringe.I.00.0.fr.fits + +CONFIG.smlist [Nccd] + CONF-CCD.sm.fits + fringe/01Ak01.fringe.I.00.0.sm.fits + +CONFIG.medbin: + HTML/CONFIG.medbin.NNN.jpg + +CONFIG.tenbin: + HTML/CONFIG.tenbin.NNN.jpg + +CONFIG.stats + (stats per mosaic) + +###### init: (takes CONFIG as input list) (mode.fringe1) +fr.select I 2001/1/20 2001/2/5 split fringe/01Ak01.fringe.I.0.split +fr.select I 2001/1/20 2001/2/5 mef fringe/01Ak01.fringe.I.0.mef + +fr.mklists -initial fringe/01Ak01.fringe.I.0.split fringe/01Ak01.fringe.I.0.mef fringe/01Ak01.fringe.I.0.master + +fr.mklists -imlist fringe/01Ak01.fringe.I.CCDNUM.0.ccdstats fringe/01Ak01.fringe.I.0.statlist +fr.mklists -imlist fringe/01Ak01.fringe.I.CCDNUM.0.fr.fits fringe/01Ak01.fringe.I.0.frlist +fr.mklists -imlist fringe/01Ak01.fringe.I.CCDNUM.0.sm.fits fringe/01Ak01.fringe.I.0.smlist + +fr.mklists -mosaic fringe/01Ak01.fringe.I.0.master proc det (produces proc/ROOT.det/*NN.fits & proc/ROOT.detlist) +fr.mklists -mosaic fringe/01Ak01.fringe.I.0.master proc def (produces proc/ROOT.def/*NN.fits & proc/ROOT.deflist) +fr.mklists -mosaic fringe/01Ak01.fringe.I.0.master proc med (produces proc/ROOT.med/*NN.fits & proc/ROOT.medlist) + +fr.mklists -detrend fringe/01Ak01.fringe.I.0.master fringe/01Ak01.fringe.I.0.detrend +fr.mklists -defringe fringe/01Ak01.fringe.I.0.master fringe/01Ak01.fringe.I.0 proc fringe/01Ak01.fringe.I.0.defringe + +##### detrend: (takes CONFIG.detrend as input list) (mode.fringe2) +fr.detrend /data/koa/cfh12k/01Ak04 581688o SPLIT proc/581688o.det +fr.medbin proc/581688o.det 581688o 4 proc/581688o.med +fr.gtstats proc/581688o.med 581688o 4 proc/581688o.imstats + +##### mkstats (takes CONF-CCD as input list) (mode.fringe4) +fr.mklists -inlist fringe/01Ak01.fringe.I.0.master 00 proc fringe/01Ak01.fringe.I.00.0.inlist +fr.mklists -imstats fringe/01Ak01.fringe.I.0.master 00 proc fringe/01Ak01.fringe.I.0.imstats + +fr.mkstats fringe/01Ak01.fringe.I.00.0.inlist fringe/01Ak01.fringe.I.0.imstats 00 fringe/01Ak01.fringe.I.00.0.ccdstats fringe/01Ak01.fringe.I.0.frstats +fr.mkrough fringe/01Ak01.fringe.I.00.0.ccdstats fringe/01Ak01.fringe.I.00.0.fr.fits comment + +[ fr.smooth fringe/01Ak01.fringe.I.00.0.fr.fits fringe/01Ak01.fringe.I.00.0.sm.fits ] + +##### defringe (takes CONFIG.defringe as input) (mode.fringe3) +fr.defringe proc/581688o.medlist proc/581688o.imstats fringe/01Ak01.fringe.I.00.0.frlist fringe/01Ak01.fringe.I.00.0.frstats proc/581688o.deflist +fr.stats proc/581688o.deflist proc/581688o.tenbin proc/581688o.medbin proc/581688o.stats + +# merge (not parallel) + +status: 2 = new image, detrend it please, 1 = use to create master, 0 = don't use + +fr.mklists -master fringe/01Ak01.fringe.I.0.master fringe/01Ak01.fringe.I.0.detrend + +[merge ccdstats > statlist] + Index: /branches/elixir/Ohana/src/perl/doc/mkfringe.txt =================================================================== --- /branches/elixir/Ohana/src/perl/doc/mkfringe.txt (revision 2487) +++ /branches/elixir/Ohana/src/perl/doc/mkfringe.txt (revision 2487) @@ -0,0 +1,59 @@ + +mkfringe states & programs [fringe only] + +running.init : mode.fringe1 (config.mosaic) + + - fr.select + - fr.mklists -initial + - fr.mklists -imlist + - fr.mklists -mosaic + - fr.mklists -detrend + - fr.mklists -maplist + - fr.mklists -mlist + +running.detrend : mode.fringe2 (image) + + - fr.ckfile + - fr.detrend + - fr.medbin.spline + - fr.getfringe + - fr.imdata + - fr.jpegs + - fr.mklists -master + +running.merge : mkfringe (config.mosaic) + + - fr.mklists -subset + - fr.frstats -fitpars + - fr.frstats -plotstats + - fr.frstats -frstats + - fr.frstats -dfstats + - fr.mklists -imstats + - fr.jpegs + - fr.mkhtml -imstats + - fr.mkhtml -jpglist + +running.mkrough : mkfringe / mode.fringe4 + + - fr.mklists -subset + - fr.frstats -fitpars + - fr.frstats -frstats + - fr.frstats -dfstats + - fr.mklists -imstats + - fr.mklists -ccdstast + - fr.mkrough + +running.defringe : mode.fringe3 + + - fr.defringe + - fr.getfringe + - fr.jpegs + +running.smooth : mode.fringe4 + + - fr.smooth + +running.reg : mkfringe + + - detregister + Index: /branches/elixir/Ohana/src/perl/loneos/archive =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/archive (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/archive (revision 2487) @@ -0,0 +1,353 @@ +#!/usr/bin/perl + +$dumpspace = "/pallas/d1/"; +$workspace = "/metis/d27/workspace/"; +# $workspace = "/irene/d11/workspace/"; + +$scriptdir = "/hebe/d27/logs/"; +$donelogfile = $scriptdir . "done.log"; +$scriptfile = $scriptdir . "maestro.dat"; +$flatdir = "/hebe/d27/references/config/"; + +$database = "/hebe/d27/database/"; +$lockfile = $database . "lock"; +$alockfile = $database . "alock"; +$clockfile = $database . "clock"; +$killfile = $database . "kill"; +$haltfile = $database . "halt"; +$reffile = $database . "start.clean"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + vsystem ("notify.pl $ARGV[0] none 0"); + die "@_"; +} + +if (@ARGV < 1) {die "USAGE: archive.pl Noutfile\n"; } +$Noutfile = $ARGV[0] + 1; +$outfile = "archive" . $Noutfile . ".log"; + +print STDERR "starting execution\n"; +vsystem ("date"); +if (-e $killfile) { goodbye "process killed with $killfile"; } + + +if (-e $alockfile) { goodbye "archive lock $alockfile is set"; } +open (TEMP, ">$alockfile"); +close (TEMP); + +# load in done date list +open (DONELOG, $donelogfile); +@donelist = (); +while ($line = ) { + chop ($line); + @donelist = (@donelist,$line); +} +$Ndone = @donelist; +close (DONELOG); + +# load in maestro list +open (MAESTRO, $scriptfile); +@todolist = (); +while ($line = ) { + chop ($line); + @todolist = (@todolist,$line); +} +$Ntodo = @todolist; +close (MAESTRO); + +# find entries in MAESTRO that are NOT in DONELOG +@leftlist = (); +for ($i = 0; $i < $Ntodo; $i ++) { + $gotit = 0; + for ($j = 0; ($j < $Ndone) && ! $gotit; $j ++) { + @entries = split (" ",$todolist[$i]); + if ($entries[0] eq $donelist[$j]) { + $gotit = 1; + } + } + if (!$gotit) { + @leftlist = (@leftlist, $todolist[$i]); + } +} +$Nleft = @leftlist; + +if (-e $killfile) { goodbye "process killed with $killfile"; } +# run controller on unfinished entries +# we are going to run this in the script directory +if ($Nleft) { + chdir $scriptdir; + for ($i = 0; $i < $Nleft; $i++) { + print STDERR "unfinished: $leftlist[$i]\n"; + @entries = split (" ",$leftlist[$i]); + $inlist = $entries[0] . ".inlist"; + $outlist = $entries[0] . ".outlist"; + $subdir = $entries[0]; + $photcode = $entries[1]; + print STDERR "$subdir: $inlist $outlist $photcode\n"; + if (-e $outlist) { + # partially successful run, restart controller in the middle + $tmp_inlist = $entries[0] . ".tmp_inlist"; + $tmpoutlist = $entries[0] . ".tmpoutlist"; + if (-e $tmpoutlist) { if (vsystem ("cat $tmpoutlist >> $outlist")) { goodbye "trouble merging $tmpoutlist and $outlist\n"; }} + # partially successful re-start: make sure $outlist is complete + if (parse_outlist ($outlist,$tmp_inlist,1)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s flatten", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,2)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s dophot", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,3)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s fstat", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,4)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s gastro", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,5)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s addstar", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + # do inlist entries not in outlist + if (parse_inlist ($inlist,$outlist,$tmp_inlist)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s flatten", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + unless (unlink ($tmpoutlist)) { goodbye "can't unlink $tmpoutlist, why not?"; } + unless (unlink ($tmp_inlist)) { goodbye "can't unlink $tmp_inlist, why not?"; } + vsystem ("cleaning.pl"); + if (-e $lockfile) { goodbye "lock file exists"; } + + print STDERR "done: $entries[0]\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$entries[0]\n"; + close (DONELOG); + } else { + $controlflags = ""; + docontroller ($subdir, $inlist, $outlist, $photcode, "-s flatten", 1); + print STDERR "done: $subdir\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$subdir\n"; + close (DONELOG); + } + } + unless (unlink ($alockfile)) { goodbye "can't unlink $alockfile, why not?"; } + print STDERR "remember to delete images from complete directories\n"; + + unless (-e $haltfile) { + print STDERR "re-did unfinished images\n"; + print STDERR "starting a new archive.pl with output to $outfile\n"; + vsystem ("notify.pl $ARGV[0] $outfile $Noutfile"); + vsystem ("archive.pl $Noutfile 1>$outfile 2>&1 &"); + exit; + } + goodbye "re-did unfinished images"; +} + +print STDERR "no unfinished nights, slurping a new set\n"; +if (-e $scriptfile) { if (vsystem ("rm $scriptfile")) { goodbye "couldn't delete old MAESTRO file"; }} + +if (vsystem ("rsh -n pallas slurp.pl")) { goodbye "couldn't start slurp on pallas"; } +if (-e $killfile) { goodbye "process killed with $killfile"; } +if (!-e $scriptfile) {goodbye "slurp failed to download files"; } + +print STDERR "done slurping, starting controller runs\n"; +vsystem ("date"); + +# run controller on the resulting images +# controller wants to be run in the same directory as the inlists +chdir $scriptdir; +open (MAESTRO, $scriptfile); +while ($line = ) { + @entries = split (" ",$line); + $inlist = $entries[0] . ".inlist"; + $outlist = $entries[0] . ".outlist"; + $subdir = $entries[0]; + $photcode = $entries[1]; + docontroller ($subdir, $inlist, $outlist, $photcode, "-s flatten", 1); + print STDERR "done: $subdir\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$entries[0]\n"; + close (DONELOG); +} +close (MAESTRO); + +unless (unlink ($alockfile)) { goodbye "can't unlink $alockfile, why not?"; } +print STDERR "ending execution\n"; +vsystem ("date"); +print STDERR "finished new images"; + +unless (-e $haltfile) { + print STDERR "starting a new archive.pl with output to $outfile\n"; + vsystem ("notify.pl $ARGV[0] $outfile $Noutfile"); + vsystem ("archive.pl $Noutfile 1>$outfile 2>&1 &"); +} else { + vsystem ("notify.pl $ARGV[0] none 0"); +} +exit; + +# run nrphot on the altered cpt files and quit +chdir $database; +@files = `find . -name "*.cpt" -newer $reffile`; +$Nfiles = @files; +print STDERR "N: $Nfiles\n"; +foreach $f (@files) { + chop ($f); + vsystem ("nrphot -v $f"); + if (-e $lockfile) { goodbye "lock file exists"; } +} + +# delete inlist files + +# do controller (& cleaning if needed), taking care of flats and error conditions +sub docontroller { + if (-e $killfile) { goodbye "process killed with $killfile"; } + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + # break up entry line + $outsubdir = $_[0]; + $in = $_[1]; + $out = $_[2]; + $phot = $_[3]; + $flags = $_[4]; + $clean = $_[5]; + # create sub-directory in output dir + $outdir = $workspace . $outsubdir; + unless (-e $outdir) { unless (mkdir ($outdir,0777)) { goodbye "cannot create output directory $outdir"; } } + # make link to correct flat + $flatlink = $flatdir . "newflat.fits"; + $realflat = $flatdir . "flatcode" . $phot . ".fits"; + if (-l $flatlink) { unless (unlink ($flatlink)) { goodbye "cannot unlink $flatlink"; }} + if (-e $flatlink) { goodbye "$flatlink exists, but is not a link!"; } + unless (symlink ($realflat, $flatlink)) { goodbye "cannot symlink $realflat to $flatlink"; } + # run controller and cleanup + if (-e $lockfile) { goodbye "lock file exists"; } + vsystem ("controller $flags -o $outsubdir $in $out $phot"); + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + if (-e $lockfile) { goodbye "lock file exists"; } + if (-e $killfile) { goodbye "process killed with $killfile"; } + if ($clean) { + vsystem ("cleaning.pl"); + if (-e $lockfile) { goodbye "lock file exists"; } + } +} + +sub by_filename { + @value1 = split (" ", $a); + @value2 = split (" ", $b); + $value1[0] cmp $value2[0]; +} + +# we read from in and write to out those files with 1st 0 in the mode column +sub parse_outlist { + $in = $_[0]; + $out = $_[1]; + $mode = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + @inarray = sort by_filename @inarray; + + @outarray = (); + for ($k = 0; $k < $Nin; $k++) { + @pvalues = split (" ", $inarray[$k]); + $more = 1; + while ($more) { + print STDERR "."; + @nvalues = split (" ", $inarray[$k+1]); + if ($nvalues[0] cmp $pvalues[0]) { + $more = 0; + } else { + $pvalues[1] |= $nvalues[1]; + $pvalues[2] |= $nvalues[2]; + $pvalues[3] |= $nvalues[3]; + $pvalues[4] |= $nvalues[4]; + $pvalues[5] |= $nvalues[5]; + $k ++; + } + } + # check the earlier status values: if failed earlier, skip + $skip = 0; + for ($m = 1; $m < $mode; $m++) { if (!$pvalues[$m]) { $skip = 1; } } + if (! $skip && !$pvalues[$mode]) { + $name = $pvalues[0]; + $name =~ s/$dumpspace//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + } + $Nout = @outarray; + if ($Nout) { + open (OUTLIST, ">$out"); + for ($k = 0; $k < $Nout; $k++) { + print OUTLIST "$outarray[$k]\n"; + } + close (OUTLIST); + } + $Nout; +} + +sub parse_inlist { + $in = $_[0]; + $out = $_[1]; + $new = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + +# load inlist + open (OUTLIST, $out); + @outarray = (); + while ($line = ) { + chop ($line); + @outarray = (@outarray,$line); + } + $Nout = @outarray; + close (OUTLIST); + +# load outlist + @newarray = (); + for ($k = 0; $k < $Nin; $k++) { + $gotit = 0; + for ($m = 0; ! $gotit && ($m < $Nout); $m++) { + if ($outarray[$m] =~ /$inarray[$k]/) { + $gotit = 1; + } + } + if (!$gotit) { + @newarray = (@newarray,$inarray[$k]); + } + } + $Nnew = @newarray; + if ($Nnew) { + open (NEWLIST, ">$new"); + for ($k = 0; $k < $Nnew; $k++) { + print NEWLIST "$inarray[$k]\n"; + } + close (NEWLIST); + } + $Nnew; +} Index: /branches/elixir/Ohana/src/perl/loneos/checkoutfail.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/checkoutfail.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/checkoutfail.pl (revision 2487) @@ -0,0 +1,63 @@ +#!/usr/bin/perl + +sub by_filename { + @value1 = split (" ", $a); + @value2 = split (" ", $b); + $value1[0] cmp $value2[0]; +} + +# we read from in and write to out those files with 1st 0 in the mode column +sub parse_outlist { + $in = $_[0]; + $mode = $_[1]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + @inarray = sort by_filename @inarray; + + @outarray = (); + for ($k = 0; $k < $Nin; $k++) { + @pvalues = split (" ", $inarray[$k]); + $more = 1; + while ($more) { + @nvalues = split (" ", $inarray[$k+1]); + if ($nvalues[0] cmp $pvalues[0]) { + $more = 0; + } else { + $pvalues[1] |= $nvalues[1]; + $pvalues[2] |= $nvalues[2]; + $pvalues[3] |= $nvalues[3]; + $pvalues[4] |= $nvalues[4]; + $pvalues[5] |= $nvalues[5]; + $k ++; + } + } + # check the earlier status values: if failed earlier, skip + $skip = 0; + for ($m = 1; $m < $mode; $m++) { if (!$pvalues[$m]) { $skip = 1; } } + if (! $skip && !$pvalues[$mode]) { + $name = $pvalues[0]; + $name =~ s/$topdir//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + } + $Nout = @outarray; + if ($Nout) { + for ($k = 0; $k < $Nout; $k++) { + print STDERR "$mode: $outarray[$k]\n"; + } + } + $Nout; +} + +$outlist = $ARGV[0]; + +parse_outlist ($outlist,5); Index: /branches/elixir/Ohana/src/perl/loneos/checkoutlist.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/checkoutlist.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/checkoutlist.pl (revision 2487) @@ -0,0 +1,65 @@ +#!/usr/bin/perl + +sub by_filename { + @value1 = split (" ", $a); + @value2 = split (" ", $b); + $value1[0] cmp $value2[0]; +} + +# we read from in and write to out those files with 1st 0 in the mode column +sub parse_outlist { + $in = $_[0]; + $mode = $_[1]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + @inarray = sort by_filename @inarray; + + @outarray = (); + for ($k = 0; $k < $Nin; $k++) { + @pvalues = split (" ", $inarray[$k]); + $more = 1; + while ($more) { + @nvalues = split (" ", $inarray[$k+1]); + if ($nvalues[0] cmp $pvalues[0]) { + $more = 0; + } else { + $pvalues[1] |= $nvalues[1]; + $pvalues[2] |= $nvalues[2]; + $pvalues[3] |= $nvalues[3]; + $pvalues[4] |= $nvalues[4]; + $pvalues[5] |= $nvalues[5]; + $k ++; + } + } + # check the earlier status values: if failed earlier, skip + $skip = 0; + for ($m = 1; $m < $mode; $m++) { if (!$pvalues[$m]) { $skip = 1; } } + if (! $skip && !$pvalues[$mode]) { + $name = $pvalues[0]; + $name =~ s/$topdir//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + } + $Nout = @outarray; + if ($Nout) { + for ($k = 0; $k < $Nout; $k++) { + print STDOUT "$mode: $outarray[$k]\n"; + } + } + $Nout; +} + +$outlist = $ARGV[0]; + +for ($i = 1; $i < 6; $i++) { + parse_outlist ($outlist,$i); +} Index: /branches/elixir/Ohana/src/perl/loneos/cleaning.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/cleaning.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/cleaning.pl (revision 2487) @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +$database = "/hebe/d27/database/"; +$lockfile = $database . "lock"; +$reffile = $database . "start.clean"; + +chdir $database; + +@files = `find . -name "*.cpt" -newer $reffile`; +$Nfiles = @files; +print STDERR "N: $Nfiles\n"; + +if (-e $lockfile) { die "lock file exists"; } + +foreach $f (@files) { + chop ($f); + vsystem ("markstar -v $f"); + if (-e $lockfile) { die "lock file exists"; } + vsystem ("addusno -v $f"); + if (-e $lockfile) { die "lock file exists"; } + vsystem ("markrock -v $f"); + if (-e $lockfile) { die "lock file exists"; } +} + Index: /branches/elixir/Ohana/src/perl/loneos/locks.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/locks.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/locks.pl (revision 2487) @@ -0,0 +1,93 @@ +#!/usr/bin/perl + +$topdir = "/pallas/"; +$scriptdir = "/hebe/d27/logs/"; +$donelogfile = $scriptdir . "done.log"; +$scriptfile = $scriptdir . "maestro.dat"; +$flatdir = "/hebe/d27/references/config/"; + +$workspace = "/hebe/d27/workspace/"; +$database = "/hebe/d27/database/"; +$lockfile = $database . "lock"; +$alockfile = $database . "alock"; +$clockfile = $database . "clock"; +$killfile = $database . "kill"; +$haltfile = $database . "halt"; +$reffile = $database . "start.clean"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + die "@_"; +} + +$Narg = @ARGV; +if ($Narg > 1) { + goodbye "USAGE: locks.pl [-reset] [-halt] [-kill] [-dB] [-controller] [-archive]"; +} + +unless ($ARGV[0] cmp "-reset") { + unlink ($lockfile); + unlink ($alockfile); + unlink ($clockfile); + unlink ($killfile); + unlink ($haltfile); + exit; +} + +unless ($ARGV[0] cmp "-kill") { + open (TEMP, ">$killfile"); + close (TEMP); + exit; +} + +unless ($ARGV[0] cmp "-halt") { + open (TEMP, ">$haltfile"); + close (TEMP); + exit; +} + +unless ($ARGV[0] cmp "-dB") { + open (TEMP, ">$lockfile"); + close (TEMP); + exit; +} + +unless ($ARGV[0] cmp "-controller") { + open (TEMP, ">$clockfile"); + close (TEMP); + exit; +} + +unless ($ARGV[0] cmp "-archive") { + open (TEMP, ">$alockfile"); + close (TEMP); + exit; +} + +@locks = (); +if (-e $lockfile) { @locks = (@locks,$lockfile); } +if (-e $alockfile) { @locks = (@locks,$alockfile); } +if (-e $clockfile) { @locks = (@locks,$clockfile); } +if (-e $killfile) { @locks = (@locks,$killfile); } +if (-e $haltfile) { @locks = (@locks,$haltfile); } + +$Nlocks = @locks; + +if ($Nlocks > 0) { + print STDERR "locks set:\n"; + for ($i = 0; $i < $Nlocks; $i++) { + print STDERR "$locks[$i]\n"; + } +} else { + print STDERR "no locks currently set\n"; +} + +print STDERR "\n"; +print STDERR "USAGE: locks.pl [-reset] [-kill] [-dB] [-controller] [-archive]\n"; Index: /branches/elixir/Ohana/src/perl/loneos/notify.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/notify.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/notify.pl (revision 2487) @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +$target= "gene\@astro.washington.edu"; +$targetmachine = "astro.washington.edu"; + +$last = "archive." . $ARGV[0]; +$next = $ARGV[1]; +$N = $ARGV[2]; + +# system ("echo \"done with $last, starting $next ($N)\" | mail $targetname\@$targetmachine"); +system ("echo \"done with $last, starting $next ($N)\" | mail $target"); + Index: /branches/elixir/Ohana/src/perl/loneos/rearchive.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/rearchive.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/rearchive.pl (revision 2487) @@ -0,0 +1,71 @@ +#!/usr/bin/perl + +# $dumpspace = "/pallas/d1/"; +# $workspace = "/metis/d27/workspace/"; +# $workspace = "/irene/d11/workspace/"; + +$database = "/hebe/d27/database/"; +$lockfile = $database . "lock"; +$alockfile = $database . "alock"; +$clockfile = $database . "clock"; +$killfile = $database . "kill"; +$haltfile = $database . "halt"; +$reffile = $database . "start.clean"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + die "@_"; +} + +if (@ARGV < 1) {die "USAGE: rearchive.pl dir\n"; } + +$target = $ARGV[0]; + +print STDERR "starting execution\n"; +vsystem ("date"); +if (-e $killfile) { goodbye "process killed with $killfile"; } + +if (-e $alockfile) { goodbye "archive lock $alockfile is set"; } +open (TEMP, ">$alockfile"); +close (TEMP); + +# untar directory + +if (!-e $target.tgz) { goodbye "target $target.tgz not found"; } + +if (vsystem ("gunzip -c $target.tgz | tar xvf -")) { goodbye "untar failed for $target.tgz"; } +if (vsystem ("ls $target/*.cmp > $target.lst")) { goodbye "failed to get directory listing for $target"; } + +open (TEMP, ">$target.log"); +close (TEMP); +if (!-e $target.log) { goodbye "could not create $target.log"; } + +# load in done date list +open (LISTFILE, $target.lst); +@listfile = (); +while ($line = ) { + chop ($line); + @listfile = (@listfile,$line); +} +$Nlist = @listfile; +close (LISTFILE); + +for ($i = 0; $i < Nlist; $i++) { + if (-e $lockfile) { goodbye "database lock $lockfile is set"; } + vsystem ("addstar -v $listfile[$i]"); +} + +if (-e $lockfile) { goodbye "lock file exists"; } +vsystem ("cleaning.pl"); +if (-e $lockfile) { goodbye "lock file exists"; } + +# vsystem ("rm $target"); +exit; + Index: /branches/elixir/Ohana/src/perl/loneos/slurp =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/slurp (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/slurp (revision 2487) @@ -0,0 +1,223 @@ +#!/usr/bin/env perl + +$Ngrab = 5; +$scriptdir = "/hebe/d27/logs/"; +$dumpspace = "/pallas/d1/"; +$tapedrive = "/dev/rmt/1cn"; +$tapelogfile = $scriptdir . "tape.log"; +$donelogfile = $scriptdir . "processed.log"; +$scriptfile = $scriptdir . "extracted.log"; + +# old directories: +# $topdir = "/pallas/"; +# $rootdir = "/pallas/d1/"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "@_\n"; + vsystem ("unload $tape"); + vsystem ("lunlock $tapedrive"); + vsystem ("lunlock $dumpspace"); + die; +} + +# goodbye ("quit suddenly"); + +# checkdone (line) +# returns 1 if not in line (and sets $name), +# returns 0 otherwise +sub checkdone { + local($inline) = @_; + @entries = split (" ",$inline); + $found = 0; + if ((@entries[0] > 1996) && (@entries[0] < 2097)) { + $found = 1; + $name = substr(@entries[0],2,2) . @entries[1] . @entries[2]; + for ($j = 0; ($j < $Ndone) && ($found); $j++) { + @done = split (" ", $donelist[$j]); + if ($done[0] eq $name) { + $found = 0; + } + } + } + $found; +} + +# checktape (name) +# find all entries which match name and add to dolist +sub checktape { + local($inname) = @_; + $j = 0; + while ($j < $Ntape) { + @entries = split (" ",$tapelist[$j]); + if ((@entries[0] > 1996) && (@entries[0] < 2097)) { + $tmpname = substr(@entries[0],2,2) . @entries[1] . @entries[2]; + if ($inname eq $tmpname) { + @dolist = (@dolist,$tapelist[$j]); + @doname = (@doname,$inname); + } + } + $j ++; + } +} + + +# load in done date list +open (DONELOG, $donelogfile); +@donelist = (); +while ($line = ) { + chop ($line); + @donelist = (@donelist,$line); +} +$Ndone = @donelist; +close (DONELOG); +print "Ndone = $Ndone\n"; + +# load in tape.log list +open (TAPELOG, $tapelogfile); +@tapelist = (); +while ($line = ) { + chop ($line); + @tapelist = (@tapelist,$line); +} +$Ntape = @tapelist; +close (TAPELOG); +# @tapelist = reverse(@tapelist); +print "Ntape = $Ntape\n"; + +# find 5 new nights not already in the "donelist" +$N = 0; +@tryname = (); +for ($i = 0; ($i < $Ntape) && ($N < $Ngrab); $i++) { + if (&checkdone ($tapelist[$i])) { + $j = 0; + $gotit = 0; + for ($j = 0; ($j < $N) && (! $gotit); $j++) { + if ($name eq $tryname[$j]) { + $gotit = 1; + } + } + if (! $gotit) { + @tryname = (@tryname, $name); + $N ++; + } + } +} +$Ntryname = @tryname; +# tryname has a list of the 980103 style names + +# now that we have a list of interesting nights, +# get a list of the actual lines from tape.log, +# along with a list of the matchine names +$i = 0; +@dolist = (); +@doname = (); +while ($i < $Ntryname) { + &checktape ($tryname[$i]); + $i ++; +} + +$i = 0; +$Ndolist = @dolist; +@fileno = (); +@tapeno = (); +@gbytes = (); +@photno = (); +@entry = (); +while ($i < $Ndolist) { + print STDERR "$doname[$i] == $dolist[$i]\n"; + @words = split (" ",$dolist[$i]); + @entry = (@entry,$i); + @tapeno = (@tapeno,$words[3]); + @fileno = (@fileno,$words[4]); + @gbytes = (@gbytes,$words[5]); + @photno = (@photno,$words[8]); + $i ++; +} + +# delete old downloaded data + +$dir = $dumpspace . "9"; +print STDERR "dir: $dir\n"; +@files = <$dir*>; +$Nfiles = @files; +print "files: @files\n"; +for ($i = 0; $i < $Nfiles; $i++) { + if ((-d $files[$i]) && (-O $files[$i])) { + if (vsystem ("rm -r $files[$i]")) { goodbye "error deleting directory $files[$i]"; } + } +} + +# now sort the entries by tape and file number: + +sub by_tape_and_file { ($tapeno[$a] <=> $tapeno[$b]) || ($fileno[$a] <=> $fileno[$b]); } +@entry = sort by_tape_and_file @entry; + +# lock tape and disk space. keep trying for up to 10 hours +for ($i = 0; ($i < 30) && vsystem ("llock $dumpspace"); $i++) { system ("sleep 1200"); } + if ($i == 100) { goodbye "failed to grab disk space"; } +for ($i = 0; ($i < 30) && vsystem ("llock $tapedrive"); $i++) { system ("sleep 1200"); } + if ($i == 100) { goodbye "failed to grab tape drive"; } + +$tape = -1; +for ($i = 0; $i < $Ndolist; $i++) { + # do a df and compare to $gbytes[$entry[$i]] + @answer = `df -k $dumpspace`; + @tmp = split (" ", $answer[1]); + $space = $tmp[3] / (1024*1024); + print STDERR "compare $space and $gbytes[$entry[$i]]\n"; + if (0.95*$space < $gbytes[$entry[$i]]) { last; } + # load tape if needed + if ($tapeno[$entry[$i]] != $tape) { + # unload old tape, load desired tape + if ($tape != -1) { if (vsystem ("unload $tape")) { goodbye "trouble unloading tape $tape"; } } + if (vsystem ("load $tapeno[$entry[$i]]")) { goodbye "trouble loading tape $tapeno[$entry[$i]]"; } + $tape = $tapeno[$entry[$i]]; + $j = 0; + $offline = 1; + # wait for tape to come online before starting anything + while (($j < 12) && $offline) { + vsystem ("sleep 10"); + $offline = vsystem ("mt -f $tapedrive status"); + $j ++; + } + if ($j == 12) { goodbye "tape still not online!"; } + $file = 0; + } + # advance to first file of interest + $nskip = $fileno[$entry[$i]] - $file; + if ($nskip > 0) { + if (vsystem ("mt -f $tapedrive fsf $nskip")) { goodbye "error advancing tape"; } + } + # create output directory if it doesn't exist + $dir = $dumpspace . $doname[$entry[$i]]; + unless (-e $dir) { + unless (mkdir ($dir,0777)) { goodbye "cannot create output directory $dir"; } + } + chdir $dir; + # extract the files + vsystem ("tar -xvfb $tapedrive 128"); + $file = $fileno[$entry[$i]] + 1; +} +$Ndolist = $i; + +if (vsystem("unload $tape")) { goodbye "trouble unloading tape $tape"; } +if (vsystem("lunlock $tapedrive")) { goodbye "trouble unlocking tape drive $tapedrive"; } +if (vsystem ("lunlock $dumpspace")) { goodbye "trouble unlocking disk drive $dumpspace"; } + +open (MAESTRO, ">$scriptfile"); +chdir $dumpspace; +$i = 0; +while ($i < $Ndolist) { + vsystem ("ls $doname[$entry[$i]]/*b.fits > $scriptdir/$doname[$entry[$i]].inlist"); + print MAESTRO "$doname[$entry[$i]] $photno[$entry[$i]] \n"; + $i ++; +} +close (MAESTRO); + +1; Index: /branches/elixir/Ohana/src/perl/loneos/stage1 =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/stage1 (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/stage1 (revision 2487) @@ -0,0 +1,342 @@ +#!/usr/bin/env perl + +# in this script, we run flatten, dophot, fstat, and gastro +# these can be run totally in parallel, so this routine runs +# independently of the series processing (addstar, markstar, etc) +# in stage2 + +# for now these directories are hard-wired. eventually, they +# should be looked up in the config file, so all scripts are +# consistent +$dumpspace = "/pallas/d1/"; +$workspace = "/metis/d27/workspace/"; +# $workspace = "/irene/d11/workspace/"; + +$scriptdir = "/hebe/d27/logs/"; +$donelogfile = $scriptdir . "processed.log"; +$scriptfile = $scriptdir . "extracted.log"; +$flatdir = "/hebe/d27/references/config/"; + +$database = "/hebe/d27/database/"; +$alockfile = $database . "alock1"; # lock on stage1 (only 1 running at a time) +$clockfile = $database . "clock1"; # lock on controller +$killfile = $database . "kill"; # quickly stop the processing +$haltfile = $database . "halt"; # halt processing after this loop +$reffile = $database . "start.clean"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + vsystem ("notify.pl $ARGV[0] none 0"); + die "@_"; +} + +if (@ARGV < 1) {die "USAGE: stage1 Noutfile\n"; } +$Noutfile = $ARGV[0] + 1; +$outfile = "stage1." . $Noutfile . ".log"; + +print STDERR "starting execution\n"; +vsystem ("date"); +if (-e $killfile) { goodbye "process killed with $killfile"; } + + +if (-e $alockfile) { goodbye "archive lock $alockfile is set"; } +open (TEMP, ">$alockfile"); +close (TEMP); + +# load in done date list +open (DONELOG, $donelogfile); +@donelist = (); +while ($line = ) { + chop ($line); + @donelist = (@donelist,$line); +} +$Ndone = @donelist; +close (DONELOG); + +# load in maestro list +open (MAESTRO, $scriptfile); +@todolist = (); +while ($line = ) { + chop ($line); + @todolist = (@todolist,$line); +} +$Ntodo = @todolist; +close (MAESTRO); + +# find entries in MAESTRO that are NOT in DONELOG +@leftlist = (); +for ($i = 0; $i < $Ntodo; $i ++) { + $gotit = 0; + for ($j = 0; ($j < $Ndone) && ! $gotit; $j ++) { + @todo = split (" ",$todolist[$i]); + @done = split (" ",$donelist[$j]); + if ($todo[0] eq $done[0]) { + $gotit = 1; + } + } + if (!$gotit) { + @leftlist = (@leftlist, $todolist[$i]); + } +} +$Nleft = @leftlist; + +if (-e $killfile) { goodbye "process killed with $killfile"; } +# run controller on unfinished entries +# we are going to run this in the script directory +if ($Nleft) { + chdir $scriptdir; + for ($i = 0; $i < $Nleft; $i++) { + print STDERR "unfinished: $leftlist[$i]\n"; + @entries = split (" ",$leftlist[$i]); + $inlist = $entries[0] . ".inlist"; + $outlist = $entries[0] . ".addlist"; + $subdir = $entries[0]; + $photcode = $entries[1]; + print STDERR "$subdir: $inlist $outlist $photcode\n"; + if (-e $outlist) { + # partially successful run, restart controller in the middle + $tmp_inlist = $entries[0] . ".tmp_inlist"; + $tmpoutlist = $entries[0] . ".tmpaddlist"; + if (-e $tmpoutlist) { if (vsystem ("cat $tmpoutlist >> $outlist")) { goodbye "trouble merging $tmpoutlist and $outlist\n"; }} + # partially successful re-start: make sure $outlist is complete + if (parse_outlist ($outlist,$tmp_inlist,1)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s flatten", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,2)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s dophot", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,3)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s fstat", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + if (parse_outlist ($outlist,$tmp_inlist,4)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s gastro", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + # do inlist entries not in outlist + if (parse_inlist ($inlist,$outlist,$tmp_inlist)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s flatten", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + unless (unlink ($tmpoutlist)) { goodbye "can't unlink $tmpoutlist, why not?"; } + unless (unlink ($tmp_inlist)) { goodbye "can't unlink $tmp_inlist, why not?"; } + # done with this night, add to donelogfile + print STDERR "done: $subdir $photcode\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$subdir $photcode\n"; + close (DONELOG); + } else { + docontroller ($subdir, $inlist, $outlist, $photcode, "-s flatten", 1); + print STDERR "done: $subdir $photcode\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$subdir $photcode\n"; + close (DONELOG); + } + } + unless (unlink ($alockfile)) { goodbye "can't unlink $alockfile, why not?"; } + print STDERR "remember to delete images from complete directories\n"; + + unless (-e $haltfile) { + print STDERR "re-did unfinished images\n"; + print STDERR "starting a new stage1 with output to $outfile\n"; + vsystem ("notify.pl $ARGV[0] $outfile $Noutfile"); + vsystem ("stage1 $Noutfile 1>$outfile 2>&1 &"); + exit; + } + goodbye "re-did unfinished images"; +} + +# get a new set of data +print STDERR "no unfinished nights, slurping a new set\n"; +if (-e $scriptfile) { if (vsystem ("rm $scriptfile")) { goodbye "couldn't delete old MAESTRO file"; }} + +if (vsystem ("rsh -n pallas slurp")) { goodbye "couldn't start slurp on pallas"; } +if (-e $killfile) { goodbye "process killed with $killfile"; } +if (!-e $scriptfile) {goodbye "slurp failed to download files"; } + +print STDERR "done slurping, starting controller runs\n"; +vsystem ("date"); + +# run controller on the resulting images +# controller wants to be run in the same directory as the inlists +$Nruns = 0; +chdir $scriptdir; +open (MAESTRO, $scriptfile); +while ($line = ) { + @entries = split (" ",$line); + $inlist = $entries[0] . ".inlist"; + $outlist = $entries[0] . ".addlist"; + $subdir = $entries[0]; + $photcode = $entries[1]; + docontroller ($subdir, $inlist, $outlist, $photcode, "-s flatten", 1); + print STDERR "done: $subdir $photcode\n"; + open (DONELOG, ">>$donelogfile"); + print DONELOG "$subdir $photcode\n"; + close (DONELOG); + $Nruns ++; +} +close (MAESTRO); + +if (Nruns == 0) { + print STDERR "no data downloaded in slurp, waiting for a while\n"; + vsystem ("sleep 3600"); +} +unless (unlink ($alockfile)) { goodbye "can't unlink $alockfile, why not?"; } +print STDERR "ending execution\n"; +vsystem ("date"); +print STDERR "finished new images"; + +unless (-e $haltfile) { + print STDERR "starting a new stage1 with output to $outfile\n"; + vsystem ("notify.pl $ARGV[0] $outfile $Noutfile"); + vsystem ("stage1 $Noutfile 1>$outfile 2>&1 &"); +} else { + vsystem ("notify.pl $ARGV[0] none 0"); +} +exit; + +# do controller (& cleaning if needed), taking care of flats and error conditions +sub docontroller { + if (-e $killfile) { goodbye "process killed with $killfile"; } + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + # break up entry line + $outsubdir = $_[0]; + $in = $_[1]; + $out = $_[2]; + $phot = $_[3]; + $flags = $_[4]; + $clean = $_[5]; + # create sub-directory in output dir + $outdir = $workspace . $outsubdir; + unless (-e $outdir) { unless (mkdir ($outdir,0777)) { goodbye "cannot create output directory $outdir"; } } + # make link to correct flat + $flatlink = $flatdir . "newflat.fits"; + $realflat = $flatdir . "flatcode" . $phot . ".fits"; + if (-l $flatlink) { unless (unlink ($flatlink)) { goodbye "cannot unlink $flatlink"; }} + if (-e $flatlink) { goodbye "$flatlink exists, but is not a link!"; } + unless (symlink ($realflat, $flatlink)) { goodbye "cannot symlink $realflat to $flatlink"; } + # run controller and cleanup + vsystem ("control1 $flags -o $outsubdir $in $out $phot"); + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + if (-e $killfile) { goodbye "process killed with $killfile"; } +} + +sub by_filename { + @value1 = split (" ", $a); + @value2 = split (" ", $b); + $value1[0] cmp $value2[0]; +} + +# we read from in and write to out those files with 1st 0 in the mode column +sub parse_outlist { + $in = $_[0]; + $out = $_[1]; + $mode = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + @inarray = sort by_filename @inarray; + + @outarray = (); + for ($k = 0; $k < $Nin; $k++) { + @pvalues = split (" ", $inarray[$k]); + $more = 1; + while ($more) { + print STDERR "."; + @nvalues = split (" ", $inarray[$k+1]); + if ($nvalues[0] cmp $pvalues[0]) { + $more = 0; + } else { + $pvalues[1] |= $nvalues[1]; + $pvalues[2] |= $nvalues[2]; + $pvalues[3] |= $nvalues[3]; + $pvalues[4] |= $nvalues[4]; + $pvalues[5] |= $nvalues[5]; + $k ++; + } + } + # check the earlier status values: if failed earlier, skip + $skip = 0; + for ($m = 1; $m < $mode; $m++) { if (!$pvalues[$m]) { $skip = 1; } } + if (! $skip && !$pvalues[$mode]) { + $name = $pvalues[0]; + $name =~ s/$dumpspace//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + } + $Nout = @outarray; + if ($Nout) { + open (OUTLIST, ">$out"); + for ($k = 0; $k < $Nout; $k++) { + print OUTLIST "$outarray[$k]\n"; + } + close (OUTLIST); + } + $Nout; +} + +sub parse_inlist { + $in = $_[0]; + $out = $_[1]; + $new = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + +# load inlist + open (OUTLIST, $out); + @outarray = (); + while ($line = ) { + chop ($line); + @outarray = (@outarray,$line); + } + $Nout = @outarray; + close (OUTLIST); + +# load outlist + @newarray = (); + for ($k = 0; $k < $Nin; $k++) { + $gotit = 0; + for ($m = 0; ! $gotit && ($m < $Nout); $m++) { + if ($outarray[$m] =~ /$inarray[$k]/) { + $gotit = 1; + } + } + if (!$gotit) { + @newarray = (@newarray,$inarray[$k]); + } + } + $Nnew = @newarray; + if ($Nnew) { + open (NEWLIST, ">$new"); + for ($k = 0; $k < $Nnew; $k++) { + print NEWLIST "$newarray[$k]\n"; + } + close (NEWLIST); + } + $Nnew; +} Index: /branches/elixir/Ohana/src/perl/loneos/stage2 =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/stage2 (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/stage2 (revision 2487) @@ -0,0 +1,307 @@ +#!/usr/bin/env perl + +# in this script, we run addstar and the cleaning routines +# these must be run in series, so this routine runs +# independently of the parallel processing in stage1 + +# for now these directories are hard-wired. eventually, they +# should be looked up in the config file, so all scripts are +# consistent +$dumpspace = "/pallas/d1/"; +$workspace = "/metis/d27/workspace/"; +# $workspace = "/irene/d11/workspace/"; + +#$scriptdir = "/hebe/d27/logs/"; +$scriptdir = "./"; +$addstarfile = $scriptdir . "addstared.log"; +$processfile = $scriptdir . "processed.log"; +$flatdir = "/hebe/d27/references/config/"; + +$database = "/hebe/d27/database/"; +$lockfile = $database . "lock"; # lock on database files +$alockfile = $database . "alock2"; # lock on stage2 (only 1 running at a time) +$clockfile = $database . "clock2"; # lock on control2 +$killfile = $database . "kill"; # quickly stop the processing +$haltfile = $database . "halt"; # halt processing after this loop +$reffile = $database . "start.clean"; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + vsystem ("notify.pl $ARGV[0] none 0"); + die "@_"; +} + +if (@ARGV < 1) {die "USAGE: stage2 Noutfile\n"; } +$Noutfile = $ARGV[0] + 1; +$outfile = "stage2." . $Noutfile . ".log"; + +print STDERR "starting execution\n"; +vsystem ("date"); +if (-e $killfile) { goodbye "process killed with $killfile"; } + +if (-e $alockfile) { goodbye "archive lock $alockfile is set"; } +open (TEMP, ">$alockfile"); +close (TEMP); + +$Ntries = 0; +$Nleft = 0; +@leftlist = (); + +while (! $Nleft) { + compare_done_todo (); + if (-e $killfile) { goodbye "process killed with $killfile"; } + vsystem ("sleep 60"); + if (-e $killfile) { goodbye "process killed with $killfile"; } + $Ntries ++; + if ($Ntries == 1440) { goodbye "timeout waiting for new data"; } +} + +if (-e $killfile) { goodbye "process killed with $killfile"; } + +chdir $scriptdir; + +for ($i = 0; $i < $Nleft; $i++) { + print STDERR "adding: $leftlist[$i]\n"; + @entries = split (" ",$leftlist[$i]); + $inlist = $entries[0] . ".addlist"; + $outlist = $entries[0] . ".outlist"; + $subdir = $entries[0]; + $photcode = $entries[1]; + print STDERR "$subdir: $inlist $outlist $photcode\n"; + if (-e $outlist) { + # partially successful run, restart controller in the middle + $tmp_inlist = $entries[0] . ".tmpaddlist"; + $tmpoutlist = $entries[0] . ".tmpoutlist"; + if (-e $tmpoutlist) { if (vsystem ("cat $tmpoutlist >> $outlist")) { goodbye "trouble merging $tmpoutlist and $outlist\n"; }} + # partially successful re-start: make sure $outlist is complete + print STDERR "re-running unfinished entries in outlist\n"; + if (parse_outlist ($outlist,$tmp_inlist, 4)) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s addstar", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + # do inlist entries not in outlist + print STDERR "running undone entries in addlist\n"; + parse_outlist ($inlist,"tmpinlist", 4); + parse_outlist ($outlist,"tmpoutlist", 5); + if (match_lists ("tmpinlist","tmpoutlist","$tmp_inlist")) { + docontroller ($subdir, $tmp_inlist, $tmpoutlist, $photcode, "-s addstar", 0); + vsystem ("cat $tmpoutlist >> $outlist"); + } + # check ending success + unless (unlink ($tmpoutlist)) { goodbye "can't unlink $tmpoutlist, why not?"; } + unless (unlink ($tmp_inlist)) { goodbye "can't unlink $tmp_inlist, why not?"; } + vsystem ("cleaning.pl"); + if (-e $lockfile) { goodbye "lock file exists"; } + + print STDERR "done: $subdir\n"; + open (DONELOG, ">>$addstarfile"); + print DONELOG "$subdir\n"; + close (DONELOG); + } else { + $controlflags = ""; + parse_outlist ($inlist,"tmpinlist", 4); + docontroller ($subdir, "tmpinlist", $outlist, $photcode, "-s addstar", 1); + print STDERR "done: $subdir\n"; + open (DONELOG, ">>$addstarfile"); + print DONELOG "$subdir\n"; + close (DONELOG); + } +} +unless (unlink ($alockfile)) { goodbye "can't unlink $alockfile, why not?"; } +print STDERR "remember to delete images from complete directories\n"; + +unless (-e $haltfile) { + print STDERR "re-did unfinished images\n"; + print STDERR "starting a new stage2 with output to $outfile\n"; + vsystem ("notify.pl $ARGV[0] $outfile $Noutfile"); + vsystem ("stage2 $Noutfile 1>$outfile 2>&1 &"); + exit; +} +goodbye "added images"; +exit; + +# do controller (& cleaning if needed), taking care of flats and error conditions +sub docontroller { + if (-e $killfile) { goodbye "process killed with $killfile"; } + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + # break up entry line + $outsubdir = $_[0]; + $in = $_[1]; + $out = $_[2]; + $phot = $_[3]; + $flags = $_[4]; + $clean = $_[5]; + # run controller and cleanup + if (-e $lockfile) { goodbye "lock file exists"; } + vsystem ("control2 $flags -o $outsubdir $in $out $phot"); + if (-e $clockfile) { goodbye "lock file $clockfile exists"; } + if (-e $lockfile) { goodbye "lock file exists"; } + if (-e $killfile) { goodbye "process killed with $killfile"; } + if ($clean) { + vsystem ("cleaning.pl"); + if (-e $lockfile) { goodbye "lock file exists"; } + } +} + +sub by_filename { + @value1 = split (" ", $a); + @value2 = split (" ", $b); + $value1[0] cmp $value2[0]; +} + +# we read from in and write to out those files with 1st 0 in the mode column +sub parse_outlist { + $in = $_[0]; + $out = $_[1]; + $mode = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + @inarray = sort by_filename @inarray; + + @outarray = (); + for ($k = 0; $k < $Nin; $k++) { + @pvalues = split (" ", $inarray[$k]); + $more = 1; + while ($more) { + print STDERR "."; + @nvalues = split (" ", $inarray[$k+1]); + if ($nvalues[0] cmp $pvalues[0]) { + $more = 0; + } else { + $pvalues[1] |= $nvalues[1]; + $pvalues[2] |= $nvalues[2]; + $pvalues[3] |= $nvalues[3]; + $pvalues[4] |= $nvalues[4]; + $pvalues[5] |= $nvalues[5]; + $k ++; + } + } + # in this version, we only care about pvalues[4,5] (addstar) + if (($mode == 4) && $pvalues[4] && !$pvalues[5]) { + $name = $pvalues[0]; + $name =~ s/$dumpspace//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + if (($mode == 5) && $pvalues[5]) { + $name = $pvalues[0]; + $name =~ s/$dumpspace//; + $name =~ s/://; + @outarray = (@outarray,$name); + } + } + $Nout = @outarray; + if ($Nout) { + open (OUTLIST, ">$out"); + for ($k = 0; $k < $Nout; $k++) { + print OUTLIST "$outarray[$k]\n"; + } + close (OUTLIST); + } + $Nout; +} + +# find lines in inlist which are not in outlist +sub match_lists { + $in = $_[0]; + $out = $_[1]; + $new = $_[2]; + +# load inlist + open (INLIST, $in); + @inarray = (); + while ($line = ) { + chop ($line); + @inarray = (@inarray,$line); + } + $Nin = @inarray; + close (INLIST); + +# load outlist + open (OUTLIST, $out); + @outarray = (); + while ($line = ) { + chop ($line); + @outarray = (@outarray,$line); + } + $Nout = @outarray; + close (OUTLIST); + +# find matched lines + @newarray = (); + for ($k = 0; $k < $Nin; $k++) { + $gotit = 0; + for ($m = 0; ! $gotit && ($m < $Nout); $m++) { + if ($outarray[$m] =~ /$inarray[$k]/) { + $gotit = 1; + } + } + if (!$gotit) { + @newarray = (@newarray,$inarray[$k]); + } + } + $Nnew = @newarray; + if ($Nnew) { + open (NEWLIST, ">$new"); + for ($k = 0; $k < $Nnew; $k++) { + print NEWLIST "$newarray[$k]\n"; + } + close (NEWLIST); + } + $Nnew; +} + +sub compare_done_todo { + print STDERR "starting compare\n"; +# load in done date list + open (DONELOG, $addstarfile); + @donelist = (); + while ($line = ) { + chop ($line); + @donelist = (@donelist,$line); + } + $Ndone = @donelist; + close (DONELOG); + +# load in maestro list + open (TODOLOG, $processfile); + @todolist = (); + while ($line = ) { + chop ($line); + @todolist = (@todolist,$line); + } + $Ntodo = @todolist; + close (TODOLOG); + +# find entries in MAESTRO that are NOT in DONELOG + for ($i = 0; $i < $Ntodo; $i ++) { + $gotit = 0; + for ($j = 0; ($j < $Ndone) && ! $gotit; $j ++) { + @todo = split (" ",$todolist[$i]); + @done = split (" ",$donelist[$j]); + if ($todo[0] eq $done[0]) { + $gotit = 1; + } + } + if (!$gotit) { + @leftlist = (@leftlist, $todolist[$i]); + } + } + $Nleft = @leftlist; + $Nleft; +} Index: /branches/elixir/Ohana/src/perl/loneos/testlogs.pl =================================================================== --- /branches/elixir/Ohana/src/perl/loneos/testlogs.pl (revision 2487) +++ /branches/elixir/Ohana/src/perl/loneos/testlogs.pl (revision 2487) @@ -0,0 +1,86 @@ +#!/usr/bin/perl + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + vsystem ("date"); + die "@_"; +} + +$Nline = -1; +while ($line = ) { + $Nline ++; + if ($Nline == 0) { next; } + if ($Nline == 1) { + @parts = split (" ",$line); + $N1 = $parts[9]; + next; + } + if ($Nline == 2) { + @parts = split (" ",$line); + $N2 = $parts[2]; + if ($N1 != $N2) { + print STDERR "problem in dophot\n"; + exit; + } + next; + } + if ($Nline == 3) { + @parts = split (" ",$line); + $N1 = $parts[10]; + next; + } + if ($Nline == 4) { + @parts = split (" ",$line); + $N2 = $parts[2]; + if ($N1 != $N2) { + print STDERR "problem in fstat\n"; + exit; + } + next; + } + if ($Nline == 5) { + @parts = split (" ",$line); + $N1 = $parts[8]; + next; + } + if ($Nline == 6) { + @parts = split (" ",$line); + $N2 = $parts[2]; + if ($N1 != $N2) { + print STDERR "problem in gastro\n"; + exit; + } + next; + } + if ($Nline == 7) { + @parts = split (" ",$line); + $N1 = $parts[6]; + next; + } + if ($Nline == 8) { + @parts = split (" ",$line); + $N2 = $parts[2]; + if ($N1 != $N2) { + print STDERR "problem in addstar\n"; + exit; + } + next; + } + if ($Nline > 8) { + print STDERR "$line\n"; + print STDERR "too many lines?\n"; + exit; + } + +} + +if ($Nline != 8) { + print STDERR "not enough lines\n"; + exit; +} Index: /branches/elixir/Ohana/src/perl/new/defringe =================================================================== --- /branches/elixir/Ohana/src/perl/new/defringe (revision 2487) +++ /branches/elixir/Ohana/src/perl/new/defringe (revision 2487) @@ -0,0 +1,65 @@ +#!/usr/bin/env perl + +if (@ARGV != 2) { &usage; } + +# command line arguments +$inlist = $ARGV[0]; +$outlist = $ARGV[1]; + +# setup elixir references +$coordpath = `gconfig FRINGE_COORD_PATH`; chop $coordpath; +$confdir = `gconfig CONFDIR`; chop $confdir; +$script = "$confdir/mana/fringe.pro"; + +$filtkwd = `gconfig FILTER-KEYWORD`; chop $filtkwd; +$camerakwd = `gconfig CAMERA-KEYWORD`; chop $camerakwd; +$ccdkwd = `gconfig CCDNUM-KEYWORD`; chop $ccdkwd; + +$Nccd = `cameraconfig -Nccd`; chop $Nccd; +$answer = `cameraconfig -ccds`; +@ccds = split (" ", $answer); + +# temporary files needed: +set imstats=`mktemp /tmp/defringe.XXXXXX`; +set frstats=`mktemp /tmp/defringe.XXXXXX`; + +# calculate imstats for the input image, get stats from fringe image header +set filtvalue = `head -1 $imlist | fields $filtkwd | awk '{print $2}'`; +set filter = `filtnames $filtvalue`; + +set camera = `head -1 $imlist | fields $camerakwd | awk '{print $2}'`; +if ("$camera" == "") set camera = "WFI"; + +# load input / output lists: +open (FILE, "$inlist"); +@inlist = ; +close (FILE); + +open (FILE, "$outlist"); +@outlist = ; +close (FILE); + +if (@inlist != @outlist) { die "ERROR: mismatched lists\n"; } + +# measure fringe amplitude + + + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print STDERR "USAGE: defringe (inlist) (outlist)\n"; + exit 2; +} + +sub uppercase { + return "\U$_[0]\E"; +} Index: /branches/elixir/Ohana/src/perl/new/getfringe =================================================================== --- /branches/elixir/Ohana/src/perl/new/getfringe (revision 2487) +++ /branches/elixir/Ohana/src/perl/new/getfringe (revision 2487) @@ -0,0 +1,80 @@ +#!/usr/bin/env perl + +if (@ARGV != 4) { die "USAGE: gtfringe (in.fits) (fringe.coords) (binning) (out.dat)\n"; } + +$input = $ARGV[0]; +$coords = $ARGV[1]; +$binning = $ARGV[2]; +$output = $ARGV[3]; + +# create temporary files: +$PARFILE = `mktemp /tmp/gtfringe.XXXXXX`; +$INFILE = `mktemp /tmp/@gtfringe.XXXXXX` +$OUTFILE = `mktemp /tmp/gtfringe.XXXXXX` + +# convert + +open (FILE, "$inlist"); +@mef = ; +close (FILE); + +@split = (); +foreach $name (@mef) { + chop ($name); + + # convert name /path/name.fits to /outdir/rootNN.fits + @words = split ("/", $name); + $root = $words[-1]; + $root =~ s/.fits//; + + $new = sprintf "%s/%s%02d.fits", $outdir, $root, $ccd; + push @split, $new; +} + +open (MANA, "|mana --norc"); + +# define the macro 'split' +print MANA "macro split\n"; +print MANA " rd a \$1 -n $ccd\n"; +print MANA " keyword a NAXIS1 nx\n"; +print MANA " keyword a NAXIS2 ny\n"; +print MANA " if ((\$nx == 2080) && (\$ny == 4128))\n"; +print MANA " wd a \$2 -bitpix 16 -bzero 32768 -bscale 1.0\n"; +print MANA " exec echo \$2 >> $outlist\n"; +print MANA " end\n"; +print MANA "end\n"; + +# create the macro 'go' with the commands +print MANA "macro go\n"; +for ($i = 0; $i < @mef; $i++) { + if (-e $split[$i]) { + print STDERR "$split[$i] exists, skipping\n"; + next; + } + print MANA " split $mef[$i] $split[$i]\n"; +} +# if the macro ends successfully, exit 0 +print MANA " exit 0\n"; +print MANA "end\n"; + +# if the macro exits before the end, exit 1 +print MANA "go\n"; +print MANA "exit 1\n"; +close (MANA); + +$status = $?; +print STDERR "mana exit status: $status\n"; +if ($status) { + print STDERR "ERROR: problem running split.mef\n"; + exit 1; +} + +print STDERR "SUCCESS\n"; +exit 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + Index: /branches/elixir/Ohana/src/perl/old/clear.rawdir =================================================================== --- /branches/elixir/Ohana/src/perl/old/clear.rawdir (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/clear.rawdir (revision 2487) @@ -0,0 +1,258 @@ +#!/usr/bin/env perl + +# this script is very much specific to the CFHT data layout + +$archive = "/h/archive/current/instrument/cfh12k"; +$force = 0; + +# grab the command line arguments: +@tARGV = (); +for (; @ARGV > 0; ) { + + if ($ARGV[0] eq "-force") { + shift; + $force = 1; + next; + } + + @tARGV = (@tARGV, $ARGV[0]); + shift; +} +@ARGV = @tARGV; + +if (@ARGV != 1) { die "USAGE: clean.rawdir (crunid)\n" ;} + +if ($ARGV[0] eq "-current") { + $runid = `gconfig -q RUNID`; chop ($runid); +} else { + $runid = $ARGV[0]; +} +print "runid: $runid\n"; + +$rawdir = `gconfig -q -D RUNID $runid RAWDIR`; chop ($rawdir); +if ($rawdir eq "") { + print STDERR "can't find config entry RAWDIR\n"; + exit 1; +} +print "rawdir: $rawdir\n"; + +@meflist = (); +@splitlist = (); + +# load in the MEF files (must be of format 123456x.fits) +@tlist = <$rawdir/*.fits>; +foreach $tname (@tlist) { + if ((-f $tname) && ($tname =~ /\d\d\d\d\d\d\w.fits$/)) { + @meflist = (@meflist, $tname); + } +} + +# load in the SPLIT directories (must be of format 123456x) +@tlist = <$rawdir/???????>; +foreach $tname (@tlist) { + if ((-d $tname) && ($tname =~ /\d\d\d\d\d\d\w$/)) { + @splitlist = (@splitlist, $tname); + } +} +$N1 = @meflist; +$N2 = @splitlist; + +foreach $file (@meflist) { + + # grab the root name: + $root = mefnames ($file, "root"); + + $arname = "$archive/$root.fits"; + $newname = $file; + + # check that the file exists in the archive + if (-l $file) { next; } + if (! -e $arname) { next; } + if (! -f $arname) { next; } + + unlink $file; + symlink $arname, $newname; +} + +foreach $file (@splitlist) { + + # grab the root name: + $root = splitnames ($file, "root"); + + $arname = "$archive/$root.fits"; + $newname = "$rawdir/$root.fits"; + + # check that the file exists in the archive + if (! -e $arname) { next; } + if (! -f $arname) { next; } + + vsystem ("rm -rf $file\n"); + symlink $arname, $newname; + vsystem ("imsearch -name $root -split2mef\n"); +} + +exit 0; + +# utilities ############################################## + +sub gt_names { + # in: filename mode type + # out: word + + my ($value); + + $value = ""; + if ($_[2] eq "MEF") { $value = mefnames ($_[0], $_[1]); } + if ($_[2] eq "SPLIT") { $value = splitnames ($_[0], $_[1]); } + + return $value; +} + +sub mefnames { + # in: (/path/file.fits) (mode) + # out: word + + my($fullname) = $_[0]; + my($mode) = $_[1]; + my($answer); + + # split rootdir and filename: + my (@words) = split ("/", $fullname); + $N = @words; + + if ($mode eq "path") { + $answer = ""; + for ($i = 0; $i < $N - 1; $i++) { + $answer = $answer . $words[$i] . "/"; + } + chop ($answer); # strip off last / + if ($answer eq "") { $answer = "."; } + return ($answer); + } + + if ($mode eq "root") { + $answer = "$words[$N-1]"; + $answer =~ s/.fits$//; + return ($answer); + } + + if ($mode eq "Nccd") { + if (! -e $fullname) { + return (0); + } + $answer = `echo $fullname | fields NEXTEND`; + @words = split (" ", $answer); + if ($words[1] eq "") { + return (0); + } + return ($words[1]); + } + + return (0); +} + +sub splitnames { + # in: (/path/file) (mode) + # out: word + # /path/file is directory containing Nccd fits images + + my($fullname) = $_[0]; + my($mode) = $_[1]; + my($answer, $N, $tmpname, @imlist, @words); + + # split rootdir and filename: + @words = split ("/", $fullname); + $N = @words; + + if ($mode eq "path") { + $answer = ""; + for ($i = 0; $i < $N - 1; $i++) { + $answer = $answer . $words[$i] . "/"; + } + chop ($answer); # strip off last / + if ($answer eq "") { $answer = "."; } + return ($answer); + } + + if ($mode eq "root") { + $answer = "$words[$N-1]"; + return ($answer); + } + + if ($mode eq "Nccd") { + + $tmpname = "$fullname/$words[$N-1]"; + @imlist = <$tmpname??.fits>; + + $Nccd = @imlist; + return $Nccd; + } + + return (0); +} + +sub ckimtype { + # in: (/path/file) + # out: MEF | SPLIT | SINGLE | (NULL) + + my ($answer, $name, $value); + my ($file) = $_[0]; + + if (! -e $file) { + print STDOUT "can't open file\n"; + return ""; + } + + # if /path/file is a directory, it is split: + if (-d $file) { return "SPLIT"; } + + # check that the file is a FITS image + $answer = `file -L $file`; + if ($?) { + print STDOUT "can't open file\n"; + return ""; + } + ($name, $value) = split (" ", $answer); + if ($value ne "FITS") { + print STDOUT "not a valid image\n"; + return ""; + } + + # check for NAXIS = 0 (MEF) + $answer = `echo $file | fields NAXIS`; + # if ($?) { return ""; } + ($name, $value) = split (" ", $answer); + if ($value eq 0) { return "MEF"; } + + if ($value == 2) { return "SINGLE"; } + + print STDOUT "not a valid image\n"; + return ""; +} + +sub vsystem { + # print STDERR "@_\n"; + my($status) = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + + +# This program calls several other perl scripts to get information +# about the image. +# ckrunid - determine the appropriate Camera Run ID for this image +# ckastrom - check for the appropriate astrometry information +# ckdetrend - check for the appropriate detrend images +# ckphotom - check for the appropriate photometry data + +# at the moment, there are different calling conventions for each of +# these functions. Some take a single name (MEF / SPLIT), some take a +# reference to the specific CCD (filename CCD MODE). + +# none of the called functions need to find the number of CCDs +# ckvalid determines the number of CCDs from the header (MEF) or the +# number of appropriately named FITS files in the directory (SPLIT). + Index: /branches/elixir/Ohana/src/perl/old/create.imlists =================================================================== --- /branches/elixir/Ohana/src/perl/old/create.imlists (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/create.imlists (revision 2487) @@ -0,0 +1,67 @@ +#!/usr/bin/env perl + +# take single list of images, create collection of lists in path, each with files for one image, +# place list of lists in outlist + +if (@ARGV != 3) { die "ERROR: USAGE: create.subset (inlist) (path) (outlist)\n" } + +$inlist = $ARGV[0]; +$path = $ARGV[1]; +$outlist = $ARGV[2]; + +open (FILE, $inlist); +@inlist = ; +close (FILE); +foreach $name (@inlist) { chop ($name); } + +open (OUT, ">$outlist"); + +while (@inlist) { + $name = pop (@inlist); + + @sublist = ($name); + ($subname, $ext) = $name =~ /(\S+)(\d\d\D+)/; + ($filename) = $subname =~ /(\d\d\d\d\d\d.)$/; + print STDERR "subname: $subname\n"; + print STDERR "filename: $filename\n"; + print STDERR "ext: $ext\n"; + + @outlist = (); + while (@inlist) { + $name = pop (@inlist); + + if ($name =~ /$subname/) { + push (@sublist, $name); + } else { + push (@outlist, $name); + } + } + + @sublist = sort @sublist; + + # file lists have names like /path/filename.imlist + open (FILE, ">$path/$filename.imlist"); + foreach $name (@sublist) { + print FILE "$name\n"; + } + close (FILE); + + print OUT "$path/$filename.imlist\n"; + + @inlist = @outlist; +} + +close (OUT); + +########################################################################### + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + Index: /branches/elixir/Ohana/src/perl/old/elixir.grabd =================================================================== --- /branches/elixir/Ohana/src/perl/old/elixir.grabd (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/elixir.grabd (revision 2487) @@ -0,0 +1,159 @@ +#!/usr/bin/env perl + +# this daemon creates links for new images in the elixir TMPDIR tree +# and registers the images in the elixir database, and sends the image +# to imstats for processing. + +# the standard elixir config system is used to id the TMPDIR and the +# appropriate imstats.fifo, etc. + +# TMPDIR should be checked on each scan loop, in case the TMPDIR or +# RUNID is switched + +# make sure the appropriate config file is used. + +use English; + +# check usage +if (@ARGV != 0) { die "USAGE: elixir.grabd\n"; } + +# what do we do about config file? demand account be set up correctly? +$fifos = `gconfig FIFOS`; chop ($fifos); +if ($?) { die "error in config system\n"; } + +# check for existing process and exit +$pidfile = "$fifos/gradb.pid"; +if (-e $pidfile) { + $line = `head -1 $pidfile`; + ($ohost, $ouser, $opid) = split (" ", $line); + + print STDERR "elixir.grabd is already being run:\n"; + print STDERR " machine: $ohost\n"; + print STDERR " user: $ouser\n"; + print STDERR " pid: $opid\n"; + print STDERR " pidfile: $pidfile\n"; + exit 1; +} + +# set process lock file: +$host = `hostname`; chop ($host); +$user = getlogin; +open (FILE, ">$pidfile"); +print FILE "$host $user $PID\n"; +close (FILE); + +# place this in the config system? +$srcdir = "/data/kapu/elixir/cfh12k"; +while (-e $pidfile) { + grabfiles (); + system ("sleep 60"); +} + +# clear process lock file: +unlink ($pidfile); +exit 0; + + +########################################################## + +sub grabfiles () { + + $rawdir = `gconfig -q RAWDIR`; chop $rawdir; + + @files = glob ("$srcdir/*"); + + if (! @files) { + system ("sleep 60"); + return; + } + + foreach $name (@files) { + if (! -l $name) { next; } + + # find real path + $path = convertlink ($name); + $file = filename ($path); + + # set new path (skip if it exists) + $new = sprintf "%s/%s", $rawdir, $file; + if (-e $new) { + print STDERR "skipping file\n"; + next; + } + + # print "$name -> $path ($file) -> $new\n"; + + # link file to rawdir: + symlink ($path, $new); + + # these files always come in as MEF + vsystem ("imsort $new"); + if ($?) { next; } + + unlink $name + } +} + + +# utilities ############################################## +sub vsystem { + print STDERR "@_\n"; + my ($status) = system ("@_"); + $status; +} + +sub filename { + + my ($path) = $_[0]; + my (@tmp); + + @tmp = split ("/", $path); + return $tmp[-1]; +} + +sub convertlink { + my ($link) = $_[0]; + my ($file); + + while (-l $link) { + $file = readlink ($link); + $path1 = path ($link); + $path2 = path ($file); + + unless ($path2 =~ m|^/|) { + $file = "$path1/$file"; + } + $link = $file; + } + return ($link); +} + +sub usage { + + if (@ARGV == 1) { + print STDERR "\n --- user modes ---\n"; + print STDERR "create (run) (start) (stop)\n"; + print STDERR "addqso (runid) (qsoid)\n"; + print STDERR "delqso (qsoid)\n"; + print STDERR "sched (runid)\n"; + print STDERR "status\n"; + &goodbye; + } + + if (@ARGV > 2) { print STDERR "USAGE: prepare.run (help) [mode]\n"; &goodbye; } + + &goodbye; +} + +sub path { + + my ($file) = $_[0]; + + @words = split ("/", $file); + + pop (@words); + + $path = join ("/", @words); + + return ($path); +} Index: /branches/elixir/Ohana/src/perl/old/fixlists =================================================================== --- /branches/elixir/Ohana/src/perl/old/fixlists (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fixlists (revision 2487) @@ -0,0 +1,43 @@ +#!/usr/bin/env perl + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +if (@ARGV != 3) { die "ERROR: USAGE: fixlists (in) (keep) (out)\n" } + +open (FILE, $ARGV[1]); +@keep = (); +while ($line = ) { + chop ($line); + @keep = (@keep, $line); +} +close (FILE); + +open (IN, $ARGV[0]); +open (OUT, ">$ARGV[2]"); + +for ($j = 0; $line = ; $j++) { + chop ($line); + $found = 0; + for ($i = 0; !$found && ($i < @keep); $i++) { + if ($keep[$i] == $j) { + $found = 1; + } + } + if ($found) { + print OUT "$line\n"; + } +} +close (IN); +close (OUT); + +print STDERR "SUCCESS\n"; + +# put the logic for selecting images in this file Index: /branches/elixir/Ohana/src/perl/old/fl.split2mef =================================================================== --- /branches/elixir/Ohana/src/perl/old/fl.split2mef (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fl.split2mef (revision 2487) @@ -0,0 +1,98 @@ +#!/usr/bin/env perl + +# check the usage +if (@ARGV != 2) { die "USAGE: fl.split2mef (file.master) (splitdir)\n" } + +# assign the command line arguments +$master = $ARGV[0]; +$splitdir = $ARGV[1]; + +open (FILE, "$master"); +@master = ; +close (FILE); + +# master contains lines from both split and mef. +# convert all to split format, and write to root.mef +# empty the split file, re-write the master file with new names. +# when the new mef list is run through split.mef, only un-split entries +# will get split + +# /data/koa/cfh12k/01Ak05/587554f/587554f04.fits +# /data/elixir2/cfh12k/detrend/01Ak04/split/582967f00.fits 1 + +foreach $line (@master) { + + ($name, $mode) = split (" ", $line); + + # test filename: + unless ($name =~ m|/\d\d\d\d\d\d\w\d\d.fits\Z|) { + print STDERR "Error with $name: not in split-name format\n"; + next; + } + + ($path, $root1, $root2, $ccd) = $name =~ m|(\S+)/(\d\d\d\d\d\d\w)/(\d\d\d\d\d\d\w)(\d\d).fits\Z|; + + # test for originally SPLIT image: + if ($root1 eq $root2) { + # check for existence of mef version file: + $new = sprintf "%s/%s.fits", $path, $root1; + if (! -e $new) { + print STDERR "Error, file $new is missing\n"; + exit 1; + } + @newmef = (@newmef, $new); + + # create split version name: + $new = sprintf "%s/%s%02d.fits", $splitdir, $root1, $ccd; + @split = (@split, $new); + @splitmode = (@splitmode, $mode); + next; + } + + # test for previously MEF -> SPLIT images: + if ($root1 eq "split") { + @mef = (@mef, $name); + @mefmode = (@mefmode, $mode); + next; + } + + print STDERR "Error with $name - neither split nor mef\n"; +} + +# empty *.split file +$splitname = $master; +$splitname =~ s/master\Z/split/; +open (FILE, ">$splitname"); +close (FILE); + +# create *.mef file with new mefs (to be split) +$mefname = $master; +$mefname =~ s/master\Z/mef/; +print STDERR "mefname: $mefname\n"; +open (FILE, ">$mefname"); +foreach $name (@newmef) { + print FILE "$name\n"; +} +close (FILE); + +# save *.master file +vsystem ("cp $master $master~"); + +# re-create *.master file +open (FILE, ">$master"); +@all = (@mef, @split); +@allmode = (@mefmode, @splitmode); +for ($i = 0; $i < @all; $i++) { + print FILE "$all[$i] $allmode[$i]\n"; +} +close (FILE); + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} Index: /branches/elixir/Ohana/src/perl/old/fr.detrend =================================================================== --- /branches/elixir/Ohana/src/perl/old/fr.detrend (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fr.detrend (revision 2487) @@ -0,0 +1,102 @@ +#!/usr/bin/env perl +# calls flatten.flips, but no direct flips functions + +# check the usage +if ($ARGV[0] eq "-h") { usage (); } +if ($ARGV[0] eq "-help") { usage (); } +if (@ARGV != 4) { die "USAGE: fr.detrend (path) (root) (mode) (outdir)\n" } + +# assign the command line arguments +$path = $ARGV[0]; +$root = $ARGV[1]; +$mode = "\U$ARGV[2]\E"; +if (($mode ne "MEF") && ($mode ne "SPLIT")) { die "ERROR: mode must be either -split or -mef\n";} +$outdir = $ARGV[3]; +if (! -d $outdir) { vsystem ("mkdir -p $outdir"); } + +# get info on input image +$basename = mk_basename ($path, $root, $mode); +$Nccd = `cameraconfig -Nccd`; chop ($Nccd); + +for ($ccd = 0; $ccd < $Nccd; $ccd++) { + + $infile = mk_filename ($path, $root, $mode, $ccd); + $outfile = mk_filename2 ($outdir, $root, "SPLIT", $ccd); + + $status = vsystem ("flatten.flips -quiet $infile $outfile $ccd $mode"); + if ($status) { die "ERROR: problem running flatten on $infile\n"; } + +} + +print STDOUT "SUCCESS: finished with fr.detrend\n"; +exit 0; + +sub mk_basename { + my ($path) = $_[0]; + my ($root) = $_[1]; + my ($mode) = $_[2]; + + if ($mode eq "MEF") { + $name = sprintf "%s/%s.fits", $path, $root; + return $name; + } + if ($mode eq "SPLIT") { + $name = sprintf "%s/%s", $path, $root; + return $name; + } + return ""; +} + +sub mk_filename { + my ($path) = $_[0]; + my ($root) = $_[1]; + my ($mode) = $_[2]; + my ($ccd) = $_[3]; + + if ($mode eq "MEF") { + $name = sprintf "%s/%s.fits", $path, $root; + return $name; + } + if ($mode eq "SPLIT") { + $name = sprintf "%s/%s/%s%02d.fits", $path, $root, $root, $ccd; + return $name; + } + return ""; +} + +sub mk_filename2 { + my ($path) = $_[0]; + my ($root) = $_[1]; + my ($mode) = $_[2]; + my ($ccd) = $_[3]; + + if ($mode eq "MEF") { + $name = sprintf "%s/%s.fits", $path, $root; + return $name; + } + if ($mode eq "SPLIT") { + $name = sprintf "%s/%s%02d.fits", $path, $root, $ccd; + return $name; + } + return ""; +} + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print "\n"; + print "USAGE: fr.detrend (path) (root) (mode) (outdir)\n"; + print " path: path to MEF image or SPLIT dir\n"; + print " root: root name of image (MEF = root.fits, SPLIT = root/rootNN.fits)\n"; + print " mode: MEF or SPLIT\n"; + print " outdir: directory for output results (all split)\n"; + exit 1; +} Index: /branches/elixir/Ohana/src/perl/old/fr.gtstats =================================================================== --- /branches/elixir/Ohana/src/perl/old/fr.gtstats (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fr.gtstats (revision 2487) @@ -0,0 +1,75 @@ +#!/usr/bin/env perl + +# check the usage +if ($ARGV[0] eq "-h") { usage (); } +if ($ARGV[0] eq "-help") { usage (); } +if (@ARGV != 3) { die "USAGE: fr.gtstats (inlist) (binning) (output)\n" } + +# define the path to include FLIPS: +$flipsconf=`gconfig -q FLIPSCONF`; chop ($flipsconf); +$flipspath=`gconfig -q FLIPSPATH`; chop ($flipspath); +$ENV{'PATH'} = "$ENV{'PATH'}:$flipspath"; +$ENV{'FLIPSDIR'} = $flipsconf; + +# assign the command line arguments +$inlist = $ARGV[0]; +$bin = $ARGV[1]; +$output = $ARGV[2]; + +# load input list: +open (FILE, "$inlist"); +@inlist = ; +close (FILE); + +# gtfringe is appending to the output file: +unlink ($output); + +# we construct the Fringe Coord File from: FRINGE_COORD_PATH/CAMERA-FILTER-CCDNN-FringeCoord.reg +$fkey = `gconfig -q FILTER-KEYWORD`; chop ($fkey); +$ckey = `gconfig -q CAMERA-KEYWORD`; chop ($ckey); +$coordpath = `gconfig -q FRINGE_COORD_PATH`; chop ($coordpath); +$Nccd = `cameraconfig -Nccd`; chop ($Nccd); + +# double check lists size: +if ($Nccd != @inlist) { die "ERROR: mis-matched image list sizes\n"; } + +# find filter and camera from image +$answer = `echo $inlist[0] | fields $fkey $ckey`; +($name, $filter, $camera) = split (" ", $answer); + +for ($ccd = 0; $ccd < $Nccd; $ccd++) { + + $infile = $inlist[$ccd]; + $coordfile = sprintf "%s/%s-%s-CCD%02d-FringeCoord.reg", $coordpath, $camera, $filter, $ccd; + + # each call to gtfringe adds a line to $output + vsystem ("gtfringe $infile $coordfile $bin $output"); + if ($?) { + print STDERR "ERROR running gtfringe\n"; + exit 1; + } +} + +print STDOUT "SUCCESS: finished with fr.gtstats\n"; +exit 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print "\n"; + print "USAGE: fr.gtstats (path) (root) (binning) (output)\n"; + print " calculate fringe pattern strengths for images in (path)\n"; + print " path: path to MEF image or SPLIT dir\n"; + print " root: root name of image (MEF: root.fits, SPLIT: root/rootNN.fits)\n"; + print " binning: binning factor of images\n"; + print " outdir: output file\n"; + exit 1; +} Index: /branches/elixir/Ohana/src/perl/old/fr.medbin =================================================================== --- /branches/elixir/Ohana/src/perl/old/fr.medbin (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fr.medbin (revision 2487) @@ -0,0 +1,71 @@ +#!/usr/bin/env perl + +# check the usage +if ($ARGV[0] eq "-h") { usage (); } +if ($ARGV[0] eq "-help") { usage (); } +if (@ARGV != 4) { die "USAGE: fr.medbin (path) (root) (factor) (outpath)\n" } + +# assign the command line arguments +$path = $ARGV[0]; +$root = $ARGV[1]; +$factor = $ARGV[2]; +$outpath = $ARGV[3]; + +$Nccd = `cameraconfig -Nccd`; chop ($Nccd); + +# need some extra here: make the hierarchy needed, check exit status +if (! -d $outpath) { vsystem ("mkdir -p $outpath"); } + +open (MANA, "|mana --norc"); + +print MANA "macro mkmap\n"; +print MANA " rd a \$1\n"; +print MANA " keyword a NAXIS1 nx\n"; +print MANA " keyword a NAXIS2 ny\n"; +print MANA " medianmap a b {\$nx/$factor} {\$ny/$factor} -range 0.25 0.75\n"; +print MANA " wd b \$2\n"; +print MANA "end\n"; + +print MANA "macro go\n"; +for ($ccd = 0; $ccd < $Nccd; $ccd++) { + $infile = sprintf "%s/%s%02d.fits", $path, $root, $ccd; + $outfile = sprintf "%s/%s%02d.fits", $outpath, $root, $ccd; + print MANA " mkmap $infile $outfile\n"; +} +print MANA " exit 0\n"; +print MANA "end\n"; +print MANA "go\n"; +print MANA "exit 1\n"; +close (MANA); +if ($?) { + print STDERR "ERROR running mana\n"; + exit 1; +} + +print STDOUT "SUCCESS: finished with fr.detrend\n"; +exit 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print "\n"; + print "USAGE: fr.medbin (path) (root) (factor) (outpath)\n"; + print " path: path to MEF image or SPLIT dir\n"; + print " root: root name of image (MEF = root.fits, SPLIT = root/rootNN.fits)\n"; + print " mode: MEF or SPLIT\n"; + print " outdir: directory for output results (all split)\n"; + exit 1; +} + +# mana within perl: we embed the mana functions within a macro to trap the +# exit status. If mana has an error with one of the steps, it will exit the macros and +# the second exit will be called. Otherwise, the "go" macro will perform the exit 0 +# and mana will exit with status 0 Index: /branches/elixir/Ohana/src/perl/old/fr.stats =================================================================== --- /branches/elixir/Ohana/src/perl/old/fr.stats (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fr.stats (revision 2487) @@ -0,0 +1,69 @@ +#!/usr/bin/env perl + +# check the usage +if ($ARGV[0] eq "-h") { &usage (); } +if ($ARGV[0] eq "-help") { &usage (); } +if (@ARGV != 5) { &usage (); } + +# assign the command line arguments +$list = $ARGV[0]; +$tenbin = $ARGV[1]; +$medbin = $ARGV[2]; +$stats = $ARGV[3]; +$range = $ARGV[4]; + +# check for files to be processed +@status = stat ($list); +if ($status[7] == 0) { + print STDERR "no files in source list, skipping\n"; + exit 1; +} + +# find the appropriate script file +$confdir = `gconfig -q CONFDIR`; chop ($confdir); +$script = "$confdir/mana/fringe.pro"; + +# test named Xserver, or start vnc on specified machine +$xhost=`gconfig -q XHOST`; chop ($xhost); +$xdisp=`gconfig -q XDISP`; chop ($xdisp); +if (vsystem ("xdpyinfo -display $xdisp")) { + print STDERR "X server is not running. start it now on $xhost\n"; + exit 1; +} +$ENV{'DISPLAY'} = $xdisp; + +# run mana script: +open (MANA, "|mana --norc"); +print MANA "input $script\n"; +print MANA "\$RANGE = $range\n"; +print MANA "fringelist $list $tenbin $medbin $stats\n"; +print MANA "exit 1\n"; +close (MANA); + +if ($?) { + print STDERR "ERROR problem with fr.stats\n"; + exit 1; +} + +print STDOUT "SUCCESS: finished with fr.stats\n"; +exit 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print "USAGE: fr.stats (list) (tenbin) (medbin) (stats) (range)\n"; + exit 1; +} + +# mana within perl: we embed the mana functions within a macro to trap the +# exit status. If mana has an error with one of the steps, it will exit the macros and +# the second exit will be called. Otherwise, the "go" macro will perform the exit 0 +# and mana will exit with status 0 Index: /branches/elixir/Ohana/src/perl/old/fr.subset =================================================================== --- /branches/elixir/Ohana/src/perl/old/fr.subset (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/fr.subset (revision 2487) @@ -0,0 +1,232 @@ +#!/usr/bin/env perl + +# check the usage +if ($ARGV[0] eq "-h") { usage (); } +if ($ARGV[0] eq "-help") { usage (); } +if (@ARGV != 3) { die "ERROR: USAGE: fr.subset (master) (outdir) (subset)\n" } + +$inlist = $ARGV[0]; +$outdir = $ARGV[1]; +$outlist= $ARGV[2]; + +print STDERR "ERROR: not fixed!!!\n"; +exit 1; + +# load in stats lines +open (FILE, "$ARGV[0]"); +@list = ; +close (FILE); + +open (FILE, ">$outlist"); + +foreach $line (@list) { + chop ($line); + + # the infile contains (path) (root) (mode) (flag) + ($path, $root, $mode, $stat) = split (" ", $line); + + if ($stat) { + + $basename = mk_basename ($path, $root, $mode); + $Nccd = gt_names ($basename, "Nccd", $mode); + + for ($ccd = 0; $ccd < $Nccd; $ccd++) { + + $outfile = mk_filename ($outdir, $root, "SPLIT", $ccd); + + print FILE "$outfile\n"; + + } + } +} +close (FILE); + +print STDERR "SUCCESS\n"; + +exit 0; + +######## cfht MEF/SPLIT name utilities ########### + +sub gt_names { + # in: filename mode type + # out: word + + my ($value); + + $value = ""; + if ($_[2] eq "MEF") { $value = mefnames ($_[0], $_[1]); } + if ($_[2] eq "SPLIT") { $value = splitnames ($_[0], $_[1]); } + + return $value; +} + +sub mefnames { + # in: (/path/file.fits) (mode) + # out: word + + my($fullname) = $_[0]; + my($mode) = $_[1]; + my($answer); + + # split rootdir and filename: + my (@words) = split ("/", $fullname); + $N = @words; + + if ($mode eq "path") { + $answer = ""; + for ($i = 0; $i < $N - 1; $i++) { + $answer = $answer . $words[$i] . "/"; + } + chop ($answer); # strip off last / + if ($answer eq "") { $answer = "."; } + return ($answer); + } + + if ($mode eq "root") { + $answer = "$words[$N-1]"; + $answer =~ s/.fits$//; + return ($answer); + } + + if ($mode eq "Nccd") { + if (! -e $fullname) { return 0; } + $answer = `echo $fullname | fields NEXTEND`; + @words = split (" ", $answer); + if ($words[1] eq "") { return 0; } + return ($words[1]); + } + + return (0); +} + +sub splitnames { + # in: (/path/file) (mode) + # out: word + # /path/file is directory containing Nccd fits images + + my($fullname) = $_[0]; + my($mode) = $_[1]; + my($answer, $N, $tmpname, @imlist, @words); + + # split rootdir and filename: + @words = split ("/", $fullname); + $N = @words; + + if ($mode eq "path") { + $answer = ""; + for ($i = 0; $i < $N - 1; $i++) { + $answer = $answer . $words[$i] . "/"; + } + chop ($answer); # strip off last / + if ($answer eq "") { $answer = "."; } + return ($answer); + } + + if ($mode eq "root") { + $answer = "$words[$N-1]"; + return ($answer); + } + + if ($mode eq "Nccd") { + + $tmpname = "$fullname/$words[$N-1]"; + @imlist = <$tmpname??.fits>; + + $Nccd = @imlist; + return $Nccd; + } + + return (0); +} + +sub ckimtype { + # in: (/path/file) + # out: MEF | SPLIT | SINGLE | (NULL) + + my ($answer, $name, $value); + my ($file) = $_[0]; + + if (! -e $file) { + print STDOUT "can't open file\n"; + return ""; + } + + # if /path/file is a directory, it is split: + if (-d $file) { return "SPLIT"; } + + # check that the file is a FITS image + $answer = `file -L $file`; + if ($?) { + print STDOUT "can't open file\n"; + return ""; + } + ($name, $value) = split (" ", $answer); + if ($value ne "FITS") { + print STDOUT "not a valid image\n"; + return ""; + } + + # check for NAXIS = 0 (MEF) + $answer = `echo $file | fields NAXIS`; + # if ($?) { return ""; } + ($name, $value) = split (" ", $answer); + if ($value eq 0) { return "MEF"; } + + if ($value == 2) { return "SINGLE"; } + + print STDOUT "not a valid image\n"; + return ""; +} + +sub mk_basename { + my ($path) = $_[0]; + my ($root) = $_[1]; + my ($mode) = $_[2]; + + if ($mode eq "MEF") { + $name = sprintf "%s/%s.fits", $path, $root; + return $name; + } + if ($mode eq "SPLIT") { + $name = sprintf "%s/%s", $path, $root; + return $name; + } + return ""; +} + +sub mk_filename { + my ($path) = $_[0]; + my ($root) = $_[1]; + my ($mode) = $_[2]; + my ($ccd) = $_[3]; + + if ($mode eq "MEF") { + $name = sprintf "%s/%s.fits", $path, $root; + return $name; + } + if ($mode eq "SPLIT") { + $name = sprintf "%s/%s/%s%02d.fits", $path, $root, $root, $ccd; + return $name; + } + return ""; +} + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub usage { + print "\n"; + print "USAGE: fr.detrend (path) (root) (mode) (outdir)\n"; + print " path: path to MEF image or SPLIT dir\n"; + print " root: root name of image (MEF = root.fits, SPLIT = root/rootNN.fits)\n"; + print " mode: MEF or SPLIT\n"; + print " outdir: directory for output results (all split)\n"; + exit 1; +} Index: /branches/elixir/Ohana/src/perl/old/get.standards =================================================================== --- /branches/elixir/Ohana/src/perl/old/get.standards (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/get.standards (revision 2487) @@ -0,0 +1,103 @@ +#!/usr/bin/env perl + +# this script is very much specific to the CFHT data layout + +$VERBOSE = 1; +$stdpath = "/h/archive/current/01aq97"; + +$run = "all"; +# grab the command line arguments: +@tARGV = (); +for (; @ARGV > 0; ) { + + # by default, all OBJECT images are returned. specify a run with -run + if ($ARGV[0] eq "-run") { + shift; + $run = $ARGV[0]; + shift; + next; + } + + @tARGV = (@tARGV, $ARGV[0]); + shift; +} +@ARGV = @tARGV; + +if (@ARGV != 0) { die "USAGE: ckrunid [-run RunID]\n" ;} + +# the archive is supposed to contain only MEF images. +# The standard star images might get a few focus or detrend images +# mixed in, so restrict the glob to only *o.fits images: +@imlist = <$stdpath/*o.fits>; + +# find date range in run list +foreach $name (@imlist) { + + if ($run eq "all") { + @outlist = (@outlist, $name); + next; + } + + $runid = `ckrunid $name`; + if ($?) { + if ($VERBOSE) { print STDERR "no crunid for $name\n"; } + next; + } + chop ($runid); + + if ($runid ne $run) { + if ($VERBOSE) { print STDERR "wrong crunid for $name ($runid vs $run)\n"; } + next; + } + + @outlist = (@outlist, $name); +} + +foreach $name (@outlist) { + print STDOUT "$name\n"; +} + +exit 0; + +################################################################################### + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub get_jd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5; + + + return ($jd); + +} + +sub get_mjd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5 - 2400000.5; + + + return ($jd); + +} + Index: /branches/elixir/Ohana/src/perl/old/gtfringe =================================================================== --- /branches/elixir/Ohana/src/perl/old/gtfringe (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/gtfringe (revision 2487) @@ -0,0 +1,80 @@ +#!/usr/bin/env perl + +if (@ARGV != 4) { die "USAGE: gtfringe (in.fits) (fringe.coords) (binning) (out.dat)\n"; } + +$input = $ARGV[0]; +$coords = $ARGV[1]; +$binning = $ARGV[2]; +$output = $ARGV[3]; + +# create temporary files: +$PARFILE = `mktemp /tmp/gtfringe.XXXXXX`; +$INFILE = `mktemp /tmp/@gtfringe.XXXXXX` +$OUTFILE = `mktemp /tmp/gtfringe.XXXXXX` + +# convert + +open (FILE, "$inlist"); +@mef = ; +close (FILE); + +@split = (); +foreach $name (@mef) { + chop ($name); + + # convert name /path/name.fits to /outdir/rootNN.fits + @words = split ("/", $name); + $root = $words[-1]; + $root =~ s/.fits//; + + $new = sprintf "%s/%s%02d.fits", $outdir, $root, $ccd; + push @split, $new; +} + +open (MANA, "|mana --norc"); + +# define the macro 'split' +print MANA "macro split\n"; +print MANA " rd a \$1 -n $ccd\n"; +print MANA " keyword a NAXIS1 nx\n"; +print MANA " keyword a NAXIS2 ny\n"; +print MANA " if ((\$nx == 2080) && (\$ny == 4128))\n"; +print MANA " wd a \$2 -bitpix 16 -bzero 32768 -bscale 1.0\n"; +print MANA " exec echo \$2 >> $outlist\n"; +print MANA " end\n"; +print MANA "end\n"; + +# create the macro 'go' with the commands +print MANA "macro go\n"; +for ($i = 0; $i < @mef; $i++) { + if (-e $split[$i]) { + print STDERR "$split[$i] exists, skipping\n"; + next; + } + print MANA " split $mef[$i] $split[$i]\n"; +} +# if the macro ends successfully, exit 0 +print MANA " exit 0\n"; +print MANA "end\n"; + +# if the macro exits before the end, exit 1 +print MANA "go\n"; +print MANA "exit 1\n"; +close (MANA); + +$status = $?; +print STDERR "mana exit status: $status\n"; +if ($status) { + print STDERR "ERROR: problem running split.mef\n"; + exit 1; +} + +print STDERR "SUCCESS\n"; +exit 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + Index: /branches/elixir/Ohana/src/perl/old/images.names =================================================================== --- /branches/elixir/Ohana/src/perl/old/images.names (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/images.names (revision 2487) @@ -0,0 +1,170 @@ +#!/usr/local/bin/perl + +$WANT = 0; + +# possible things to return: +$FILE = 1; +$PATH = 2; +$ROOT = 3; +$EXT = 4; +$NCCD = 5; +$CCD = 6; +$BASEEXT = 7; +$CCDLIST = 8; + +while (@ARGV) { + + $name = shift (@ARGV); + + # provided component(s) + if ($name eq "-file") { + $file = shift (@ARGV); + } + if ($name eq "-path") { + $path = shift (@ARGV); + } + if ($name eq "-root") { + $root = shift (@ARGV); + } + if ($name eq "-base") { + $base = shift (@ARGV); + } + if ($name eq "-ext") { + $ext = shift (@ARGV); + } + if ($name eq "-baseext") { + $baseext = shift (@ARGV); + } + if ($name eq "-Nccd") { + $Nccd = shift (@ARGV); + } + if ($name eq "-ccd") { + $ccd = shift (@ARGV); + } + if ($name eq "-mode") { + $mode = "\U$ARGV[0]\E"; + shift (@ARGV); + } + + # desired component + if ($name eq "+file") { + if ($WANT) { &badchoice; } + $WANT = $FILE; + } + if ($name eq "+path") { + if ($WANT) { &badchoice; } + $WANT = $PATH; + } + if ($name eq "+root") { + if ($WANT) { &badchoice; } + $WANT = $ROOT; + } + if ($name eq "+ext") { + if ($WANT) { &badchoice; } + $WANT = $EXT; + } + if ($name eq "+baseext") { + if ($WANT) { &badchoice; } + $WANT = $BASEEXT; + } + if ($name eq "+Nccd") { + if ($WANT) { &badchoice; } + $WANT = $NCCD; + } + if ($name eq "+ccd") { + if ($WANT) { &badchoice; } + $WANT = $CCD; + } + if ($name eq "+mode") { + if ($WANT) { &badchoice; } + $WANT = $MODE; + } +} + +if ($base eq "") { $base = $root; } +if ($root eq "") { $root = $base; } +if ($ext eq "") { $ext = "fits"; } +if ($path eq "") { $path = "."; } +if ($mode eq "") { $mode = "MEF"; } + +if (@ARGV != 0) { &usage; } +if (!$WANT) { &usage; } + +if (0) { + print STDERR "want: $WANT\n"; + print STDERR "file: $file\n"; + print STDERR "path: $path\n"; + print STDERR "root: $root\n"; + print STDERR "base: $base\n"; + print STDERR "ext: $ext\n"; + print STDERR "baseext: $baseext\n"; + print STDERR "Nccd: $Nccd\n"; + print STDERR "ccd: $ccd\n"; + print STDERR "mode: $mode\n"; +} + +if ($WANT == $FILE) { + if ($mode eq "SPLIT") { + $output = sprintf "%s/%s%s/%s%02d.%s", $path, $base, $baseext, $root, $ccd, $ext; + } + if ($mode eq "MEF") { + $output = sprintf "%s/%s%s.%s", $path, $base, $baseext, $ext; + } +} + +if ($WANT == $PATH) { + # split path and filename: + @words = split ("/", $file); + $N = @words; + + for ($i = 0; $i < $N - 1; $i++) { + $output = $output . $words[$i] . "/"; + } + chop ($output); # strip off last / +} + +if ($WANT == $CCD) { + # split path and filename: + @words = split ("/", $file); + $N = @words; + + for ($i = 0; $i < $N - 1; $i++) { + $output = $output . $words[$i] . "/"; + } + chop ($output); # strip off last / +} + +print STDOUT "$output\n"; +exit 0; + +# definition of the path components: + +# MEF: +# /path/root/base.ext + +# SPLIT: +# /path/root/base.ext + +# file = +# 1: /data/koa/cfh12k/01Ak01/543210f.fits +# 2: /data/koa/cfh12k/01Ak01/543210f/543210f00.fits +# 3: /data/koa/cfh12k/01Ak01/543210f.alt/543210f00.fits + +# base = 543210f +# path = /data/koa/cfh12k/01Ak01 +# root = 543210f (1,2), 543210f.alt (3) +# ext = fits +# ext = "" (1,2), ".alt" (3) +# Nccd = 12 [for CFH12K] +# ccd = NN (1), 00 (2,3) + +sub badchoice { + print STDERR "only one choice allowed\n"; + exit 1; +} + +sub usage { + print STDERR "USAGE: image.names [options]\n"; + exit 2; +} + Index: /branches/elixir/Ohana/src/perl/old/imselect =================================================================== --- /branches/elixir/Ohana/src/perl/old/imselect (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/imselect (revision 2487) @@ -0,0 +1,189 @@ +#!/usr/bin/env perl +$SKIPDOME = 0; + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + print STDERR "ending execution\n"; + die "@_"; +} + +if (@ARGV != 7) { die "ERROR: USAGE: imselect (ccd) (type) (filter) (tstart) (tend) (output) (-split | -mef)\n" } + +$type = "\U$ARGV[1]\E"; +if ($type eq "DARK") { } + +if ($type eq "FLAT") { + # define some of the relevant parameters + $min = 2000; + $max = 60000; + $minrate = 100; + $ratescale = 70; + $filter = "\U$ARGV[2]\E"; + if ($filter eq "B") { $minrate = 0.5 * $ratescale; } + if ($filter eq "V") { $minrate = 1.0 * $ratescale; } + if ($filter eq "R") { $minrate = 3.5 * $ratescale; } + if ($filter eq "I") { $minrate = 14.2 * $ratescale; } + if ($filter eq "Z") { $minrate = 10.5 * $ratescale; } + if ($filter eq "HA") { $min = 1000; } + if ($filter eq "HAOFF") { $min = 1000; } + # probably need to set these in a more intelligent fashion. +} + +# $ccd is ccd number (see camera config), $ARGV[0] is ccd id +$ccd = `cameraconfig -N $ARGV[0]`; chop ($ccd); +if ($ccd eq "") { die "ERROR : can't find CCD $ARGV[0]\n"; } + +$Nccd = `cameraconfig -Nccd`; chop ($Nccd); +$line = `cameraconfig -axes`; chop ($line); +($Naxis1, $Naxis2) = split (" ", $line); + +$mode = "none"; +if ($ARGV[6] eq "-split") { $mode = "split"; } +if ($ARGV[6] eq "-mef") { $mode = "mef"; } +if ($mode eq "none") { + die "ERROR: mode must be either -split or -mef\n"; +} + +@good = (); +@marginal = (); + +# define filter lines for imsearch. for flats, there may be alternate filter names to test +@filtline = (); +if ($type eq "FLAT") { + # convert given filter name to list of possible names: + $answer = `filtnames $ARGV[2] -all`; + @filtlist = split (" ", $answer); + + foreach $name (@filtlist) { + $line = "-type flat -filter $name -mode $mode -trange $ARGV[3] $ARGV[4]"; + push @filtline, $line; + } +} +if ($type eq "BIAS") { + push @filtline, "-type bias -mode $mode -trange $ARGV[3] $ARGV[4]"; +} +if ($type eq "DARK") { + push @filtline, "-type dark -etime $ARGV[2] -mode $mode -trange $ARGV[3] $ARGV[4]"; +} + +# run selection on each possible $filtline +@list = (); +foreach $line (@filtline) { + @tlist = `imsearch -ccd $ccd $line`; + @list = (@list, @tlist); +} +$Nlist = @list; +print STDERR "found $Nlist images\n"; + +for ($i = 0; $i < $Nlist; $i++) { + @words = split (" ",$list[$i]); + + if ($SKIPDOME) { + # a fairly lame and non-robust way to detect dome flats + if ($type eq "FLAT") { + @answer = `echo $words[4]/$words[5] | fields OBJECT | grep -i dome`; + if ($answer[0] ne "") { print STDERR "$words[5] rejected: dome flat\n"; next; } + } + } + + if ($mode eq "split") { + # all $Nccd images must exist on disk, split files are assumed to be + # in a subdirectory of their own, .fits extension assumed + @answer = <$words[4]/*.fits>; + if (@answer != $Nccd) { print STDERR "$words[5] rejected: missing images\n"; next; } + } + + # images have to have the correct dimensions + if ($mode eq "split") { + @answer = `echo $words[4]/$words[5] | fields NAXIS1 NAXIS2`; + @wds = split (" ",$answer[0]); + $Nx = $wds[1]; $Ny = $wds[2]; + } else { + @answer = `ftable -X 1 $words[4]/$words[5] | grep "^NAXIS1"`; + @wds = split (" ",$answer[0]); + $Nx = $wds[2]; + @answer = `ftable -X 1 $words[4]/$words[5] | grep "^NAXIS2"`; + @wds = split (" ",$answer[0]); + $Ny = $wds[2]; + } + if (($Nx != $Naxis1) || ($Ny != $Naxis2)) { print STDERR "$words[5] rejected: wrong dimensions\n"; next; } + + # $match is a word unique to the full mosaic image (the rootdir for split, the image for mef) + if ($mode eq "split") { + @answer = split ("/", $words[4]); + $match = $answer[-1]; + } else { + $match = $words[5]; + } + @list2 = `imsearch -name $match`; + $Nlist2 = @list2; + print STDERR "$match: $Nlist2\n"; + if (@list2 != $Nccd) { + print STDERR "$words[5] rejected: missing entries in image database\n"; + next; + } + + if ($type eq "FLAT") { + + if ($SKIPDOME) { + # test for acceptable time (or is probably a dome flat) + @answer = `dusktime $words[8]`; + @wds = split (" ",$answer[0]); + if ($wds[2] < 0) { print STDERR "$words[5] rejected: not twilight\n"; next; } + } + + $range = 1; + $rate = 1; + + # check for counts or flux out of range or any chip + for ($j = 0; $rate && $range && ($j < @list2); $j++) { + @words2 = split (" ", $list2[$j]); + + # test for acceptable flux range + if ($words2[11] < $min) { $range = 0; print STDERR "$words[5] rejected: signal too low: $words2[11] vs $min\n"; next; } + if ($words2[11] > $max) { $range = 0; print STDERR "$words[5] rejected: signal too high: $words2[11] vs $max\n"; next; } + + # test for acceptable rate + if (($words2[11] / $words2[7]) < $minrate) { + $rate = 0; + $F = $words2[11] / $words2[7]; + print STDERR "$words[5] rejected: flux too low: $F vs $minrate\n"; next; } + } + if (!$range) { next; } + + @marginal = (@marginal, "$words[4]/$words[5]"); + if (!$rate) { next; } + } else { + @marginal = (@marginal, "$words[4]/$words[5]"); + } + + @good = (@good, "$words[4]/$words[5]"); +} + +open (LIST, ">$ARGV[5]"); +if (@good > 5) { + for ($i = 0; $i < @good; $i++) { + print LIST "$good[$i]\n"; + if (($type eq "BIAS") && ($i > 30)) { last; } + if (($type eq "DARK") && ($i > 30)) { last; } + } +} else { + print STDERR "warning: limited number of flat images, scraping the bottom\n"; + for ($i = 0; $i < @marginal; $i++) { + print LIST "$marginal[$i]\n"; + } +} +close (LIST); +print STDERR "SUCCESS\n"; +exit 0; + +# we need to select the list of images which satisfy a few criteria: +# 1) all 12 CCDs must exist +# 2) stats must be measured for each +# 3) stats for all 12 must be within range (2000 - 40000) +# 4) NAXIS1 == 2080 && NAXIS2 == 4128 Index: /branches/elixir/Ohana/src/perl/old/merge.lists =================================================================== --- /branches/elixir/Ohana/src/perl/old/merge.lists (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/merge.lists (revision 2487) @@ -0,0 +1,92 @@ +#!/usr/bin/env perl + +$update = 0; + +# grab the command line arguments: +@tARGV = (); +for (; @ARGV > 0; ) { + + # new images get mode of 0, old image keep their mode + if ($ARGV[0] eq "-update") { + shift; + $update = 1; + next; + } + + @tARGV = (@tARGV, $ARGV[0]); + shift; +} +@ARGV = @tARGV; + +if (@ARGV != 3) { die "USAGE: merge.lists (list.split) (list.msplit) (list.master) [-update]\n" ;} + +# load names from SPLIT and MEF +open (FILE, "$ARGV[0]"); +@split = ; +close (FILE); + +open (FILE, "$ARGV[1]"); +@mef = ; +close (FILE); + +# load old names from MASTER +open (FILE, "$ARGV[2]"); +@master = ; +close (FILE); + +# merge new entries into a single list, compare with state in master +@names = (@split, @mef); + +@newname = (); +@newmode = (); + +for ($i = 0; $i < @names; $i++) { + + $name = $names[$i]; chop ($name); + + $mode = 1; + if ($update) { + $mode = 0; + + INNER: + foreach $line (@master) { + @words = split (" ", $line); + if ($words[0] eq $name) { + $mode = $words[1]; + last INNER; + } + } + } + @newname = (@newname, $name); + @newmode = (@newmode, $mode); +} + +if (! @newname) { + print STDERR "ERROR: no relevant ccd images\n"; + exit 1; +} + +# check on list: if there are none selected, select all +$Ngood = 0; +foreach $mode (@newmode) { + if ($mode) { + $Ngood ++; + } +} +if ($Ngood == 0) { + foreach $mode (@newmode) { + $mode = 1; + } +} + +open (FILE, ">$ARGV[2]"); +for ($i = 0; $i < @newname; $i++) { + print FILE "$newname[$i] $newmode[$i]\n"; +} +close (FILE); + +# this file must be accessible by www user +chmod 0666, $ARGV[2]; + +print STDOUT "SUCCESS\n"; +exit 0; Index: /branches/elixir/Ohana/src/perl/old/mkptolemy.names =================================================================== --- /branches/elixir/Ohana/src/perl/old/mkptolemy.names (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/mkptolemy.names (revision 2487) @@ -0,0 +1,71 @@ +#!/usr/bin/env perl + +$Nccd = 12; + +if (@ARGV != 3) { die "USAGE: mkptolemy.names (name) (mode) (dir)\n" ;} + +$name = $ARGV[0]; +$mode = "\U$ARGV[1]\E"; +$dir = $ARGV[2]; + +unless ($name =~ /^\d\d\d\d\d\d\w$/) { + print STDERR "name does not match the expected format 555555o\n"; + exit 1; +} + +for ($ccd = 0; $ccd < $Nccd; $ccd++) { + + if ($mode eq "MEF") { + printf "%s/%s.fits %s/%s%02d %02d MEF\n", $dir, $name, $name, $name, $ccd, $ccd; + } + + if ($mode eq "SPLIT") { + printf "%s/%s/%s%02d.fits %s/%s%02d %02d MEF\n", $dir, $name, $name, $ccd, $name, $name, $ccd, $ccd; + } + +} + +exit 0; + +################################################################################### + +sub vsystem { + print STDERR "@_\n"; + $status = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub get_jd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5; + + + return ($jd); + +} + +sub get_mjd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5 - 2400000.5; + + + return ($jd); + +} + Index: /branches/elixir/Ohana/src/perl/old/prepare.run =================================================================== --- /branches/elixir/Ohana/src/perl/old/prepare.run (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/prepare.run (revision 2487) @@ -0,0 +1,349 @@ +#!/usr/bin/env perl + +# global vars: +$atmach = "druid.cfht.hawaii.edu"; +$runlist = ""; +@runlist = (); + +# check usage +if (@ARGV < 1) { + print STDOUT "USAGE: mkrun (mode) [arguments]\n"; + print STDOUT " mkrun help gives a complete list\n"; + &goodbye; +} +if ($ARGV[0] eq "help") { &usage; } + +&set_globals; + +# call appropriate command +if ($ARGV[0] eq "create") { &create (@ARGV); } +if ($ARGV[0] eq "addqso") { &addqso (@ARGV); } +if ($ARGV[0] eq "delqso") { &delqso (@ARGV); } +if ($ARGV[0] eq "status") { &status; } +if ($ARGV[0] eq "sched") { &sched (@ARGV); } + +print STDOUT "invalid mkrun command\n"; +exit 1; + +sub status { + + &load_runlist; + foreach $line (@runlist) { + print STDOUT "$line\n"; + } + exit 0; +} + +############ +sub create { + + my (@argv) = @_; + + if (@argv != 4) { + print STDOUT "USAGE: mkrun create (run) (start) (stop)\n"; + exit 2; + } + + $runid = $argv[1]; + $start = $argv[2]; + $stop = $argv[3]; + + &load_runlist; + + $line = grab_runline ($runid); + ($Orunid, $Ostart, $Ostop, $qrunid) = split (" ", $line); + $line = mk_runline ($runid, $start, $stop, $qrunid); + insert_runline ($line); + + &save_runlist; + exit 0; +} + +############ +sub addqso { + + my (@argv) = @_; + + if (@argv != 3) { + print STDOUT "USAGE: mkrun addqso (run) (qsorun)\n"; + exit 2; + } + + $runid = $argv[1]; + $qrunid = $argv[2]; + + &load_runlist; + + $line = grab_runline ($runid); + if ($line eq "") { + print STDERR "run id $runid not in run list\n"; + exit 1; + } + ($runid, $start, $stop, $Oqrunid) = split (" ", $line, 4); + if ($Oqrunid) { + $qrunid = $Oqrunid . " " . $qrunid; + } + + $line = mk_runline ($runid, $start, $stop, $qrunid); + insert_runline ($line); + + &save_runlist; + exit 0; +} + +############ +sub delqso { + my (@argv) = @_; + if (@argv != 2) { + print STDOUT "USAGE: mkrun addqso (qsorun)\n"; + exit 2; + } + + $qrunid = $argv[1]; + + &load_runlist; + + # find listed qrunid + $match = ""; + SEARCH: + foreach $line (@runlist) { + if ($line =~ /^\#/) { next; } # skip commented lines + ($tmp, $tmp, $tmp, $qlist) = split (" ", $line, 4); + @qlist = split (" ", $qlist); + foreach $qid (@qlist) { + if ($qrunid ne $qid) { next; } + $match = $line; + last SEARCH; + } + } + if ($match eq "") { + print STDERR "QSO run id $qrunid not found in run list\n"; + exit 1; + } + + # recreate $qlist without $qrunid + $qlist = ""; + foreach $qid (@qlist) { + if ($qid eq $qrunid) { next; } + $qlist = $qlist . $qid . " "; + } + + ($runid, $start, $stop) = split (" ", $match); + + $line = mk_runline ($runid, $start, $stop, $qlist); + insert_runline ($line); + + &save_runlist; + exit 0; +} + +############## + +sub sched { + my (@argv) = @_; + if (@argv != 2) { + print STDOUT "USAGE: mkrun sched (runid)\n"; + exit 2; + } + + $runid = $argv[1]; + &load_runlist; + + $line = grab_runline ($runid); + ($runid, $start, $stop, $qlist) = split (" ", $line, 4); + + at_loop ($runid, $start, $stop); + + exit 0; +} + +############## +sub at_loop { + my ($runid, $start, $stop); + $runid = $_[0]; + $start = $_[1]; + $stop = $_[2]; + + $mjd_start = date_to_mjd ($start); + $mjd_stop = date_to_mjd ($stop); + + $Nday = $mjd_stop - $mjd_start; + + ($year, $month, $day) = $start =~ /(\d+)\/(\d+)\/(\d+)/; + for ($Day = -1; $Day < $Nday; $Day++) { + + # 'at' needs date in format MM/DD/YYYY or DD.MM.YYYY + $tday = $day + $Day; + $date = `date -d $year/$month/$tday +%m/%d/%Y`; chop ($date); + + if ($Day == -1) { + atcommand ("clear.rawdir -current >& /h/eugene/cfh12k/logs/clear.log &", "10:00", $date); + } + + if ($Day == 0) { + atcommand ("echo RUNID $runid > /h/cfh12k/elixir.run", "10:00", $date); + atcommand ("mkdetrend create $runid $start $stop >& /h/eugene/cfh12k/logs/mkdetrend.log", "10:05", $date); + atcommand ("mkfringe config $runid >& /h/eugene/cfh12k/logs/mkdetrend.log", "10:10", $date); + atcommand ("mkfringe mkconfig $runid >& /h/eugene/cfh12k/logs/mkdetrend.log", "10:15", $date); + + atcommand ("elixir -D mode imstats >& /h/eugene/cfh12k/logs/imstats.log &", "15:00", $date); + atcommand ("elixir -D mode sextract >& /h/eugene/cfh12k/logs/ptolemy.log &", "15:00", $date); + atcommand ("gettemps &", "15:00", $date); + atcommand ("elixir.report &", "15:00", $date); + } + + if (($Day > 0) && ($Day < 4)) { + atcommand ("mkdetrend init >& /h/eugene/cfh12k/logs/mkdetrend.log; mkdetrend run >& /h/eugene/cfh12k/logs/mkdetrend.log", "07:00", $date); + } + if ($Day >= 4) { + atcommand ("mkdetrend update >& /h/eugene/cfh12k/logs/mkdetrend.log", "07:00", $date); + } + if ($Day > 0) { + # atcommand ("clear /h/cfh12k/images/elixir", "12:00", $date); + } + } +} + +####### runlist utilities ############################ +sub load_runlist { + open (FILE, "$runlist"); + @runlist = ; + foreach $line (@runlist) { + chop ($line); + } + close (FILE); +} + +sub save_runlist { + open (FILE, ">$runlist"); + foreach $line (@runlist) { + print FILE "$line\n"; + } + close (FILE); +} + +sub grab_runline { + my ($id) = $_[0]; + my ($line); + my ($runid); + + foreach $line (@runlist) { + if ($line =~ /^\#/) { next; } # skip commented lines + ($runid) = split (" ", $line); + if ($runid ne $id) { next; } + return ($line); + } + return (""); +} + +sub insert_runline { + my ($runline) = $_[0]; + my ($line); + my ($runid, $id); + + # match the run id lines + ($id) = split (" ", $runline); + foreach $line (@runlist) { + if ($line =~ /^\#/) { next; } # skip commented lines + ($runid) = split (" ", $line); + if ($runid ne $id) { next; } + $line = $runline; + return 1; + } + @runlist = (@runlist, $runline); + return 0; +} + +sub mk_runline { + my ($runid, $start, $stop, $qrunid, $line); + $runid = $_[0]; + $start = $_[1]; + $stop = $_[2]; + $qrunid = $_[3]; + + $start = date_format ($start); + $stop = date_format ($stop); + $line = sprintf "%s %s %s %s", $runid, $start, $stop, $qrunid; + return ($line); +} + +# utilities ############################################## + +sub atcommand { + my ($cmd, $time, $date); + $cmd = $_[0]; + $time = $_[1]; + $date = $_[2]; + + $line = sprintf "echo %s | at %s %s", $cmd, $time, $date; + print STDOUT "$line\n"; +} + + +sub vsystem { + # print STDERR "@_\n"; + my($status) = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub date_format { + my ($date) = $_[0]; + my ($year, $month, $day); + + ($year, $month, $day) = $date =~ /(\d+)\/(\d+)\/(\d+)/; + $date = sprintf "%4d/%02d/%02d", $year, $month, $day; + return ($date); +} + +sub date_to_mjd { + my ($date) = $_[0]; + my ($year, $month, $day, $mjd); + + ($year, $month, $day) = $date =~ /(\d+)\/(\d+)\/(\d+)/; + $mjd = get_mjd ($year, $month, $day); + + return ($mjd); +} + +sub get_mjd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5 - 2400000.5; + + + return ($jd); + +} + +sub set_globals { + + # this should come fron the config system +# $runlist = "/data/milo/eugene/elixir/refs/cfh12k.runs"; + $runlist = "/h/eugene/test.runs"; +} + +sub usage { + + if (@ARGV == 1) { + print STDERR "\n --- user modes ---\n"; + print STDERR "create (run) (start) (stop)\n"; + print STDERR "addqso (runid) (qsoid)\n"; + print STDERR "delqso (qsoid)\n"; + print STDERR "sched (runid)\n"; + print STDERR "status\n"; + &goodbye; + } + + if (@ARGV > 2) { print STDERR "USAGE: prepare.run (help) [mode]\n"; &goodbye; } + + &goodbye; +} Index: /branches/elixir/Ohana/src/perl/old/pt.run =================================================================== --- /branches/elixir/Ohana/src/perl/old/pt.run (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/pt.run (revision 2487) @@ -0,0 +1,66 @@ +#!/usr/bin/env perl + +# USAGE: pt.run (obsid) + +if (@ARGV != 1) { die "USAGE: ckvalid (obsid)\n" ;} + +$obsid = $ARGV[0]; +$archive = "/h/archive/current/instrument/cfh12k"; + +# find the run id for this image +$runid = `ckrunid $archive/$obsid.fits`; +if ($?) { + print STDOUT "$obsid: no run ID\n"; + exit 1; +} +chop ($runid); + +# try to use the flt files, if they exist, for headers +$tmpdir = "/data/elixir2/cfh12k/tmpdata/$runid/$obsid"; + +print "$tmpdir\n"; + +@flt = <$tmpdir/*.flt>; +$Nflt = @flt; +if ($Nflt != 12) { + print STDOUT "not enough *.flt files ($Nflt)\n"; + @smp = <$tmpdir/*.smp>; + if (@smp == 12) { + print STDOUT "using old *.smp files\n"; + @flt = (); + foreach $smp (@smp) { + $flt = $smp; + $flt =~ s/smp/flt/; + vsystem ("cp $smp $flt"); + @flt = (@flt, "$flt"); + } + } else { + exit 1; + } +} + +foreach $flt (@flt) { + $smp = $flt; + $smp =~ s/flt/smp/; + + $sx = $flt; + $sx =~ s/flt/sx/; + + vsystem ("imclean -sex $flt $sx $smp"); + vsystem ("gastro -v $smp"); + + # imclean -sex *.flt *.sx *.smp + # gastro -v *.smp +} + +exit 0; + +sub vsystem { + print STDERR "@_\n"; + my($status) = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} Index: /branches/elixir/Ohana/src/perl/old/scheduler =================================================================== --- /branches/elixir/Ohana/src/perl/old/scheduler (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/scheduler (revision 2487) @@ -0,0 +1,248 @@ +#!/usr/bin/env perl + +$ENV{'PATH'} = "$ENV{'PATH'}:/apps/elixir/bin"; + +$schedule = `gconfig SCHEDULE`; chop $schedule; +$logdir = `gconfig LOGDIR`; chop $logdir; +$log = "$logdir/scheduler.log"; +$window = 0.02; # ~0.5 hours. +$machine = "milo.cfht.hawaii.edu"; + +$LIST = 0; +$ALL = 0; +$RUN = 0; + +# execute any event which is within the time range: +# $last + $window < event < NOW + $window + +# check usage +if ($ARGV[0] eq "help") { &usage; } +if ($ARGV[0] eq "all") { &list_all; } +if ($ARGV[0] eq "list") { &list_active; } +if ($ARGV[0] eq "run") { &run_active; } +if ($ARGV[0] eq "clear") { &clear_all; } +print STDERR "scheduler command '$ARGV[0]' not found\n"; +&usage; + +sub list_active { + + &set_current_time; # set $NOWdate, $NOWtime $NOWmjd + &load_schedule; # load into @list + &find_previous; # set $last (last runtime) + &find_active; # fill @execute & @cmdlogs for active commands + + for ($i = 0; $i < @execute; $i++) { + print "$execute[$i] ($cmdlogs[$i])\n"; + } + exit 0; +} + +sub run_active { + + &set_current_time; + &load_schedule; + &find_previous; + &find_active; + + # re-create schedule with new PREVIOUS: + if (@list && (-e "$schedule")) { + system ("cp $schedule $schedule~"); + open (FILE, ">$schedule"); + foreach $line (@list) { + if ($line =~ /^\s*PREVIOUS/) { + printf FILE "PREVIOUS %s %s\n", $NOWdate, $NOWtime; + next; + } + + print FILE "$line"; + } + close (FILE); + } else { + # create a new schedule with PREVIOUS set to NEVER + print STDERR "creating $schedule\n"; + open (FILE, ">$schedule"); + print FILE "# schedule for scheduler system\n"; + print FILE "# E. Magnier\n"; + print FILE "\n"; + print FILE "# last time scheduler was run:\n"; + printf FILE "PREVIOUS %s %s\n", $NOWdate, $NOWtime; + print FILE "\n"; + close (FILE); + } + + # launch commands one-by-one in background + for ($i = 0; $i < @execute; $i++) { + docommand ($cmdlogs[$i], $execute[$i]); + system ("sleep 60"); + } + exit 0; +} + +# utilities ############################################## + +sub docommand { + my ($log, $cmd); + $log = $_[0]; + $cmd = $_[1]; + + $line = sprintf "scheduler.exec $log \"$cmd\" "; + vsystem ($line); +} + + +sub vsystem { + print STDERR "@_\n"; + my($status) = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + +sub load_schedule { + open (FILE, "$schedule"); + @list = ; + close (FILE); +} + +sub clear_all { + if (-e $schedule) { + vsystem ("cp $schedule $schedule~"); + vsystem ("rm $schedule"); + } + exit 0; +} + +sub find_previous { + $last = 0; + $date = "NEVER"; + # find previous runtime: + foreach $line (@list) { + if ($line =~ /^\#/) { next; } # skip commented lines + unless ($line =~ /^\s*PREVIOUS/) { next; } + + ($tmp, $date, $time) = split (" ", $line); + if ($date eq "NEVER") { + $last = 0; + last; + } + $last = timedate_to_mjd ($time, $date); + last; + } + print STDERR "run scheduler: $NOWdate $NOWtime (prev: $date $time)\n"; +} + +sub find_active { + + @execute = (); + @cmdlogs = (); + # find relevant commands + foreach $line (@list) { + if ($line =~ /^\#/) { next; } # skip commented lines + if ($line =~ /^\s*PREVIOUS/) { next; } + + ($date, $time, $cmdlog, $command) = split (" ", $line, 4); + if ($command eq "") { next; } + chop ($command); + + $mjd = timedate_to_mjd ($time, $date); + + if ($last + $window > $mjd) { next; } + if ($NOWmjd + $window < $mjd) { next; } + + @cmdlogs = (@cmdlogs, $cmdlog); + @execute = (@execute, $command); + } + +} + +sub set_current_time { + + ($sec, $min, $hour, $day, $mon, $year) = localtime (); + $mon += 1; + $year += 1900; + $NOWdate = sprintf "%s/%02d/%02d", $year, $mon, $day; + $NOWtime = sprintf "%02d:%02d:%02d", $hour, $min, $sec; + $NOWmjd = timedate_to_mjd ($NOWtime, $NOWdate); +} + +sub date_format { + my ($date) = $_[0]; + my ($year, $month, $day); + + ($year, $month, $day) = $date =~ /(\d+)\/(\d+)\/(\d+)/; + $date = sprintf "%4d/%02d/%02d", $year, $month, $day; + return ($date); +} + +sub timedate_to_mjd { + my ($time) = $_[0]; + my ($date) = $_[1]; + my ($mjd, $day); + + $mjd = date_to_mjd ($date); + $day += time_to_day ($time); + + $mjd += $day; + return ($mjd); +} + + +sub date_to_mjd { + my ($date) = $_[0]; + my ($year, $month, $day, $mjd); + + ($year, $month, $day) = $date =~ /(\d+)\/(\d+)\/(\d+)/; + $mjd = get_mjd ($year, $month, $day); + + return ($mjd); +} + +sub time_to_day { + my ($time) = $_[0]; + my ($hour, $min, $sec, $days); + + ($hour, $min, $sec) = split (":", $time); + $day = $hour / 24.0 + $min / 1440.0 + $sec / 86400.0; + + return ($day); +} + +sub get_mjd { + + my($year) = $_[0]; + my($month) = $_[1]; + my($day) = $_[2]; + + my($jd) = $day - 32075 + int (1461*($year + 4800 + int (($month - 14)/12))/4) + + int(367*($month - 2 - int(($month - 14)/12)*12)/12) + - int(3*int(($year + 4900 + int(($month - 14)/12))/100)/4) - 0.5 - 2400000.5; + + + return ($jd); + +} + +sub list_all { + + # load schedule: + open (FILE, "$schedule"); + @list = ; + close (FILE); + + foreach $line (@list) { + print "$line"; + } + exit 0; +} + +sub usage { + + print STDERR "USAGE: scheduler [mode]\n"; + print STDERR " list : list all active commands\n"; + print STDERR " all : list all commands\n"; + print STDERR " run : execute active commands\n"; + print STDERR " clear : delete schedule\n"; + &goodbye; +} Index: /branches/elixir/Ohana/src/perl/old/scheduler.exec =================================================================== --- /branches/elixir/Ohana/src/perl/old/scheduler.exec (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/scheduler.exec (revision 2487) @@ -0,0 +1,21 @@ +#!/bin/csh -f + +set logdir = `gconfig LOGDIR` +set log = "$logdir/scheduler.log" + +if ($#argv < 2) then + echo "USAGE: scheduler.exec (logfile) (cmd)" + exit 2; +endif + +set cmdlog = $1 +shift + +set start=`date` +echo "start: $start - $*" >> $log + +csh -c "$*" >>& $cmdlog +set stat=$status + +set stop=`date` +echo "stop: $stop $stat $*" >> $log Index: /branches/elixir/Ohana/src/perl/old/validate-1.0 =================================================================== --- /branches/elixir/Ohana/src/perl/old/validate-1.0 (revision 2487) +++ /branches/elixir/Ohana/src/perl/old/validate-1.0 (revision 2487) @@ -0,0 +1,287 @@ +#!/usr/bin/env perl + +# validate +# -update sends the validation value to the QSO database +# 1 - valid image +# 2 - subvalid image (problem, but doesn't matter) +# 3 - invalid image +# 4 - data error (missing, corrupted image) + +# global constants: + +$TRUE = 1; +$FALSE = 0; +$RETRY = $TRUE; + +$MODE_UNSET = 0; +$MODE_VALID = 1; +$MODE_SUBVALID = 2; +$MODE_INVALID = 3; +$MODE_DATAERR = 4; + +$infile = ""; +$update = $FALSE; +# put this in the CONFIG file: +$runlist = "/data/milo/eugene/elixir/refs/cfh12k.runs"; + +# include the CFHT bin directory in the path so we have access to QSO functions: +$ENV{'PATH'} = "$ENV{'PATH'}:/cfht/bin"; + +# grab the command line arguments: +@tARGV = (); +for (; @ARGV > 0; ) { + + if ($ARGV[0] eq "-update") { + shift; + $update = $TRUE; + next; + } + if ($ARGV[0] eq "-skip") { + shift; + $RETRY = $FALSE; + next; + } + if ($ARGV[0] eq "-infile") { + shift; + $infile = $ARGV[0]; + shift; + next; + } + + @tARGV = (@tARGV, $ARGV[0]); + shift; +} +@ARGV = @tARGV; + +if (@ARGV != 1) { die "USAGE: validate (crunid) [-infile filename] [-update]\n" ;} + +$crunid = $ARGV[0]; + +# find qso run id for this camera run id: +open (FILE, "$runlist"); +@list = ; +close (FILE); + +# find date range in run list +foreach $line (@list) { + chop ($line); + if ($line =~ /^\#/) { next; } + ($Crunid, $start, $stop, $Qrunid) = split (" ", $line, 4); + if (($start eq "") || ($stop eq "")) { next; } + if ($Crunid eq $crunid) { $qrunid = $Qrunid; last; } +} + +print STDERR "qso run ID(s): $qrunid\n"; + +@valid = (); +@invalid = (); +@dataerr = (); +@subvalid = (); + +if ($infile) { + # load images from previous output run or source file: + open (FILE, $infile); + @rawlist = ; + close (FILE); + + $mode = $MODE_UNSET; + @imlist = (); + + RAWLIST: + foreach $name (@rawlist) { + chop ($name); + + if ($name eq "") { next RAWLIST; } + + if ($name =~ /^valid images/) { + $mode = $MODE_VALID; + next RAWLIST; + } + if ($name =~ /^invalid images/) { + $mode = $MODE_INVALID; + next RAWLIST; + } + if ($name =~ /^subvalid images/) { + $mode = $MODE_SUBVALID; + next RAWLIST; + } + if ($name =~ /^dataerr images/) { + $mode = $MODE_DATAERR; + next RAWLIST; + } + + # plain list of image names (/path/name.fits) + if ($mode == $MODE_UNSET) { + # double check on name validity + ($file, $junk) = split (" ", $name, 2); + unless ($file =~ /\d\d\d\d\d\d\w/) { print STDERR "?"; next RAWLIST; } + @imlist = (@imlist, $file); + next RAWLIST; + # if (! -e $file) { print STDERR "x"; next RAWLIST; } + } + # place image names in the appropriate list + if ($mode == $MODE_VALID) { + ($file, $result) = split (":", $name, 2); + @valid = (@valid, $file); + next RAWLIST; + } + if ($mode == $MODE_INVALID) { + ($file, $result) = split (":", $name, 2); + @invalid = (@invalid, $file); + next RAWLIST; + } + if ($mode == $MODE_SUBVALID) { + ($file, $result) = split (":", $name, 2); + @subvalid = (@subvalid, $file); + next RAWLIST; + } + if ($mode == $MODE_DATAERR) { + ($file, $result) = split (":", $name, 2); + @dataerr = (@dataerr, $file); + next RAWLIST; + } + } +} else { + # load images directly from directory + # this is not sufficient. we need a better way to get a list of images for + # a given run id (with the current MEF / SPLIT state correct). + # + # probably we can just use imsearch -ccd 0 + $rawdir = `gconfig -q -D RUNID $crunid RAWDIR`; + chop ($rawdir); + if ($rawdir eq "") { + print STDERR "can't find config entry TMPDIR\n"; + exit 1; + } + @imlist = (); + + # load in the MEF files (must be of format 123456x.fits) + @tlist = <$rawdir/*.fits>; + foreach $tname (@tlist) { + if ((-f $tname) && ($tname =~ /\d\d\d\d\d\d\w.fits/)) { + @imlist = (@imlist, $tname); + } + } + + # load in the SPLIT directories (must be of format 123456x) + @tlist = <$rawdir/???????>; + foreach $tname (@tlist) { + if ((-d $tname) && ($tname =~ /\d\d\d\d\d\d\w/)) { + @imlist = (@imlist, $tname); + } + } +} + +# load the QSO validated image list +@qsovalid = (); +if ($qrunid) { + @qruns = split (" ", $qrunid); + @qsovalid = (); + foreach $id (@qruns) { + print STDERR "trying $id\n"; + @answer = `select_val_xexp.sh -U qso_elixir -P op1eliw -qrunid $id`; + if ($?) { + print STDERR "error in qso run ID\n"; + exit 1; + } + @qsovalid = (@qsovalid, @answer); + } +} +foreach $qname (@qsovalid) { chop ($qname); } + +if ($RETRY) { +# evaluate the remaining entries in imlist & invalid: + @imlist = (@imlist, @invalid, @dataerr); + @invalid = (); + @dataerr = (); + + IMLIST: + foreach $name (@imlist) { + $answer = `ckvalid $name`; + if ($?) { print STDERR "error with $name\n"; } + chop ($answer); + + ($file, $result) = split (" ", $answer, 2); + @words = split (" ", $answer); + + if ($words[1] eq "pass") { + @valid = (@valid, $answer); + next IMLIST; + } + + if ($result eq "binned image") { + @subvalid = (@subvalid, $answer); + next IMLIST; + } + + if ($result eq "sub-rastered image") { + @subvalid = (@subvalid, $answer); + next IMLIST; + } + + if ($result eq "wrong image type") { + @subvalid = (@subvalid, $answer); + next IMLIST; + } + + if ($result eq "can't open file") { + @dataerr = (@dataerr, $answer); + next IMLIST; + } + + if ($result eq "no run ID") { + @dataerr = (@dataerr, $answer); + next IMLIST; + } + + if ($result eq "not a valid image") { + @dataerr = (@dataerr, $answer); + next IMLIST; + } + + if ($words[1] eq "fail") { + foreach $line (@qsovalid) { + ($qname, $qmode, $emode) = split (" ", $line); + if ($name =~ /$qname/) { + @invalid = (@invalid, $answer); + next IMLIST; + } + } + @subvalid = (@subvalid, $answer); + next IMLIST; + } + + print STDERR "unknown result $answer\n"; + + } +} + +@mode = ('valid', 'subvalid', 'invalid', 'dataerr'); +@code = ($MODE_VALID, $MODE_SUBVALID, $MODE_INVALID, $MODE_DATAERR); + +for ($i = 0; $i < @mode; $i++) { + $mode = $mode[$i]; + $code = $code[$i]; + + print STDOUT "$mode images\n"; + foreach $file (@$mode) { + print STDOUT "$file\n"; + if ($update) { + @w = split ("/", $file); + $n = substr ($w[-1], 0, 6); + vsystem ("update_xexpe.sh -U qso_elixir -P op1eliw --obsid $n --eval $code >> test.list"); + } + } + print STDOUT "\n"; +} + +sub vsystem { + print STDERR "@_\n"; + my($status) = system ("@_"); + $status; +} + +sub goodbye { + die "@_\n"; +} + Index: /branches/elixir/Ohana/src/perl/src/.mana =================================================================== --- /branches/elixir/Ohana/src/perl/src/.mana (revision 2487) +++ /branches/elixir/Ohana/src/perl/src/.mana (revision 2487) @@ -0,0 +1,62 @@ +03/01/30 10:35:41: create x 0 10 +03/01/30 10:35:43: echo x[00] +03/01/30 10:35:45: echo x[05] +03/01/30 10:36:42: quit +03/01/30 11:20:28: quit +03/02/03 17:18:52: echo {169*12} +03/02/03 17:18:59: echo {169*12*2*4} +03/02/03 17:19:32: echo {1.5*3600} +03/02/03 17:20:21: echo {18000*2/(1.5*3600)} +03/02/03 17:21:28: echo {(1.5*3600)*6*2400} +03/02/03 17:21:38: echo {(1.5*3600)*6*2400/18000} +03/02/03 17:25:08: keyword a FILTER +03/02/03 17:25:15: buffers +03/02/03 17:26:08: quit +03/02/12 11:37:58: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/12 11:37:58: getfitpars /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.I.0.med.sublist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.I.0.fitpar +03/02/12 11:37:58: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/12 11:37:59: getfrstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.I.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.I.0.med.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.I.0.med.imstats +03/02/12 11:37:59: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/12 11:37:59: getfitpars /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.sublist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar +03/02/12 11:38:00: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/12 11:38:01: getfrstats /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.fitpar /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.statlist /data/koa/cfh12k/detdir/02Bk07/fringe/02Bk07.fringe.Z.0.med.imstats +03/02/13 15:35:58: echo {3*60+35-42} +03/02/13 15:36:17: echo {(144772896-130048976)/(3*60+35-42)} +03/02/13 15:36:33: echo {(144772896-130048976)/(3*60+35-42)/60} +03/02/13 15:46:29: quit +03/02/24 12:38:44: input /data/elixir2/elixir/config/mana/modes.pro +03/02/24 12:38:44: demodemap 679056p.detlist 679056p.demlist /data/elixir/cfh12k/detrend/modes/2001A.modes.I.12.01.fits 2001A.modes.I.12.01.fits 256 +03/02/24 12:39:58: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/24 12:39:58: applyfitstats /tmp/defringe.jIkAFy /tmp/defringe.M5q1Cw /tmp/defringe.qtNvpy +03/02/24 12:44:23: input /data/elixir2/elixir/config/mana/modes.pro +03/02/24 12:44:24: demodemap 679056p.detlist 679056p.demlist /data/elixir/cfh12k/detrend/modes/2001A.modes.I.12.01.fits 2001A.modes.I.12.01.fits 256 +03/02/24 12:45:37: input /data/elixir2/elixir/config/mana/fringe.pro +03/02/24 12:45:37: applyfitstats /tmp/defringe.CRUK0I /tmp/defringe.7GdHiJ /tmp/defringe.NLcHKI +03/05/21 14:39:11: rd a /data/elixir/detrend/cfh12k/scatter/2002A.scatter.R.03.00.fits +03/05/21 14:39:14: mtva +03/05/21 14:39:15: mtv a +03/05/21 14:39:32: tv a 0.95 0.1 +03/05/21 14:39:44: set b = a +03/05/21 14:39:47: rotate b flipx +03/05/21 14:39:51: set c = a - b +03/05/21 14:39:57: tv c -0.05 0.1 +03/05/21 14:40:07: tv c -0.005 0.01 +03/05/21 14:40:13: cur +03/05/21 14:40:23: quit +03/07/28 08:53:33: echo {(36-20)/50} +03/07/28 08:53:46: echo {50/(36-20)} +03/07/28 08:54:06: echo {1524*50/(36-20)} +03/07/28 08:54:09: echo {1524*50/(36-20)/3600} +03/07/28 08:54:43: rd a 653200p00.fits +03/07/28 08:56:06: quit +03/10/23 19:03:15: input /data/elixir2/srcdir/config/mana/modes.pro +03/10/23 19:03:15: list names +03/10/23 19:03:15: macro go +03/10/23 19:03:15: go +03/10/23 19:03:19: input /data/elixir2/srcdir/config/mana/modes.pro +03/10/23 19:03:19: $CCDBINx = 2 +03/10/23 19:03:19: $CCDBINy = 5 +03/10/23 19:03:19: macro go +03/10/23 19:03:20: go +03/10/24 14:04:05: minterp +03/10/24 14:09:51: quit