[交流] 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙 已有5人参与

问题描述：求一个400*400方阵各个点之间的距离         PROGRAM TEST              INTEGER rmax,cmax,xmax,ymax         REAL x(160000),y(160000),r(25600000000)         rmax=400         cmax=400         xmax=rmax*cmax         ymax=xmax         d=2         DO j=1,rmax                 DO i=1,cmax                 x(n)=(i-1)*d                 y(n)=(j-1)*d                 n=n+1                 ENDDO         ENDDO         DO i=1,ymax                 DO j=1,xmax                         IF (i.NE.j)THEN                         r(l)=SQRT((y(j)-y(i))**2+(x(j)-x(i))**2)                         l=l+1                         ENDIF                 ENDDO         ENDDO               END 数组定义过大溢出，有什么办法吗？ 好久没用Fortran了，

回复此楼