Searched refs:elmin0 (Results 1 – 2 of 2) sorted by relevance
28672 static real elmin0, elmin1; in pmxa_() local29484 elmin0 = wsyspt * f1eon_(&dtmin) / (elss[isyst - 1] + xelsk); in pmxa_()29485 if (elmin0 >= wminpt) { in pmxa_()29510 r__3 = (wminpt - elmin0) / (elmin1 - elmin0); in pmxa_()
19142 elmin0 = wsyspt*f1eon(dtmin)/(elss(isyst)+xelsk)19143 if (elmin0 .ge. wminpt) then19163 c eonk = min(.9,(wminpt-elmin0)/(elmin1-elmin0))19166 * (wminpt-elmin0)/(elmin1-elmin0))