numericalexchangemodule Module Reference

Data Types
type	numericalexchangetype

Functions/Subroutines
subroutine	exg_df (this)
	Define the exchange. More...
subroutine	exg_ac (this, sparse)
	If an implicit exchange then add connections to sparse. More...
subroutine	exg_mc (this, matrix_sln)
	Map the connections in the global matrix. More...
subroutine	exg_ar (this)
	Allocate and read. More...
subroutine	exg_cf (this, kiter)
	Calculate conductance, and for explicit exchanges, set the conductance in the boundary package. More...
subroutine	exg_fc (this, kiter, matrix_sln, rhs_sln, inwtflag)
	Fill the matrix. More...
subroutine	exg_cc (this, icnvg)
	Additional convergence check. More...
subroutine	exg_cq (this, icnvg, isuppress_output, isolnid)
	Calculate flow. More...
subroutine	exg_bd (this, icnvg, isuppress_output, isolnid)
	Exchange budget. More...
subroutine	exg_ot (this)
	Output. More...
subroutine	exg_da (this)
	Deallocate memory. More...
integer(i4b) function	get_iasym (this)
class(numericalexchangetype) function, pointer	castasnumericalexchangeclass (obj)
subroutine, public	addnumericalexchangetolist (list, exchange)
	Add numerical exchange to a list. More...
class(numericalexchangetype) function, pointer, public	getnumericalexchangefromlist (list, idx)
	Retrieve a specific numerical exchange from a list. More...

Function/Subroutine Documentation

addnumericalexchangetolist()

subroutine, public numericalexchangemodule::addnumericalexchangetolist	(	type(listtype), intent(inout)	list,
		class(numericalexchangetype), intent(in), pointer	exchange
	)

Definition at line 128 of file NumericalExchange.f90.

    implicit none
    type(ListType), intent(inout) :: list
    class(NumericalExchangeType), pointer, intent(in) :: exchange
    class(*), pointer :: obj
 
    obj => exchange
    call list%Add(obj)

Here is the caller graph for this function:

castasnumericalexchangeclass()

class(numericalexchangetype) function, pointer numericalexchangemodule::castasnumericalexchangeclass ( class(*), intent(inout), pointer  obj )

private

Definition at line 113 of file NumericalExchange.f90.

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

Here is the caller graph for this function:

exg_ac()

subroutine numericalexchangemodule::exg_ac ( class(numericalexchangetype)  this, type(sparsematrix), intent(inout)  sparse  )

private

Definition at line 42 of file NumericalExchange.f90.

    use sparsemodule, only: sparsematrix
    class(NumericalExchangeType) :: this
    type(sparsematrix), intent(inout) :: sparse

exg_ar()

subroutine numericalexchangemodule::exg_ar ( class(numericalexchangetype)  this )

private

Definition at line 55 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this

exg_bd()

subroutine numericalexchangemodule::exg_bd ( class(numericalexchangetype)  this, integer(i4b), intent(inout)  icnvg, integer(i4b), intent(in)  isuppress_output, integer(i4b), intent(in)  isolnid  )

private

Definition at line 90 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B), intent(inout) :: icnvg
    integer(I4B), intent(in) :: isuppress_output
    integer(I4B), intent(in) :: isolnid

exg_cc()

subroutine numericalexchangemodule::exg_cc ( class(numericalexchangetype)  this, integer(i4b), intent(inout)  icnvg  )

private

Definition at line 76 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B), intent(inout) :: icnvg

exg_cf()

subroutine numericalexchangemodule::exg_cf ( class(numericalexchangetype)  this, integer(i4b), intent(in)  kiter  )

private

Definition at line 61 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B), intent(in) :: kiter

exg_cq()

subroutine numericalexchangemodule::exg_cq ( class(numericalexchangetype)  this, integer(i4b), intent(inout)  icnvg, integer(i4b), intent(in)  isuppress_output, integer(i4b), intent(in)  isolnid  )

private

Definition at line 82 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B), intent(inout) :: icnvg
    integer(I4B), intent(in) :: isuppress_output
    integer(I4B), intent(in) :: isolnid

exg_da()

subroutine numericalexchangemodule::exg_da ( class(numericalexchangetype)  this )

private

Definition at line 103 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this

exg_df()

subroutine numericalexchangemodule::exg_df ( class(numericalexchangetype)  this )

private

Definition at line 37 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this

exg_fc()

subroutine numericalexchangemodule::exg_fc ( class(numericalexchangetype)  this, integer(i4b), intent(in)  kiter, class(matrixbasetype), pointer  matrix_sln, real(dp), dimension(:), intent(inout)  rhs_sln, integer(i4b), intent(in), optional  inwtflag  )

private

Definition at line 67 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B), intent(in) :: kiter
    class(MatrixBaseType), pointer :: matrix_sln
    real(DP), dimension(:), intent(inout) :: rhs_sln
    integer(I4B), optional, intent(in) :: inwtflag

exg_mc()

subroutine numericalexchangemodule::exg_mc	(	class(numericalexchangetype)	this,
		class(matrixbasetype), pointer	matrix_sln
	)

Definition at line 49 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    class(MatrixBaseType), pointer :: matrix_sln

exg_ot()

subroutine numericalexchangemodule::exg_ot ( class(numericalexchangetype)  this )

private

Definition at line 98 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this

get_iasym()

integer(i4b) function numericalexchangemodule::get_iasym ( class(numericalexchangetype)  this )

private

Definition at line 107 of file NumericalExchange.f90.

    class(NumericalExchangeType) :: this
    integer(I4B) :: iasym
    iasym = 0

getnumericalexchangefromlist()

class(numericalexchangetype) function, pointer, public numericalexchangemodule::getnumericalexchangefromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	idx
	)

Definition at line 139 of file NumericalExchange.f90.

    implicit none
    type(ListType), intent(inout) :: list
    integer(I4B), intent(in) :: idx
    class(NumericalExchangeType), pointer :: res
    class(*), pointer :: obj
 
    obj => list%GetItem(idx)
    res => castasnumericalexchangeclass(obj)

Here is the call graph for this function:

Here is the caller graph for this function: