Changeset 3162


Ignore:
Timestamp:
11/29/07 19:03:30 (11 years ago)
Author:
dietz
Message:

Added config file option "ReportCoda?" to control whether codas are
written to the output or not.

Location:
trunk/src/seismic_processing/eqprelim
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/seismic_processing/eqprelim/eqprelim.c

    r2724 r3162  
    88 *    Revision history: 
    99 *     $Log$ 
     10 *     Revision 1.9  2007/11/30 00:03:30  dietz 
     11 *     Added config file option "ReportCoda" to control whether codas are 
     12 *     written to the output or not. 
     13 * 
    1014 *     Revision 1.8  2007/02/26 19:50:03  paulf 
    1115 *     fixed a ton of windows warnings 
     
    8892static char NextProc[150];      /* actual command to start next program     */ 
    8993static int  ReportS;            /* if 0, don't send S to next process       */ 
     94static int  ReportCoda = 1;     /* if 0, don't send codas to next process   */ 
    9095static int  NumPickNotify;      /* send prelim eq if it has this many picks */ 
    9196static char LocalCode;          /* single char to label local picks with    */ 
     
    621626            } 
    622627 
     628            else if( k_its("ReportCoda") ) { 
     629                ReportCoda = k_int(); 
     630            } 
     631 
     632 
    623633         /* Some commands may be processed by other functions 
    624634          ***************************************************/ 
     
    10531063/* Write all info to an Earthworm phase card 
    10541064 *******************************************/ 
    1055    sprintf( phscard, 
     1065   if( ReportCoda ) { 
     1066      sprintf( phscard, 
    10561067           "%s %s %s %s %c%c %s %s %ld %ld %ld %ld %ld %ld %ld %ld %ld %hd %c\n", 
    10571068            Site[is].name, 
     
    10741085            Pck[ip].clen, 
    10751086            datasrc ); 
    1076   
     1087   } else { 
     1088       sprintf( phscard, 
     1089           "%s %s %s %s %c%c %s %s %ld %ld %ld 0 0 0 0 0 0 0 %c\n", 
     1090            Site[is].name, 
     1091            Site[is].comp, 
     1092            Site[is].net, 
     1093            Site[is].loc, 
     1094            Pck[ip].fm, 
     1095            Pck[ip].wt, 
     1096            Phs[iph], 
     1097            timestr, 
     1098            Pck[ip].pamp[0], 
     1099            Pck[ip].pamp[1], 
     1100            Pck[ip].pamp[2], 
     1101            datasrc ); 
     1102   } 
     1103 
    10771104 /*logit( "", "%s", phscard );*/ /*DEBUG*/ 
    10781105   return( phscard ); 
  • trunk/src/seismic_processing/eqprelim/eqprelim.d

    r1745 r3162  
    4848 ReportS        0         # 0 = do NOT send S-phases to next process 
    4949                          # non-zero = send S-phases to next process 
     50 ReportCoda     0         # 0 = do NOT send codas to the next process 
     51                          # non-zero = send codas to the next process 
    5052 LocalCode      W         # single char to identify local picks with 
    5153 
Note: See TracChangeset for help on using the changeset viewer.