请看看这个程序

myloveforum

看看这个程序，为何X(I,2)输出的数据为啥不是文件中对应的第二列呢？
应该怎么改动才行？

myloveforum

请大家帮帮忙，先谢谢了

myloveforum

各位大虾,抽空回复一下
谢谢

lijiuhua137

我修改了一下，结果正确。有疑问站内交流哦！
REAL, ALLOCATABLE:: X(:,:)
      REAL, ALLOCATABLE:: OLDX(:,:)
      REAL      A,B
      INTEGER   IO, N
       ALLOCATE( OLDX(0,0) )
      N = 0
      OPEN( 1, FILE = 'DATA' )

      DO
        READ(1, *, IOSTAT = IO)A,B

       IF (IO < 0 ) EXIT
       N = N + 1
         ALLOCATE( X(N,2) )
         DO NN=1,N-1
         X(NN,1)=OLDX(NN,1)
         X(NN,2)=OLDX(NN,2)
         ENDDO
       X(N,1) = A
       X(N,2) = B
       DEALLOCATE( OLDX )
         ALLOCATE(OLDX(N,2))
         DO NN=1,N
         OLDX(NN,1)=X(NN,1)
         OLDX(NN,2)=X(NN,2)
         ENDDO
         write(*,*)'bb=',X(N,2)
         DEALLOCATE( X )   
      ENDDO

        DO I=1,N
        write(*,'(2f10.5)') OLDX(I,1),OLDX(I,2)
        ENDDO
        END

[ 本帖最后由 苍山负雪 于 2006-6-23 09:20 编辑 ]

myloveforum

谢谢lijiuhua137,前段时间出差没有上网.先运行你的看看.

myloveforum

运行结果正确,谢谢了,呵呵