double1dreadermodule Module Reference

Data Types
type	double1dreadertype

Functions/Subroutines
subroutine, public	read_dbl1d (parser, dbl1d, 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 double1dreadermodule::apply_factor ( class(double1dreadertype)  this )

private

Definition at line 106 of file Double1dReader.f90.

    class(Double1dReaderType) :: this
    integer(I4B) :: i
    if (this%factor /= dzero) then
      do i = 1, size(this%dbl1d)
        this%dbl1d(i) = this%dbl1d(i) * this%factor
      end do
    end if

fill_constant()

subroutine double1dreadermodule::fill_constant ( class(double1dreadertype)  this )

private

Definition at line 63 of file Double1dReader.f90.

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

read_ascii()

subroutine double1dreadermodule::read_ascii ( class(double1dreadertype)  this )

private

Definition at line 71 of file Double1dReader.f90.

    class(Double1dReaderType) :: this
    integer(I4B) :: i
    integer(I4B) :: istat
    read (this%input_unit, *, iostat=istat, iomsg=errmsg) &
      (this%dbl1d(i), i=1, size(this%dbl1d))
    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 double1dreadermodule::read_binary ( class(double1dreadertype)  this )

private

Definition at line 85 of file Double1dReader.f90.

    class(Double1dReaderType) :: 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%dbl1d(i), i=1, size(this%dbl1d))
    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_dbl1d()

subroutine, public double1dreadermodule::read_dbl1d	(	type(blockparsertype), intent(in), target	parser,
		real(dp), dimension(:), target, contiguous	dbl1d,
		character(len=*), intent(in)	aname
	)

Definition at line 35 of file Double1dReader.f90.

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

Here is the caller graph for this function:

reset_reader()

subroutine double1dreadermodule::reset_reader ( class(double1dreadertype)  this )

private

Definition at line 51 of file Double1dReader.f90.

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

set_constant()

subroutine double1dreadermodule::set_constant ( class(double1dreadertype)  this )

private

Definition at line 58 of file Double1dReader.f90.

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

set_factor()

subroutine double1dreadermodule::set_factor ( class(double1dreadertype)  this )

private

Definition at line 101 of file Double1dReader.f90.

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