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.

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

       character*21 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(0, *) ' no separator'
          else
              ok =headline(2:21) .eq. '--------------------'
          endif
       enddo