| 查看: 239 | 回复: 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
» 猜你喜欢
基金申报
已经有5人回复
-
基金委咋了？2026年的指南还没有出来？
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有17人回复
-
纳米粒子粒径的测量
已经有8人回复
-
疑惑？
已经有5人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
-
常年博士招收(双一流，工科)
已经有4人回复
