我的程序总是出错但是不知原因，求大神帮助！！贴出一部分程序

supermann

program main
parameter (m=160,n=57,a=11)
real sstave(n),preave(m,n),r(m,n-a+1)
real xmean,ymean,sx,sy,sxy
integer i,j,k

open(11,file='d:/test/rain.grd',form='binary')
do i=1,m
  do j=1,n
   read(11) preave(i,j)
  end do
end do

open(12,file='d:/test/nino_win_ave.txt')
  do j=1,n
   read(12,*) sstave(j)
  end do

close(11)
close(12)



--------------------Configuration: pre_sst_cor - Win32 Debug--------------------
Compiling Fortran...
D:\test\pre_sst_cor.f90
D:\test\pre_sst_cor.f90(4): error FOR3093: array bound is not integer scalar
Errors in declarations, no further processing for MAIN
Error executing fl32.exe.
pre_sst_cor.obj - 1 error(s), 0 warning(s)

lqouc

parameter声明为integer即可
自己百度下i-n规则

言深深

把a写成ma

扫眉才子

integer，parameter：： (m=160,n=57,a=11)

supermann

感谢大家！修改好了
integer,parameter:: m=160,n=57,a=11

supermann

扫眉才子 发表于 2017-4-12 09:35
integer，parameter：： (m=160,n=57,a=11)

我试了下，把括号去掉就对了，谢谢啦