double2dreadermodule Module Reference

Data Types
type	double2dreadertype

Functions/Subroutines
subroutine, public	read_dbl2d (parser, dbl2d, 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 double2dreadermodule::apply_factor ( class(double2dreadertype)  this )

private

Definition at line 111 of file Double2dReader.f90.

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

fill_constant()

subroutine double2dreadermodule::fill_constant ( class(double2dreadertype)  this )

private

Definition at line 63 of file Double2dReader.f90.

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

read_ascii()

subroutine double2dreadermodule::read_ascii ( class(double2dreadertype)  this )

private

Definition at line 73 of file Double2dReader.f90.

    class(Double2dReaderType) :: this
    integer(I4B) :: i, j
    integer(I4B) :: istat
    do i = 1, size(this%dbl2d, dim=2)
      read (this%input_unit, *, iostat=istat, iomsg=errmsg) &
        (this%dbl2d(j, i), j=1, size(this%dbl2d, 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 double2dreadermodule::read_binary ( class(double2dreadertype)  this )

private

Definition at line 89 of file Double2dReader.f90.

    class(Double2dReaderType) :: 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%dbl2d(j, i), j=1, size(this%dbl2d, dim=1)), &
       i=1, size(this%dbl2d, 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_dbl2d()

subroutine, public double2dreadermodule::read_dbl2d	(	type(blockparsertype), intent(in), target	parser,
		real(dp), dimension(:, :), target, contiguous	dbl2d,
		character(len=*), intent(in)	aname
	)

Definition at line 35 of file Double2dReader.f90.

    ! -- dummy
    type(BlockParserType), intent(in), target :: parser
    real(DP), dimension(:, :), contiguous, target :: dbl2d
    character(len=*), intent(in) :: aname
    ! -- local
    type(Double2dReaderType) :: this
 
    this%parser => parser
    this%dbl2d => dbl2d
    this%array_name = aname
 
    call this%read_array()
 

Here is the caller graph for this function:

reset_reader()

subroutine double2dreadermodule::reset_reader ( class(double2dreadertype)  this )

private

Definition at line 51 of file Double2dReader.f90.

    class(Double2dReaderType) :: this
    call this%ArrayReaderBaseType%reset_reader()
    this%constant_array_value = dzero
    this%factor = done

set_constant()

subroutine double2dreadermodule::set_constant ( class(double2dreadertype)  this )

private

Definition at line 58 of file Double2dReader.f90.

    class(Double2dReaderType) :: this
    this%constant_array_value = this%parser%GetDouble()

set_factor()

subroutine double2dreadermodule::set_factor ( class(double2dreadertype)  this )

private

Definition at line 106 of file Double2dReader.f90.

    class(Double2dReaderType) :: this
    this%factor = this%parser%GetDouble()