Changeset 8024


Ignore:
Timestamp:
06/19/19 08:47:51 (2 months ago)
Author:
kevin
Message:

Added changes from r8019 Arias Intensity and ColorPGA option that were removed with r8022

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/libsrc/util/rw_strongmotionII.c

    r8022 r8024  
    655655           } 
    656656           /* End of QID line processing */ 
     657       else if (strcmp(token, "AI:") == 0) { 
     658           if (HAVE(SM_SCNL) ) { 
     659               token = strtok(NULL, " \n"); 
     660               if (token == NULL) { 
     661                   if (logErr) 
     662                       logit("t", "error parsing SM AI line <%s>\n", line); 
     663                   status = -1; 
     664                   goto NextLine; 
     665               } 
     666               if( sscanf( token, "%lf", &sm->ai) != 1) { 
     667                   if (logErr) 
     668                       logit("t", "error parsing AI from <%s>\n", line); 
     669                   status = -1; 
     670                   goto NextLine; 
     671               } 
     672               smState |= SM_AI; 
    657673       } else { 
    658674           /* unknown line; skip it for now */ 
     
    734750   if( strappend( buf, buflen, tmp ) ) return( -1 ); 
    735751 
     752/* Print the AI (Arias Intensity) */ 
     753   if( sm->ai != 0. ) 
     754   { 
     755     sprintf( tmp, "AI: %.6lf\n", sm->ai ); 
     756     if( strappend( buf, buflen, tmp ) ) return( -1 ); 
     757   } 
     758 
    736759   return( 0 ); 
    737760} 
     
    785808/* Print eventid & author */ 
    786809   logit("","\nQID: %s %s\n", sm->qid, sm->qauthor); 
     810 
     811/* Print the AI (Arias Intensity) */ 
     812   if( sm->ai != 0. ) 
     813   { 
     814     logit("","AI: %.6lf\n", sm->ai ); 
     815   } 
    787816 
    788817   return; 
Note: See TracChangeset for help on using the changeset viewer.