AssociateGeometry_MappedScalar3D_t Subroutine

public subroutine AssociateGeometry_MappedScalar3D_t(this, geometry)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar3D_t), intent(inout) :: this
type(SEMHex), intent(in), target:: geometry

Contents


Source Code

  subroutine AssociateGeometry_MappedScalar3D_t(this,geometry)
    implicit none
    class(MappedScalar3D_t),intent(inout) :: this
    type(SEMHex),target,intent(in) :: geometry

    if(.not. associated(this%geometry)) then
      this%geometry => geometry
      this%geometry_associated = .true.
    endif

  endsubroutine AssociateGeometry_MappedScalar3D_t