tem_opVar_fill_inputIndex Subroutine

public recursive subroutine tem_opVar_fill_inputIndex(fun, varSys, point, offset_bit, iLevel, tree, nPnts, inputIndex)

subroutine to fill index for the setuo Index routine called for operation variables, it is also used by the solver


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.

real(kind=rk), intent(in) :: point(:,:)

List of space coordinate points to store as growing array in method_data

character, intent(in), optional :: offset_bit(:)

Offset bit encoded as character for every point.

Offset integer coord(3) is converted into a character with offset_bit = achar( (coord(1)+1) + (coord(2)+1)4 + (coord(3)+1)16 ) Backward transformation form character to 3 integer: coord(1) = mod(ichar(offset_bit),4) - 1 coord(2) = mod(ichar(offset_bit),16)/4 - 1 coord(3) = ichar(offset_bit)/16 - 1

If not present default is to center i.e offset_bit = achar(1+4+16)

integer, intent(in) :: iLevel

Level to which input points belong to

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

global treelm mesh info

integer, intent(in) :: nPnts

Number of points to add in method_data of this variable

type(grw_intarray_type), intent(out) :: inputIndex(:)

input index for dependent variables size: fun%nInputs


proc~~tem_opvar_fill_inputindex~~CallsGraph proc~tem_opvar_fill_inputindex tem_opVar_fill_inputIndex interface~truncate~10 truncate proc~tem_opvar_fill_inputindex->interface~truncate~10 interface~append~16 append proc~tem_opvar_fill_inputindex->interface~append~16 proc~truncate_ga_char truncate_ga_char interface~truncate~10->proc~truncate_ga_char proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real interface~expand~14 expand proc~append_singlega2d_real->interface~expand~14 proc~append_arrayga2d_real->interface~expand~14 proc~expand_ga2d_real expand_ga2d_real interface~expand~14->proc~expand_ga2d_real

Called by

proc~~tem_opvar_fill_inputindex~~CalledByGraph proc~tem_opvar_fill_inputindex tem_opVar_fill_inputIndex proc~tem_opvar_setupindices tem_opVar_setupIndices proc~tem_opvar_setupindices->proc~tem_opvar_fill_inputindex



integer, private, allocatable:: idx_loc(:)
integer, private :: iDep
integer, private :: posDepVar