24小时热门版块排行榜    

查看: 822  |  回复: 28
本帖产生 1 个 程序强帖 ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

余泽成(程序强帖+1): 2011-04-27 22:28:22
引用回帖:
Originally posted by 贺仪 at 2011-04-27 11:44:03:
里面有几个变量没定义, nbandmin.and.iband.le.nbandmax 你随便改一下

哦,才注意到你的输入文件是一个二进制文件……,在这种情况下,你的 read 函数中就不能有那个表示 fmt 的 *,直接 read(12).... 就可以了

不过,对于这种情况,你一定要知道二进制文件是如何写入的,这样才有可能读出来。

下面是一个示例,你自己看一下:
CODE:
program example
   real :: a,a1,b,b1,c(4),c1(4)
   integer :: n,n1,m,m1
   n=6
   m=8
   a=1.1
   b=2.2
   c(1)=3.3
   c(2)=4.4
   c(3)=5.5
   c(4)=6.6
   open(1,file='test',form='unformatted')
   write(1)a,b,n
   write(1)c,m
   close(1)
   open(1,file='test',form='unformatted', status = 'old')
   read(1) a1,b1,n1
   read(1) c1, m1
   write(*,*) a1, b1, n1, c1, m1
   close(1)
end

25楼2011-04-27 14:50:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 贺仪 的主题更新
信息提示
请填处理意见