Searched refs:zetw (Results 1 – 6 of 6) sorted by relevance
164 zetw = 1.0_dp/(zeta(ipgf) + zetc(jpgf))166 rho = zeta(ipgf)*zetc(jpgf)*zetw179 rcw(:) = -zeta(ipgf)*zetw*rac(:)247 f5 = 0.5_dp*zetw249 raw(:) = zetc(jpgf)*zetw*rac(:)456 f0 = 2.0_dp*SQRT(pi**5*zetw)*zetp*zetq501 f0 = 2.0_dp*SQRT(pi**5*zetw*comega)*zetp*zetq548 f0 = 2.0_dp*SQRT(pi**5*zetw)*zetp*zetq610 f0 = 2.0_dp*SQRT(pi**5*zetw**3)/(rho + omega)*expT660 f0 = pi**3*SQRT(zetw**3/(rho + omega)**3)*expT[all …]
149 rho = zeta(ipgf)*zetc(jpgf)*zetw172 rcw(:) = -zeta(ipgf)*zetw*rac(:)240 f5 = 0.5_dp*zetw242 raw(:) = zetc(jpgf)*zetw*rac(:)495 rho = zeta(ipgf)*zetc(jpgf)*zetw518 rcw(:) = -zeta(ipgf)*zetw*rac(:)586 f5 = 0.5_dp*zetw588 raw(:) = zetc(jpgf)*zetw*rac(:)883 f4 = -zetc*zetw1325 f5 = -zetw/zetp[all …]
166 zetq, zetw local261 zetw = 1.0_dp/(zeta(ipgf) + zetb(jpgf) + zetc)265 f4 = -zetc*zetw270 ferf = 2.0_dp*SQRT(pi**5*zetw)*zetp*zetq*f0