| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | private | :: | mu_zero |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_hcf_viscosity), | intent(in) | :: | self | |||
| real(kind=real64), | intent(in) | :: | temperature |
type, abstract :: abst_hcf_viscosity private real(real64) :: mu_zero contains procedure(abst_calc_viscosity_kr), pass(self), public, deferred :: calc_viscosity end type abst_hcf_viscosity