求助哦，以下这段程序出现了数组越界的问题，希望懂的可以帮我解答以下哦

sukeyangel

PROGRAM MAIN  !LSO FILE FOR ARPS
        INTEGER,PARAMETER   ::  N=10000,NUM=744

        INTEGER             ::  TOTAL
        REAL                ::  B(5)

      REAL                ::  SLAT(N),SLON(N),p(N)   
      integer             ::  SELV(N)
      CHARACTER           ::  STNAME(N)*8,name*12
     
      open(12,file='f:\wjj-data\output\r744.dat',form='binary')
          open(13,file='f:\wjj-data\output\r744.txt')                  
      OPEN(15,FILE='f:\wjj-data\namer744.txt')

        DO I=1,num
      print *,i
          READ(15,*)NAME

          OPEN(11,FILE='f:\wjj-data\201307\'//NAME)
        do kk=1,11
          READ(11,*)
          enddo

        J=1
10      READ(11,'(a7,2f7.2,i5,f7.1)',END=20)stname(j),(B(LL),LL=2,5)
!        print*,i,j
          SLAT(J)=B(3)
          SLON(J)=B(2)
        p(j)=b(5)
               
          IF(B(4).EQ.9999.0)p(J)=9999.0
!          print*,j,slon(j),slat(j),p(j)
          J=J+1
          GOTO  10
!       print *,j
20      CONTINUE
        TOTAL=J-1
          CLOSE(11)

          DO  J=1,TOTAL
            WRITE(12)STNAME(j),SLAT(J),SLON(J),0.0,1,1
          WRITE(12)p(j)  
                  WRITE(13,*)STNAME(j),SLAT(J),SLON(J),p(j)
                 
            ENDDO
            WRITE(12)STNAME(1),SLAT(1),SLON(1),0.0,0,1

             
      ENDDO
         CLOSE(12)
    CLOSE(13)
        close(15)
        END PROGRAM

言深深

自己定位一下debug吧，没有数据测试是看不出来，因为可能你定义的N太小，超过你的统计量TOTAL了···

sukeyangel

言深深 发表于 2014-4-4 17:42
自己定位一下debug吧，没有数据测试是看不出来，因为可能你定义的N太小，超过你的统计量TOTAL了···

谢谢哦，的确是N的问题