fortran读写

program main
implicit none
character yr
integer,parameter::x=3024,y=365,t=94  
real  fday(x,y,t)
integer::i,j,k
      open(10,file='L:\1du-daily\had-es-tasmin_26-20062099.txt')
    do k=1,t
    write(yr,'(i4)') k+2005
    open(11,file='L:\day-year\tasmin26\tasmin'//yr//'.txt')
    do j=1,y
    read(10,'(3024f8.2)') (fday(i,j,k),i=1,x)
    write(11,'(3024f8.2)') (fday(i,j,k),i=1,x)
    enddo
    close(11)
    enddo
    close(10)
  end
原始数据94年的逐日数据，欲按年写入不同文件，运行后对话框如图，搞了半天不知道哪里错误，先谢谢啦

一个不小心

看了半天没看懂yr是什么意思，怎么用的

啊，就是那个地方有问题，应该是character*4，没定义大小

xo2001

一个不小心 发表于 2014-5-23 15:59
看了半天没看懂yr是什么意思，怎么用的

是把I4的整形write成字符yr

一个不小心

我觉得用法有问题，你可以按楼上的方法改一下

lysx

你把数据传到我邮箱，我看看，393893585

飑线

闰年的天数不一样吧