- 积分
- 224
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-21
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 studymore 于 2017-5-16 16:05 编辑
'reinit'
'sdfopen J:/data.nc'
'set gxout fwrite'
'set fwrite j:/xy.dat'
'set x 1 121'
'set y 1 101'
t=1
while(t<=490)
'set t ' t
'set z 1 22'
'd u'
'd v'
'd t'
'd r'
'd z'
t=t+1
endwhile
'disable fwrite'
读取的fortran程序如下:
character(len = 128) :: strFile
real, dimension(5,21,101,121,368) ::
strFile = "j:\xy.dat"
open(1, file=trim(strFile),form='unformatted',recl=5*21*101*121*368)
read(1,rec=1)(((((temp(n,i,j,k,m),n=1,5),i=1,21),j=1,101),k=1,121),m=1,368)
close(1)
错误提示虚拟内存太大了,如何变通?现在的关键就是如何设置recl? |
|