DissociateGeometry_MappedTwoPointVector3D_t Subroutine

  1. SELF_MappedTwoPointVector_3D_t.f90
  2. SELF_MappedTwoPointVector_3D_t
  3. DissociateGeometry_MappedTwoPointVector3D_t

public subroutine DissociateGeometry_MappedTwoPointVector3D_t(this)

Arguments

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

Contents

Source Code

DissociateGeometry_MappedTwoPointVector3D_t

Source Code

  subroutine DissociateGeometry_MappedTwoPointVector3D_t(this)
    implicit none
    class(MappedTwoPointVector3D_t),intent(inout) :: this

    if(associated(this%geometry)) then
      this%geometry => null()
      this%geometry_associated = .false.
    endif

  endsubroutine DissociateGeometry_MappedTwoPointVector3D_t