| 查看: 4447 | 回复: 9 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
fish8900金虫 (小有名气)
|
[求助]
fortran中运行中出现无穷大的数怎么处理
|
||
|
在计算的过程中出现了无穷大的数（然后程序终止），我想进行以下几种尝试，不知如何进行 1、当A变得无穷大后，我想对它进行赋值，令A=1.0E+10 2、当A变得无穷大后，想用一个判据来进行后来的其他计算，这个判据该怎么设置 3、如何判断A变得无穷大了 |
回复此楼» 收录本帖的淘帖专辑推荐
 北大科研分享 |
» 猜你喜欢
看来今天不会放榜了？
已经有5人回复
-
我面上完蛋了
已经有8人回复
-
只有每年这种时候来逛逛小木虫
已经有25人回复
-
什么时候开奖？
已经有7人回复
-
时间戳又变了
已经有18人回复
-
时间戳又变了8-15
已经有27人回复
-
今天基金会出结果吗？20260819
已经有16人回复
-
科研孤儿太难了
已经有16人回复
-
应该是下周三26日公布了吧？
已经有4人回复
-
投稿咨询
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran中Idint函数是什么意思？
已经有4人回复
- 如何欧诺个fortran语言提取出我想要的部分数据
已经有6人回复
- 求助：关于fortran建数组问题，谢谢！
已经有4人回复
- 使用Multiwfn绘制原子轨道图形、研究原子壳层结构及相对论效应的影响
已经有17人回复
- fortran中计算数据写入文本为 NAN的问题
已经有4人回复
- Fortran中数组的使用
已经有4人回复
- fortran中如何处理字符和数据混合的文件
已经有6人回复
- Fortran数据读入格式的修改
已经有5人回复
- fortran中到底该如何比较两个实数是否相等
已经有8人回复
- Fortran中子程序与函数的区别
已经有7人回复
- Fortran中关于数组的变化
已经有5人回复
- 【求助】读文本数据出现段错误[fortran]
已经有14人回复
- 请教fortran导txt数据进origin问题
已经有1人回复
- 【求助】ASPEN运行中出现FORTRAN or Internal Error!
已经有7人回复
- 【求助】fortran计算时出现NaN
已经有11人回复
9楼2015-07-13 20:44:25
mechaniclmw
木虫 (小有名气)
- 应助: 9 (幼儿园)
- 金币: 2548
- 散金: 197
- 红花: 2
- 帖子: 292
- 在线: 205.8小时
- 虫号: 2001977
- 注册: 2012-09-15
- 性别: GG
- 专业: 动力学与控制
2楼2013-03-03 14:28:58
zeppe
金虫 (小有名气)
- 应助: 15 (小学生)
- 金币: 3901.3
- 散金: 58
- 红花: 4
- 帖子: 205
- 在线: 254.1小时
- 虫号: 573594
- 注册: 2008-06-14
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
fish8900: 金币+30, ★★★很有帮助 2013-04-07 11:14:16
fish8900: 金币+30, ★★★很有帮助 2013-04-07 11:14:16
|
您好，这是根据要求写的一点代码，希望对您有帮助。 LOGICAL ISLARGE !逻辑变量，是否是大数 REAL LARGENUM, A PARAMETER(LARGENUM=1.0E10) !也可按需求设为其他大数 ISLARGE=.FALSE. !判断A是否是大数，只考虑了正数情况， IF(A.GE.LARGENUM) !如果还要考虑负数情况则改为IF(ABS(A).GE.LARGENUM) A=1.0E10 !是大数则设定值为1.0E10 ISLARGE=.TRUE. ENDIF IF(ISLARGE) PRINT 'A is very large' !输出信息，判断A为大数之后的后续操作 ENDIF |
3楼2013-04-03 15:37:00
fish8900
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 701.9
- 散金: 103
- 帖子: 105
- 在线: 34小时
- 虫号: 1496643
- 注册: 2011-11-17
- 性别: GG
- 专业: 零件加工制造
4楼2013-04-07 11:20:51
40