36#include "catalogue/casu_utils.h"
37#include "catalogue/casu_fits.h"
85extern int casu_nditcor(casu_fits *infile,
int ndit,
const char *expkey,
89 cpl_propertylist *oplist;
94 if (*status != CASU_OK)
109 cpl_image_divide_scalar(im,dnd);
116 if (oplist != NULL) {
117 cpl_propertylist_update_bool(oplist,
"ESO DRS NDITCOR",1);
118 (void)sprintf(comment,
"Corrected for ndit=%d",ndit);
119 cpl_propertylist_set_comment(oplist,
"ESO DRS NDITCOR",comment);
120 if (cpl_propertylist_has(oplist,expkey)) {
121 exptime = cpl_propertylist_get_double(oplist,expkey);
123 cpl_propertylist_update_double(oplist,expkey,exptime);
124 cpl_propertylist_set_comment(oplist,expkey,comment);
128 if (oplist != NULL && cpl_propertylist_has(oplist,expkey)) {
129 (void)sprintf(comment,
"Corrected for ndit=%d",ndit);
130 exptime = cpl_propertylist_get_double(oplist,expkey);
132 cpl_propertylist_update_double(oplist,expkey,exptime);
133 cpl_propertylist_set_comment(oplist,expkey,comment);
cpl_image * casu_fits_get_image(casu_fits *p)
cpl_propertylist * casu_fits_get_phu(casu_fits *p)
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)
int casu_nditcor(casu_fits *infile, int ndit, const char *expkey, int *status)
Correct input data for number of dits.