access_state Subroutine

public recursive subroutine access_state(fun, varsys, elempos, time, tree, nelems, ndofs, res)

Return the solver state variable for a given set of elements

The interface has to comply to the abstract interface tem_varSys_module#tem_varSys_proc_element.


class(tem_varSys_op_type), intent(in) :: fun

description of the method to obtain the variables, here some preset values might be stored, like the space time function to use or the required variables.

type(tem_varSys_type), intent(in) :: varsys

the variable system to obtain the variable from.

integer, intent(in) :: elempos(:)

position of the treeid of the element to get the variable for in the global treeid list.

type(tem_time_type), intent(in) :: time

point in time at which to evaluate the variable.

type(treelmesh_type), intent(in) :: tree

global treelm mesh info

integer, intent(in) :: nelems

number of values to obtain for this variable (vectorized access).

integer, intent(in) :: ndofs

number of degrees of freedom within an element.

real(kind=rk), intent(out) :: res(:)

resulting values for the requested variable.

linearized array dimension: (n requested entries) x (ncomponents of this variable) x (ndegrees of freedom) access: (ielem-1)fun%ncomponentsndofs + (idof-1)*fun%ncomponents + icomp



integer, public :: iElem
integer, public :: iComp
type(sdr_protoData_type), public, pointer:: fPtr