getfile()

subroutine getfile	(	character, dimension(*)	filename,
		integer	itrace,
		real, dimension(maxsamp)	data,
		integer, dimension(maxsamp)	idata,
		integer	maxsamp,
		integer	nsamp,
		real	tanf,
		real	dt
	)

Definition at line 242 of file dise.f.

Referenced by dise().

c 
      character filename*(*)
      integer itrace, nsamp, maxsamp
      real data(maxsamp)
      integer idata(maxsamp)
      real tanf, dt
c
      character cs*1, code*20, time*20, date*20, tist*20, type*30, rs*1
      character wid2line*132
      real inv
      real c1,c2,c3,r1,r2,r3,sffu_tfirst
      integer ierr, lu, nstack, i
      parameter(lu=10)
      logical last
c 
      print *,'going to read ',filename(1:index(filename, ' ')),'...'
c 
      call sff_ropens(lu, filename, inv, tist, code, type, cs, c1, c2, c3,
     &  date,time,ierr)
      if (ierr.ne.0) stop 'ERROR opening input file'
      nsamp=maxsamp
      last=.false.
      do i=1,itrace
        if (last) stop 'ERROR: too few traces in input file'
        call sff_rtracei(lu, tanf, dt, wid2line, nsamp, data, idata, code,
     &                   last, rs, r1, r2, r3, nstack, ierr)
        if (ierr.ne.0) stop 'ERROR: reading input file'
      enddo
      print *,'  read trace no.',itrace
      if (.not.(last)) close(lu)
      tanf=sffu_tfirst(wid2line, time, date)  
      print *,'  trace begins at ',tanf,'sec'
      print *,'  sampling interval is ',dt,'sec'
      return

Here is the caller graph for this function: