24小时热门版块排行榜

返回列表

xzz1007

金虫 (小有名气)

应助: 8 (幼儿园)
金币: 300.4
红花: 2
帖子: 189
在线: 76.3小时
虫号: 2275671
注册: 2013-02-06
性别: MM
专业: 理论和计算化学

[求助] 读取矩阵的问题

我想要读取一个hessian.txt文件中，count=3，n*n的矩阵，

由于此文本太大，贴在附件中了

程序如下：
OPEN(UNIT=3,FILE='hessian.txt',STATUS='unknown')
      bb2='count='
      nn2=3
32    read(3,'(a6)') bbb
      if(bbb.eq.bb2)then
      backspace(3)
33       read(3,'(7x,i5)') nnn
         if(nnn.eq.nn2)then
            write(*,*) 'nnn',nnn
            do i=1,nvar
            read(3,*) j,H(i,1:nvar)
         enddo
      else
         goto 33
      endif
   else
      goto 32
   endif
close(3)
endif
结果就是读不出来啊？？急求高手帮我看看呗？？？

回复此楼

» 本帖附件资源列表

欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
附件 1 : hessian.txt

2015-08-14 15:19:49, 4.41 M

» 猜你喜欢

阳光总在风雨后，再坚持坚持吧.....

1楼 2015-08-14 15:19:57

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 xzz1007 的主题更新

返回列表