fortran批量读取数据

大果子

每年一个文件，每个文件是153个数的一维时间序列，我想用FORTRAN把数据都读到一个A数组里，可不知为什么读出来的数都是重复的，哪位大神能帮我看看程序出了什么问题？不胜感激！！

PARAMETER (yrn=34,nt=153)
        real A(yrn,nt),B(yrn,nt),sum,SUMA,SUMB
        integer yr,t
      character*5::year(yrn)=(/'1981','1982','1983','1984','1985',
     &'1986','1987','1988','1989','1990','1991','1992','1993','1994',
     &'1995','1996','1997','1998','1999','2000','2001','2002','2003',
     &'2004','2005','2006','2007','2008','2009','2010','2011','2012',
     &'2013','2014'/)
       
      do yr=1,yrn
         do t=1,nt
           A(yr,t)=0.0
           B(yr,t)=0.0
         enddo
        enddo

      do yr=1,34
        OPEN (1,FILE='O:\qj\850uaave'//trim(year(yr))//'.txt')
      OPEN (2,FILE='O:\qj\dp850uaave'//trim(year(yr))//'.txt')

      read(1,*) (A(yr,t),t=1,nt)
      read(2,*) (B(yr,t),t=1,nt)

        close(1)
        close(2)
      enddo

        write(*,*) A
        write(*,*)B

end[img=0,1]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\760928732\QQ\WinTemp\RichOle\G]YKW)[1EPGLWUII[PNLO35.png[/img]

xingcheng5272

看着很高大上啊

xingcheng5272

下次好好的操作一下

earsky

嗯，默认write数组是按列优先的，所以 这个结果里表示的是 第1年的第1个数，第2年的第1个数……第34年的第1个数……
可以试试改成按行优先输出