H A D | praxis.f | 27 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local 77 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local 279 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local 320 XM4=ZSQRT(XM2) 669 IF(Z(I).LT.XM4) Z(I)=XM4 821 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local 919 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local 964 T2=XM4*ZSQRT(ZABS(FX)/DENOM+S*XLDT)+XM2*XLDT 965 S=XM4*S+T 1151 * SMALL,T,XLDT,XM2,XM4,DSEED,SCBD local [all …]
|