Searched refs:ep (Results 1 – 3 of 3) sorted by relevance
261 real*8 rd,fd,dwallsqqfact,ep local387 ep=zero388 if(Sclr(e).gt.zero) ep=one401 stp = ep*k2d2Inv * fv2 + tmp*fv2p408 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)423 prat = ep*saCb1*st !prodRat424 srcRat(e)= prat - ep*fw * tmp1
363 ep=zero364 if(Sclr(e).gt.zero) ep=one377 stp = ep*k2d2Inv * fv2 *(one-two*SclrNN*dpod) + tmp*fv2p384 rp = k2d2Inv / st**2 * (ep*st - SclrNN*(stp+st*two*dpod)399 prat = ep*saCb1*st !prodRat400 srcRat(e)= prat - ep*fw * tmp1
349 ep=zero350 if(Sclr(e).gt.zero) ep=one363 stp = ep*k2d2Inv * fv2 + tmp*fv2p370 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)385 prat = ep*saCb1*st !prodRat386 srcRat(e)= prat - ep*fw * tmp1