| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(MappedScalar1D_t), | intent(inout) | :: | this | |||
| type(Geometry1D), | intent(in), | target | :: | geometry |
subroutine AssociateGeometry_MappedScalar1D_t(this,geometry)
implicit none
class(MappedScalar1D_t),intent(inout) :: this
type(Geometry1D),target,intent(in) :: geometry
if(.not. associated(this%geometry)) then
this%geometry => geometry
this%geometry_associated = .true.
endif
endsubroutine AssociateGeometry_MappedScalar1D_t