Free_TwoPointVector3D_t Subroutine

  1. SELF_TwoPointVector_3D_t.f90
  2. SELF_TwoPointVector_3D_t
  3. Free_TwoPointVector3D_t

public subroutine Free_TwoPointVector3D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(TwoPointVector3D_t), intent(inout) :: this

Contents

Source Code

Free_TwoPointVector3D_t

Source Code

  subroutine Free_TwoPointVector3D_t(this)
    implicit none
    class(TwoPointVector3D_t),intent(inout) :: this

    this%interp => null()
    this%nVar = 0
    this%nElem = 0

    deallocate(this%interior)
    deallocate(this%meta)
    deallocate(this%eqn)

  endsubroutine Free_TwoPointVector3D_t