OPEN(13,FILE='Elv.txt')
    READ(13,*)
    READ(13,*)Lines
    ALLOCATE (ElvX(Lines))
    ALLOCATE (ElvY(Lines))
    ALLOCATE (Elv(Lines))
      Do i=1,Lines
    READ(13,*)ElvX(i),ElvY(i),Elv(i)
      END Do
      Close(13)
————————————————————
上面是我的代码，其中的Lines=313710，就是这个txt文件总共有这313710行需要读。每次执行到这里就提示出下面的代码。盼高手指教。换成一个行数少的文件行并无错误。难道是这个313710太大了？
对于上面的代码我试过只读一行，发现可以正常读进来。但不知为何全部读完就出错了。可否指点一下子？
—————————————————————————————————————
Loaded 'ntdll.dll', no matching symbolic information found.
Loaded 'C:\WINDOWS\system32\kernel32.dll', no matching symbolic information found.
The thread 0xF08 has exited with code 0 (0x0).
The program 'F:\3D NHS Model\Fortran Codes\3D Model\Debug\Cartesian Grid.exe' has exited with code 0 (0x0).