应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】fortran编译时遇到的问题【已完结】
142/2返回列表上一页12
查看: 1023  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

argo

铁杆木虫 (著名写手)

上善若水
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+2,VIP+0):谢谢交流 6-11 12:23
从你的截图看，问题就是出在sqrt函数上，应该是里面的值为负，建议按楼上几位说的方法查找一下。
NaN就不是一个数，如楼上所说，Not A Number，这时使用sqrt也是出错。
赞一下(7人) 回复此楼
居善地，心善渊，与善仁，言善信，正善治，事善能，动善时。
11楼2009-06-05 20:35:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

junyez

木虫 (小有名气)
引用回帖:
Originally posted by joshzrr at 2009-6-3 10:57:
同意 这种做法
有可能是你定义的精度不够 的原因 你所想要得到的值 被舍入 从而出现了0 或者负数

怎么才能找到出错误的代码，类似的运算很多的？
赞一下 回复此楼
12楼2009-06-11 11:00:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

joshzrr

至尊木虫 (著名写手)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
wangen994(金币+3,VIP+0):谢谢交流 6-12 10:12
引用回帖:
Originally posted by junyez at 2009-6-11 11:00:

怎么才能找到出错误的代码，类似的运算很多的？

这样吧 我说说我的笨方法吧
在所有的sqrt前面加上两条语句
pause 1
write（*,*）'求平方根的数，就是sqrt括号里面那个数'
输出后 看计算到那里出现了负值
然后找原因 为什么 如果是精度的问题
大可在sqrt前 加个if语句来 改变那个数的值

如果不是 就要查结构了

希望能有帮助

BEST WISHES
赞一下(7人) 回复此楼
13楼2009-06-12 09:15:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

junyez

木虫 (小有名气)
引用回帖:
Originally posted by joshzrr at 2009-06-12 09:15:56:

这样吧 我说说我的笨方法吧
在所有的sqrt前面加上两条语句
pause 1
write（*,*）'求平方根的数，就是sqrt括号里面那个数'
输出后 看计算到那里出现了负值
然后找原因 为什么 如果是精度的问题
大可在s ...

谢谢你
回复此楼
14楼2010-03-04 10:35:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 junyez 的主题更新
142/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9g0rmhtq5w 2026-06-27 4/200 2026-06-28 03:28 by jjz01vuwzk
[博后之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9g0rmhtq5w 2026-06-27 5/250 2026-06-28 03:27 by jjz01vuwzk
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9g0rmhtq5w 2026-06-27 4/200 2026-06-28 03:25 by jjz01vuwzk
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 dheqf6rz6n 2026-06-27 3/150 2026-06-28 03:09 by jjz01vuwzk
[硕博家园] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 dheqf6rz6n 2026-06-27 5/250 2026-06-28 03:08 by jjz01vuwzk
[找工作] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 dheqf6rz6n 2026-06-27 5/250 2026-06-28 03:07 by jjz01vuwzk
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 dheqf6rz6n 2026-06-27 6/300 2026-06-28 03:05 by jjz01vuwzk
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 dheqf6rz6n 2026-06-27 4/200 2026-06-28 02:49 by jjz01vuwzk
[硕博家园] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 dheqf6rz6n 2026-06-27 7/350 2026-06-28 02:45 by jjz01vuwzk
[找工作] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 7s8du2bt8y 2026-06-26 6/300 2026-06-28 01:47 by jjz01vuwzk
[考研] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 7s8du2bt8y 2026-06-26 6/300 2026-06-28 01:46 by jjz01vuwzk
[硕博家园] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +5 7s8du2bt8y 2026-06-26 9/450 2026-06-28 01:27 by jjz01vuwzk
[基金申请] 时间戳又变了 +4 Vivilian 2026-06-27 4/200 2026-06-28 00:37 by jnhyjjm
[考博] 27年博士招生信息 +5 rvnc 2026-06-26 8/400 2026-06-27 18:32 by rvnc
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 7s8du2bt8y 2026-06-26 5/250 2026-06-27 17:07 by ztgu5ulw9z
[基金申请] 无聊看看时间戳打发时间 +8 虎鹤双形 2026-06-23 8/400 2026-06-27 15:53 by miaochunhui
[论文投稿] 职称论文投稿 170+4 guoj5292 2026-06-22 12/600 2026-06-25 22:27 by Yanyanoo
[文学芳草园] 看《给阿ma的情书》有感 +6 myrtle 2026-06-21 10/500 2026-06-25 17:54 by myrtle
[基金申请] 中！中！中！ +10 zhse276 2026-06-22 10/500 2026-06-24 16:48 by zjhzf5201018
[基金申请] 国自然申请五篇代表作大比拼，感觉这个是最重要的 +7 naalan7001 2026-06-22 12/600 2026-06-24 14:02 by naalan7001
信息提示
关闭
请填处理意见
关闭