Searched refs:FComega (Results 1 – 4 of 4) sorted by relevance
448 REAL(KIND=dp) :: FComega local475 FComega = 0.0_dp479 FComega = FComega + (Q_log(iiB) - trace_Qomega(iiB))/2.0_dp482 Erpa = Erpa + FComega*freq_weight*kp_weight
905 REAL(KIND=dp) :: FComega local945 FComega = 0.0_dp948 FComega = FComega + (Q_log(iiB) - trace_Qomega(iiB))/2.0_dp950 Erpa = Erpa + FComega*wjquad
1339 REAL(KIND=dp) :: FComega local1369 FComega = 0.0_dp1372 FComega = FComega + (Q_log(iiB) - trace_Qomega(iiB))/2.0_dp1374 Erpa = Erpa + FComega*wjquad