Searched refs:HarmPowerCoeff (Results 1 – 1 of 1) sorted by relevance
596 REAL(KIND=dp) :: HarmPowerCoeff local617 HarmPowerCoeff = 1.0_dp619 HarmPowerCoeff = 0.5_dp1634 … Coeff = HarmPowerCoeff * (SUM( MATMUL( REAL(CMat_ip(1:3,1:3)), TRANSPOSE(E(1:1,1:3)) ) * &2224 Power = Power + HarmPowerCoeff * REAL(1.0_dp/Zs) * &