Changeset 7510


Ignore:
Timestamp:
06/28/18 00:24:32 (3 months ago)
Author:
baker
Message:

fix character*(*) ia,ib, fix common /stadtc/ usage, add save statements (a lot more are probably needed)

Location:
trunk/src/seismic_processing/rayloc_ew
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/seismic_processing/rayloc_ew/libtau.f

    r3168 r7510  
    1414      save 
    1515      logical log 
    16       character*1000 ia,ib 
     16      character*(*) ia,ib 
    1717c 
    1818c     if(iargc(i).lt.n) go to 1 
  • trunk/src/seismic_processing/rayloc_ew/pickcm.inc

    r3363 r7510  
    1313      common /stadat/ res,delta,azim,dtdd,dtdh,elev,slats,slatc,slons, 
    1414     1slonc,trvtim,qual,pickid 
     15      save /stadat/ 
    1516      common /stadtc/ sta,comp,network,loca,phase,pflg 
     17      save /stadtc/ 
  • trunk/src/seismic_processing/rayloc_ew/robust_util.f

    r7447 r7510  
    205205c   19 July 1983 from a similar routine by E. R. Engdahl. 
    206206c 
     207      save 
    207208      include 'locprm.inc' 
    208         character*22 flgs,cstor 
     209      character*21 flgs 
     210      character*22 cstor 
    209211c   Logical unit numbers. 
    210212      common /unit/ min,mout,merr 
  • trunk/src/seismic_processing/rayloc_ew/robust_util_linux.f

    r7447 r7510  
    205205c   19 July 1983 from a similar routine by E. R. Engdahl. 
    206206c 
     207      save 
    207208      include 'locprm.inc' 
    208         character*22 flgs,cstor 
     209      character*21 flgs 
     210      character*22 cstor 
    209211c   Logical unit numbers. 
    210212      common /unit/ min,mout,merr 
Note: See TracChangeset for help on using the changeset viewer.