structvectormodule Module Reference

This module contains the StructVectorModule. More...

Data Types
type	tsstringloctype
	derived type which describes time series string field More...
type	structvectortype
	derived type for generic vector More...

Functions/Subroutines
real(dp) function	sv_read_token (this, token, structarray_col, col, row)
subroutine	sv_add_ts_strloc (this, token, structarray_col, col, row)
class(tsstringloctype) function, pointer	sv_get_ts_strloc (this, idx)
subroutine	sv_clear (this)

Detailed Description

This module contains a generic type for storing different types of vectors.

Function/Subroutine Documentation

sv_add_ts_strloc()

subroutine structvectormodule::sv_add_ts_strloc ( class(structvectortype)  this, character(len=*), intent(in)  token, integer(i4b), intent(in)  structarray_col, integer(i4b), intent(in)  col, integer(i4b), intent(in)  row  )

private

Definition at line 84 of file StructVector.f90.

    class(StructVectorType) :: this
    character(len=*), intent(in) :: token
    integer(I4B), intent(in) :: structarray_col
    integer(I4B), intent(in) :: col
    integer(I4B), intent(in) :: row
    class(TSStringLocType), pointer :: str_field
    class(*), pointer :: obj
    allocate (str_field)
    str_field%structarray_col = structarray_col
    str_field%col = col
    str_field%row = row
    str_field%token = token
    obj => str_field
    call this%ts_strlocs%Add(obj)

sv_clear()

subroutine structvectormodule::sv_clear ( class(structvectortype)  this )

private

Definition at line 120 of file StructVector.f90.

    class(StructVectorType) :: this
    class(TSStringLocType), pointer :: ts_strloc
    integer(I4B) :: n
    do n = 1, this%ts_strlocs%Count()
      ts_strloc => this%get_ts_strloc(n)
      deallocate (ts_strloc)
      nullify (ts_strloc)
    end do
    call this%ts_strlocs%Clear()

sv_get_ts_strloc()

class(tsstringloctype) function, pointer structvectormodule::sv_get_ts_strloc ( class(structvectortype)  this, integer(i4b), intent(in)  idx  )

private

Parameters

[in]

idx

package number

Definition at line 101 of file StructVector.f90.

    class(StructVectorType) :: this
    integer(I4B), intent(in) :: idx !< package number
    class(TSStringLocType), pointer :: res
    class(*), pointer :: obj
    ! initialize res
    res => null()
    ! get the package from the list
    obj => this%ts_strlocs%GetItem(idx)
    if (associated(obj)) then
      select type (obj)
      class is (tsstringloctype)
        res => obj
      end select
    end if

sv_read_token()

real(dp) function structvectormodule::sv_read_token ( class(structvectortype)  this, character(len=*), intent(in)  token, integer(i4b), intent(in)  structarray_col, integer(i4b), intent(in)  col, integer(i4b), intent(in)  row  )

private

Definition at line 65 of file StructVector.f90.

    class(StructVectorType) :: this
    character(len=*), intent(in) :: token
    integer(I4B), intent(in) :: structarray_col
    integer(I4B), intent(in) :: col
    integer(I4B), intent(in) :: row
    real(DP) :: val
    integer(I4B) :: istat
    real(DP) :: r
    ! initialize
    val = dnodata
    read (token, *, iostat=istat) r
    if (istat == 0) then
      val = r
    else
      call this%add_ts_strloc(token, structarray_col, col, row)
    end if