fortran运行错误

nickbsb

forrtl: severe (59): list-directed I/O syntax error 这个是怎么处理

mofangbao

语法错误

topmad

代码贴上来看看

纳川

可能和数据读写或文件开关有关

love2100

fortran帮助文件里面有各种常见错误的说明，参考一下吧

nickbsb

love2100 发表于 2012-4-19 19:29

                               
登录/注册后可看大图

fortran帮助文件里面有各种常见错误的说明，参考一下吧

提供个链接可以吗

胡小顺

最后怎么解决的呀

胡小顺

program main  
implicit none
parameter n=348
real x(n),y(n),c(n),d(n),t(n)
real a,b,sx,sxy,sum2,ave2,sum1,ave1
integer i
!open(1,file='d:/interannual/q/nino3.txt')
!open(2,file='d:/interannual/q/tloop79.txt')
!open(3,file='d:/interannual/q/3.txt')
!open(4,file='d:/interannual/q/4.grd',form='binary')
!open(5,file='d:/interannual/q/5.grd',form='binary')
open(1,file='f:/wwt/lr/nino1+2.txt')
open(2,file='f:/wwt/lr/ssta.grd',form='formatted')
open(3,file='f:/wwt/lr/3.txt')
open(4,file='f:/wwt/lr/4.grd',form='binary')
open(5,file='f:/wwt/lr/5.grd',form='binary')
read(1,*)(x(i),i=1,n)
read(2,*)(y(i),i=1,n)
sum1=0.0
sum2=0.0
sx=0.0
sxy=0.0
do i=1,n
sum1=sum1+x(i)
sum2=sum2+y(i)
enddo
ave1=sum1/n
ave2=sum2/n
do i=1,n
c(i)=x(i)-ave1
d(i)=y(i)-ave2
enddo
do i=1,n
sx=sx+c(i)**2
sxy=sxy+c(i)*d(i)
enddo
sx=sx/n
sxy=sxy/n
b=sxy/sx
a=ave2-ave1*b
do i=1,n
t(i)=a+b*x(i)
y(i)=y(i)-t(i)
enddo
write(3,*)(t(i),i=1,n)
write(4,*)(y(i),i=1,n)
write(5,*)(t(i),i=1,n)
end