nrnd1.f90

来自「这是一个可以用来计算洛仑兹方程解的程序」· F90 代码 · 共 13 行

REAL FUNCTION NRND1(R)
real*8 S,U,V,R
S=65536.0
U=2053.0
V=13849.0
M=R/S
R=R-M*S
R=U*R+V
M=R/S
R=R-M*S
NRND1=R/S
RETURN
END