tem_empty_varsys Subroutine

public subroutine tem_empty_varsys(varsys)

Empty a variable system.

This frees all variables and empties the method and varname arrays. Note, this does not free the memory used for method data. Any method data that is to be freed has to be dealt with beforehand.

Arguments

Type IntentOptional Attributes Name
type(tem_varSys_type), intent(inout) :: varsys

Variable system to empty.

Calls

proc~~tem_empty_varsys~~CallsGraph proc~tem_empty_varsys tem_empty_varsys interface~empty~18 empty proc~tem_empty_varsys->interface~empty~18 proc~tem_free_varop tem_free_varOp proc~tem_empty_varsys->proc~tem_free_varop proc~empty_da_label empty_da_label interface~empty~18->proc~empty_da_label

Source Code

  subroutine tem_empty_varsys(varsys)
    !> Variable system to empty.
    type(tem_varSys_type), intent(inout) :: varsys

    integer :: iMethod

    do iMethod=1,varsys%method%nVals
      call tem_free_varOp(varsys%method%val(iMethod))
    end do
    call empty(varsys%method)
    call empty(varsys%varname)
    varsys%nStateVars = 0
    varsys%nAuxVars = 0
    varsys%nScalars = 0
    varsys%nAuxScalars = 0
    varsys%systemName = ''

  end subroutine tem_empty_varsys