34 #include "vircam_mods.h"
35 #include "vircam_utils.h"
36 #include "vircam_fits.h"
79 extern int vircam_flatcor(vir_fits *infile, vir_fits *flatsrc,
int *status) {
80 cpl_error_code cpl_retval;
82 cpl_propertylist *oplist;
83 const char *fctid =
"vircam_flatcor";
87 if (*status != VIR_OK)
93 if (cpl_propertylist_has(oplist,
"ESO DRS FLATCOR"))
101 cpl_msg_error(fctid,
"Object and flat data array dimensions don't match");
107 cpl_retval = cpl_image_divide(i,f);
108 switch (cpl_retval) {
111 case CPL_ERROR_DIVISION_BY_ZERO:
121 if (oplist != NULL) {
122 cpl_propertylist_update_string(oplist,
"ESO DRS FLATCOR",
124 cpl_propertylist_set_comment(oplist,
"ESO DRS FLATCOR",
125 "Image used in flat correction");