34 #include "casu_mods.h"
35 #include "catalogue/casu_utils.h"
36 #include "catalogue/casu_fits.h"
79 extern int casu_flatcor(casu_fits *infile, casu_fits *flatsrc,
int *status) {
80 cpl_error_code cpl_retval;
82 cpl_propertylist *oplist;
83 const char *fctid =
"casu_flatcor";
87 if (*status != CASU_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:
122 if (oplist != NULL) {
124 cpl_propertylist_update_string(oplist,
"ESO DRS FLATCOR",
126 cpl_propertylist_set_comment(oplist,
"ESO DRS FLATCOR",
127 "Image used in flat correction");
129 cpl_propertylist_update_string(oplist,
"ESO DRS FLATCOR",
cpl_image * casu_fits_get_image(casu_fits *p)
char * casu_fits_get_fullname(casu_fits *p)
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)
int casu_flatcor(casu_fits *infile, casu_fits *flatsrc, int *status)
Correct input data for flat field response.
int casu_compare_dims(cpl_image *im1, cpl_image *im2)
Compare dimensions of two 2d images.