Lines Matching refs:fact
261 fact = one
262 if (ipord .eq. 2) fact = 0.9
263 if (ipord .eq. 3) fact = 0.75
276 DC(:,intp)=max(zero,(fact*sqrt(raLS*gnorm))-(rtLS*gnorm))
310 fact = one
311 if (ipord .eq. 2) fact = pt5
324 DC(:,intp) = min( max(zero,fact * sqrt(raLS * gnorm)-
576 fact = one
577 if (ipord .eq. 2) fact = 0.9
578 if (ipord .eq. 3) fact = 0.75
591 DCt(:,intp)=max(zero,(fact*sqrt(raLSt*gnormt))-(rtLSt*gnormt))
625 fact = one
626 if (ipord .eq. 2) fact = pt5
639 DCt(:,intp) = min( max(zero,fact * sqrt(raLSt * gnormt)-