AssociateGeometry_MappedScalar2D_t Subroutine

public subroutine AssociateGeometry_MappedScalar2D_t(this, geometry)

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar2D_t), intent(inout) :: this
type(SEMQuad), intent(in), target:: geometry

Contents


Source Code

  subroutine AssociateGeometry_MappedScalar2D_t(this,geometry)
    implicit none
    class(MappedScalar2D_t),intent(inout) :: this
    type(SEMQuad),target,intent(in) :: geometry

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

  endsubroutine AssociateGeometry_MappedScalar2D_t