| 查看: 310 | 回复: 0 | |||
[求助]
读取矩阵的问题
|
|
我想要读取一个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
» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
20