Changeset 900


Ignore:
Timestamp:
07.02.2013 17:27:42 (7 years ago)
Author:
marcus
Message:

r408 | walther | 2013-02-07 17:27:33 +0100 (Do, 07. Feb 2013) | 1 Zeile

  • changed default for older installations without proper configuration file
File:
1 edited

Legend:

Unmodified
Added
Removed
  • SH_SHM/trunk/source/motif/cblib2.c

    r898 r900  
    268268        float    distance_km;                /* distance in km */ 
    269269        double   dist_deg, az, baz;          /* scratch */ 
     270        char     *formula_mode;              /* scratch */ 
    270271        TPiPhase *phase;                     /* phase to insert magnitude info */ 
    271272        GLT_STATINF *statinf;                /* station info */ 
     
    396397 
    397398        /* check magnitude formula type from global parameters */ 
    398         if (strcmp(GpGetString(cGpS_local_magnitude_formula), "classic")) 
     399        formula_mode = GpGetString(cGpS_local_magnitude_formula); 
     400        if (strcmp(formula_mode, "iaspei") == 0) 
     401            ml = si_magn_ml_analytic( ml_ampl, distance_km, status ); 
     402        else 
    399403            ml = si_magn_ml( ml_ampl, distance_km, status ); 
    400         else 
    401             ml = si_magn_ml_analytic( ml_ampl, distance_km, status ); 
    402404 
    403405        sel->select[0].magnitude = ml; 
Note: See TracChangeset for help on using the changeset viewer.