39 #include "isaac_pfits.h"
63 const double val = cpl_propertylist_get_double(plist,
"ESO TEL AIRM START");
65 (void)cpl_error_set(cpl_func, cpl_error_get_code());
78 const double val = cpl_propertylist_get_double(plist,
"ESO TEL AIRM END");
80 (void)cpl_error_set(cpl_func, cpl_error_get_code());
93 const char * val = cpl_propertylist_get_string(plist,
"ARCFILE");
95 (void)cpl_error_set(cpl_func, cpl_error_get_code());
108 const char * val = cpl_propertylist_get_string(plist,
"ESO OCS SELECT-ARM");
110 (void)cpl_error_set(cpl_func, cpl_error_get_code());
123 const int val = cpl_propertylist_get_bool(plist,
"ESO INS CALSHUT ST");
125 (void)cpl_error_set(cpl_func, cpl_error_get_code());
138 const char * val = cpl_propertylist_get_string(plist,
"ESO DET CHIP NAME");
140 (void)cpl_error_set(cpl_func, cpl_error_get_code());
153 const int val = cpl_propertylist_get_int(plist,
"ESO DET CHOP NCYCLES");
155 (void)cpl_error_set(cpl_func, cpl_error_get_code());
168 const double val = cpl_propertylist_get_double(plist,
"ESO DET CHOP FREQ");
170 (void)cpl_error_set(cpl_func, cpl_error_get_code());
183 const int val = cpl_propertylist_get_bool(plist,
"ESO TEL CHOP ST");
185 (void)cpl_error_set(cpl_func, cpl_error_get_code());
198 const double val = cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETX");
200 (void)cpl_error_set(cpl_func, cpl_error_get_code());
213 const double val = cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETY");
215 (void)cpl_error_set(cpl_func, cpl_error_get_code());
228 const int val = cpl_propertylist_get_int(plist,
"ESO TPL EXPNO");
230 (void)cpl_error_set(cpl_func, cpl_error_get_code());
243 const char * val = cpl_propertylist_get_string(plist,
"DATE");
245 (void)cpl_error_set(cpl_func, cpl_error_get_code());
258 const char * val = cpl_propertylist_get_string(plist,
"DATE-OBS");
260 (void)cpl_error_set(cpl_func, cpl_error_get_code());
273 const double val = cpl_propertylist_get_double(plist,
"DEC");
275 (void)cpl_error_set(cpl_func, cpl_error_get_code());
290 = cpl_propertylist_has(plist,
"ESO DET FRAM TYPE")
291 ? cpl_propertylist_get_string(plist,
"ESO DET FRAM TYPE")
292 : cpl_propertylist_get_string(plist,
"ESO DET FRAME TYPE");
294 (void)cpl_error_set(cpl_func, cpl_error_get_code());
307 const double val = cpl_propertylist_get_double(plist,
"ESO DET DIT");
309 (void)cpl_error_set(cpl_func, cpl_error_get_code());
322 const char * val = cpl_propertylist_get_string(plist,
"ESO DPR CATG");
324 (void)cpl_error_set(cpl_func, cpl_error_get_code());
337 const char * val = cpl_propertylist_get_string(plist,
"ESO DPR TECH");
339 (void)cpl_error_set(cpl_func, cpl_error_get_code());
352 const char * val = cpl_propertylist_get_string(plist,
"ESO DPR TYPE");
354 (void)cpl_error_set(cpl_func, cpl_error_get_code());
367 cpl_errorstate prestate = cpl_errorstate_get();
368 const char * val = cpl_propertylist_get_string(plist,
"ESO INS FILT3 ID");
370 if (val == NULL || !strcmp(val,
"open")) {
372 val = cpl_propertylist_get_string(plist,
"ESO INS FILT4 ID");
374 (void)cpl_error_set(cpl_func, cpl_error_get_code());
376 cpl_errorstate_set(prestate);
377 if (!strcmp(val,
"open")) val = NULL;
393 cpl_errorstate prestate = cpl_errorstate_get();
394 const char * val = cpl_propertylist_get_string(plist,
"ESO INS FILT1 ID");
396 if (val == NULL || !strcmp(val,
"open")) {
398 val = cpl_propertylist_get_string(plist,
"ESO INS FILT2 ID");
400 (void)cpl_error_set(cpl_func, cpl_error_get_code());
402 cpl_errorstate_set(prestate);
403 if (!strcmp(val,
"open")) val = NULL;
419 const double val = cpl_propertylist_get_double(plist,
"ESO TEL AMBI RHUM");
421 (void)cpl_error_set(cpl_func, cpl_error_get_code());
434 const char * val = cpl_propertylist_get_string(plist,
"INSTRUME");
436 (void)cpl_error_set(cpl_func, cpl_error_get_code());
449 const char * val = cpl_propertylist_get_string(plist,
"ESO INS LAMP1 NAME");
451 (void)cpl_error_set(cpl_func, cpl_error_get_code());
464 const int val = cpl_propertylist_get_bool(plist,
"ESO INS LAMP1 ST");
466 (void)cpl_error_set(cpl_func, cpl_error_get_code());
479 const char * val = cpl_propertylist_get_string(plist,
"ESO INS LAMP2 NAME");
481 (void)cpl_error_set(cpl_func, cpl_error_get_code());
494 const int val = cpl_propertylist_get_bool(plist,
"ESO INS LAMP2 ST");
496 (void)cpl_error_set(cpl_func, cpl_error_get_code());
509 const int val = cpl_propertylist_get_int(plist,
"ESO INS LAMP3 SET");
511 (void)cpl_error_set(cpl_func, cpl_error_get_code());
524 const double val = cpl_propertylist_get_double(plist,
"MJD-OBS");
526 (void)cpl_error_set(cpl_func, cpl_error_get_code());
539 const char * val = cpl_propertylist_get_string(plist,
"ESO INS MODE");
541 (void)cpl_error_set(cpl_func, cpl_error_get_code());
554 const double val = cpl_propertylist_get_double(plist,
"ESO DET WIN STARTX");
556 (void)cpl_error_set(cpl_func, cpl_error_get_code());
569 const double val = cpl_propertylist_get_double(plist,
"ESO DET WIN STARTY");
571 (void)cpl_error_set(cpl_func, cpl_error_get_code());
584 const int val = cpl_propertylist_get_int(plist,
"NAXIS1");
586 (void)cpl_error_set(cpl_func, cpl_error_get_code());
599 const int val = cpl_propertylist_get_int(plist,
"ESO DET NDIT");
601 (void)cpl_error_set(cpl_func, cpl_error_get_code());
614 const int val = cpl_propertylist_get_int(plist,
"ESO DET NDSAMPLES");
616 (void)cpl_error_set(cpl_func, cpl_error_get_code());
629 const int val = cpl_propertylist_get_int(plist,
"ESO TPL NEXP");
631 (void)cpl_error_set(cpl_func, cpl_error_get_code());
645 const char * val = NULL;
649 (void)cpl_error_set(cpl_func, cpl_error_get_code());
650 }
else if (mode[0] ==
'S') {
651 val = cpl_propertylist_get_string(plist,
"ESO INS OPTI2 NAME");
652 (void)cpl_error_set(cpl_func, cpl_error_get_code());
653 }
else if (mode[0] ==
'L') {
654 val = cpl_propertylist_get_string(plist,
"ESO INS OPTI3 NAME");
655 (void)cpl_error_set(cpl_func, cpl_error_get_code());
657 (void)cpl_error_set(cpl_func, CPL_ERROR_UNSUPPORTED_MODE);
672 const int val = cpl_propertylist_get_int(plist,
"ESO OBS ID");
674 (void)cpl_error_set(cpl_func, cpl_error_get_code());
687 const char * val = cpl_propertylist_get_string(plist,
"ESO OBS TARG NAME");
689 (void)cpl_error_set(cpl_func, cpl_error_get_code());
702 const char * val = cpl_propertylist_get_string(plist,
"ESO INS OPTI1 ID");
704 (void)cpl_error_set(cpl_func, cpl_error_get_code());
717 const int val = cpl_propertylist_get_int(plist,
"ESO INS GRAT ORDER");
719 (void)cpl_error_set(cpl_func, cpl_error_get_code());
732 const char * val = cpl_propertylist_get_string(plist,
"ORIGFILE");
734 (void)cpl_error_set(cpl_func, cpl_error_get_code());
747 const double val = cpl_propertylist_get_double(plist,
"ESO INS PIXSCALE");
749 (void)cpl_error_set(cpl_func, cpl_error_get_code());
762 const double val = cpl_propertylist_get_double(plist,
"RA");
764 (void)cpl_error_set(cpl_func, cpl_error_get_code());
777 const char * val = cpl_propertylist_get_string(plist,
"ESO INS GRAT NAME");
779 (void)cpl_error_set(cpl_func, cpl_error_get_code());
792 const int val = cpl_propertylist_get_int(plist,
"ESO DET NCORRS");
794 (void)cpl_error_set(cpl_func, cpl_error_get_code());
807 const char * val = cpl_propertylist_get_string(plist,
"ESO DET MODE NAME");
809 (void)cpl_error_set(cpl_func, cpl_error_get_code());
822 const char * val = cpl_propertylist_get_string(plist,
"ESO DET NCORRS NAME");
824 (void)cpl_error_set(cpl_func, cpl_error_get_code());
837 const int val = cpl_propertylist_get_int(plist,
"ESO DET RSPEED");
839 (void)cpl_error_set(cpl_func, cpl_error_get_code());
852 const char * val = cpl_propertylist_get_string(plist,
"ESO TPL ID");
854 (void)cpl_error_set(cpl_func, cpl_error_get_code());
867 const double val = cpl_propertylist_get_double(plist,
"ESO INS GRAT WLEN");
869 (void)cpl_error_set(cpl_func, cpl_error_get_code());
883 const char * retval = val;
int isaac_pfits_get_lamp3_intensity(const cpl_propertylist *plist)
find out the lamp3 intensity
int isaac_pfits_get_chopping_status(const cpl_propertylist *plist)
find out the chopping status
const char * isaac_pfits_get_arcfile(const cpl_propertylist *plist)
find out the arcfile
const char * isaac_pfits_get_rom_name(const cpl_propertylist *plist)
find out the read out mode name
const char * isaac_pfits_get_mode(const cpl_propertylist *plist)
find out the instrument mode
int isaac_pfits_get_obs_id(const cpl_propertylist *plist)
find out the OBS ID
const char * isaac_pfits_get_chip(const cpl_propertylist *plist)
find out the chip name
const char * isaac_pfits_get_dpr_tech(const cpl_propertylist *plist)
find out the data technique
int isaac_pfits_get_order(const cpl_propertylist *plist)
find out the order
const char * isaac_pfits_get_targ_name(const cpl_propertylist *plist)
find out the target name
double isaac_pfits_get_win_startx(const cpl_propertylist *plist)
find out the WIN STARTX keyword
double isaac_pfits_get_mjdobs(const cpl_propertylist *plist)
find out the MJD-OBS
int isaac_pfits_get_lamp1_status(const cpl_propertylist *plist)
find out the lamp1 status
const char * isaac_pfits_get_frame_type(const cpl_propertylist *plist)
find out the frame type
int isaac_pfits_get_lamp2_status(const cpl_propertylist *plist)
find out the lamp2 status
const char * isaac_pfits_get_opti1_id(const cpl_propertylist *plist)
find out the OPTI1.ID key
double isaac_pfits_get_ra(const cpl_propertylist *plist)
find out the RA
const char * isaac_pfits_get_objective(const cpl_propertylist *plist)
find out the objective
double isaac_pfits_get_win_starty(const cpl_propertylist *plist)
find out the WIN STARTY keyword
double isaac_pfits_get_dit(const cpl_propertylist *plist)
find out the DIT value
int isaac_pfits_get_rom(const cpl_propertylist *plist)
find out the read out mode
const char * isaac_pfits_get_dpr_type(const cpl_propertylist *plist)
find out the data type
double isaac_pfits_get_pixscale(const cpl_propertylist *plist)
find out the pixel scale
const char * isaac_pfits_get_filter_lw(const cpl_propertylist *plist)
find out which wave band is active in long wavelength
const char * isaac_pfits_get_dpr_catg(const cpl_propertylist *plist)
find out the data category
int isaac_pfits_get_calshut_status(const cpl_propertylist *plist)
find out the shutter status
double isaac_pfits_get_wlen(const cpl_propertylist *plist)
find out the central wavelength
int isaac_pfits_get_chopping_cycle(const cpl_propertylist *plist)
find out the number of chopping cycles
int isaac_pfits_get_ndit(const cpl_propertylist *plist)
find out the NDIT keyword
const char * isaac_pfits_get_lamp1_name(const cpl_propertylist *plist)
find out the lamp1 name
int isaac_pfits_get_naxis1(const cpl_propertylist *plist)
find out the NAXIS1 keyword
const char * isaac_pfits_get_date(const cpl_propertylist *plist)
find out the date of the file creation
double isaac_pfits_get_cumoffsety(const cpl_propertylist *plist)
find out the cumulative offset in Y
double isaac_pfits_get_airmass_end(const cpl_propertylist *plist)
find out airmass end
const char * isaac_pfits_get_date_obs(const cpl_propertylist *plist)
find out the date of observation
const char * isaac_pfits_get_templateid(const cpl_propertylist *plist)
find out the template ID
double isaac_pfits_get_dec(const cpl_propertylist *plist)
find out the DEC
const char * isaac_pfits_get_arm(const cpl_propertylist *plist)
find out the arm which is active
int isaac_pfits_get_numbexp(const cpl_propertylist *plist)
find out the number of exposures
const char * isaac_pfits_get_instrument(const cpl_propertylist *plist)
find out the instrument
const char * isaac_pfits_get_resolution(const cpl_propertylist *plist)
find out the resolution
const char * isaac_pfits_get_origfile(const cpl_propertylist *plist)
find out the original file name
const char * isaac_pfits_get_filter(const cpl_propertylist *plist)
find out the filter
double isaac_pfits_get_humidity_level(const cpl_propertylist *plist)
find out the humidity level
int isaac_pfits_get_ndsamples(const cpl_propertylist *plist)
find out the NDSAMPLES keyword
int isaac_pfits_get_rspeed(const cpl_propertylist *plist)
find out the read speed
double isaac_pfits_get_cumoffsetx(const cpl_propertylist *plist)
find out the cumulative offset in X
const char * isaac_pfits_get_romode_name(const cpl_propertylist *plist)
find out the read out mode name
double isaac_pfits_get_airmass_start(const cpl_propertylist *plist)
find out airmass start
int isaac_pfits_get_current_exp_nb(const cpl_propertylist *plist)
find out the current exposure number
const char * isaac_pfits_get_lamp2_name(const cpl_propertylist *plist)
find out the lamp2 name
const char * isaac_pfits_get_filter_sw(const cpl_propertylist *plist)
find out which wave band is active in short wavelength
double isaac_pfits_get_chopping_frequency(const cpl_propertylist *plist)
find out the chopping frequency