| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public | :: | material1 |
soil, rock, concrete |
|||
| real(kind=real64), | public | :: | material2 |
water |
|||
| real(kind=real64), | public | :: | material3 |
ice |
|||
| real(kind=real64), | public | :: | material4 |
gas |
|||
| integer(kind=int32), | public | :: | material_id |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_sph), | intent(in) | :: | self | |||
| type(type_state), | intent(in) | :: | state |
type, abstract :: abst_sph integer(int32) :: material_id real(real64) :: material1 !! soil, rock, concrete real(real64) :: material2 !! water real(real64) :: material3 !! ice real(real64) :: material4 !! gas contains procedure(abst_calc_sph_gauss_point), pass(self), deferred :: calc end type abst_sph