39 #include "hawki_pfits.h"
63 return cpl_propertylist_get_double(plist,
"ESO TEL AIRM START") ;
75 return cpl_propertylist_get_double(plist,
"ESO TEL AIRM END") ;
87 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI RHUM") ;
99 return (
const char *) cpl_propertylist_get_string(plist,
"ESO PRO CATG");
114 double ra_hh, ra_mm, ra_ss;
116 alpha_coded = cpl_propertylist_get_double(plist,
"ESO TEL TARG ALPHA");
117 ra_hh = (int)(alpha_coded / 10000);
118 ra_mm = (int)((alpha_coded - ra_hh * 10000) / 100);
119 ra_ss = alpha_coded - ra_hh * 10000 - ra_mm * 100;
120 ra_deg = ra_hh * 15. + ra_mm / 4. + ra_ss / 240.;
136 alpha_coded = cpl_propertylist_get_double(plist,
"ESO TEL TARG ALPHA");
152 double dec_dd, dec_mm, dec_ss;
154 delta_coded = cpl_propertylist_get_double(plist,
"ESO TEL TARG DELTA");
155 dec_dd = (int)(delta_coded / 10000);
156 dec_mm = (int)((delta_coded - dec_dd * 10000) / 100);
157 dec_ss = delta_coded - dec_dd * 10000 - dec_mm * 100;
158 dec_deg = dec_dd + dec_mm / 60. + dec_ss / 3600.;
174 delta_coded = cpl_propertylist_get_double(plist,
"ESO TEL TARG DELTA");
188 return cpl_propertylist_get_double(plist,
"ESO TEL TARG EQUINOX") ;
201 return cpl_propertylist_get_double(plist,
"ESO TEL TARG EPOCH") ;
213 return cpl_propertylist_get_double(plist,
"RA") ;
225 return cpl_propertylist_get_double(plist,
"DEC") ;
237 return (
const char *) cpl_propertylist_get_string(plist,
"EXTNAME");
249 return (
const char *) cpl_propertylist_get_string(plist,
"ARCFILE");
261 return (
const char *) cpl_propertylist_get_string(plist,
"DATE-OBS") ;
273 return cpl_propertylist_get_int(plist,
"ESO TPL NEXP") ;
285 return cpl_propertylist_get_double(plist,
"ESO DET DIT") ;
297 return cpl_propertylist_get_int(plist,
"ESO DET NDIT") ;
309 return cpl_propertylist_get_int(plist,
"ESO DET NDSAMPLES") ;
321 return cpl_propertylist_get_double(plist,
"ESO INS PIXSCALE") ;
333 return cpl_propertylist_get_int(plist,
"NAXIS1") ;
345 return cpl_propertylist_get_int(plist,
"NAXIS2") ;
357 return cpl_propertylist_get_double(plist,
"CRVAL1") ;
369 return cpl_propertylist_get_double(plist,
"CRVAL2") ;
381 return cpl_propertylist_get_double(plist,
"CRPIX1") ;
393 return cpl_propertylist_get_double(plist,
"CRPIX2") ;
405 return cpl_propertylist_get_double(plist,
"CDELTA1") ;
417 return cpl_propertylist_get_double(plist,
"CDELTA2") ;
429 return cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETA") ;
441 return cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETD") ;
453 return cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETX") ;
465 return cpl_propertylist_get_double(plist,
"ESO SEQ CUMOFFSETY") ;
477 return cpl_propertylist_get_double(plist,
"ESO ADA POSANG") ;
491 val = cpl_propertylist_get_string(plist,
"ESO INS FILT1 NAME") ;
492 if (val == NULL)
return NULL ;
494 if (strcmp(val,
"open") && strcmp(val,
"OPEN"))
return val ;
496 val = cpl_propertylist_get_string(plist,
"ESO INS FILT2 NAME") ;
497 if (val == NULL)
return NULL ;
498 if (strcmp(val,
"open") && strcmp(val,
"OPEN"))
return val ;
511 return cpl_propertylist_get_double(plist,
"ESO TEL FOCU VALUE") ;
523 return cpl_propertylist_get_double(plist,
"ESO TEL ALT") ;
535 return cpl_propertylist_get_double(plist,
"ESO TEL AZ") ;
547 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI RHUM") ;
559 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI TAU0") ;
571 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI TEMP") ;
583 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI WINDDIR") ;
595 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI WINDSP") ;
607 return cpl_propertylist_get_double(plist,
"ESO TEL IA FWHM") ;
619 return cpl_propertylist_get_double(plist,
"ESO ADA ABSROT START") ;
631 return cpl_propertylist_get_double(plist,
"ESO ADA ABSROT END") ;
643 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI FWHM START") ;
655 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI FWHM END") ;
667 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI PRES START") ;
679 return cpl_propertylist_get_double(plist,
"ESO TEL AMBI PRES END") ;
691 return cpl_propertylist_get_double(plist,
"ESO TEL PARANG START") ;
703 return cpl_propertylist_get_double(plist,
"ESO TEL PARANG END") ;
716 return cpl_propertylist_get_double(plist,
"ESO QC COMBINED CUMOFFSETX");
728 return cpl_propertylist_get_double(plist,
"ESO QC COMBINED CUMOFFSETY");
740 return cpl_propertylist_get_double(plist,
"ESO QC COMBINED POSX");
752 return cpl_propertylist_get_double(plist,
"ESO QC COMBINED POSY");