append_possible_variable Subroutine

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

Arguments

Type IntentOptional Attributes Name
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~25 append proc~append_possible_variable->interface~append~25 proc~append_ga_stringkeyvaluepair append_ga_stringkeyvaluepair interface~append~25->proc~append_ga_stringkeyvaluepair proc~append_ga_stringkeyvaluepair_vec append_ga_stringkeyvaluepair_vec interface~append~25->proc~append_ga_stringkeyvaluepair_vec interface~expand~24 expand proc~append_ga_stringkeyvaluepair->interface~expand~24 proc~append_ga_stringkeyvaluepair_vec->interface~expand~24 proc~expand_ga_stringkeyvaluepair expand_ga_stringkeyvaluepair interface~expand~24->proc~expand_ga_stringkeyvaluepair

Called by

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

Contents

Source Code

append_possible_variable

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