|
楼主 |
发表于 2007-10-30 18:08:57
|
显示全部楼层
下面的续行在g77-3.4.6下编译通过,可在gfortran-4.1.2下不行.有办法吗,不想逐条改!
**********************************************************
implicit real*8 (a-h,o-z)
parameter (nlong_max=200,nlat_max=200,nval_max=10251,
1 ny_max=1000000,nout_max=1000000,nx_max=3*nval_max)
dimension ival(0:nlong_max,0:nlat_max),idel(0:nlong_max,0:nlat_max),
1 rlong(0:nlong_max,0:nlat_max),dxlong(0:nlong_max,0:nlat_max),
2 dylong(0:nlong_max,0:nlat_max),rlat(0:nlong_max,0:nlat_max),
3 dxlat(0:nlong_max,0:nlat_max),dylat(0:nlong_max,0:nlat_max),
4 tanrot(3,nval_max),t0(3),xcap0(3),dxx0(3),dyx0(3),
5 a0(0:1,0:1,0:1,0:1),a1(0:1,0:1,0:1,0:1),a2(0:1,0:1,0:1,0:1),
6 a(9,nx_max),x(nx_max),trot(3),dxtrot(3),dytrot(3),xprod(3),
7 xcap(3),dxxcap(3),dyxcap(3),pos(999),p1(3),p2(3),
8 xc0(ny_max),yc0(ny_max),xl0(ny_max),yl0(ny_max),
9 dxxl0(ny_max),dyxl0(ny_max),dxyl0(ny_max),dyyl0(ny_max),
9 xout(nout_max),yout(nout_max),iout(nout_max)
character*40 name |
|