basesolutionmodule Module Reference

Data Types
type	basesolutiontype
interface	sln_df
interface	slnaddexchange
interface	assignConnectionsIFace
interface	sln_ar
interface	sln_rp
interface	sln_calculate_delt
interface	sln_ad
interface	sln_ot
interface	sln_ca
interface	slnsave
interface	slnaddmodel
interface	slngetmodels
interface	slngetexchanges
interface	sln_fp
interface	sln_da

Functions/Subroutines
class(basesolutiontype) function, pointer, private	castasbasesolutionclass (obj)
subroutine, public	addbasesolutiontolist (list, solution)
class(basesolutiontype) function, pointer, public	getbasesolutionfromlist (list, idx)

Function/Subroutine Documentation

addbasesolutiontolist()

subroutine, public basesolutionmodule::addbasesolutiontolist	(	type(listtype), intent(inout)	list,
		class(basesolutiontype), intent(in), pointer	solution
	)

Definition at line 141 of file BaseSolution.f90.

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

Here is the caller graph for this function:

castasbasesolutionclass()

class(basesolutiontype) function, pointer, private basesolutionmodule::castasbasesolutionclass ( class(*), intent(inout), pointer  obj )

private

Definition at line 126 of file BaseSolution.f90.

    implicit none
    class(*), pointer, intent(inout) :: obj
    class(BaseSolutionType), pointer :: res
    !
    res => null()
    if (.not. associated(obj)) return
    !
    select type (obj)
    class is (basesolutiontype)
      res => obj
    end select
    return

Here is the caller graph for this function:

getbasesolutionfromlist()

class(basesolutiontype) function, pointer, public basesolutionmodule::getbasesolutionfromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	idx
	)

Definition at line 155 of file BaseSolution.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    integer(I4B), intent(in) :: idx
    class(BaseSolutionType), pointer :: res
    ! -- local
    class(*), pointer :: obj
    !
    obj => list%GetItem(idx)
    res => castasbasesolutionclass(obj)
    !
    return

Here is the call graph for this function:

Here is the caller graph for this function: