作者workhard0815 (KD)
看板Fortran
标题[问题] 启动档案问题
时间Mon Sep 23 18:45:30 2019
版友们好 小弟是FORTRAN新手
在启动程式时显示以下错误讯息:
*** WARNING ERROR 2 from DQDAG. Roundoff error has been detected. The
*** requested tolerances, ERRABS = 0.000000000000000D+00 and ERRREL
*** = 1.000000000000000D-03 cannot be reached.
Here is a traceback of subprogram calls in reverse order:
Routine name Error type Error code
------------ ---------- ----------
DQDAG 3 2
DN2QNF 3 2 (Called internally)
DNEQNF 0 0
USER 0 0
*** FATAL ERROR 1 from DQDAG. The maximum number of subintervals allowed
*** MAXSUB = 500 has been reached. Use DQ2AG and increase MAXSUB.
*** Dimension adjustments may be necessary.
Here is a traceback of subprogram calls in reverse order:
Here is a traceback of subprogram calls in reverse order:
Routine name Error type Error code
------------ ---------- ----------
DQDAG 4 1
DN2QNF 4 1 (Called internally)
DNEQNF 0 0
USER 0 0
而无法正常执行程式
有点不知如何下手修改,想请问版友有没有关键字或大概的方向
可以解决目前我遇到的错误问题
先谢谢大家 感激不尽
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 218.161.39.113 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Fortran/M.1569235532.A.149.html
1F：推 fragmentwing: 没碰过这问题 不过稍微查了下09/23 21:32
2F：→ fragmentwing: 跟INCLUDE有关系 可能你的环境没装好09/23 21:32
3F：→ fragmentwing: 或是你的编译器和你的档案版本不一09/23 21:34
4F：→ fragmentwing: 你的版本是不是f77 上网找 f90是D_QDAG09/23 21:36
5F：→ fragmentwing: 你的版本是不是f77 上网找 f90是D_QDAG09/23 21:36
6F：推 fragmentwing: dqdag ERRABS和ERRREL这边是双精度转实数误差?09/23 21:42
7F：→ fragmentwing: 可是精度误差 第一原来有编译器会抓第二这不该让程09/23 21:45
8F：→ fragmentwing: 式跑不动啊09/23 21:45
9F：推 fragmentwing: 由於没有你的程式码 我建议把include那行删掉 但是09/24 11:21
10F：→ fragmentwing: 你的程式运作的目的应该就是使用include的东西09/24 11:21
11F：→ fragmentwing: 另一个可能的改法是 根据maxsub相关的叙述 你必须去09/24 11:21
12F：→ fragmentwing: 更动maxsub的阵列大小 最好是改成动态配置 如果位09/24 11:21
13F：→ fragmentwing: 於副程式（subroutine ）内，就是在宣告时以（:）进09/24 11:21
14F：→ fragmentwing: 行宣告，问题是include的东西能不能改也是个问题09/24 11:21
16F：→ fragmentwing: /default.htm?turl=qdag.htm09/24 11:22
17F：→ fragmentwing: 根据这个网站内提供的程式码 error tolerances09/24 11:23
18F：→ fragmentwing: ERRABS = 0.009/24 11:23
19F：→ fragmentwing: 这个可能也要改09/24 11:23
感谢f大给了很多建议 我再试看看！
※ 编辑: workhard0815 (27.247.41.189 台湾), 09/24/2019 19:11:05