timeserieslinkmodule Module Reference

Data Types
type	timeserieslinktype

Functions/Subroutines
subroutine, public	constructtimeserieslink (newtslink, timeseries, pkgname, auxorbnd, bndelem, irow, jcol, iprpak, text)
	Construct time series link.
type(timeserieslinktype) function, pointer, private	castastimeserieslinktype (obj)
	Cast an unlimited polymorphic object as TimeSeriesLinkType.
type(timeserieslinktype) function, pointer, public	gettimeserieslinkfromlist (list, indx)
	Get time series link from a list.
subroutine, public	addtimeserieslinktolist (list, tslink)
	Add time series link to a list.

Function/Subroutine Documentation

addtimeserieslinktolist()

subroutine, public timeserieslinkmodule::addtimeserieslinktolist	(	type(listtype), intent(inout)	list,
		type(timeserieslinktype), intent(inout), pointer	tslink )

Definition at line 115 of file TimeSeriesLink.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    type(TimeSeriesLinkType), pointer, intent(inout) :: tslink
    ! -- local
    class(*), pointer :: obj
    !
    obj => tslink
    call list%Add(obj)

Here is the caller graph for this function:

castastimeserieslinktype()

type(timeserieslinktype) function, pointer, private timeserieslinkmodule::castastimeserieslinktype ( class(*), intent(inout), pointer obj )

private

Definition at line 78 of file TimeSeriesLink.f90.

    implicit none
    ! -- dummy
    class(*), pointer, intent(inout) :: obj
    ! -- return
    type(TimeSeriesLinkType), pointer :: res
    !
    res => null()
    if (.not. associated(obj)) return
    !
    select type (obj)
    type is (timeserieslinktype)
      res => obj
    class default
      continue
    end select

Here is the caller graph for this function:

constructtimeserieslink()

subroutine, public timeserieslinkmodule::constructtimeserieslink	(	type(timeserieslinktype), intent(out), pointer	newtslink,
		type(timeseriestype), intent(in), pointer	timeseries,
		character(len=*), intent(in)	pkgname,
		character(len=3), intent(in)	auxorbnd,
		real(dp), intent(in), pointer	bndelem,
		integer(i4b), intent(in)	irow,
		integer(i4b), intent(in)	jcol,
		integer(i4b), intent(in)	iprpak,
		character(len=*), optional	text )

Definition at line 42 of file TimeSeriesLink.f90.

    implicit none
    ! -- dummy
    type(TimeSeriesLinkType), pointer, intent(out) :: newTsLink
    type(TimeSeriesType), pointer, intent(in) :: timeSeries
    integer(I4B), intent(in) :: iRow, jCol
    character(len=*), intent(in) :: pkgName
    character(len=3), intent(in) :: auxOrBnd
    real(DP), pointer, intent(in) :: bndElem
    integer(I4B), intent(in) :: iprpak
    character(len=*), optional :: text
    ! -- local
    character(len=LENPACKAGENAME) :: pkgNameTemp
    !
    allocate (newtslink)
    !
    ! Store package name as all caps
    pkgnametemp = pkgname
    call upcase(pkgnametemp)
    newtslink%PackageName = pkgnametemp
    newtslink%AuxOrBnd = auxorbnd
    newtslink%timeSeries => timeseries
    newtslink%iRow = irow
    newtslink%jCol = jcol
    newtslink%BndElement => bndelem
    newtslink%Iprpak = iprpak
    !
    if (present(text)) then
      newtslink%Text = text
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

gettimeserieslinkfromlist()

type(timeserieslinktype) function, pointer, public timeserieslinkmodule::gettimeserieslinkfromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	indx )

Definition at line 98 of file TimeSeriesLink.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    integer(I4B), intent(in) :: indx
    ! -- return
    type(TimeSeriesLinkType), pointer :: tsLink
    ! -- local
    class(*), pointer :: obj
    !
    tslink => null()
    obj => list%GetItem(indx)
    tslink => castastimeserieslinktype(obj)

Here is the call graph for this function:

Here is the caller graph for this function: