45 integer,
private :: len = 0
67 type(
field_t),
intent(inout),
target :: f
69 character(len=80) :: name
70 character(len=5) :: id_str
78 allocate(this%lf(len))
81 write(id_str,
'(I0)') i
82 name = trim(f%name)//
'_lag'//id_str
83 call this%lf(i)%init(this%f%dof, name)
93 if (
associated(this%f))
then
98 call this%lf(i)%free()
115 do i = this%len, 2, -1
116 this%lf(i) = this%lf(i-1)
Contains the field_serties_t type.
subroutine field_series_set(this, g)
Set all fields in a series to g.
subroutine field_series_update(this)
Update a field series (evict oldest entry)
integer function field_series_size(this)
Return the size of the field series.
subroutine field_series_free(this)
Deallocates a field series.
subroutine field_series_init(this, f, len)
Initialize a field series of length len for a field f.
A wrapper for a pointer to a field_series_t.
Stores a series (sequence) of fields, logically connected to a base field, and arranged according to ...