tem_free_varSys_data_ptr Subroutine

public subroutine tem_free_varSys_data_ptr(vardat_ptr)

Free a method data structure again.

Arguments

Type IntentOptional Attributes Name
type(c_ptr), intent(inout) :: vardat_ptr

Data pointer to free

Source Code

  subroutine tem_free_varSys_data_ptr(vardat_ptr)
    ! ---------------------------------------------------------------------- !
    !> Data pointer to free
    type(c_ptr), intent(inout) :: vardat_ptr
    ! ---------------------------------------------------------------------- !
    type(tem_varSys_op_data_type), pointer :: vardat
    ! ---------------------------------------------------------------------- !

    call c_f_pointer(vardat_ptr, vardat)
    deallocate(vardat)
    vardat_ptr = c_null_ptr

  end subroutine tem_free_varSys_data_ptr