Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=real64), | public, | allocatable | :: | dispersity(:) | |||
real(kind=real64), | public | :: | material1 |
like a soil or a rock, a concrete |
|||
real(kind=real64), | public | :: | material2 |
like a water |
|||
real(kind=real64), | public | :: | material3 |
like a ice |
|||
real(kind=real64), | public | :: | material4 |
like a gas |
|||
integer(kind=int32), | public | :: | material_id |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(abst_thc), | intent(in) | :: | self | |||
type(type_gauss_point_state), | intent(in) | :: | state |
type, abstract :: abst_thc integer(int32) :: material_id real(real64) :: material1 !! like a soil or a rock, a concrete real(real64) :: material2 !! like a water real(real64) :: material3 !! like a ice real(real64) :: material4 !! like a gas real(real64), allocatable :: dispersity(:) contains procedure(abst_calc_thc_gauss_point), pass(self), deferred :: calc_gauss_point !& end type abst_thc