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 93 of file StructVector.f90.

    ! -- dummy variables
    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
    ! -- local variables
    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)
    !
    ! -- return
    return

sv_clear()

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

private

Definition at line 144 of file StructVector.f90.

    ! -- modules
    ! -- dummy
    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()
    !
    return

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 118 of file StructVector.f90.

    ! -- dummy variables
    class(StructVectorType) :: this
    integer(I4B), intent(in) :: idx !< package number
    class(TSStringLocType), pointer :: res
    ! -- local variables
    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
    !
    ! -- return
    return

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 66 of file StructVector.f90.

    ! -- modules
    ! -- dummy
    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
    ! -- local
    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
    !
    ! -- return
    return