integer2dreadermodule Module Reference

Data Types
type	integer2dreadertype

Functions/Subroutines
subroutine, public	read_int2d (parser, int2d, aname)
subroutine	reset_reader (this)
subroutine	set_constant (this)
subroutine	fill_constant (this)
subroutine	read_ascii (this)
subroutine	read_binary (this)
subroutine	set_factor (this)
subroutine	apply_factor (this)

Function/Subroutine Documentation

apply_factor()

subroutine integer2dreadermodule::apply_factor ( class(integer2dreadertype)  this )

private

Definition at line 111 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    integer(I4B) :: i, j
    if (this%factor /= dzero) then
      do i = 1, size(this%int2d, dim=2)
        do j = 1, size(this%int2d, dim=1)
          this%int2d(j, i) = this%int2d(j, i) * this%factor
        end do
      end do
    end if

fill_constant()

subroutine integer2dreadermodule::fill_constant ( class(integer2dreadertype)  this )

private

Definition at line 63 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    integer(I4B) :: i, j
    do i = 1, size(this%int2d, dim=2)
      do j = 1, size(this%int2d, dim=1)
        this%int2d(j, i) = this%constant_array_value
      end do
    end do

read_ascii()

subroutine integer2dreadermodule::read_ascii ( class(integer2dreadertype)  this )

private

Definition at line 73 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    integer(I4B) :: i, j
    integer(I4B) :: istat
    do i = 1, size(this%int2d, dim=2)
      read (this%input_unit, *, iostat=istat, iomsg=errmsg) &
        (this%int2d(j, i), j=1, size(this%int2d, dim=1))
    end do
    if (istat /= 0) then
      errmsg = 'Error reading data for array '//trim(this%array_name)// &
               '.  '//trim(errmsg)
      call store_error(errmsg)
      call store_error_unit(this%input_unit)
    end if

Here is the call graph for this function:

read_binary()

subroutine integer2dreadermodule::read_binary ( class(integer2dreadertype)  this )

private

Definition at line 89 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    integer(I4B) :: i, j
    integer(I4B) :: nvals
    integer(I4B) :: istat
    call read_binary_header(this%input_unit, this%iout, this%array_name, nvals)
    read (this%input_unit, iostat=istat, iomsg=errmsg) &
      ((this%int2d(j, i), j=1, size(this%int2d, dim=1)), &
       i=1, size(this%int2d, dim=2))
    if (istat /= 0) then
      errmsg = 'Error reading data for array '//trim(this%array_name)// &
               '.  '//trim(errmsg)
      call store_error(errmsg)
      call store_error_unit(this%input_unit)
    end if

Here is the call graph for this function:

read_int2d()

subroutine, public integer2dreadermodule::read_int2d	(	type(blockparsertype), intent(in), target	parser,
		integer(i4b), dimension(:, :), target, contiguous	int2d,
		character(len=*), intent(in)	aname
	)

Definition at line 35 of file Integer2dReader.f90.

    ! -- dummy
    type(BlockParserType), intent(in), target :: parser
    integer(I4B), dimension(:, :), contiguous, target :: int2d
    character(len=*), intent(in) :: aname
    ! -- local
    type(Integer2dReaderType) :: this
 
    this%parser => parser
    this%int2d => int2d
    this%array_name = aname
 
    call this%read_array()
 

Here is the caller graph for this function:

reset_reader()

subroutine integer2dreadermodule::reset_reader ( class(integer2dreadertype)  this )

private

Definition at line 51 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    call this%ArrayReaderBaseType%reset_reader()
    this%constant_array_value = 0
    this%factor = 1

set_constant()

subroutine integer2dreadermodule::set_constant ( class(integer2dreadertype)  this )

private

Definition at line 58 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    this%constant_array_value = this%parser%GetInteger()

set_factor()

subroutine integer2dreadermodule::set_factor ( class(integer2dreadertype)  this )

private

Definition at line 106 of file Integer2dReader.f90.

    class(Integer2dReaderType) :: this
    this%factor = this%parser%GetInteger()