| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(abst_hcf_base), | private, | allocatable | :: | base | |||
| class(abst_hcf_impedance), | private, | allocatable | :: | impedance | |||
| real(kind=real64), | private | :: | k_s | ||||
| class(abst_hcf_viscosity), | private, | allocatable | :: | viscosity |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_hcf), | intent(in) | :: | self | |||
| type(type_state), | intent(in) | :: | state |
type, abstract :: abst_hcf private real(real64) :: k_s class(abst_hcf_base), allocatable :: base class(abst_hcf_impedance), allocatable :: impedance class(abst_hcf_viscosity), allocatable :: viscosity contains procedure(abst_calc_kflh), pass(self), public, deferred :: calc_kflh end type abst_hcf