1.9w+
社区成员
4.1w+
社区内容
- 主页
Fortran - log: SING error
DO I=1,6000000
if (y(2).lt.0) then
B=-RM(J)*Y(2)**P/(2.0*T(1))
F=1-EXP(B)
WRITE(*,*)f,Y(2)
y(2)=SQRT(-2.0*DLOG(F)*T(1)/RM(J))
endif
if (y(2).lt.0) then
B=-RM(J)*Y(2)**P/(2.0*T(1))
F=1-EXP(B)
WRITE(*,*)f,Y(2)
y(2)=SQRT(-2.0*DLOG(F)*T(1)/RM(J))
endif
...全文
还没有回复，快来抢沙发～
发动态
发帖子
社区公告
暂无公告