Searched refs:wminpt (Results 1 – 2 of 2) sorted by relevance
28680 static real wminpt, celskb4, xiltxt; in pmxa_() local29470 wminpt = (wmins + 1) * .3f * commus_1.musize; in pmxa_()29485 if (elmin0 >= wminpt) { in pmxa_()29496 if (elmin1 <= wminpt) { in pmxa_()29508 r__1 = wsyspt / wminpt; in pmxa_()29510 r__3 = (wminpt - elmin0) / (elmin1 - elmin0); in pmxa_()
19132 wminpt = (1+wmins)*0.3*musize19143 if (elmin0 .ge. wminpt) then19153 if (elmin1 .le. wminpt) then19163 c eonk = min(.9,(wminpt-elmin0)/(elmin1-elmin0))19165 * wsyspt/wminpt,fbar*nbarss(isyst)+xelsk,dtmin,dtmax,19166 * (wminpt-elmin0)/(elmin1-elmin0))