Fortran Coder

查看: 2131|回复: 7
打印 上一主题 下一主题

[其他行业算法] 程序中读入数据指令与输入数据方式不匹配不识别

[复制链接]

50

帖子

24

主题

0

精华

大师

F 币
1149 元
贡献
475 点
跳转到指定楼层
楼主
发表于 2021-12-28 14:40:02 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
精准四面体,精准求积四面体,精准四面体考察对于一个三维(3D)四面体内部的,
精准求积规则的多项式的精准度.最高度数,如x2yz5的总度数是8.
(TETRAHEDRON_EXACTNESS, Investigate the polynomial exactness of a quadrature
  rule for a tetrahedron by integrating all monomials
  of a given degree.The rule will be adjusted to the unit tetrahedron.)
用户输入: User input:
  W file = "_w.txt".
  X file = "_x.txt".
  R file = "_r.txt".
  Maximum total degree to check =        0
At line 351 of file main.f95 (unit = 1)
Fortran runtime error: Cannot open file '_x.txt': No such file or directory
Error termination. Backtrace:
#0  0x7f6941db9d5a
#1  0x7f6941dba869
.........
#11  0xffffffffffffffff
...Program finished with exit code 0
Press ENTER to exit console.
*******************
程序运行如上.
*******************
已经有这些数据文档:
W file = "_w.txt".
  X file = "_x.txt".
  R file = "_r.txt".
*******************
程序中相关读入数据指令:
......
             call get_unit ( input_unit )
                open ( unit = input_unit, file = input_filename, &
#351          status = 'old', form = 'formatted', access = 'sequential' )
              got_one = .false.
         10    continue
........
*******************
求助盼复, 谢谢老师!
   2021-12-28


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

50

帖子

24

主题

0

精华

大师

F 币
1149 元
贡献
475 点
沙发
 楼主| 发表于 2021-12-29 08:36:06 | 显示全部楼层
收到,  稍候!

50

帖子

24

主题

0

精华

大师

F 币
1149 元
贡献
475 点
板凳
 楼主| 发表于 2021-12-29 10:32:59 | 显示全部楼层
有输入: (文件名)
keast7_w.txt, (the weights)
keast7_x.txt, (the abscissas)
keast7_r.txt ( the region)
8  (最高次数)
  报错,无法识别???
另*.txt 为数据文档     

50

帖子

24

主题

0

精华

大师

F 币
1149 元
贡献
475 点
地板
 楼主| 发表于 2021-12-29 15:03:18 | 显示全部楼层
收到,谢谢! 可否用另一种方式输入
keast7_w.txt, (the weights)
keast7_x.txt, (the abscissas)
keast7_r.txt ( the region)里的数据内容, 及适当修改一下本程序中的数据读入指令,并附上_*.txt中的内容(已经有数据)于本程序上??!

50

帖子

24

主题

0

精华

大师

F 币
1149 元
贡献
475 点
5#
 楼主| 发表于 2021-12-29 16:53:44 | 显示全部楼层
收到, 谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-8 12:06

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表