我想从numberofeachlayer.txt中读一些数据，这个文件是一个500行1列的文件,我编了一个小程序，但是为什么输出都是零?第二个问题是，numberofeachlayer.txt是一个500行的文件，为什么我定义的数组nu是500，但是read时，nu写500就提示我溢出，只能写到499！
program number
   implicit none
   integer p,q
   dimension nu(500,1)
  real nu
   open(10,file='numberofeachlayer.txt')
   do 10 p=1,499
   read(10,*) nu(p,1)
10 continue

   do q=1,499
   write(*,*) nu(p,1)
   end do
   end

谢谢大伙了！