| 查看: 265 | 回复: 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
» 猜你喜欢
上海大学实验技术岗位非升即走
已经有8人回复
-
今年审到国自然15份，谈谈感受
已经有14人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
-
半夜喝咖啡
已经有5人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有6人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有7人回复
20