fortran 编程求助！

言深深

孩子，你的文件名和读规则和你的数据不匹配，经过如下调整可以运行了，错误的地方在标记线之间

program main
implicit none
integer i,j,k
real x(10,12,33)
integer mydate    !!! 读取的第一个文件!!!
character(len=80) filename,filedate    !!! 用于存放文件名称!!!
mydate=1979
do k=1,33
write(filedate,'(i4.4)') mydate     !!!!把mydate的值赋予filedate!!!
!--------------------------------------------------------------------
write(filename,*) 'cmap_mon_',trim(filedate),'_rain1.txt'                !@~~~~~~漏了“rain1”~~~~~~@!
!--------------------------------------------------------------------
open(unit=k+50,file=filename)
do j=1,12
  !--------------------------------------------------------------------
   read(k+50,*) (x(i,j,k),i=1,10)                !@~~~~~~此处读取方式需要和你的文件相匹配，隐循环表示从该行读取10个~~~~~~@!
!--------------------------------------------------------------------
end do
close(k+50)
mydate=mydate+1
end do
open(unit=100,file='station.txt',form="formatted",access="sequential",position="append")
do k=1,33
do j=1,12
write(100,'(10f8.2)') x(1,j,k),x(2,j,k),x(3,j,k),x(4,j,k),x(5,j,k),x(6,j,k),x(7,j,k),x(8,j,k),x(9,j,k),x(10,j,k)
end do
end do
stop
end

小七是只猫

言深深 发表于 2012-4-21 10:06

                               
登录/注册后可看大图

孩子，你的文件名和读规则和你的数据不匹配，经过如下调整可以运行了，错误的地方在标记线之间

...

{:3_44:}  果然是很伤不起的错误···   真的非常感谢！

言深深

小七是只猫 发表于 2012-4-21 15:59

                               
登录/注册后可看大图

果然是很伤不起的错误···   真的非常感谢！

只怪计算机太笨，不能“人性化”

Yangtzeriver

建议将position="append"改为
position="rewind"，要不然重新执行后，第二次输出的文件station.txt，会把之前输出的内容也包括在里面的啊