| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(MappedVector3D_t), | intent(inout) | :: | this | |||
| type(SEMHex), | intent(in), | target | :: | geometry |
subroutine AssociateGeometry_MappedVector3D_t(this,geometry)
implicit none
class(MappedVector3D_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_MappedVector3D_t