tem_init_depend Subroutine

public subroutine tem_init_depend(me, varSys)

This subroutine initializes the loaded depend table

Arguments

Type IntentOptional Attributes Name
type(tem_depend_type), intent(inout) :: me(:)

list of depend types to be filled
type(tem_varSys_type), intent(in) :: varSys

list of all global variable systems

Calls

proc~~tem_init_depend~~CallsGraph proc~tem_init_depend tem_init_depend proc~tem_create_varmap tem_create_varMap proc~tem_init_depend->proc~tem_create_varmap interface~append~4 append proc~tem_create_varmap->interface~append~4 interface~init~29 init proc~tem_create_varmap->interface~init~29 interface~positionofval~5 positionofval proc~tem_create_varmap->interface~positionofval~5 interface~truncate~23 truncate proc~tem_create_varmap->interface~truncate~23 proc~append_ga_stringkeyvaluepair append_ga_stringkeyvaluepair interface~append~4->proc~append_ga_stringkeyvaluepair proc~append_ga_stringkeyvaluepair_vec append_ga_stringkeyvaluepair_vec interface~append~4->proc~append_ga_stringkeyvaluepair_vec proc~init_da_label init_da_label interface~init~29->proc~init_da_label proc~posofval_label posofval_label interface~positionofval~5->proc~posofval_label proc~truncate_da_label truncate_da_label interface~truncate~23->proc~truncate_da_label interface~expand~3 expand proc~append_ga_stringkeyvaluepair->interface~expand~3 proc~append_ga_stringkeyvaluepair_vec->interface~expand~3 interface~sortedposofval~5 sortedposofval proc~posofval_label->interface~sortedposofval~5

Source Code

  subroutine tem_init_depend( me, varSys )
    !---------------------------------------------------------------------------
    !> list of depend types to be filled
    type(tem_depend_type), intent(inout)  :: me(:)
    !> list of all global variable systems
    type(tem_varSys_type), intent(in)     :: varSys
    !---------------------------------------------------------------------------
    integer :: iDepend, nDepends
    !---------------------------------------------------------------------------
    nDepends = size(me)

    do iDepend = 1, nDepends
      ! map variables
      ! create depend variable position in the global varSys
      call tem_create_varMap( varname = me(iDepend)%varname, &
        &                     varSys  = varSys,              &
        &                     varMap  = me(iDepend)%varMap   )

    end do ! iDepend

  end subroutine tem_init_depend