[读物] 徐士良老师书中程序，遇到问题

54 帖子	0 主题	0 精华

实习版主

F 币: 653 元
贡献: 214 点

发消息

楼主

发表于 2020-12-23 22:05:29 | 显示全部楼层

第45，46 行
      IF (ABS(A(L,L-1)).GT.EPS*(ABS(A(L-1,L-1))+ABS(A(L,L))).AND.
   *    L.GT.1) GOTO 40

替换为

  if( l > 1 ) then
   IF (ABS(A(L,L-1))>EPS*(ABS(A(L-1,L-1))+ABS(A(L,L)))) GOTO 40
  end if

评分

参与人数 1	F 币 +4	收起理由
kyra	+ 4	赞一个!

查看全部评分

回复支持反对

使用道具举报

返回列表发新帖

[读物] 徐士良老师书中程序，遇到问题

评分

元老勋章

新人勋章