Calculate_Impedance_Base Module Function

module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: Omega
real(kind=real64), intent(in) :: thetaI

Return Value real(kind=real64)


Called by

proc~~calculate_impedance_base~~CalledByGraph proc~calculate_impedance_base Calculate_Impedance_Base interface~calculate_impedance_base Type_HCF_Impedance_Viscosity%Calculate_Impedance_Base interface~calculate_impedance_base->proc~calculate_impedance_base proc~calculate_kflh_base_impedance_bc Calculate_Kflh_Base_Impedance_BC proc~calculate_kflh_base_impedance_bc->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_durner Calculate_Kflh_Base_Impedance_Durner proc~calculate_kflh_base_impedance_durner->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_dvgch Calculate_Kflh_Base_Impedance_DVGCH proc~calculate_kflh_base_impedance_dvgch->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_ko Calculate_Kflh_Base_Impedance_KO proc~calculate_kflh_base_impedance_ko->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_mvg Calculate_Kflh_Base_Impedance_MVG proc~calculate_kflh_base_impedance_mvg->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_vg Calculate_Kflh_Base_Impedance_VG proc~calculate_kflh_base_impedance_vg->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_bc Calculate_Kflh_Base_Impedance_Viscosity_BC proc~calculate_kflh_base_impedance_viscosity_bc->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_durner Calculate_Kflh_Base_Impedance_Viscosity_Durner proc~calculate_kflh_base_impedance_viscosity_durner->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_dvgch Calculate_Kflh_Base_Impedance_Viscosity_DVGCH proc~calculate_kflh_base_impedance_viscosity_dvgch->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_ko Calculate_Kflh_Base_Impedance_Viscosity_KO proc~calculate_kflh_base_impedance_viscosity_ko->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_mvg Calculate_Kflh_Base_Impedance_Viscosity_MVG proc~calculate_kflh_base_impedance_viscosity_mvg->interface~calculate_impedance_base proc~calculate_kflh_base_impedance_viscosity_vg Calculate_Kflh_Base_Impedance_Viscosity_VG proc~calculate_kflh_base_impedance_viscosity_vg->interface~calculate_impedance_base proc~calculate_kflh_impedance Calculate_Kflh_Impedance proc~calculate_kflh_impedance->interface~calculate_impedance_base proc~calculate_kflh_impedance_viscosity Calculate_Kflh_Impedance_Viscosity proc~calculate_kflh_impedance_viscosity->interface~calculate_impedance_base interface~calculate_kflh_base_impedance_bc Type_HCF_Base_Impedance_BC%Calculate_Kflh_Base_Impedance_BC interface~calculate_kflh_base_impedance_bc->proc~calculate_kflh_base_impedance_bc 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_dvgch Type_HCF_Base_Impedance_DVGCH%Calculate_Kflh_Base_Impedance_DVGCH interface~calculate_kflh_base_impedance_dvgch->proc~calculate_kflh_base_impedance_dvgch interface~calculate_kflh_base_impedance_ko Type_HCF_Base_Impedance_KO%Calculate_Kflh_Base_Impedance_KO interface~calculate_kflh_base_impedance_ko->proc~calculate_kflh_base_impedance_ko interface~calculate_kflh_base_impedance_mvg Type_HCF_Base_Impedance_MVG%Calculate_Kflh_Base_Impedance_MVG interface~calculate_kflh_base_impedance_mvg->proc~calculate_kflh_base_impedance_mvg interface~calculate_kflh_base_impedance_vg Type_HCF_Base_Impedance_VG%Calculate_Kflh_Base_Impedance_VG interface~calculate_kflh_base_impedance_vg->proc~calculate_kflh_base_impedance_vg interface~calculate_kflh_base_impedance_viscosity_bc Type_HCF_Base_Impedance_Viscosity_BC%Calculate_Kflh_Base_Impedance_Viscosity_BC interface~calculate_kflh_base_impedance_viscosity_bc->proc~calculate_kflh_base_impedance_viscosity_bc 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_impedance_viscosity_dvgch Type_HCF_Base_Impedance_Viscosity_DVGCH%Calculate_Kflh_Base_Impedance_Viscosity_DVGCH interface~calculate_kflh_base_impedance_viscosity_dvgch->proc~calculate_kflh_base_impedance_viscosity_dvgch interface~calculate_kflh_base_impedance_viscosity_ko Type_HCF_Base_Impedance_Viscosity_KO%Calculate_Kflh_Base_Impedance_Viscosity_KO interface~calculate_kflh_base_impedance_viscosity_ko->proc~calculate_kflh_base_impedance_viscosity_ko interface~calculate_kflh_base_impedance_viscosity_mvg Type_HCF_Base_Impedance_Viscosity_MVG%Calculate_Kflh_Base_Impedance_Viscosity_MVG interface~calculate_kflh_base_impedance_viscosity_mvg->proc~calculate_kflh_base_impedance_viscosity_mvg interface~calculate_kflh_base_impedance_viscosity_vg Type_HCF_Base_Impedance_Viscosity_VG%Calculate_Kflh_Base_Impedance_Viscosity_VG interface~calculate_kflh_base_impedance_viscosity_vg->proc~calculate_kflh_base_impedance_viscosity_vg interface~calculate_kflh_impedance Type_HCF_Impedance%Calculate_Kflh_Impedance interface~calculate_kflh_impedance->proc~calculate_kflh_impedance interface~calculate_kflh_impedance_viscosity Type_HCF_Impedance_Viscosity%Calculate_Kflh_Impedance_Viscosity interface~calculate_kflh_impedance_viscosity->proc~calculate_kflh_impedance_viscosity proc~update_kflh_base_impedance_bc Update_Kflh_Base_Impedance_BC proc~update_kflh_base_impedance_bc->interface~calculate_kflh_base_impedance_bc 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_dvgch Update_Kflh_Base_Impedance_DVGCH proc~update_kflh_base_impedance_dvgch->interface~calculate_kflh_base_impedance_dvgch proc~update_kflh_base_impedance_ko Update_Kflh_Base_Impedance_KO proc~update_kflh_base_impedance_ko->interface~calculate_kflh_base_impedance_ko proc~update_kflh_base_impedance_mvg Update_Kflh_Base_Impedance_MVG proc~update_kflh_base_impedance_mvg->interface~calculate_kflh_base_impedance_mvg proc~update_kflh_base_impedance_vg Update_Kflh_Base_Impedance_VG proc~update_kflh_base_impedance_vg->interface~calculate_kflh_base_impedance_vg proc~update_kflh_base_impedance_viscosity_bc Update_Kflh_Base_Impedance_Viscosity_BC proc~update_kflh_base_impedance_viscosity_bc->interface~calculate_kflh_base_impedance_viscosity_bc 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_impedance_viscosity_dvgch Update_Kflh_Base_Impedance_Viscosity_DVGCH proc~update_kflh_base_impedance_viscosity_dvgch->interface~calculate_kflh_base_impedance_viscosity_dvgch proc~update_kflh_base_impedance_viscosity_ko Update_Kflh_Base_Impedance_Viscosity_KO proc~update_kflh_base_impedance_viscosity_ko->interface~calculate_kflh_base_impedance_viscosity_ko proc~update_kflh_base_impedance_viscosity_mvg Update_Kflh_Base_Impedance_Viscosity_MVG proc~update_kflh_base_impedance_viscosity_mvg->interface~calculate_kflh_base_impedance_viscosity_mvg proc~update_kflh_base_impedance_viscosity_vg Update_Kflh_Base_Impedance_Viscosity_VG proc~update_kflh_base_impedance_viscosity_vg->interface~calculate_kflh_base_impedance_viscosity_vg proc~update_kflh_impedance Update_Kflh_Impedance proc~update_kflh_impedance->interface~calculate_kflh_impedance proc~update_kflh_impedance_viscosity Update_Kflh_Impedance_Viscosity proc~update_kflh_impedance_viscosity->interface~calculate_kflh_impedance_viscosity interface~update_kflh_base_impedance_bc Type_HCF_Base_Impedance_BC%Update_Kflh_Base_Impedance_BC interface~update_kflh_base_impedance_bc->proc~update_kflh_base_impedance_bc 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_dvgch Type_HCF_Base_Impedance_DVGCH%Update_Kflh_Base_Impedance_DVGCH interface~update_kflh_base_impedance_dvgch->proc~update_kflh_base_impedance_dvgch interface~update_kflh_base_impedance_ko Type_HCF_Base_Impedance_KO%Update_Kflh_Base_Impedance_KO interface~update_kflh_base_impedance_ko->proc~update_kflh_base_impedance_ko interface~update_kflh_base_impedance_mvg Type_HCF_Base_Impedance_MVG%Update_Kflh_Base_Impedance_MVG interface~update_kflh_base_impedance_mvg->proc~update_kflh_base_impedance_mvg interface~update_kflh_base_impedance_vg Type_HCF_Base_Impedance_VG%Update_Kflh_Base_Impedance_VG interface~update_kflh_base_impedance_vg->proc~update_kflh_base_impedance_vg interface~update_kflh_base_impedance_viscosity_bc Type_HCF_Base_Impedance_Viscosity_BC%Update_Kflh_Base_Impedance_Viscosity_BC interface~update_kflh_base_impedance_viscosity_bc->proc~update_kflh_base_impedance_viscosity_bc 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_impedance_viscosity_dvgch Type_HCF_Base_Impedance_Viscosity_DVGCH%Update_Kflh_Base_Impedance_Viscosity_DVGCH interface~update_kflh_base_impedance_viscosity_dvgch->proc~update_kflh_base_impedance_viscosity_dvgch interface~update_kflh_base_impedance_viscosity_ko Type_HCF_Base_Impedance_Viscosity_KO%Update_Kflh_Base_Impedance_Viscosity_KO interface~update_kflh_base_impedance_viscosity_ko->proc~update_kflh_base_impedance_viscosity_ko interface~update_kflh_base_impedance_viscosity_mvg Type_HCF_Base_Impedance_Viscosity_MVG%Update_Kflh_Base_Impedance_Viscosity_MVG interface~update_kflh_base_impedance_viscosity_mvg->proc~update_kflh_base_impedance_viscosity_mvg interface~update_kflh_base_impedance_viscosity_vg Type_HCF_Base_Impedance_Viscosity_VG%Update_Kflh_Base_Impedance_Viscosity_VG interface~update_kflh_base_impedance_viscosity_vg->proc~update_kflh_base_impedance_viscosity_vg interface~update_kflh_impedance Type_HCF_Impedance%Update_Kflh_Impedance interface~update_kflh_impedance->proc~update_kflh_impedance interface~update_kflh_impedance_viscosity Type_HCF_Impedance_Viscosity%Update_Kflh_Impedance_Viscosity interface~update_kflh_impedance_viscosity->proc~update_kflh_impedance_viscosity

Source Code

    module function Calculate_Impedance_Base(Omega, thetaI) result(Impedance)
        !$omp declare simd uniform(Omega, thetaI)
        implicit none
        real(real64), intent(in) :: Omega
        real(real64), intent(in) :: thetaI
        real(real64) :: Impedance

        Impedance = 10.0d0**(-Omega * thetaI)

    end function Calculate_Impedance_Base