checkgrid.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	checkgrid
	Part of the NADCON5 build process, generates gmtbat04 More...
subroutine	nlines (ifile, num, ilogic)

Function/Subroutine Documentation

subroutine nlines	(	integer*4	ifile,
		integer*4	num,
		logical*1	ilogic
	)

Definition at line 1784 of file checkgrid.f.

Referenced by checkgrid().

      integer*4 ifile,num
      logical*1 ilogic
      character*1 dummy
    
      ilogic = .false.
      num = 0
    1 read(ifile,'(a)',end=2)dummy
        num = num + 1
      goto 1
    2 if(num.eq.0)ilogic = .true.
      rewind(ifile)
      return

Here is the caller graph for this function: