吉大渣渣-固体 发表于 2018-4-17 01:07
计算不出来是因为您没有写输出语句，无法看到执行结果。

直接加上对应的输出语句即可。But重点来了，您的 ...

万分感谢！

计算不出来是因为您没有写输出语句，无法看到执行结果。

直接加上对应的输出语句即可。But重点来了，您的代码还是有问题的，主要在声明和数据类型上。
1.“ implicit real(kind=8)(a-h,o-z)”这个懒人神句危害很大的，没有声明的以a-h,o-z开头的变量数组都可以在程序中畅通无阻执行，这样写错了个字母很难排查出来且编译器不会报错，其初始化也是问题，有重大安全隐患；强烈建议改implicit none,强迫症保平安；
2.请重视数据类型。
针对以上问题不妨做以下修改：
test.f90 (1.42 KB, 下载次数: 0)

2018-4-17 01:05 上传

点击文件名下载附件

执行结果：

至于二者为什么执行结果不同，因时间关系，建议您检查初始化和数据类型。祝好！