(file) Return to jretile_manytofew.c CVS log (file) (dir) Up to [Development] / JSOC / proj / globalhs / apps

Diff for /JSOC/proj/globalhs/apps/jretile_manytofew.c between version 1.5 and 1.10

version 1.5, 2013/01/24 06:45:53 version 1.10, 2017/03/31 20:02:28
Line 1 
Line 1 
   char *cvsinfo_jretile_manytofew = "cvsinfo: $Header$";
   
 int jretile_manytofew(void) int jretile_manytofew(void)
 { {
   int newstat = 0;   int newstat = 0;
Line 119  int jretile_manytofew(void)
Line 121  int jretile_manytofew(void)
   }   }
  
 // set up ancillary dataseries for processing metadata // set up ancillary dataseries for processing metadata
   char *cvsinfo = strdup("$Header$");  //  char *cvsinfo = strdup("$Header$");
   DRMS_Link_t *histlink = hcon_lookup_lower(&tempoutrec->links, histlinkname);   DRMS_Link_t *histlink = hcon_lookup_lower(&tempoutrec->links, histlinkname);
   if (histlink != NULL)   if (histlink != NULL)
   {   {
     histrecnum=set_history(histlink, cvsinfo);      histrecnum=set_history(histlink);
     if (histrecnum < 0)     if (histrecnum < 0)
     {     {
       drms_close_record(tempoutrec, DRMS_FREE_RECORD);       drms_close_record(tempoutrec, DRMS_FREE_RECORD);
Line 195  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;
     float apinner=0.0;
     float apwidth=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 260  int jretile_manytofew(void)
Line 273  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 269  int jretile_manytofew(void)
Line 282  int jretile_manytofew(void)
     return 1;     return 1;
   }   }
  
     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=%f, out=%f\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=%f, out=%f\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)
   {   {
Line 328  int jretile_manytofew(void)
Line 361  int jretile_manytofew(void)
       if (verbflag > 2)       if (verbflag > 2)
       {       {
 //        sprint_time(tscrstr, tstartin, "TAI", 0); //        sprint_time(tscrstr, tstartin, "TAI", 0);
         fprintf(stderr, "WARNING: input data not used due to quality: T_START = %s, LMIN = %d, LMAX = %d, recnum = %lld, irec = %d, status = %d, quality = %08x\n",          printf("SKIP: input data not used due to quality: T_START = %s, LMIN = %d, LMAX = %d, recnum = %lld, irec = %d, status = %d, quality = %08x\n",
                                                                       tscrstr, lminin, lmaxin, inrec->recnum, irecin, status, quality);                                                                       tscrstr, lminin, lmaxin, inrec->recnum, irecin, status, quality);
       }       }
       for (irecout=0; irecout < nrecsout; irecout++)       for (irecout=0; irecout < nrecsout; irecout++)


Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10

Karen Tian
Powered by
ViewCVS 0.9.4