24小时热门版块排行榜    

查看: 2129  |  回复: 6

lzdwoniu

新虫 (小有名气)

[求助] 求助!fortran编程实现从txt中一一对应读入数据

我的abaqus子程序是由3个子程序编的,主要是一个子程序要调用另一个子程序的值进行运算!!问题是用Fortran编程实现!附件中是fortran编的程序,但是不能实现调用,具体详细说明如下:
子程序Urdri主要是依靠y的变化计算一系列Ezero的值,Urdfil将这些值存储到txt文件中。Utemp中的k是随temp(1)变化的函数,而temp(1)就是Urdfil存储的值即与Ezero一一对应的值,问题是如何用fortran编程实现temp(1)调用txt中Ezero的值??实现Ezero每输出到txt中一个值,temp(1)便从txt文件中读入该值来计算一次k的值。请大家指点!谢谢,附件中红色的程序即为调用的程序,但是不对
回复此楼

» 本帖附件资源列表

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

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

lzdwoniu

新虫 (小有名气)

自己顶
2楼2013-05-06 12:40:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gaolugang

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
lzdwoniu: 金币+5, 虽然没解决问题还是要谢谢你 2013-05-07 10:53:54
没有搞清楚楼主具体的要求。我的理解是楼主要从文件中只读一个值,要跳过这个值前面的值。下面的例子可以跳过前三行,读第四行。

      do  ilines = 1,3
         READ(1,*)
      enddo
      read(1,*) line
楼主可以根据要跳过的值的format,自己来改。
3楼2013-05-07 01:52:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)

引用回帖:
3楼: Originally posted by gaolugang at 2013-05-07 01:52:54
没有搞清楚楼主具体的要求。我的理解是楼主要从文件中只读一个值,要跳过这个值前面的值。下面的例子可以跳过前三行,读第四行。

      do  ilines = 1,3
         READ(1,*)
      enddo
      read(1,*) li ...

do  ilines = 1,3
         READ(1,*)
      enddo
不是做循环了吗?怎么跳过前三行了呢?
4楼2013-05-07 10:15:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lzdwoniu

新虫 (小有名气)

引用回帖:
3楼: Originally posted by gaolugang at 2013-05-07 01:52:54
没有搞清楚楼主具体的要求。我的理解是楼主要从文件中只读一个值,要跳过这个值前面的值。下面的例子可以跳过前三行,读第四行。

      do  ilines = 1,3
         READ(1,*)
      enddo
      read(1,*) li ...

每次从文件中读一个值,用来计算K值,总的来说要调用很多次,因为Ezero是一系列值,问题是怎么实现一一对应调用
5楼2013-05-07 10:56:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zeppe

金虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
仅从附件chengxu.doc来看,至少存在目录名不同的问题。
open(unit=101,file='d:\temp\subroution\5.txt')
open(unit=105,status='old',file='D:\temp\subroutine\5.txt')
6楼2013-05-07 11:12:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gaolugang

木虫 (小有名气)

引用回帖:
4楼: Originally posted by 夕阳西下 at 2013-05-07 10:15:04
do  ilines = 1,3
         READ(1,*)
      enddo
不是做循环了吗?怎么跳过前三行了呢?...

前三行没有赋值给任何变量。作用只是移动文件指针到第四行。然后把第四行的值赋值给变量line.
7楼2013-05-08 03:38:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lzdwoniu 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 zSbvVX9JFl9J 2026-11-09 3/150 2026-11-10 01:40 by FChKX8meu1ds
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 zSbvVX9JFl9J 2026-11-09 4/200 2026-11-10 01:29 by FChKX8meu1ds
[考博] 27博士申请 +3 白白白ly 2026-11-09 3/150 2026-11-09 21:39 by szq0819
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 15/750 2026-11-09 13:19 by Equinoxhua
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[教师之家] 延安大学回应“副教授留绝笔信”:确已离世,正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
信息提示
请填处理意见