distvariablemodule Module Reference

Data Types
type	distvartype

Functions/Subroutines
class(distvartype) function, pointer, public	getdistvarfromlist (list, idx)
class(distvartype) function, pointer	castasdistvar (obj)

Variables
integer(i4b), parameter, public	sync_scl = 0
	synchronize as scalar More...
integer(i4b), parameter, public	sync_nds = 1
	synchronize over nodes More...
integer(i4b), parameter, public	sync_con = 2
	synchronize over connections More...
integer(i4b), parameter, public	sync_exg = 3
	synchronize as exchange variable More...

Function/Subroutine Documentation

castasdistvar()

class(distvartype) function, pointer distvariablemodule::castasdistvar ( class(*), intent(inout), pointer  obj )

private

Definition at line 42 of file DistributedVariable.f90.

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

Here is the caller graph for this function:

getdistvarfromlist()

class(distvartype) function, pointer, public distvariablemodule::getdistvarfromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	idx
	)

Definition at line 30 of file DistributedVariable.f90.

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

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

sync_con

integer(i4b), parameter, public distvariablemodule::sync_con = 2

Definition at line 15 of file DistributedVariable.f90.

  integer(I4B), public, parameter :: SYNC_CON = 2 !< synchronize over connections

sync_exg

integer(i4b), parameter, public distvariablemodule::sync_exg = 3

Definition at line 16 of file DistributedVariable.f90.

  integer(I4B), public, parameter :: SYNC_EXG = 3 !< synchronize as exchange variable

sync_nds

integer(i4b), parameter, public distvariablemodule::sync_nds = 1

Definition at line 14 of file DistributedVariable.f90.

  integer(I4B), public, parameter :: SYNC_NDS = 1 !< synchronize over nodes

sync_scl

integer(i4b), parameter, public distvariablemodule::sync_scl = 0

Definition at line 13 of file DistributedVariable.f90.

  integer(I4B), public, parameter :: SYNC_SCL = 0 !< synchronize as scalar