（问题已解决，谢谢大家）新人想用FORTRAN，老是出错，百思不得姐，求助~~

wtf2ftw

我有3个TXT文件数据，每个文件都只有一列整型数据（2920个），我想根据这3个文件数据，通过逻辑判断，赋给一个数组相应的值，并输出为TXT，可总是编译报错~急
写的内容如下
program adjust
implicit none
integer,parameter::n=2920
real::u(n),h(n)
INTEGER(4)::z(n),d(n),f(n),w(n),i

OPEN(11,FILE='e:\data2\zy.txt',action='read',status='old')
OPEN(12,FILE='e:\data2\dy.txt',action='read',status='old')
OPEN(13,FILE='e:\data2\h0.txt',action='read',status='old')
OPEN(14,FILE='e:\data2\fs.txt',status='new')
do i=1,n
read(11,*)z(i)
read(12,*)d(i)
read(13,*)h(i)
enddo
close(11)
close(12)
close(13)

do i=1,n
if(z(i)<=4.and.d(i)<=4.and.h(i)<=0)
then(fs(i)==-2)  
elseif(z(i)>=5.and.z(i)<=7.and.d(i)<=4.and.h0(i)<=0)
then(f(i)=-1)
elseif(z(i)>=8.and.d(i)<=4.and.h(i)<=0)
then(f(i)=-1)
elseif(z(i)>=5.and.d(i)>=5.and.d(i)<=7.and.h(i)<=0)
then(f(i)=0)
elseif(z(i)>=8.and.d(i)>=8.and.h(i)<=0)
then f(i)=0 else f(i)=0
endif
enddo
do i=1,2920
write(14,*)(fs(i),file='e:\data2\fs.txt')
enddo
close(14)
end

xo2001

提示你21和23行语法错误，看看if块的语法怎么写的，自己改改再试试

zhouling

if then 语句写错了吧

lqouc

write(14,*)(fs(i),file='e:\data2\fs.txt')
这是啥意思？话说我用你的程序编译发现了16个语法错误，不知道你用的什么编译器。总之已经有提示了，你就自己修改下吧。

昨日之人

貌似应该是if和then是在同一行
if(z(i)<=4.and.d(i)<=4.and.h(i)<=0)then
(fs(i)==-2)
elseif(z(i)>=5.and.z(i)<=7.and.d(i)<=4.and.h0(i)<=0)then
。。。
LZ可以尝试下

wtf2ftw

谢谢楼上各位帮助  已经完美解决，程序结果也已经运行出来了，一句话，5年没用过fortran了，才发现语法已经不熟悉了，不过现已DEBUG，开心  这个程序是算混合层高度的一部分

mofangbao

wtf2ftw 发表于 2014-4-29 17:13
谢谢楼上各位帮助  已经完美解决，程序结果也已经运行出来了，一句话，5年没用过fortran了，才发现语法已经 ...

有好程序别忘了来分享

wtf2ftw

mofangbao 发表于 2014-4-29 17:20
有好程序别忘了来分享

嗯  先前在GRADS方面就学到版主大大不少好东东，呵呵。虽然才疏学浅但有好东西一定分享