fortain编程有问题，大神帮帮忙

史露比比斯

是有关文件的导入的，在fortain上能够生成但是调试不成功，打开笔记本，没有数据，只有文字。可能是最后文件的写入的do出现问题program grads1
integer i,j,n,p,q
real sum
parameter(n=30,p=4,q=2)
dimension x(n,p),y(n,q)

open(1,file='G:\fortain\pengyingting\air.txt')
read(1,*)((x(i,j),i=1,n),j=1,p)
close(1)

do i=1,n
   y(i,1)=x(i,1)
end do

do i=1,n
   do j=2,p
      sum=sum+x(i,j)
   end do
  y(i,2)=sum/3
  sum=0
end do


iopen (2,file='G:\fortain\pengyingting\air2.txt',status='new')    !输出数据
write (2,100) "年份","冬季平均值"
100 format (/A8,6X,A26/)

do j=1,p
    write (2,10)(y(i,j),i=1,q)
end do
10 format(f6.2)

close(2)
print *,"已经将结果输出,存入E:\Fortranwenjian\fenjidata.txt文件中,敬请查看!"
pause
end program grads1

lqouc

status改为replace
ps：先把fortran拼对了

史露比比斯

lqouc 发表于 2016-3-25 17:23
status改为replace
ps：先把fortran拼对了

明白的，Fortran
谢谢Iqouc，问题解决了

史露比比斯

lqouc 发表于 2016-3-25 17:23
status改为replace
ps：先把fortran拼对了

又出现一个问题了大神，我出来的txt，年份那一列输出的是小数形式，怎样可以改整数输出呢？我有试着在format上把f改成i，结果出现星号，我也有试过，有int（y（i，1））这样，结果报错，你有什么方法么？
程序
program grads1
integer i,j,n,p,q
real sum
parameter(n=30,p=4,q=2)
dimension x(n,p),y(n,q)

open(1,file='G:\fortain\pengyingting\air.txt')
read(1,*)((x(i,j),j=1,p),i=1,n)
close(1)

do i=1,n
   y(i,1)=x(i,1)
end do

do i=1,n
   do j=2,p
      sum=sum+x(i,j)
   end do
  y(i,2)=sum/3
  sum=0
end do

print*,y
open (2,file='G:\fortain\pengyingting\air2.txt',status='replace')    !输出数据
write (2,100) "年份","冬季平均值"
100 format (/A2,4X,A6/)

do i=1,n
    write (2,10)(y(i,j), j=1,q)
end do
10 format(F5.0,6X,F6.2)

close(2)
print *,"已经将结果输出,存入E:\Fortranwenjian\fenjidata.txt文件中,敬请查看!"
pause
end program grads1

又是那隻貓

这里不是Q&A论坛