Searched refs:elmin1 (Results 1 – 2 of 2) sorted by relevance
28672 static real elmin0, elmin1; in pmxa_() local29494 elmin1 = wsyspt / ((c1ommvl_1.fbar * nbarss[isyst] + xelsk) / in pmxa_()29496 if (elmin1 <= wminpt) { in pmxa_()29510 r__3 = (wminpt - elmin0) / (elmin1 - elmin0); in pmxa_()
19152 elmin1 = wsyspt/((fbar*nbarss(isyst)+xelsk)/f1eon(dtmax)+nns)19153 if (elmin1 .le. wminpt) then19163 c eonk = min(.9,(wminpt-elmin0)/(elmin1-elmin0))19166 * (wminpt-elmin0)/(elmin1-elmin0))