integer1dreadermodule Module Reference

Data Types
type	integer1dreadertype

Functions/Subroutines
subroutine, public	read_int1d (parser, int1d, aname)
subroutine, public	read_int1d_layered (parser, int1d, aname, nlay, layer_shape)
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 integer1dreadermodule::apply_factor ( class(integer1dreadertype)  this )

private

Definition at line 138 of file Integer1dReader.f90.

    class(Integer1dReaderType) :: this
    integer(I4B) :: i
    if (this%factor /= 0) then
      do i = 1, size(this%int1d)
        this%int1d(i) = this%int1d(i) * this%factor
      end do
    end if

fill_constant()

subroutine integer1dreadermodule::fill_constant ( class(integer1dreadertype)  this )

private

Definition at line 93 of file Integer1dReader.f90.

    class(Integer1dReaderType) :: this
    integer(I4B) :: i
    do i = 1, size(this%int1d)
      this%int1d(i) = this%constant_array_value
    end do

read_ascii()

subroutine integer1dreadermodule::read_ascii ( class(integer1dreadertype)  this )

private

Definition at line 101 of file Integer1dReader.f90.

    class(Integer1dReaderType) :: this
    integer(I4B) :: i
    integer(I4B) :: nvals
    integer(I4B) :: istat
    nvals = size(this%int1d)
    read (this%input_unit, *, iostat=istat, iomsg=errmsg) &
      (this%int1d(i), i=1, size(this%int1d))
    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 integer1dreadermodule::read_binary ( class(integer1dreadertype)  this )

private

Definition at line 117 of file Integer1dReader.f90.

    class(Integer1dReaderType) :: this
    integer(I4B) :: i
    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%int1d(i), i=1, size(this%int1d))
    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_int1d()

subroutine, public integer1dreadermodule::read_int1d	(	type(blockparsertype), intent(in), target	parser,
		integer(i4b), dimension(:), target, contiguous	int1d,
		character(len=*), intent(in)	aname
	)

Definition at line 34 of file Integer1dReader.f90.

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

Here is the caller graph for this function:

read_int1d_layered()

subroutine, public integer1dreadermodule::read_int1d_layered	(	type(blockparsertype), intent(in), target	parser,
		integer(i4b), dimension(:), target, contiguous	int1d,
		character(len=*), intent(in)	aname,
		integer(i4b), intent(in)	nlay,
		integer(i4b), dimension(:), intent(in)	layer_shape
	)

Definition at line 50 of file Integer1dReader.f90.

    use integer2dreadermodule, only: read_int2d
    ! -- dummy
    type(BlockParserType), intent(in), target :: parser
    integer(I4B), dimension(:), contiguous, target :: int1d
    character(len=*), intent(in) :: aname
    integer(I4B), intent(in) :: nlay
    integer(I4B), dimension(:), intent(in) :: layer_shape
    ! -- local
    integer(I4B) :: k
    integer(I4B) :: ncpl, nrow, ncol
    integer(I4B) :: index_start, index_stop
    integer(I4B), dimension(:, :), contiguous, pointer :: int2d_ptr
 
    ncpl = product(layer_shape)
    index_start = 1
    do k = 1, nlay
      index_stop = index_start + ncpl - 1
      if (size(layer_shape) == 2) then
        ncol = layer_shape(1)
        nrow = layer_shape(2)
        int2d_ptr(1:ncol, 1:nrow) => int1d(index_start:index_stop)
        call read_int2d(parser, int2d_ptr, aname)
      else
        call read_int1d(parser, int1d(index_start:index_stop), aname)
      end if
      index_start = index_stop + 1
    end do
 

Here is the call graph for this function:

reset_reader()

subroutine integer1dreadermodule::reset_reader

(

class(integer1dreadertype)

this

)

Definition at line 81 of file Integer1dReader.f90.

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

set_constant()

subroutine integer1dreadermodule::set_constant ( class(integer1dreadertype)  this )

private

Definition at line 88 of file Integer1dReader.f90.

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

set_factor()

subroutine integer1dreadermodule::set_factor ( class(integer1dreadertype)  this )

private

Definition at line 133 of file Integer1dReader.f90.

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