Fortran运行出错！！！

hulalahulala

如图，运行Fortran出错，总感觉没错误啊，什么情况啊？   求指导！

四叶草

提示语法错误，自己仔细检查下read、write语句的控制符和变量的类型

nunu18

读数据有错误~~~~检查读数据的语句

topmad

表控输入 输出部分的问题 检查一下

hulalahulala

四叶草 发表于 2016-1-21 21:04
提示语法错误，自己仔细检查下read、write语句的控制符和变量的类型

没啥错误啊。  关键是，读取另一个相似的文件（年份多一年）时，没有提示这个错误。  实在搞不清楚。 这两个文件基本相同，只是时间长短不同。

hulalahulala

nunu18 发表于 2016-1-21 21:59
读数据有错误~~~~检查读数据的语句

没啥错误啊。  关键是，读取另一个相似的文件（年份多一年）时，没有提示这个错误。  实在搞不清楚。 这两个文件基本相同，只是时间长短不同。

hulalahulala

topmad 发表于 2016-1-22 08:38
表控输入 输出部分的问题 检查一下

没啥错误啊。  关键是，读取另一个相似的文件（年份多一年）时，没有提示这个错误。  实在搞不清楚。 这两个文件基本相同，只是时间长短不同。

topmad

hulalahulala 发表于 2016-1-22 14:22
没啥错误啊。  关键是，读取另一个相似的文件（年份多一年）时，没有提示这个错误。  实在搞不清楚。 这 ...

贴代码

hulalahulala

topmad 发表于 2016-1-22 14:29
贴代码

program main
implicit none
integer,parameter::n=13149
integer i,d
real r1(n),r2(n),r(n),nor(n),avg,sum,std,max
open(10,file='f:\study\mjo\RMM1RMM2(1979-2015).txt')
read(10,*) (r1(i),r2(i),i=1,n)
print*,r2(1)
do i=1,n
r(i)=sqrt(r1(i)**2+r2(i)**2)
end do
sum=0
do i=1,n
sum=sum+r(i)
end do
avg=sum/n
sum=0
do i=1,n
sum=sum+(r(i)-avg)**2
end do
std=sqrt(sum/n)
do i=1,n
nor(i)=(r(i)-avg)/std
end do
open(20,file='f:\study\mjo\nor.grd',form='binary')
write(20) (nor(i),i=1,n)
open(30,file='f:\study\mjo\nor.dat')
write(30,*) (nor(i),i=1,n)
!select the date of maxinum MJO intensity
max=nor(1)
d=1
do i=2,n
if(nor(i)>=max) then
  max=nor(i)
  d=i
end if
end do
print*,d,max
close(10)
close(20)
close(30)
end

hulalahulala

topmad 发表于 2016-1-22 14:29
贴代码

RMM1RMM2(1979-2015).txt，处理这个文件，不出错。
RMM1RMM2(1979-2014).txt，但处理这个文件时，出错。