Browse Source

allow for longer file names, up to 800 characters

master
Sebastian Heimann 6 years ago
parent
commit
5a511e39f1
  1. 4
      src/pscmp/pscglob.h
  2. 6
      src/pscmp/pscgrn.f
  3. 2
      src/pscmp/pscmain.f
  4. 4
      src/pscmp/pscout.f
  5. 8
      src/psgrn/psgmain.f

4
src/pscmp/pscglob.h

@ -90,8 +90,8 @@ c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
double precision coobs(NEQMAX,NRECMAX,14)
double precision poobs(NEQMAX,NRECMAX,14)
double precision obs1(NRECMAX,14),obs2(NRECMAX,14)
character*80 grndir,green(14)
character*80 outdir,toutfile(14),scoutfile(NSCMAX)
character*800 grndir,green(14)
character*800 outdir,toutfile(14),scoutfile(NSCMAX)
c
common/iobsarray/ntrec,itsc,itout
common/dobsarray/latrec,lonrec,tsc,

6
src/pscmp/pscgrn.f

@ -23,7 +23,7 @@ c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
integer idec(NRMAX),igrns(NTMAX,NRMAX)
double precision cogrns(NRMAX,14,4),grns(NTMAX,NRMAX,14,4)
double precision r(NRMAX)
character*163 greens(14,4)
character*1603 greens(14,4)
logical select(14,4)
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c LOCAL WORK SPACES
@ -43,12 +43,12 @@ c
c OPEN GREEN'S FUNCTIONS FILES
c ============================
c
do lend=80,1,-1
do lend=800,1,-1
if(grndir(lend:lend).ne.' ')goto 100
enddo
100 continue
do i=1,14
do lenf=80,1,-1
do lenf=800,1,-1
if(green(i)(lenf:lenf).ne.' ')goto 110
enddo
110 continue

2
src/pscmp/pscmain.f

@ -28,7 +28,7 @@ c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
double precision sx,sy,sz
double complex clonrec1,clonrec2
double complex clonrec(NRECMAX)
character*80 infile
character*800 infile
logical onlysc,neweq
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c END DECLARATIONS

4
src/pscmp/pscout.f

@ -19,12 +19,12 @@ c
character*3 cmptxt(14)
character*7 cmptxtadd(13)
character*7 rtxt(NRECMAX)
character*160 outfile
character*1603 outfile
c
c DATA OUTPUT
c ===========
c
do lend=80,1,-1
do lend=800,1,-1
if(outdir(lend:lend).ne.' ')goto 100
enddo
100 continue

8
src/psgrn/psgmain.f

@ -14,8 +14,8 @@ c
double precision zs1,zs2,dzs,zrs2,swap,vp,vs
character*35 stype(4)
character*35 comptxt(14)
character*80 inputfile,fname(14),outdir
character*163 green(14,4)
character*800 inputfile,fname(14),outdir
character*1603 green(14,4)
integer time
c
c read input file file
@ -152,7 +152,7 @@ c
call skip_comments(10)
read(10,*)outdir
c
do lend=80,1,-1
do lend=800,1,-1
if(outdir(lend:lend).ne.' ')goto 100
enddo
100 continue
@ -168,7 +168,7 @@ c
call skip_comments(10)
read(10,*)(fname(i),i=10,14)
do i=1,14
do lenf=80,1,-1
do lenf=800,1,-1
if(fname(i)(lenf:lenf).ne.' ')goto 110
enddo
110 continue

Loading…
Cancel
Save