GAMESS 是一款用 Fortran 语言编写的开源的大型量子化学计算程序包,本文以对gamess 源代码的简单修改为例,期望能为因一直使用商业软件从而对量化程序怀有“黑匣子”般神秘感的研究者减少一丝不安。
有没有看看 IF (LOUT.EQ. 31415926535897932) CALL ABRT LOUT = -31415926535897932 中的LOUT变量是什么意思,否则你下面的改法不是有问题吗? if (lout . eq. -314159) call abrt lout = -314159 数值越界,可以定义更多位的整数来支持,比如int64, 按我的猜测,这个变量看是在同 pi 比较, 3.1415926 少了小数点,
楼主还在用yahoo邮箱啊,yahoo都垮了,小心哪天邮箱没了-,-
支持支持!
顶一下,感谢分享!
有没有看看
IF (LOUT.EQ. 31415926535897932) CALL ABRT
LOUT = -31415926535897932
中的LOUT变量是什么意思,否则你下面的改法不是有问题吗?
if (lout . eq. -314159) call abrt
lout = -314159
数值越界,可以定义更多位的整数来支持,比如int64,
按我的猜测,这个变量看是在同 pi 比较, 3.1415926 少了小数点,
楼主还在用yahoo邮箱啊,yahoo都垮了,小心哪天邮箱没了-,-
支持支持!
顶一下,感谢分享!
顶一下,感谢分享!
顶一下,感谢分享!