在windows 上运行很正常,在Linux服务器上编译通过,就是产生运行时错误,而且是发生在读入文件的部分,很头疼啊。。。
Linux端错误如下:
iend= 720
At line 316 of file **.f
Fortran runtime error: End of file
第316行附近代码如下:
Open(11,file='./data/dept10.txt')
Do J=JM,1,-1
Read(11,*) (H(I,J),I=1,IM) !此处为第316行
Enddo
Close(11)
解释下:JM IM H(I,J) 都是在.h文件中声明的如下:
PARAMETER (IM=57,JM=37……
COMMON/BLK2D/H(IM,JM)……
希望大虾踊跃指导,万分感谢。。。