version 1.8, 2014/09/18 14:18:29
|
version 1.9, 2017/03/31 19:43:36
|
Line 197 int jretile_manytofew(void) |
|
Line 197 int jretile_manytofew(void) |
|
if (outkeytest != NULL && outkeytest->info->recscope == 1) | if (outkeytest != NULL && outkeytest->info->recscope == 1) |
sinbdivsout=drms_getkey_int(tempoutrec, "SINBDIVS", &status); | sinbdivsout=drms_getkey_int(tempoutrec, "SINBDIVS", &status); |
| |
|
float apinnerout=0.0; |
|
float apwidthout=0.0; |
|
outkeytest = hcon_lookup_lower(&tempoutrec->keywords, "APINNER"); |
|
if (outkeytest != NULL && outkeytest->info->recscope == 1) |
|
apinnerout=drms_getkey_float(tempoutrec, "APINNER", &status); |
|
outkeytest = hcon_lookup_lower(&tempoutrec->keywords, "APWIDTH"); |
|
if (outkeytest != NULL && outkeytest->info->recscope == 1) |
|
apwidthout=drms_getkey_float(tempoutrec, "APWIDTH", &status); |
|
|
drms_close_record(tempoutrec, DRMS_FREE_RECORD); | drms_close_record(tempoutrec, DRMS_FREE_RECORD); |
| |
char *inchecklist[] = {"T_START", "QUALITY", "LMIN", "LMAX", "T_STEP"}; | char *inchecklist[] = {"T_START", "QUALITY", "LMIN", "LMAX", "T_STEP"}; |
Line 262 int jretile_manytofew(void) |
|
Line 271 int jretile_manytofew(void) |
|
} | } |
| |
inkeytest = hcon_lookup_lower(&inrec->keywords, "SINBDIVS"); | inkeytest = hcon_lookup_lower(&inrec->keywords, "SINBDIVS"); |
if (outkeytest != NULL) |
if (inkeytest != NULL) |
sinbdivs=drms_getkey_int(inrec, "SINBDIVS", &status); | sinbdivs=drms_getkey_int(inrec, "SINBDIVS", &status); |
if (sinbdivsout != -1 && sinbdivsout != sinbdivs) | if (sinbdivsout != -1 && sinbdivsout != sinbdivs) |
{ | { |
Line 271 int jretile_manytofew(void) |
|
Line 280 int jretile_manytofew(void) |
|
return 1; | return 1; |
} | } |
| |
|
float apinner=0.0; |
|
float apwidth=0.0; |
|
inkeytest = hcon_lookup_lower(&inrec->keywords, "APINNER"); |
|
if (inkeytest != NULL) |
|
apinner=drms_getkey_float(inrec, "APINNER", &status); |
|
if (apinnerout != 0.0 && (int)(10000*apinnerout) != (int)(10000*apinner)) |
|
{ |
|
fprintf(stderr, "ERROR: input APINNER does not equal output APINNER, in=%d, out=%d\n",apinner, apinnerout); |
|
drms_close_records(inrecset, DRMS_FREE_RECORD); |
|
return 1; |
|
} |
|
|
|
inkeytest = hcon_lookup_lower(&inrec->keywords, "APWIDTH"); |
|
if (inkeytest != NULL) |
|
apwidth=drms_getkey_float(inrec, "APWIDTH", &status); |
|
if (apinnerout != 0.0 && (int)(10000*apwidthout) != (int)(10000*apwidth)) |
|
{ |
|
fprintf(stderr, "ERROR: input APWIDTH does not equal output APWIDTH, in=%d, out=%d\n", apwidth, apwidth); |
|
drms_close_records(inrecset, DRMS_FREE_RECORD); |
|
return 1; |
|
} |
|
|
status=drms_stage_records(inrecset, 1, 0); | status=drms_stage_records(inrecset, 1, 0); |
if (status != DRMS_SUCCESS) | if (status != DRMS_SUCCESS) |
{ | { |