cskipComment.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cskipcomment (io, icon)

Function/Subroutine Documentation

cskipcomment()

subroutine cskipcomment	(	integer	io,
		integer	icon
	)

Definition at line 19 of file cskipComment.f.

References false, and true.

Referenced by __ccalcstdatmos.f__(), cinisegatmos(), cinisprim0(), cnrldataread(), crigcutfmt1(), crigcutfmt2(), crigcutfmt4(), crigcutfmt5(), csampaf0(), and cstdatmos0().

!         io: integer. input.logical file #
!       icon: integer. output. 0 --> ok
!                              1 --> no such line or error
!
       implicit none
       integer io, icon

       character*16 headline
       integer ios
       logical ok

       ok = .false.
       icon = 0
       do while(.not. ok)
          read(io, '(a)', iostat=ios) headline
          if(ios .ne. 0) then
              icon = 1
              ok = .true.
              write(*, *) ' no separator'
          else
              ok =headline(1:16) .eq. '#---------------'
          endif
       enddo

Here is the caller graph for this function: