Calculate_kr_Durner_Base Interface

interface


Calls

interface~~calculate_kr_durner_base~~CallsGraph interface~calculate_kr_durner_base Calculate_kr_Durner_Base proc~calculate_kr_durner_base Calculate_kr_Durner_Base interface~calculate_kr_durner_base->proc~calculate_kr_durner_base

Called by

interface~~calculate_kr_durner_base~~CalledByGraph interface~calculate_kr_durner_base Calculate_kr_Durner_Base proc~calculate_kr_base_durner Calculate_kr_Base_Durner proc~calculate_kr_base_durner->interface~calculate_kr_durner_base proc~calculate_kr_base_impedance_durner Calculate_kr_Base_Impedance_Durner proc~calculate_kr_base_impedance_durner->interface~calculate_kr_durner_base proc~calculate_kr_base_impedance_viscosity_durner Calculate_kr_Base_Impedance_Viscosity_Durner proc~calculate_kr_base_impedance_viscosity_durner->interface~calculate_kr_durner_base proc~calculate_kr_base_viscosity_durner Calculate_kr_Base_Viscosity_Durner proc~calculate_kr_base_viscosity_durner->interface~calculate_kr_durner_base interface~calculate_kr_base_durner Type_HCF_Base_Durner%Calculate_kr_Base_Durner interface~calculate_kr_base_durner->proc~calculate_kr_base_durner interface~calculate_kr_base_impedance_durner Type_HCF_Base_Impedance_Durner%Calculate_kr_Base_Impedance_Durner interface~calculate_kr_base_impedance_durner->proc~calculate_kr_base_impedance_durner interface~calculate_kr_base_impedance_viscosity_durner Type_HCF_Base_Impedance_Viscosity_Durner%Calculate_kr_Base_Impedance_Viscosity_Durner interface~calculate_kr_base_impedance_viscosity_durner->proc~calculate_kr_base_impedance_viscosity_durner interface~calculate_kr_base_viscosity_durner Type_HCF_Base_Viscosity_Durner%Calculate_kr_Base_Viscosity_Durner interface~calculate_kr_base_viscosity_durner->proc~calculate_kr_base_viscosity_durner proc~calculate_kflh_base_durner Calculate_Kflh_Base_Durner proc~calculate_kflh_base_durner->interface~calculate_kr_base_durner proc~calculate_kflh_base_impedance_durner Calculate_Kflh_Base_Impedance_Durner proc~calculate_kflh_base_impedance_durner->interface~calculate_kr_base_impedance_durner proc~calculate_kflh_base_impedance_viscosity_durner Calculate_Kflh_Base_Impedance_Viscosity_Durner proc~calculate_kflh_base_impedance_viscosity_durner->interface~calculate_kr_base_impedance_viscosity_durner proc~calculate_kflh_base_viscosity_durner Calculate_Kflh_Base_Viscosity_Durner proc~calculate_kflh_base_viscosity_durner->interface~calculate_kr_base_viscosity_durner interface~calculate_kflh_base_durner Type_HCF_Base_Durner%Calculate_Kflh_Base_Durner interface~calculate_kflh_base_durner->proc~calculate_kflh_base_durner interface~calculate_kflh_base_impedance_durner Type_HCF_Base_Impedance_Durner%Calculate_Kflh_Base_Impedance_Durner interface~calculate_kflh_base_impedance_durner->proc~calculate_kflh_base_impedance_durner interface~calculate_kflh_base_impedance_viscosity_durner Type_HCF_Base_Impedance_Viscosity_Durner%Calculate_Kflh_Base_Impedance_Viscosity_Durner interface~calculate_kflh_base_impedance_viscosity_durner->proc~calculate_kflh_base_impedance_viscosity_durner interface~calculate_kflh_base_viscosity_durner Type_HCF_Base_Viscosity_Durner%Calculate_Kflh_Base_Viscosity_Durner interface~calculate_kflh_base_viscosity_durner->proc~calculate_kflh_base_viscosity_durner proc~update_kflh_base_durner Update_Kflh_Base_Durner proc~update_kflh_base_durner->interface~calculate_kflh_base_durner proc~update_kflh_base_impedance_durner Update_Kflh_Base_Impedance_Durner proc~update_kflh_base_impedance_durner->interface~calculate_kflh_base_impedance_durner proc~update_kflh_base_impedance_viscosity_durner Update_Kflh_Base_Impedance_Viscosity_Durner proc~update_kflh_base_impedance_viscosity_durner->interface~calculate_kflh_base_impedance_viscosity_durner proc~update_kflh_base_viscosity_durner Update_Kflh_Base_Viscosity_Durner proc~update_kflh_base_viscosity_durner->interface~calculate_kflh_base_viscosity_durner interface~update_kflh_base_durner Type_HCF_Base_Durner%Update_Kflh_Base_Durner interface~update_kflh_base_durner->proc~update_kflh_base_durner interface~update_kflh_base_impedance_durner Type_HCF_Base_Impedance_Durner%Update_Kflh_Base_Impedance_Durner interface~update_kflh_base_impedance_durner->proc~update_kflh_base_impedance_durner interface~update_kflh_base_impedance_viscosity_durner Type_HCF_Base_Impedance_Viscosity_Durner%Update_Kflh_Base_Impedance_Viscosity_Durner interface~update_kflh_base_impedance_viscosity_durner->proc~update_kflh_base_impedance_viscosity_durner interface~update_kflh_base_viscosity_durner Type_HCF_Base_Viscosity_Durner%Update_Kflh_Base_Viscosity_Durner interface~update_kflh_base_viscosity_durner->proc~update_kflh_base_viscosity_durner

private module function Calculate_kr_Durner_Base(alpha1, n1, m1, w1, alpha2, n2, m2, w2, l, h) result(kr)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: alpha1
real(kind=real64), intent(in) :: n1
real(kind=real64), intent(in) :: m1
real(kind=real64), intent(in) :: w1
real(kind=real64), intent(in) :: alpha2
real(kind=real64), intent(in) :: n2
real(kind=real64), intent(in) :: m2
real(kind=real64), intent(in) :: w2
real(kind=real64), intent(in) :: l
real(kind=real64), intent(in) :: h

Return Value real(kind=real64)