Commit 3fcb8532 authored by Sebastian Heimann's avatar Sebastian Heimann
Browse files

increased maximum length of filenames

parent b65f0b76
AC_INIT([qssp], [1.2])
AC_INIT([qssp], [1.3])
AM_INIT_AUTOMAKE([-Wall -Werror foreign])
AC_PROG_F77
AC_CONFIG_FILES([
......
......@@ -9,7 +9,7 @@ c
integer i,j,l,ir,ig,isg,is,is1,flen,iswap,nhypo
double precision twindow,twinout,suppress,munit,sdfsel
double precision strike,dip,rake,depdif,dswap(11)
character*80 grndir,outfile,fswap
character*800 grndir,outfile,fswap
c
c uniform receiver depth
c ======================
......@@ -116,7 +116,7 @@ c
enddo
enddo
c
do flen=80,1,-1
do flen=800,1,-1
if(grndir(flen:flen).ne.' ')goto 200
enddo
200 continue
......@@ -292,7 +292,7 @@ c
read(unit,*)latr(ir),lonr(ir),rname(ir),tred(ir)
enddo
c
do flen=80,1,-1
do flen=800,1,-1
if(outfile(flen:flen).ne.' ')goto 300
enddo
300 continue
......
......@@ -61,7 +61,7 @@ c
complex yp(0:ldegmax,4,0:ndmax),ys(0:ldegmax,4,0:ndmax)
complex yg(0:ldegmax,4,0:ndmax),yv(0:ldegmax,4,0:ndmax)
complex yw(0:ldegmax,4,0:ndmax)
character*80 grnfile(ngrnmax),
character*800 grnfile(ngrnmax),
& rgrnfile(ngrnmax),tgrnfile(ngrnmax),
& pgrnfile(ngrnmax),sgrnfile(ngrnmax),
& ggrnfile(ngrnmax),vgrnfile(ngrnmax),
......@@ -102,7 +102,7 @@ c
double complex ug(nfmax,nrmax),uv(nfmax,nrmax)
double complex uw(nfmax,nrmax)
character*10 rname(nrmax)
character*80 uxout,uyout,uzout,
character*800 uxout,uyout,uzout,
& vxout,vyout,vzout,
& axout,ayout,azout,
& sdout,grout,tvout,
......
......@@ -61,7 +61,7 @@ c
complex yp(0:ldegmax,4,0:ndmax),ys(0:ldegmax,4,0:ndmax)
complex yg(0:ldegmax,4,0:ndmax),yv(0:ldegmax,4,0:ndmax)
complex yw(0:ldegmax,4,0:ndmax)
character*80 grnfile(ngrnmax),
character*800 grnfile(ngrnmax),
& rgrnfile(ngrnmax),tgrnfile(ngrnmax),
& pgrnfile(ngrnmax),sgrnfile(ngrnmax),
& ggrnfile(ngrnmax),vgrnfile(ngrnmax),
......@@ -102,7 +102,7 @@ c
double complex ug(nfmax,nrmax),uv(nfmax,nrmax)
double complex uw(nfmax,nrmax)
character*10 rname(nrmax)
character*80 uxout,uyout,uzout,
character*800 uxout,uyout,uzout,
& vxout,vyout,vzout,
& axout,ayout,azout,
& sdout,grout,tvout,
......
......@@ -61,7 +61,7 @@ c
complex yp(0:ldegmax,4,0:ndmax),ys(0:ldegmax,4,0:ndmax)
complex yg(0:ldegmax,4,0:ndmax),yv(0:ldegmax,4,0:ndmax)
complex yw(0:ldegmax,4,0:ndmax)
character*80 grnfile(ngrnmax),
character*800 grnfile(ngrnmax),
& rgrnfile(ngrnmax),tgrnfile(ngrnmax),
& pgrnfile(ngrnmax),sgrnfile(ngrnmax),
& ggrnfile(ngrnmax),vgrnfile(ngrnmax),
......@@ -102,7 +102,7 @@ c
double complex ug(nfmax,nrmax),uv(nfmax,nrmax)
double complex uw(nfmax,nrmax)
character*10 rname(nrmax)
character*80 uxout,uyout,uzout,
character*800 uxout,uyout,uzout,
& vxout,vyout,vzout,
& axout,ayout,azout,
& sdout,grout,tvout,
......
......@@ -7,7 +7,7 @@ c work space
c
integer ig,ierr,runtime
integer time
character*80 inputfile
character*800 inputfile
c
c read input file file
c
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment