Ignore:
Timestamp:
21.01.2016 18:03:31 (4 years ago)
Author:
klaus
Message:

save and recover of traces and parameters

File:
1 edited

Legend:

Unmodified
Added
Removed
  • SHX/trunk/SeismicHandler/cmdscripts/SHX_MENU_NEXT_EVENT.SHC

    r1135 r1136  
     1 
     2default 1 1  increment 
    13 
    24sdef evline 
    35sdef evlist 
    46sdef rtime 
     7sdef epilat 
     8sdef epilon 
    59 
    610param get ev_list &evlist 
    711param get ev_line &evline 
     12 
     13calc i &evline = "evline + #1 
    814 
    915if "evline lei %"evlist(0) goto lineok: 
     
    1117    return 
    1218lineok: 
     19if "evline lei 0 return 
     20 
     21param set ev_line "evline 
    1322 
    1423calc s &rtime = %"evlist("evline) parse 1 
    1524param set read_time "rtime 
    16 calc i &evline = "evline + 1 
    17 param set ev_line "evline 
     25 
     26! try to read epicenter 
     27calc s &epilat = %"evlist("evline) parse 2 
     28calc s &epilon = %"evlist("evline) parse 3 
     29if $status gti 0 goto epifailed: 
     30    param set epi_latitude "epilat 
     31    param set epi_longitude "epilon 
     32epifailed: 
    1833 
    1934return 
Note: See TracChangeset for help on using the changeset viewer.