- 积分
- 224
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-21
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
integer ix,jx
! parameter(ix = 601, jx = 501)
real, dimension(ix,jx) :: G
open(20,FILE='zg.bin',FORM='UNFORMATTED', ACCESS='DIRECT',RECL=4*ix*jx)
do j = 1, jx
do i = 1, ix
G(i,j) = 1.0
end do
end do
WRITE(20,REC=1) ((G(I,J),I=1,ix),J=1,jx)
CLOSE (20)
************************************
上面是生成格点的语句,为什么有的地方G数组取0,有的取1?我试了下,两个都可以。不知是否可以任意取值。。。 |
|