- 积分
 - 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?我试了下,两个都可以。不知是否可以任意取值。。。 |   
 
 
 
 |