Browse Source

ids wrapper: increased maximum path lengths

master
Pyrocko Tester 2 months ago
parent
commit
0fd2e965c9
5 changed files with 20 additions and 20 deletions
  1. +8
    -8
      src/idsalloc.f
  2. +2
    -2
      src/idsgetinp.f
  3. +3
    -3
      src/idsmodel.f
  4. +3
    -3
      src/idsoutput.f
  5. +4
    -4
      src/idssmdat.f

+ 8
- 8
src/idsalloc.f View File

@ -55,11 +55,11 @@ c
c
c output/output folder/file names
c
character*80 outdir,osdir,ebcdir
character*80 slpmodel,estffile,pstffile,eqmpfile,rupfrontfile
character*80 logsmhvce,logiteration
character*80 dgrndir,dgreen(3)
character*80 inputfile,smobsdir,smgrndir,finitefault,
character*120 outdir,osdir,ebcdir
character*120 slpmodel,estffile,pstffile,eqmpfile,rupfrontfile
character*120 logsmhvce,logiteration
character*120 dgrndir,dgreen(3)
character*120 inputfile,smobsdir,smgrndir,finitefault,
& gnsobs,osmdatafit,gnsdatafit,sarobs,sardatafit,
& earthmodel,tptable,tstable,gnsdatafile,sardatafile,
& swfmisfitfile
@ -86,7 +86,7 @@ c
c
c strong motion network, observed and synthetic waveform data
c
character*8, allocatable:: smcode(:)
character*12, allocatable:: smcode(:)
integer*4, allocatable:: nwsm(:)
integer*4, allocatable:: ismtype(:)
real*8, allocatable:: sampling(:)
@ -199,7 +199,7 @@ c
real*8, allocatable:: sargrn(:,:)
real*8, allocatable:: r(:)
real*8, allocatable:: deps(:)
character*80, allocatable:: smgrnfile(:)
character*120, allocatable:: smgrnfile(:)
real*4, allocatable:: vrtp(:,:)
real*4, allocatable:: vrex(:)
real*4, allocatable:: vtex(:)
@ -232,4 +232,4 @@ c
real*8, allocatable:: smobsazi(:)
real*8, allocatable:: tpsmgrn(:,:)
real*8, allocatable:: omi(:)
end module
end module

+ 2
- 2
src/idsgetinp.f View File

@ -121,7 +121,7 @@ c
read(10,*)snapshot(i),t1snap(i),t2snap(i)
enddo
c
do i=1,80
do i=1,120
if(outdir(i:i).eq.' ')goto 101
enddo
101 ind=i-1
@ -150,4 +150,4 @@ c End of input file
c
close(10)
return
end
end

+ 3
- 3
src/idsmodel.f View File

@ -11,11 +11,11 @@ c
logical*2 head,diff
character*180 text
c
do ind=80,1,-1
do ind=120,1,-1
if(smgrndir(ind:ind).ne.' ')goto 100
enddo
100 continue
if(ind.ge.80)then
if(ind.ge.120)then
stop ' Error in idsmodel: too long folder name of smgrndir!'
endif
if(smgrndir(ind:ind).ne.'/'.or.
@ -506,4 +506,4 @@ c
enddo
c
return
end
end

+ 3
- 3
src/idsoutput.f View File

@ -21,7 +21,7 @@ c
else
ierr=system('cd ..')
endif
do i=1,80
do i=1,120
if(outdir(i:i).eq.' ')goto 100
enddo
100 ind=i-1
@ -129,7 +129,7 @@ c
c
c output comparisons of observed and synthetic data
c
do j=1,80
do j=1,120
if(osdir(j:j).eq.' ')goto 401
enddo
401 jnd=j-1
@ -146,7 +146,7 @@ c
endif
c
do ism=1,nsm
do k=1,80
do k=1,120
if(smcode(ism)(k:k).eq.' ')goto 402
enddo
402 knd=k-1


+ 4
- 4
src/idssmdat.f View File

@ -20,11 +20,11 @@ c
c
c read station info
c
do k=1,80
do k=1,120
if(ebcdir(k:k).eq.' ')goto 10
enddo
10 knd=k-1
do i=1,80
do i=1,120
if(smobsdir(i:i).eq.' ')goto 20
enddo
20 ind=i-1
@ -273,7 +273,7 @@ c
allocate(velbserr(nwobs,3),stat=ierr)
if(ierr.ne.0)stop ' Error in idssmdat: velbserr not allocated!'
c
do j=1,80
do j=1,120
if(smcode(ism)(j:j).eq.' ')goto 100
enddo
100 jnd=j-1
@ -658,4 +658,4 @@ c
enddo
c
return
end
end

Loading…
Cancel
Save