62 cpl_frame * cur_frame ;
68 if (set == NULL)
return -1 ;
71 nframes = cpl_frameset_get_size(set) ;
74 for (i=0 ; i<nframes ; i++) {
75 cur_frame = cpl_frameset_get_position(set, i) ;
76 tag = cpl_frame_get_tag(cur_frame) ;
79 if (!strcmp(tag, SOFI_IMG_ZPOINT_RAW) ||
80 !strcmp(tag, SOFI_IMG_DOMEFLAT_RAW) ||
81 !strcmp(tag, SOFI_IMG_DARK_RAW) ||
82 !strcmp(tag, SOFI_IMG_JITTER_SKY_RAW) ||
83 !strcmp(tag, SOFI_IMG_JITTER_OBJ_RAW) ||
84 !strcmp(tag, SOFI_IMG_DETLIN_LAMP_RAW) ||
85 !strcmp(tag, SOFI_IMG_DETLIN_DARK_RAW) ||
86 !strcmp(tag, SOFI_SPC_FLAT_RAW) ||
87 !strcmp(tag, SOFI_SPC_ARC_RAW) ||
88 !strcmp(tag, SOFI_SPC_JITTER_NODOBJ_RAW) ||
89 !strcmp(tag, SOFI_SPC_JITTER_NODSKY_RAW) ||
90 !strcmp(tag, SOFI_IMG_ILLUM_RAW) ||
91 !strcmp(tag, SOFI_UTIL_GENLINES_RAW) ||
92 !strcmp(tag, SOFI_UTIL_STDSTARS_RAW))
93 cpl_frame_set_group(cur_frame, CPL_FRAME_GROUP_RAW) ;
95 else if (!strcmp(tag, SOFI_CALIB_FLAT) ||
96 !strcmp(tag, SOFI_CALIB_STDSTARS) ||
97 !strcmp(tag, SOFI_CALPRO_OH_CAT) ||
98 !strcmp(tag, SOFI_CALPRO_XE_CAT) ||
99 !strcmp(tag, SOFI_CALPRO_NE_CAT) ||
100 !strcmp(tag, SOFI_CALIB_DARK) ||
101 !strcmp(tag, SOFI_CALIB_DETLIN_A) ||
102 !strcmp(tag, SOFI_CALIB_DETLIN_B) ||
103 !strcmp(tag, SOFI_CALIB_DETLIN_C) ||
104 !strcmp(tag, SOFI_CALIB_SPFLAT) ||
105 !strcmp(tag, SOFI_CALIB_ARC))
106 cpl_frame_set_group(cur_frame, CPL_FRAME_GROUP_CALIB) ;