Changeset 7381


Ignore:
Timestamp:
05/01/18 19:23:42 (4 months ago)
Author:
baker
Message:

fix mixed logical and bitwise debug tests; convert run-time tests to compile-time conditional code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/libsrc/earlybird/taulib.c

    r6803 r7381  
    3030#define NCMD            4 
    3131#define LCMD            16 
    32 #define DEBUGL          0 
     32#define DEBUGL          0       /* 0 = disable, 1 = enable debug messages */ 
    3333 
    3434/* Variables used in phase getting */ 
     
    102102   if ( nrec > 0 ) 
    103103   { 
    104       if ( DEBUGL ) logit( "", "bkin read; nrec=%d, reclen=%d, len=%d\n", 
    105                            nrec, iRecLen, len ); 
     104#if DEBUGL 
     105      logit( "", "bkin read; nrec=%d, reclen=%d, len=%d\n", 
     106                 nrec, iRecLen, len ); 
     107#endif 
    106108      fseek( hFileTbl, (nrec-1)*iRecLen, SEEK_SET ); 
    107109      fread( buf, sizeof (double), len, hFileTbl ); 
     
    239241         break; 
    240242      } 
    241       if ( DEBUGL ) logit( "", "j phcd phtmp = %d %s %s\n", j+1, szPhcd[j], 
    242                            phtmp ); 
     243#if DEBUGL 
     244      logit( "", "j phcd phtmp = %d %s %s\n", j+1, szPhcd[j], phtmp ); 
     245#endif 
    243246/* Make sure generic names are unique within a segment. */ 
    244247      if ( kseg >= 0 ) 
     
    247250      strcpy( segcd[kseg], phtmp ); 
    248251      nsgpt[kseg] = i; 
    249       if ( prflg[2] && DEBUGL )  
     252#if DEBUGL 
     253      if ( prflg[2] )  
    250254         logit( "", "kseg nsgpt segcd = %d %d %s\n", 
    251255                kseg+1, nsgpt[kseg]+1, segcd[kseg] ); 
     256#endif 
    252257      NextCheck: 
    253258      if ( iJIDex[j] < iIndx[i][1] ) goto JInc; 
     
    267272         l          = nsgpt[k]; 
    268273         bSegmsk[l] = TRUE; 
    269          if ( DEBUGL )  
    270             logit( "", "Brnset:  phase found - i k l segcd = %d %d %d %s\n", 
    271                    i, k, l, segcd[k] ); 
     274#if DEBUGL 
     275         logit( "", "Brnset:  phase found - i k l segcd = %d %d %d %s\n", 
     276                    i, k, l, segcd[k] ); 
     277#endif 
    272278      } 
    273279/* If no matching entry is found, warn the caller. */ 
    274       if ( !fnd & DEBUGL ) 
     280#if DEBUGL 
     281      if ( !fnd ) 
    275282         logit( "", "Brnset:  phase %s not found\n", phlst[i] ); 
     283#endif 
    276284      continue; 
    277285 
     
    286294               l = nsgpt[k]; 
    287295               bSegmsk[l] = TRUE; 
    288                if ( DEBUGL )  
    289                   logit( "", "Brnset:  cmdlst found - j k l segcd = " 
    290                          "%d %d %d %s\n", i, k, l, segcd[k] ); 
     296#if DEBUGL 
     297               logit( "", "Brnset:  cmdlst found - j k l segcd = " 
     298                          "%d %d %d %s\n", i, k, l, segcd[k] ); 
     299#endif 
    291300            } 
    292301   } 
     
    305314      for ( j1=j2; j1<=kseg+1; j1++ ) 
    306315         if ( nsgpt[j1-1] == i ) goto SkipAhead; 
    307       if ( DEBUGL ) logit( "", "Brnset:  Segment pointer (%d) missing?\n", i ); 
     316#if DEBUGL 
     317      logit( "", "Brnset:  Segment pointer (%d) missing?\n", i ); 
     318#endif 
    308319      continue; 
    309320      SkipAhead: 
     
    314325      SkipAhead2: 
    315326      j2--; 
    316       if ( !fnd & DEBUGL )  
     327#if DEBUGL 
     328      if ( !fnd )  
    317329         logit( "", "Brnset:  the following phases have been selected:\n" ); 
     330#endif 
    318331      fnd = TRUE; 
    319       if ( DEBUGL ) 
    320       { 
    321          logit( "", "     %d  ", i+1 ); 
    322          for ( j=j1-1; j<j2; j++ ) logit( "", "%10s", segcd[j] ); 
    323          logit( "", "\n" ); 
    324       } 
     332#if DEBUGL 
     333      logit( "", "     %d  ", i+1 ); 
     334      for ( j=j1-1; j<j2; j++ ) logit( "", "%10s", segcd[j] ); 
     335      logit( "", "\n" ); 
     336#endif 
    325337   } 
    326338   return( 1 ); 
     
    894906         CheckHere: 
    895907         if ( *n > le ) goto InnerLoopEnd; 
    896          if ( DEBUGL ) logit( "", "Failed to find phase:  %s %lf %lf %lf %lf %lf\n", 
    897                         szPhcd[jb], x, dp0, dp, p1, p0 ); 
     908#if DEBUGL 
     909         logit( "", "Failed to find phase:  %s %lf %lf %lf %lf %lf\n", 
     910                    szPhcd[jb], x, dp0, dp, p1, p0 ); 
     911#endif 
    898912         InnerLoopEnd: 
    899913         j = i; 
     
    920934   return; 
    921935   SayWarning: 
    922    if ( DEBUGL ) logit( "", "More than %d arrivals found.\n", MAX_PHASES ); 
     936#if DEBUGL 
     937   logit( "", "More than %d arrivals found.\n", MAX_PHASES ); 
     938#endif 
    923939   return; 
    924940} 
     
    10211037   int    is, n, ie;            /* Based on 1 */ 
    10221038 
    1023    if ( DEBUGL ) logit( "", "Pdecu:  ua = %lf\n", dUa[0][in] ); 
     1039#if DEBUGL 
     1040   logit( "", "Pdecu:  ua = %lf\n", dUa[0][in] ); 
     1041#endif 
    10241042   if ( dUa[0][in] > 0. ) 
    10251043   { 
    1026       if ( DEBUGL ) logit( "", "Pdecu:  fill in new grid\n" ); 
     1044#if DEBUGL 
     1045      logit( "", "Pdecu:  fill in new grid\n" ); 
     1046#endif 
    10271047      k = i1; 
    10281048      for ( i=0; i<iKa; i++ ) 
     
    10351055      dTau[k][0] = dTau[*i2-1][0]; 
    10361056      *i2 = k + 1; 
    1037       if ( DEBUGL ) 
    1038       { 
    1039          logit( "", " %d %lf\n", i, dPt[i] ); 
    1040          for ( i=i1-1; i<*i2; i++ ) logit( "", "%lf ", dTau[i][0] ); 
    1041          logit( "", "\n" ); 
    1042       } 
     1057#if DEBUGL 
     1058      logit( "", " %d %lf\n", i, dPt[i] ); 
     1059      for ( i=i1-1; i<*i2; i++ ) logit( "", "%lf ", dTau[i][0] ); 
     1060      logit( "", "\n" ); 
     1061#endif 
    10431062      return; 
    10441063   } 
     
    11161135   } 
    11171136   *i2 = k + 1; 
    1118    if ( DEBUGL ) 
    1119    { 
    1120       logit( "", " %d %lf\n", i, dPt[i] ); 
    1121       for ( i=i1-1; i<*i2; i++ ) logit( "", "%lf ", dTau[i][0] ); 
    1122       logit( "", "\n" ); 
    1123    } 
     1137#if DEBUGL 
     1138   logit( "", " %d %lf\n", i, dPt[i] ); 
     1139   for ( i=i1-1; i<*i2; i++ ) logit( "", "%lf ", dTau[i][0] ); 
     1140   logit( "", "\n" ); 
     1141#endif 
    11241142   return; 
    11251143} 
     
    14921510   for ( nph=0; nph<2; nph++ ) dPu[iKu[nph]][nph] = dPm[0][nph]; 
    14931511 
    1494    if ( DEBUGL )  
    1495    { 
    1496       logit( "", "nasgr nl len2 %d %d %d\n", iRecLen, nl, len2 ); 
    1497       logit( "", "iNSeg iNBrn iMt ku km %d %d %d %d %d %d %d %d\n", 
    1498                iNSeg, iNBrn, iMt[0], iMt[1], iKu[0], iKu[1], iKm[0], iKm[1] ); 
    1499       logit( "", "%lf %lf %lf\n", dXn, dPn, dTn ); 
    1500       for ( i=0; i<iMt[1]; i++ ) 
    1501          logit( "", "%d %d %lf %lf %d %lf %lf\n", i+1, iNDex[i][0], 
    1502                 dPm[i][0], dZm[i][0], iNDex[i][1], dPm[i][1], dZm[i][1] ); 
    1503       for ( i=0; i<iKu[1]+1; i++ ) 
    1504          logit( "", "%d %lf %lf\n", i+1, dPu[i][0], dPu[i][1] ); 
    1505       for ( i=0; i<iKm[1]; i++ ) 
    1506          logit( "", "%d %lf %lf\n", i+1, dPux[i][0], dPux[i][1] ); 
    1507       for ( i=0; i<iNSeg; i++ ) 
    1508          logit( "", "%d %5d %5d %5d %5d %5d %5d %5d %lf %lf %lf\n", 
    1509                 i+1, iNafl[i][0], iNafl[i][1], iNafl[i][2], iIndx[i][0],  
    1510                 iIndx[i][1], iKndx[i][0], iKndx[i][1], dFcs[i][0], dFcs[i][1],  
    1511                 dFcs[i][2] ); 
    1512       for ( i=0; i<iNBrn; i++ ) 
    1513          logit( "", "%d %d %d %lf %lf %lf %lf %s\n", i+1, iJNDex[i][0], 
    1514                 iJNDex[i][1], dPx[i][0], dPx[i][1], DEG*dXt[i][0],  
    1515                 DEG*dXt[i][1], szPhcd[i] ); 
    1516       for ( i=0; i<JOUT; i++ ) 
    1517          logit( "", "%d %lf %lf %lf %lf %lf %lf %lf\n", i+1, dPt[i], 
    1518                 dTaut[i],dCoef[0][i],dCoef[1][i], dCoef[2][i], dCoef[3][i],  
    1519                 dCoef[4][i] ); 
    1520    } 
     1512#if DEBUGL 
     1513   logit( "", "nasgr nl len2 %d %d %d\n", iRecLen, nl, len2 ); 
     1514   logit( "", "iNSeg iNBrn iMt ku km %d %d %d %d %d %d %d %d\n", 
     1515              iNSeg, iNBrn, iMt[0], iMt[1], iKu[0], iKu[1], iKm[0], iKm[1] ); 
     1516   logit( "", "%lf %lf %lf\n", dXn, dPn, dTn ); 
     1517   for ( i=0; i<iMt[1]; i++ ) 
     1518      logit( "", "%d %d %lf %lf %d %lf %lf\n", i+1, iNDex[i][0], 
     1519                 dPm[i][0], dZm[i][0], iNDex[i][1], dPm[i][1], dZm[i][1] ); 
     1520   for ( i=0; i<iKu[1]+1; i++ ) 
     1521      logit( "", "%d %lf %lf\n", i+1, dPu[i][0], dPu[i][1] ); 
     1522   for ( i=0; i<iKm[1]; i++ ) 
     1523      logit( "", "%d %lf %lf\n", i+1, dPux[i][0], dPux[i][1] ); 
     1524   for ( i=0; i<iNSeg; i++ ) 
     1525      logit( "", "%d %5d %5d %5d %5d %5d %5d %5d %lf %lf %lf\n", 
     1526                 i+1, iNafl[i][0], iNafl[i][1], iNafl[i][2], iIndx[i][0],  
     1527                 iIndx[i][1], iKndx[i][0], iKndx[i][1], dFcs[i][0], dFcs[i][1],  
     1528                 dFcs[i][2] ); 
     1529   for ( i=0; i<iNBrn; i++ ) 
     1530      logit( "", "%d %d %d %lf %lf %lf %lf %s\n", i+1, iJNDex[i][0], 
     1531                 iJNDex[i][1], dPx[i][0], dPx[i][1], DEG*dXt[i][0],  
     1532                 DEG*dXt[i][1], szPhcd[i] ); 
     1533   for ( i=0; i<JOUT; i++ ) 
     1534      logit( "", "%d %lf %lf %lf %lf %lf %lf %lf\n", i+1, dPt[i], 
     1535                 dTaut[i],dCoef[0][i],dCoef[1][i], dCoef[2][i], dCoef[3][i],  
     1536                 dCoef[4][i] ); 
     1537#endif 
    15211538   dTn      = 1. / dTn; 
    15221539   dDn      = PI / (180.*dPn*dXn); 
     
    15521569         } 
    15531570   } 
    1554    if ( DEBUGL )  
    1555    { 
    1556       for ( i=0; i<iNBrn; i++ ) 
    1557          logit( "", "%d %s %lf %lf %d\n", i+1, szPhcd[i], dDBrn[i][0], 
    1558                   dDBrn[i][1], iJIDex[i] ); 
    1559       for ( i=0; i<JBRNU; i++ ) 
    1560          logit( "", "%d %lf %lf\n", i+1, dTp[i][0], dTp[i][1] ); 
    1561    } 
     1571#if DEBUGL 
     1572   for ( i=0; i<iNBrn; i++ ) 
     1573      logit( "", "%d %s %lf %lf %d\n", i+1, szPhcd[i], dDBrn[i][0], 
     1574                 dDBrn[i][1], iJIDex[i] ); 
     1575   for ( i=0; i<JBRNU; i++ ) 
     1576      logit( "", "%d %lf %lf\n", i+1, dTp[i][0], dTp[i][1] ); 
     1577#endif 
    15621578   return 1; 
    15631579} 
     
    16791695      sprintf (msg, "Bad range: %12.4lf%12.4lf%12.4lf%12.4lf%12.4lf\n", 
    16801696       ptk, ptj, pti, *tau2, *x); 
    1681       if ( DEBUGL ) logit( "", "%s\n", msg ); 
     1697#if DEBUGL 
     1698      logit( "", "%s\n", msg ); 
     1699#endif 
    16821700   } 
    16831701   else 
     
    16851703      if ( *tau2 >= -1.e-10 ) return; 
    16861704      sprintf( msg, "Bad tau2: %12.4lf%12.4lf%12.4lf%12.4lf%12.4lf\n", 
    1687        ptk, ptj, pti, *tau2, *x ); 
    1688       if (DEBUGL) logit( "", "%s\n", msg ); 
     1705                    ptk, ptj, pti, *tau2, *x ); 
     1706#if DEBUGL 
     1707      logit( "", "%s\n", msg ); 
     1708#endif 
    16891709      return; 
    16901710   } 
Note: See TracChangeset for help on using the changeset viewer.