longlinereadermodule Module Reference

This module contains the LongLineReaderType. More...

Data Types
type	longlinereadertype
	LongLineReaderType. More...

Functions/Subroutines
subroutine	rdcom (this, iu, iout, line, ierr)
	Return the first non-comment line. More...
subroutine	bkspc (this, iin)
	Emulate a Fortran backspace. More...

Detailed Description

The LongLineReader is a utility for reading text lines from mf6 input files. It calls u9rdcom (which calls get_line) to read the first non-commented line of an input file. The LongLineReader can emulate the Fortran backspace command by calling the bkspc method, which stores the current line in last_line, and will return last_line upon the next call to rdcom. The LongLineReader was implemented to replace all Fortran backspace calls, due to a bug in ifort and ifx that prevented the backspace command from working properly with non-advancing IO.

Function/Subroutine Documentation

bkspc()

subroutine longlinereadermodule::bkspc ( class(longlinereadertype)  this, integer(i4b), intent(in)  iin  )

private

Emulate a fortran backspace call by storing the current line in long_line

Definition at line 103 of file LongLineReader.f90.

    class(LongLineReaderType) :: this
    integer(I4B), intent(in) :: iin
    if (this%nbackspace > 0) then
      call store_error( &
        "Programming error in LongLineReaderType%bkspc(). Backspace &
        & called more than once for an open file.", &
        terminate=.true.)
    else
      this%nbackspace = 1
    end if
    return

Here is the call graph for this function:

rdcom()

subroutine longlinereadermodule::rdcom ( class(longlinereadertype)  this, integer(i4b), intent(in)  iu, integer(i4b), intent(in)  iout, character(len=:), intent(inout), allocatable  line, integer(i4b), intent(inout)  ierr  )

private

Skip through any comments and return the first non-commented line. If an end of file was encountered previously, then return a blank line. If a backspace was called prior to this call, then do not read a new line and return last_line instead.

Definition at line 59 of file LongLineReader.f90.

    class(LongLineReaderType) :: this
    integer(I4B), intent(in) :: iu
    integer(I4B), intent(in) :: iout
    character(len=:), intent(inout), allocatable :: line
    integer(I4B), intent(inout) :: ierr
 
    ierr = 0
 
    ! If using this reader to read from a new file
    ! then reset state
    if (iu /= this%last_unit) then
      this%nbackspace = 0
      this%iostat = 0
    end if
 
    if (this%nbackspace == 1) then
      ! If backspace was called, then return last line
      if (allocated(line)) deallocate (line)
      allocate (character(len=len(this%last_line) + 1) :: line)
      line(:) = this%last_line(:)
      this%nbackspace = 0
    else
      ! if end of file was reached previously, then return a
      ! blank line and return ierr as IOSTAT_END
      if (this%iostat == iostat_end) then
        line = ' '
        ierr = iostat_end
      else
        call u9rdcom(iu, iout, line, ierr)
      end if
      this%last_line = line
      this%iostat = ierr
    end if
    this%last_unit = iu
    return

Here is the call graph for this function: