append_possible_variable Subroutine

public subroutine append_possible_variable(me, varName, nComponents, pos)

Arguments

Type IntentOptional AttributesName
type(tem_possible_variable_type), intent(inout) :: me

Possible variables

character(len=*), intent(in) :: varName

variable name

integer, intent(in) :: nComponents

number of components

integer, intent(out), optional :: pos

Calls

proc~~append_possible_variable~~CallsGraph proc~append_possible_variable append_possible_variable interface~append~9 append proc~append_possible_variable->interface~append~9 proc~append_ga_stringkeyvaluepair_vec append_ga_stringkeyvaluepair_vec interface~append~9->proc~append_ga_stringkeyvaluepair_vec proc~append_ga_stringkeyvaluepair append_ga_stringkeyvaluepair interface~append~9->proc~append_ga_stringkeyvaluepair interface~expand~7 expand proc~append_ga_stringkeyvaluepair_vec->interface~expand~7 proc~append_ga_stringkeyvaluepair->interface~expand~7 proc~expand_ga_stringkeyvaluepair expand_ga_stringkeyvaluepair interface~expand~7->proc~expand_ga_stringkeyvaluepair

Called by

proc~~append_possible_variable~~CalledByGraph proc~append_possible_variable append_possible_variable interface~append~37 append interface~append~37->proc~append_possible_variable

Contents


Source Code

  subroutine append_possible_variable( me, varName, nComponents, pos )
    !---------------------------------------------------------------------------
    !> Possible variables
    type(tem_possible_variable_type), intent(inout) :: me
    !> variable name
    character(len=*), intent(in) :: varName
    !> number of components
    integer, intent(in) :: nComponents
    integer, intent(out), optional :: pos
    !---------------------------------------------------------------------------
    integer :: internal_pos
    !---------------------------------------------------------------------------
    call append( me  = me%varName,    &
      &          val = trim(varName), &
      &          pos = internal_pos   )

    call append( me  = me%nComponents, &
      &          val = nComponents     )

    if( present( pos ) ) pos = internal_pos

  end subroutine append_possible_variable