Fortran Coder

查看: 11158|回复: 8
打印 上一主题 下一主题

[通用算法] 彭国伦---《Fortran95程序设计》----------纠错

[复制链接]

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2014-4-17 20:01:27 | 显示全部楼层
嗯,小鱼看书很认真。以前都没发现这个错误来。

我有一个很简单,很直观的写法:

[Fortran] 纯文本查看 复制代码
  logical function time_lt_time( a, b )
    implicit none
	  type(time), intent(in) :: a,b
    time_lt_time = ( ( a%hour < b%hour ) .or. ( (a%hour==b%hour).and.(a%minute<b%minute) ) )   
  end function

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2014-7-23 07:09:29 | 显示全部楼层
FLY 发表于 2014-7-22 14:20
感觉第143页EX0714中第七行和第九行的注释错了,第七行为下三角,第九行为上三角,如果我说错了,勿喷。 ...

这个没有错哦。Fortran 是列优先的,所以 a(i,j) 一般称呼 I 为 列,J 为 行,即第 J 列,第 I 行。
I>J 时,列数比行数大,是上部分。
I<J 时,列数比行数小,是下部分。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-8 02:57

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表