00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027 #ifdef HAVE_CONFIG_H
00028 #include <config.h>
00029 #endif
00030
00031
00032
00033
00034
00035
00036 #include <xsh_dump.h>
00037 #include <xsh_utils.h>
00038 #include <xsh_error.h>
00039 #include <xsh_msg.h>
00040 #include <xsh_qc_handling.h>
00041 #include <xsh_data_instrument.h>
00042 #include <xsh_pfits.h>
00043 #include <string.h>
00044 #include <cpl.h>
00045 #include <stdbool.h>
00046 #include <xsh_pfits_qc.h>
00047
00048
00054
00055
00058
00059
00060
00061
00062
00063
00064
00065
00074 int xsh_pfits_get_qc_ncrh( const cpl_propertylist * plist)
00075 {
00076 int returnvalue = -1 ;
00077
00078 check_msg( xsh_get_property_value( plist, XSH_QC_CRH_NUMBER,
00079 CPL_TYPE_INT, &returnvalue ),
00080 "Error reading Keyword '%s'", XSH_QC_CRH_NUMBER ) ;
00081 cleanup:
00082 return returnvalue ;
00083 }
00084
00085
00086
00087
00093
00094 double
00095 xsh_pfits_get_qc_mbiasavg (const cpl_propertylist * plist)
00096 {
00097 double returnvalue = 0.0;
00098
00099 check_msg (xsh_get_property_value (plist, XSH_QC_MASTER_BIAS_MEAN,
00100 CPL_TYPE_DOUBLE, &returnvalue),
00101 "Error reading keyword '%s'", XSH_QC_MASTER_BIAS_MEAN);
00102
00103 cleanup:
00104 return returnvalue;
00105 }
00106
00107
00113
00114 double
00115 xsh_pfits_get_qc_mbiasmed (const cpl_propertylist * plist)
00116 {
00117 double returnvalue = 0.0;
00118
00119 check_msg (xsh_get_property_value (plist, XSH_QC_MASTER_BIAS_MEDIAN,
00120 CPL_TYPE_DOUBLE, &returnvalue),
00121 "Error reading keyword '%s'", XSH_QC_MASTER_BIAS_MEDIAN);
00122
00123 cleanup:
00124 return returnvalue;
00125 }
00126
00127
00133
00134 double
00135 xsh_pfits_get_qc_mbiasrms (const cpl_propertylist * plist)
00136 {
00137 double returnvalue = 0.0;
00138
00139 check_msg (xsh_get_property_value (plist, XSH_QC_MASTER_BIAS_RMS,
00140 CPL_TYPE_DOUBLE, &returnvalue),
00141 "Error reading keyword '%s'", XSH_QC_MASTER_BIAS_RMS);
00142
00143 cleanup:
00144 return returnvalue;
00145 }
00146
00147
00153
00154 double
00155 xsh_pfits_get_qc_nhpix (const cpl_propertylist * plist)
00156 {
00157 double returnvalue = 0.0;
00158 cpl_type type;
00159
00160 type = cpl_propertylist_get_type (plist, XSH_QC_NHPIX);
00161
00162 check_msg (xsh_get_property_value (plist, XSH_QC_NHPIX,
00163 type, &returnvalue),
00164 "Error reading keyword '%s'", XSH_QC_NHPIX);
00165
00166 cleanup:
00167 return returnvalue;
00168 }
00169
00170
00176
00177 double
00178 xsh_pfits_get_qc_mbiasslope (const cpl_propertylist * plist)
00179 {
00180 double returnvalue = 0.0;
00181 cpl_type type;
00182
00183 type = cpl_propertylist_get_type (plist, XSH_QC_MBIASSLOPE);
00184
00185 check_msg (xsh_get_property_value (plist, XSH_QC_MBIASSLOPE,
00186 type, &returnvalue),
00187 "Error reading keyword '%s'", XSH_QC_MBIASSLOPE);
00188
00189 cleanup:
00190 return returnvalue;
00191 }
00192
00193
00194
00195
00196
00197
00198
00199
00200
00201
00202
00203 double xsh_pfits_get_qc_structx( const cpl_propertylist * plist)
00204 {
00205 double returnvalue = 0;
00206
00207 check_msg( xsh_get_property_value( plist, XSH_QC_STRUCT_X_REG1,
00208 CPL_TYPE_DOUBLE, &returnvalue),
00209 "Error reading keyword '%s'", XSH_QC_STRUCT_X_REG1);
00210
00211 cleanup:
00212 return returnvalue;
00213 }
00214
00215
00216
00217
00218
00219
00220
00221
00222
00223
00224
00225 double xsh_pfits_get_qc_structy( const cpl_propertylist * plist)
00226 {
00227 double returnvalue = 0;
00228
00229 check_msg( xsh_get_property_value( plist, XSH_QC_STRUCT_Y_REG1,
00230 CPL_TYPE_DOUBLE, &returnvalue),
00231 "Error reading keyword '%s'", XSH_QC_STRUCT_Y_REG1);
00232
00233 cleanup:
00234 return returnvalue;
00235 }
00236
00237
00238
00239
00240
00241
00242
00243
00244
00245
00246
00247
00248 double xsh_pfits_get_qc_ron( const cpl_propertylist * plist)
00249 {
00250 double returnvalue = 0;
00251
00252 check_msg( xsh_get_property_value( plist, XSH_QC_RON_REG1,
00253 CPL_TYPE_DOUBLE, &returnvalue),
00254 "Error reading keyword '%s'", XSH_QC_RON_REG1);
00255
00256 cleanup:
00257 return returnvalue;
00258 }
00259
00260
00266
00267 void
00268 xsh_pfits_set_qc_ron_master (cpl_propertylist * plist, double value)
00269 {
00270 check_msg (cpl_propertylist_update_double (plist,XSH_QC_MASTER_RON,value),
00271 "Error writing keyword '%s'", XSH_QC_MASTER_RON);
00272 cpl_propertylist_set_comment(plist,XSH_QC_MASTER_RON,XSH_QC_MASTER_RON_C);
00273
00274 cleanup:
00275 return;
00276 }
00277
00283
00284 void
00285 xsh_pfits_set_qc_fpn_master (cpl_propertylist * plist, double value)
00286 {
00287 check_msg (cpl_propertylist_update_double (plist,XSH_QC_MASTER_FPN,value),
00288 "Error writing keyword '%s'", XSH_QC_MASTER_FPN);
00289 cpl_propertylist_set_comment(plist,XSH_QC_MASTER_FPN,XSH_QC_MASTER_FPN_C);
00290
00291 cleanup:
00292 return;
00293 }
00294
00300
00301 void
00302 xsh_pfits_set_qc_fpn(cpl_propertylist * plist, double value)
00303 {
00304 check_msg (cpl_propertylist_update_double (plist,XSH_QC_FPN,value),
00305 "Error writing keyword '%s'", XSH_QC_FPN);
00306 cpl_propertylist_set_comment(plist,XSH_QC_FPN,XSH_QC_FPN_C);
00307
00308 cleanup:
00309 return;
00310 }
00311
00312
00318
00319 void
00320 xsh_pfits_set_qc_norm_fpn(cpl_propertylist * plist, double value)
00321 {
00322 check_msg (cpl_propertylist_update_double (plist,XSH_QC_NORM_FPN,value),
00323 "Error writing keyword '%s'", XSH_QC_NORM_FPN);
00324 cpl_propertylist_set_comment(plist,XSH_QC_NORM_FPN,XSH_QC_NORM_FPN_C);
00325
00326 cleanup:
00327 return;
00328 }
00329
00335
00336 void
00337 xsh_pfits_set_qc_norm_fpn_err(cpl_propertylist * plist, double value)
00338 {
00339 check_msg (cpl_propertylist_update_double (plist,XSH_QC_NORM_FPN_ERR,value),
00340 "Error writing keyword '%s'", XSH_QC_NORM_FPN_ERR);
00341 cpl_propertylist_set_comment(plist,XSH_QC_NORM_FPN_ERR,XSH_QC_NORM_FPN_ERR_C);
00342
00343 cleanup:
00344 return;
00345 }
00346
00347
00353
00354 void
00355 xsh_pfits_set_qc_reg1_structx (cpl_propertylist * plist, double value)
00356 {
00357 check_msg (cpl_propertylist_update_double (plist,XSH_QC_STRUCT_X_REG1,value),
00358 "Error writing keyword '%s'", XSH_QC_STRUCT_X_REG1);
00359 cpl_propertylist_set_comment(plist,XSH_QC_STRUCT_X_REG1,XSH_QC_STRUCT_X_REG1_C);
00360
00361 cleanup:
00362 return;
00363 }
00364
00370
00371 void
00372 xsh_pfits_set_qc_reg1_structy (cpl_propertylist * plist, double value)
00373 {
00374 check_msg (cpl_propertylist_update_double (plist,XSH_QC_STRUCT_Y_REG1, value),
00375 "Error writing keyword '%s'",XSH_QC_STRUCT_Y_REG1);
00376 cpl_propertylist_set_comment(plist,XSH_QC_STRUCT_Y_REG1,XSH_QC_STRUCT_Y_REG1_C);
00377
00378 cleanup:
00379 return;
00380 }
00381
00382
00383
00389
00390 void
00391 xsh_pfits_set_qc_reg2_structx (cpl_propertylist * plist, double value)
00392 {
00393 check_msg (cpl_propertylist_update_double (plist,XSH_QC_STRUCT_X_REG2, value),
00394 "Error writing keyword '%s'", XSH_QC_STRUCT_X_REG2);
00395 cpl_propertylist_set_comment(plist,XSH_QC_STRUCT_X_REG2,XSH_QC_STRUCT_X_REG2_C);
00396
00397 cleanup:
00398 return;
00399 }
00400
00406
00407 void
00408 xsh_pfits_set_qc_reg2_structy (cpl_propertylist * plist, double value)
00409 {
00410 check_msg (cpl_propertylist_update_double (plist,XSH_QC_STRUCT_Y_REG2, value),
00411 "Error writing keyword '%s'",XSH_QC_STRUCT_Y_REG2);
00412 cpl_propertylist_set_comment(plist,XSH_QC_STRUCT_Y_REG2,XSH_QC_STRUCT_Y_REG2_C);
00413
00414 cleanup:
00415 return;
00416 }
00417
00418
00419
00420
00421
00422
00423
00424
00425
00426
00427
00428
00429 void
00430 xsh_pfits_set_qc_ron1( cpl_propertylist * plist, double value)
00431 {
00432 check_msg( cpl_propertylist_update_double( plist,XSH_QC_RON_REG1, value),
00433 "Error writing keyword '%s'",XSH_QC_RON_REG1);
00434 cpl_propertylist_set_comment( plist,XSH_QC_RON_REG1,XSH_QC_RON_REG1_C);
00435
00436 cleanup:
00437 return;
00438 }
00439
00440
00441
00442
00443
00444
00445
00446
00447
00448
00449
00450
00451 void
00452 xsh_pfits_set_qc_ron2( cpl_propertylist * plist, double value)
00453 {
00454 check_msg( cpl_propertylist_update_double( plist,XSH_QC_RON_REG2, value),
00455 "Error writing keyword '%s'",XSH_QC_RON_REG2);
00456 cpl_propertylist_set_comment( plist,XSH_QC_RON_REG2,XSH_QC_RON_REG2_C);
00457
00458 cleanup:
00459 return;
00460 }
00461
00462
00463
00464
00465
00466
00467
00468
00469
00470
00471
00472
00473
00474 void
00475 xsh_pfits_set_qc_ron1_err( cpl_propertylist * plist, double value)
00476 {
00477 check_msg( cpl_propertylist_update_double( plist,XSH_QC_RON_REG1_ERR, value),
00478 "Error writing keyword '%s'",XSH_QC_RON_REG1_ERR);
00479 cpl_propertylist_set_comment( plist,XSH_QC_RON_REG1_ERR,XSH_QC_RON_REG1_ERR_C);
00480
00481 cleanup:
00482 return;
00483 }
00484
00485
00486
00487
00488
00489
00490
00491
00492
00493
00494
00495
00496 void
00497 xsh_pfits_set_qc_ron2_err( cpl_propertylist * plist, double value)
00498 {
00499 check_msg( cpl_propertylist_update_double( plist,XSH_QC_RON_REG2_ERR, value),
00500 "Error writing keyword '%s'",XSH_QC_RON_REG2_ERR);
00501 cpl_propertylist_set_comment( plist,XSH_QC_RON_REG2_ERR,XSH_QC_RON_REG2_ERR_C);
00502
00503 cleanup:
00504 return;
00505 }
00506
00507
00508 void xsh_pfits_set_qc_nlinecat(cpl_propertylist * plist, double value)
00509 {
00510 check_msg (cpl_propertylist_update_double (plist, XSH_QC_NLINE_CAT, value),
00511 "Error writing keyword '%s'", XSH_QC_NLINE_CAT);
00512 cpl_propertylist_set_comment (plist, XSH_QC_NLINE_CAT,XSH_QC_NLINE_CAT_C);
00513 cleanup:
00514 return;
00515 }
00516
00517
00518 void xsh_pfits_set_qc_nlinecat_clean(cpl_propertylist * plist, double value)
00519 {
00520 check_msg (cpl_propertylist_update_double (plist, XSH_QC_NLINE_CAT_CLEAN, value),
00521 "Error writing keyword '%s'", XSH_QC_NLINE_CAT_CLEAN);
00522 cpl_propertylist_set_comment (plist, XSH_QC_NLINE_CAT_CLEAN,XSH_QC_NLINE_CAT_CLEAN_C);
00523 cleanup:
00524 return;
00525 }
00526
00527
00528 void xsh_pfits_set_qc_nlinefound(cpl_propertylist * plist, double value)
00529 {
00530 check_msg (cpl_propertylist_update_double (plist, XSH_QC_NLINE_FOUND, value),
00531 "Error writing keyword '%s'", XSH_QC_NLINE_FOUND);
00532 cpl_propertylist_set_comment (plist, XSH_QC_NLINE_FOUND,XSH_QC_NLINE_FOUND_C);
00533 cleanup:
00534 return;
00535 }
00536
00537 void xsh_pfits_set_qc_nlinefound_clean(cpl_propertylist * plist, double value)
00538 {
00539 check_msg (cpl_propertylist_update_double (plist, XSH_QC_NLINE_FOUND_CLEAN, value),
00540 "Error writing keyword '%s'", XSH_QC_NLINE_FOUND_CLEAN);
00541 cpl_propertylist_set_comment (plist, XSH_QC_NLINE_FOUND_CLEAN,XSH_QC_NLINE_FOUND_CLEAN_C);
00542 cleanup:
00543 return;
00544 }
00545
00551
00552 void
00553 xsh_pfits_set_qc_mbiasavg (cpl_propertylist * plist, double value)
00554 {
00555 check_msg (cpl_propertylist_update_double (plist,XSH_QC_MASTER_BIAS_MEAN, value),
00556 "Error writing keyword '%s'",XSH_QC_MASTER_BIAS_MEAN);
00557 cpl_propertylist_set_comment(plist,XSH_QC_MASTER_BIAS_MEAN,XSH_QC_MASTER_BIAS_MEAN_C);
00558
00559 cleanup:
00560 return;
00561 }
00562
00568
00569 void
00570 xsh_pfits_set_qc_mbiasmed (cpl_propertylist * plist, double value)
00571 {
00572 check_msg (cpl_propertylist_update_double (plist,XSH_QC_MASTER_BIAS_MEDIAN, value),
00573 "Error writing keyword '%s'",XSH_QC_MASTER_BIAS_MEDIAN);
00574 cpl_propertylist_set_comment(plist,XSH_QC_MASTER_BIAS_MEDIAN,XSH_QC_MASTER_BIAS_MEDIAN_C);
00575
00576 cleanup:
00577 return;
00578 }
00579
00580
00586
00587 void
00588 xsh_pfits_set_qc_mbiasrms (cpl_propertylist * plist, double value)
00589 {
00590 check_msg (cpl_propertylist_update_double (plist,XSH_QC_MASTER_BIAS_RMS, value),
00591 "Error writing keyword '%s'",XSH_QC_MASTER_BIAS_RMS);
00592 cpl_propertylist_set_comment(plist,XSH_QC_MASTER_BIAS_RMS,XSH_QC_MASTER_BIAS_RMS_C);
00593
00594 cleanup:
00595 return;
00596 }
00597
00603
00604 void
00605 xsh_pfits_set_qc_nhpix (cpl_propertylist * plist, double value)
00606 {
00607 check_msg (cpl_propertylist_update_double (plist, XSH_QC_NHPIX, value),
00608 "Error writing keyword '%s'", XSH_QC_NHPIX);
00609
00610 cleanup:
00611 return;
00612 }
00613
00614
00620
00621 void
00622 xsh_pfits_set_qc_mbiasslope (cpl_propertylist * plist, double value)
00623 {
00624 check_msg (cpl_propertylist_update_double (plist, XSH_QC_MBIASSLOPE, value),
00625 "Error writing keyword '%s'", XSH_QC_MBIASSLOPE);
00626
00627 cleanup:
00628 return;
00629 }
00630
00631
00637
00638 void
00639 xsh_pfits_set_qc_ncrh (cpl_propertylist * plist, int value)
00640 {
00641 check_msg (cpl_propertylist_update_int (plist, XSH_QC_CRH_NUMBER, value),
00642 "Error writing keyword '%s'", XSH_QC_CRH_NUMBER);
00643 cpl_propertylist_set_comment(plist, XSH_QC_CRH_NUMBER,XSH_QC_CRH_NUMBER_C);
00644
00645 cleanup:
00646 return;
00647 }
00648
00654
00655 void
00656 xsh_pfits_set_qc_ncrh_mean (cpl_propertylist * plist, int value)
00657 {
00658 check_msg (cpl_propertylist_update_int (plist, XSH_QC_CRH_NUMBER_MEAN, value),
00659 "Error writing keyword '%s'", XSH_QC_CRH_NUMBER_MEAN);
00660 cpl_propertylist_set_comment(plist, XSH_QC_CRH_NUMBER_MEAN,XSH_QC_CRH_NUMBER_MEAN_C);
00661
00662 cleanup:
00663 return;
00664 }
00665
00671
00672 void
00673 xsh_pfits_set_qc_crrate (cpl_propertylist * plist, double value)
00674 {
00675 check_msg (cpl_propertylist_update_double (plist, XSH_QC_CRH_RATE, value),
00676 "Error writing keyword '%s'", XSH_QC_CRH_RATE);
00677 cpl_propertylist_set_comment(plist,XSH_QC_CRH_RATE,XSH_QC_CRH_RATE_C);
00678
00679 cleanup:
00680 return;
00681 }
00682
00688
00689 void
00690 xsh_pfits_set_qc_mdarkmed (cpl_propertylist * plist, double value)
00691 {
00692 check_msg (cpl_propertylist_update_double (plist, XSH_QC_MASTER_DARK_MEDIAN, value),
00693 "Error writing keyword '%s'", XSH_QC_MASTER_DARK_MEDIAN);
00694 cpl_propertylist_set_comment(plist, XSH_QC_MASTER_DARK_MEDIAN,XSH_QC_MASTER_DARK_MEDIAN_C);
00695
00696 cleanup:
00697 return;
00698 }
00699
00705
00706 void
00707 xsh_pfits_set_qc_mdarkrms (cpl_propertylist * plist, double value)
00708 {
00709 check_msg (cpl_propertylist_update_double (plist, XSH_QC_MASTER_DARK_RMS, value),
00710 "Error writing keyword '%s'", XSH_QC_MASTER_DARK_RMS);
00711 cpl_propertylist_set_comment(plist, XSH_QC_MASTER_DARK_RMS,XSH_QC_MASTER_DARK_RMS_C);
00712
00713 cleanup:
00714 return;
00715 }
00716
00722
00723 void
00724 xsh_pfits_set_qc_mdarkslope (cpl_propertylist * plist, double value)
00725 {
00726 check_msg (cpl_propertylist_update_double (plist, XSH_QC_MDARKSLOPE, value),
00727 "Error writing keyword '%s'", XSH_QC_MDARKSLOPE);
00728
00729 cleanup:
00730 return;
00731 }
00732
00733
00734
00740
00741 void
00742 xsh_pfits_set_qc_bp_map_ntotal(cpl_propertylist * plist, int value)
00743 {
00744 check_msg (cpl_propertylist_update_int
00745 (plist, XSH_QC_BP_MAP_NTOTAL, value),
00746 "Error writing keyword '%s'", XSH_QC_BP_MAP_NTOTAL);
00747 cpl_propertylist_set_comment(plist, XSH_QC_BP_MAP_NTOTAL, XSH_QC_BP_MAP_NTOTAL_C);
00748
00749 cleanup:
00750 return;
00751 }
00752
00753
00759
00760 void
00761 xsh_pfits_set_qc_contamination(cpl_propertylist * plist, double value)
00762 {
00763 check_msg (cpl_propertylist_update_double
00764 (plist, XSH_QC_CONTAM, value),
00765 "Error writing keyword '%s'", XSH_QC_CONTAM);
00766 cpl_propertylist_set_comment(plist, XSH_QC_CONTAM, XSH_QC_CONTAM_C);
00767
00768 cleanup:
00769 return;
00770 }
00771
00772
00773
00779
00780 void
00781 xsh_pfits_set_qc_mdarkavg (cpl_propertylist * plist, double value)
00782 {
00783 check_msg(cpl_propertylist_update_double(plist,XSH_QC_MASTER_DARK_MEAN,value),
00784 "Error writing keyword '%s'", XSH_QC_MASTER_DARK_MEAN);
00785 cpl_propertylist_set_comment(plist, XSH_QC_MASTER_DARK_MEAN,XSH_QC_MASTER_DARK_MEAN_C);
00786
00787 cleanup:
00788 return;
00789 }
00790
00796
00797 void
00798 xsh_pfits_set_qc_darkmed_ave (cpl_propertylist * plist, double value)
00799 {
00800 check_msg (cpl_propertylist_update_double (plist, XSH_QC_DARKMED_AVE, value),
00801 "Error writing keyword '%s'", XSH_QC_DARKMED_AVE);
00802
00803 cleanup:
00804 return;
00805 }
00806
00812
00813 void
00814 xsh_pfits_set_qc_darkmed_stdev (cpl_propertylist * plist, double value)
00815 {
00816 check_msg (cpl_propertylist_update_double
00817 (plist, XSH_QC_DARKMED_STDEV, value),
00818 "Error writing keyword '%s'", XSH_QC_DARKMED_STDEV);
00819
00820 cleanup:
00821 return;
00822 }
00823
00829
00830 void xsh_pfits_set_qc_ord_orderpos_residmin( cpl_propertylist * plist,
00831 double value )
00832 {
00833 check_msg(cpl_propertylist_update_double(plist,QC_ORD_ORDERPOS_RESIDMIN,
00834 value),
00835 "error writing keyword '%s'", QC_ORD_ORDERPOS_RESIDMIN);
00836 cleanup:
00837 return ;
00838 }
00839
00840 void xsh_pfits_set_qc_ord_orderpos_residmax( cpl_propertylist * plist,
00841 double value )
00842 {
00843 check_msg(cpl_propertylist_update_double(plist,QC_ORD_ORDERPOS_RESIDMAX,
00844 value),
00845 "error writing keyword '%s'", QC_ORD_ORDERPOS_RESIDMAX);
00846 cleanup:
00847 return ;
00848 }
00849
00850 void xsh_pfits_set_qc_ord_orderpos_residavg( cpl_propertylist * plist,
00851 double value )
00852 {
00853 check_msg(cpl_propertylist_update_double(plist,QC_ORD_ORDERPOS_RESIDAVG,
00854 value),
00855 "error writing keyword '%s'", QC_ORD_ORDERPOS_RESIDAVG);
00856 cleanup:
00857 return ;
00858 }
00859
00860 void xsh_pfits_set_qc_ord_orderpos_residrms( cpl_propertylist * plist,
00861 double value )
00862 {
00863 check_msg(cpl_propertylist_update_double(plist,QC_ORD_ORDERPOS_RESIDRMS,
00864 value),
00865 "error writing keyword '%s'", QC_ORD_ORDERPOS_RESIDRMS );
00866 cleanup:
00867 return ;
00868 }
00869
00870
00871 void xsh_pfits_set_qc_eff_fclip( cpl_propertylist * plist,
00872 double value )
00873 {
00874 check_msg(cpl_propertylist_update_double(plist,XSH_QC_EFF_FCLIP,value),
00875 "error writing keyword '%s'", XSH_QC_EFF_FCLIP);
00876 cleanup:
00877 return ;
00878 }
00879
00880 void xsh_pfits_set_qc_eff_nclip( cpl_propertylist * plist,
00881 int value )
00882 {
00883 check_msg(cpl_propertylist_update_int(plist,XSH_QC_EFF_NCLIP,value),
00884 "error writing keyword '%s'", XSH_QC_EFF_NCLIP);
00885 cleanup:
00886 return ;
00887 }
00888
00889 void xsh_pfits_set_qc_ord_orderpos_max_pred( cpl_propertylist * plist,
00890 int value )
00891 {
00892 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_MAX_PRED,value),
00893 "error writing keyword '%s'", QC_ORD_ORDERPOS_MAX_PRED);
00894 cleanup:
00895 return ;
00896 }
00897
00898 void xsh_pfits_set_qc_ord_orderpos_min_pred( cpl_propertylist * plist,
00899 int value )
00900 {
00901 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_MIN_PRED,value),
00902 "error writing keyword '%s'", QC_ORD_ORDERPOS_MIN_PRED);
00903 cleanup:
00904 return ;
00905 }
00906
00907 void xsh_pfits_set_qc_ord_orderpos_ndet( cpl_propertylist * plist,
00908 int value )
00909 {
00910 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_NDET,value),
00911 "error writing keyword '%s'", QC_ORD_ORDERPOS_NDET);
00912 cleanup:
00913 return ;
00914 }
00915
00916 void xsh_pfits_set_qc_ord_orderpos_nposall( cpl_propertylist * plist,
00917 int value )
00918 {
00919 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_NPOSALL,value),
00920 "error writing keyword '%s'", QC_ORD_ORDERPOS_NPOSALL);
00921 cleanup:
00922 return ;
00923 }
00924
00925 void xsh_pfits_set_qc_ord_orderpos_npossel( cpl_propertylist * plist,
00926 int value )
00927 {
00928 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_NPOSSEL,value),
00929 "error writing keyword '%s'", QC_ORD_ORDERPOS_NPOSSEL);
00930 cleanup:
00931 return ;
00932 }
00933
00934 void xsh_pfits_set_qc_ord_orderpos_npred( cpl_propertylist * plist,
00935 int value )
00936 {
00937 check_msg(cpl_propertylist_update_int(plist,QC_ORD_ORDERPOS_NPRED,value),
00938 "error writing keyword '%s'", QC_ORD_ORDERPOS_NPRED);
00939 cleanup:
00940 return ;
00941 }
00942
00958 void xsh_pfits_set_qc_multi( cpl_propertylist *plist, void *value,
00959 const char * kw, xsh_instrument * instrument,
00960 int idx )
00961 {
00962 qc_description *pqc = NULL ;
00963 char real_kw[32] ;
00964
00965 XSH_ASSURE_NOT_NULL( plist ) ;
00966 XSH_ASSURE_NOT_NULL( value ) ;
00967 XSH_ASSURE_NOT_NULL( kw ) ;
00968 XSH_ASSURE_NOT_NULL( instrument ) ;
00969 XSH_ASSURE_NOT_NULL( instrument->recipe_id ) ;
00970
00971 pqc = xsh_get_qc_desc_by_kw( kw ) ;
00972 XSH_ASSURE_NOT_NULL( pqc ) ;
00973
00974 if ( xsh_qc_in_recipe( pqc, instrument ) != 0 ) {
00975 xsh_msg( "QC Parameter '%s' not in recipe '%s'",
00976 kw, instrument->recipe_id ) ;
00977 return ;
00978 }
00979
00980
00981 if ( strchr( pqc->kw_name, 'i' ) != NULL ) {
00982
00983 char kformat[80];
00984 const char *pk;
00985 char* pm;
00986 xsh_msg_dbg_high( " ++++ Multiple KW '%s'", pqc->kw_name ) ;
00987
00988 for( pk = pqc->kw_name, pm = kformat ; *pk != '\0' ; pk++ )
00989 if ( *pk == 'i' ) {
00990 strcpy( pm, "%d" ) ;
00991 pm += 2 ;
00992 }
00993 else *pm++ = *pk ;
00994 *pm = '\0' ;
00995
00996 sprintf( real_kw, kformat, idx ) ;
00997 }
00998
00999 switch ( pqc->kw_type ) {
01000 case CPL_TYPE_INT:
01001 check_msg(cpl_propertylist_update_int( plist, real_kw,
01002 *(int *)value),
01003 "error writing keyword '%s'", kw ) ;
01004 break ;
01005 case CPL_TYPE_FLOAT:
01006 check_msg(cpl_propertylist_update_float( plist, real_kw,
01007 *(float *)value),
01008 "error writing keyword '%s'", kw ) ;
01009 break ;
01010 case CPL_TYPE_DOUBLE:
01011 check_msg(cpl_propertylist_update_double( plist, real_kw,
01012 *(double *)value),
01013 "error writing keyword '%s'", kw ) ;
01014 break ;
01015 case CPL_TYPE_STRING:
01016 check_msg(cpl_propertylist_update_string( plist, real_kw, (char *)value),
01017 "error writing keyword '%s'", kw ) ;
01018 break ;
01019 default:
01020 break ;
01021 }
01022 cleanup:
01023 return ;
01024 }
01025
01037 void xsh_pfits_set_qc( cpl_propertylist *plist, void *value,
01038 const char *kw, xsh_instrument * instrument )
01039 {
01040 qc_description *pqc = NULL ;
01041
01042 XSH_ASSURE_NOT_NULL( plist ) ;
01043 XSH_ASSURE_NOT_NULL( value ) ;
01044 XSH_ASSURE_NOT_NULL( kw ) ;
01045 XSH_ASSURE_NOT_NULL( instrument ) ;
01046 XSH_ASSURE_NOT_NULL( instrument->recipe_id ) ;
01047
01048 pqc = xsh_get_qc_desc_by_kw( kw);
01049 XSH_ASSURE_NOT_NULL( pqc ) ;
01050
01051 if ( xsh_qc_in_recipe( pqc, instrument ) != 0 ) {
01052 xsh_msg( "QC Parameter '%s' not in recipe '%s'",
01053 kw, instrument->recipe_id ) ;
01054 return ;
01055 }
01056
01057
01058 switch ( pqc->kw_type ) {
01059 case CPL_TYPE_INT:
01060 check_msg(cpl_propertylist_update_int( plist, pqc->kw_name,
01061 *(int *)value),
01062 "error writing keyword '%s'", kw ) ;
01063 break ;
01064 case CPL_TYPE_FLOAT:
01065 check_msg(cpl_propertylist_update_float( plist, pqc->kw_name,
01066 *(float *)value),
01067 "error writing keyword '%s'", kw ) ;
01068 break ;
01069 case CPL_TYPE_DOUBLE:
01070 check_msg(cpl_propertylist_update_double( plist, pqc->kw_name,
01071 *(double *)value),
01072 "error writing keyword '%s'", kw ) ;
01073 break ;
01074 case CPL_TYPE_STRING:
01075 check_msg(cpl_propertylist_update_string( plist, pqc->kw_name,
01076 (char *)value),
01077 "error writing keyword '%s'", kw ) ;
01078 break ;
01079 default:
01080 break ;
01081 }
01082 cleanup:
01083 return ;
01084 }
01085