unit_h.F90

Go to the documentation of this file.

module unit_h

  use f90_kind
  use call_utils

  implicit none

  private


  integer, save      :: counter=2000
  integer, parameter :: maxcount=9999     !! try 9999 maximum
  !  public subs
  !
  public :: next_unit, skip_comment_line, read_error

contains
  !-----------------------------------------------
  !--------- next_unit ---------------------------
  !-----------------------------------------------
  !
  function next_unit() result(unit_num)     !

    integer(ikind)     :: unit_num          !! return the next free unit number

    logical            :: op                !! false if unit not in use

    call sub_init("next_unit")
    do
       counter = counter +1
       inquire (counter, opened = op)       ! check if unit is open ! bug in f95n
       if (.not.op) exit                    ! found next free unit
       if (counter > maxcount) &
            call assert(.false.,' fatal : next_unit@unit_h could not find free unit number')
    enddo

    unit_num = counter

    call sub_end()

  end function next_unit


  !---------------------------------------
  !------- skip_comment_line -------------
  !---------------------------------------
  ! skips lines that starts with "!"
  subroutine skip_comment_line(iunit)

    integer(ikind), intent(in) :: iunit

    character(skind) :: char

    integer :: iostat

    do
       read(iunit,'(a)',iostat=iostat) char
       !print *, '#', trim(char),'#'
       if(iostat /= 0) return
       if(char(1:1)/='!'.and.len(trim(char))>0) then
          backspace iunit
          return
       endif
    enddo

  end subroutine skip_comment_line

  !------------------------------------------------
  !-------- read_error ----------------------------
  !------------------------------------------------
  subroutine read_error(iunit)
    integer(ikind)  :: iunit

    character(len=256) :: last_record

    backspace(iunit)

    read(iunit,'(a256)') last_record

    print *, 'read_error@unit_h: last string read'
    print *, trim(last_record)

    call exiting(.false., 'read_error@unit_h: last string read:"'//last_record//'"')

  end subroutine read_error

  !
end module unit_h