| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(MappedVector2D_t), | intent(inout) | :: | this | |||
| type(SEMQuad), | intent(in), | target | :: | geometry |
subroutine AssociateGeometry_MappedVector2D_t(this,geometry)
implicit none
class(MappedVector2D_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_MappedVector2D_t