arrayreaderbasemodule Module Reference

Data Types
type	arrayreaderbasetype

Functions/Subroutines
subroutine	read_array (this)
subroutine	reset_reader (this)
subroutine	read_control_record (this)
subroutine	set_constant (this)
subroutine	fill_constant (this)
subroutine	fill_internal (this)
subroutine	fill_open_close (this)
subroutine	read_ascii (this)
subroutine	read_binary (this)
subroutine	set_factor (this)
subroutine	apply_factor (this)
subroutine	open_file (this)

Function/Subroutine Documentation

apply_factor()

subroutine arrayreaderbasemodule::apply_factor ( class(arrayreaderbasetype)  this )

private

Definition at line 169 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function:

fill_constant()

subroutine arrayreaderbasemodule::fill_constant ( class(arrayreaderbasetype)  this )

private

Definition at line 125 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function:

fill_internal()

subroutine arrayreaderbasemodule::fill_internal ( class(arrayreaderbasetype)  this )

private

Definition at line 131 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    this%input_unit = this%parser%iuactive
    call this%read_ascii()
    call this%apply_factor()

fill_open_close()

subroutine arrayreaderbasemodule::fill_open_close ( class(arrayreaderbasetype)  this )

private

Definition at line 138 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    this%input_unit = 0
    call this%open_file()
    if (this%isBinary) then
      call this%read_binary()
    else
      call this%read_ascii()
    end if
    close (this%input_unit)
    call this%apply_factor()

open_file()

subroutine arrayreaderbasemodule::open_file ( class(arrayreaderbasetype)  this )

private

Definition at line 175 of file ArrayReaderBase.f90.

    use openspecmodule, only: form, access
    class(ArrayReaderBaseType) :: this
    if (this%isBinary) then
      call openfile(this%input_unit, this%iout, this%filename, &
                    'OPEN/CLOSE', fmtarg_opt=form, accarg_opt=access)
    else
      call openfile(this%input_unit, this%iout, this%filename, 'OPEN/CLOSE')
    end if

Here is the call graph for this function:

read_array()

subroutine arrayreaderbasemodule::read_array ( class(arrayreaderbasetype)  this )

private

Definition at line 46 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
 
    ! read control record
    call this%read_control_record()
 
    ! fill array
    if (this%isConstant) then
      call this%fill_constant()
    else if (this%isInternal) then
      call this%fill_internal()
    else if (this%isOpenClose) then
      call this%fill_open_close()
    end if
 

read_ascii()

subroutine arrayreaderbasemodule::read_ascii ( class(arrayreaderbasetype)  this )

private

Definition at line 151 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function:

read_binary()

subroutine arrayreaderbasemodule::read_binary ( class(arrayreaderbasetype)  this )

private

Definition at line 157 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function:

read_control_record()

subroutine arrayreaderbasemodule::read_control_record ( class(arrayreaderbasetype)  this )

private

Definition at line 72 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    logical(LGP) :: endOfBlock
    character(len=100) :: keyword
    character(len=MAXCHARLEN) :: string
 
    ! read the array input style
    call this%parser%GetNextLine(endofblock)
    call this%parser%GetStringCaps(keyword)
 
    ! load array based on the different styles
    select case (keyword)
    case ('CONSTANT')
      this%isConstant = .true.
      call this%set_constant()
    case ('INTERNAL')
      this%isInternal = .true.
    case ('OPEN/CLOSE')
      this%isOpenClose = .true.
      call this%parser%GetString(string)
      this%filename = trim(string)
    case default
      write (errmsg, *) 'Error reading control record for '// &
                        trim(adjustl(this%array_name))//'.  &
                        & Use CONSTANT, INTERNAL, or OPEN/CLOSE.'
      call store_error(errmsg)
      call this%parser%StoreErrorUnit()
    end select
 
    ! if INTERNAL or OPEN/CLOSE then look for FACTOR and IPRN
    if (this%isInternal .or. this%isOpenClose) then
      do
        call this%parser%GetStringCaps(keyword)
        if (keyword == '') exit
        select case (keyword)
        case ('FACTOR')
          call this%set_factor()
        case ('IPRN')
          this%iprn = this%parser%GetInteger()
        case ('(BINARY)')
          this%isBinary = .true.
        end select
      end do
    end if
 

Here is the call graph for this function:

reset_reader()

subroutine arrayreaderbasemodule::reset_reader ( class(arrayreaderbasetype)  this )

private

Definition at line 63 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    this%iprn = 0
    this%isConstant = .false.
    this%isInternal = .false.
    this%isOpenClose = .false.
    this%isBinary = .false.

set_constant()

subroutine arrayreaderbasemodule::set_constant ( class(arrayreaderbasetype)  this )

private

Definition at line 119 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function:

set_factor()

subroutine arrayreaderbasemodule::set_factor ( class(arrayreaderbasetype)  this )

private

Definition at line 163 of file ArrayReaderBase.f90.

    class(ArrayReaderBaseType) :: this
    errmsg = 'Programming error in ArrayReader'
    call store_error(errmsg, terminate=.true.)

Here is the call graph for this function: