fortran 调试

liangbingche

各位兄弟姐妹，我用134*134大小数组时
当我调试model时出现了如下错误信息：
warning LNK4084: total image size 439930880 exceeds max (268435456); image may not run
但是，当我用97*49大小数组时并没有出现这种情况
原因为何？
内存：128M
还有一个问题不知是不是遇上一个问题同一原因。我打算将2进制文件转化成ascii文件，该文件是载有134*134个调和常数
我遇到的错误信息是：input record too long
这个子程序我也附在下面：
      PARAMETER (ny = 134,nx=134)
      PARAMETER (mxy = 41000)
      PARAMETER (mw = 4)
      COMMON /PARA/ w(mw), f(mw), uu(mw), vv(mw)
      CHARACTER*2 fhead(mw)
      DIMENSION Zamp(mxy), Zpha(mxy)
      DIMENSION Uamp(mxy), Upha(mxy)
      DIMENSION Vamp(mxy), Vpha(mxy)
      CHARACTER*20 FileName, FileType*3,filename1, FileTypee*3
      data filetype/'ykg'/
      DATA fhead / 'M2', 'S2', 'K1', 'O1' /
data filetypee/'dat'/
      DATA rad / 0.017453293 /
      nw = 4
      ierr = 10
      DO k = 1, 4
        FileName = fhead(k) // '.' // FileType
        FileName1 = fhead(k) // '.' // FileTypee
       PRINT *, FileName8
        OPEN (1, FILE =filename, STATUS = 'OLD',form= 'UNFORMATTED')
        OPEN (2, FILE = filenamee, STATUS = 'new')
        CALL ReadFile (Zamp, Zpha, nx, ny)
        CALL ReadFile (Uamp, Upha, nx, ny)
        CALL ReadFile (Vamp, Vpha, nx, ny)
       write(2,11) (uamp(j),j=1,134*134)
11    format(134f9.3)
      ENDDO
      ierr = 0

      END
      SUBROUTINE ReadFile (amp, pha, nx, ny)
      DIMENSION amp(nx*ny), pha(nx*ny)
      DATA rad / 0.017453293 /
      READ (1) amp
      READ (1) pha
      DO i = 1, nx * ny
        pha(i) = rad * pha(i)
      ENDDO
      RETURN
      END

周华

增加内存再试试。

shepherd

应该不是内存的问题，我用64兆内存做计算时，数组120×80，一点问题没有

windsnow

试一试:
     PARAMETER (ny = 134,nx=134)
     PARAMETER (mxy = nx*ny)
     PARAMETER (mw = 4)

liangbingche

多些个位大侠的相助，我的问题得以解决。我的第一个问题，当我使垂向层数减小就不发生了。
我的第2个问题是我不用循环语句，而分别渎之，ok了
谢谢！！！