timeseriesrecordmodule Module Reference

Data Types
type	timeseriesrecordtype

Functions/Subroutines
subroutine, public	constructtimeseriesrecord (newTsRecord, time, value)
	Allocate and assign members of a new TimeSeriesRecordType object. More...
type(timeseriesrecordtype) function, pointer, public	castastimeseriesrecordtype (obj)
	Cast an unlimited polymorphic object as TimeSeriesRecordType. More...
subroutine, public	addtimeseriesrecordtolist (list, tsrecord)
	Add time series record to list. More...

Function/Subroutine Documentation

addtimeseriesrecordtolist()

subroutine, public timeseriesrecordmodule::addtimeseriesrecordtolist	(	type(listtype), intent(inout)	list,
		type(timeseriesrecordtype), intent(inout), pointer	tsrecord
	)

Definition at line 57 of file TimeSeriesRecord.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    type(TimeSeriesRecordType), pointer, intent(inout) :: tsrecord
    ! -- local
    class(*), pointer :: obj => null()
    !
    obj => tsrecord
    call list%Add(obj)
    !
    ! -- Return
    return

Here is the caller graph for this function:

castastimeseriesrecordtype()

type(timeseriesrecordtype) function, pointer, public timeseriesrecordmodule::castastimeseriesrecordtype

(

class(*), intent(inout), pointer

obj

)

Definition at line 36 of file TimeSeriesRecord.f90.

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

Here is the caller graph for this function:

constructtimeseriesrecord()

subroutine, public timeseriesrecordmodule::constructtimeseriesrecord	(	type(timeseriesrecordtype), intent(out), pointer	newTsRecord,
		real(dp), intent(in)	time,
		real(dp), intent(in)	value
	)

Definition at line 20 of file TimeSeriesRecord.f90.

    implicit none
    ! -- dummy
    type(TimeSeriesRecordType), pointer, intent(out) :: newTsRecord
    real(DP), intent(in) :: time, value
    !
    allocate (newtsrecord)
    newtsrecord%tsrTime = time
    newtsrecord%tsrValue = value
    !
    ! -- Return
    return

Here is the caller graph for this function: