16 character(len=LENSOLUTIONNAME) :: name
26 procedure(
slnsave),
deferred :: save
47 subroutine assignconnectionsiface(this)
77 subroutine sln_ca(this, isgcnvg, isuppress_output)
81 integer(I4B),
intent(in) :: isuppress_output
82 integer(I4B),
intent(inout) :: isgcnvg
88 character(len=*),
intent(in) :: filename
128 class(*),
pointer,
intent(inout) :: obj
132 if (.not.
associated(obj))
return
144 type(
listtype),
intent(inout) :: list
147 class(*),
pointer :: obj
158 type(
listtype),
intent(inout) :: list
159 integer(I4B),
intent(in) :: idx
162 class(*),
pointer :: obj
164 obj => list%GetItem(idx)
subroutine, public addbasesolutiontolist(list, solution)
class(basesolutiontype) function, pointer, public getbasesolutionfromlist(list, idx)
class(basesolutiontype) function, pointer, private castasbasesolutionclass(obj)
This module contains simulation constants.
integer(i4b), parameter lensolutionname
maximum length of the solution name
This module defines variable data types.
Highest level model type. All models extend this parent type.
A generic heterogeneous doubly-linked list.