开启辅助访问 切换到窄版
搜索

Fortran Coder

 找回密码
 极速注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

[复制链接]

求助Float Invalid Operation

[数值问题]
2332222 发表于 2017-4-12 17:41:02 查看70 回复3 阅读模式
程序最后没有出现错误和警告,但运行之后出现:“Float Invalid Operation” 然后黑色窗口闪了一下,就关了
回复

使用道具 举报

2332222  楼主 发表于 2017-4-12 17:43:38
这是这个程序

xxx.f90

10.73 KB, 下载次数: 0

fcode 发表于 2017-4-12 21:15:45
1. 你的各种变量没有初始化。比如主程序 uu , ud , du , dd
2. 学会调试,你会自己解决各种问题。详解 http://v.fcode.cn/video-debugger.html
3. 根据我的调试,你的主要问题大概在
SUBROUTINE tsc(theta,m,k,t)
IMPLICIT NONE
REAL                  :: d,PI
INTEGER,INTENT(in)    :: m
REAL,INTENT(in)       :: theta,k
complex,INTENT(out)      :: t
  d=0.15
  PI=4.0*ATAN(1.0)
  t=SQRT(2.0*(COS(theta))/(k*d))*(SIN((k*SIN(theta)+m*PI/d)*d/2.0)/(SIN(theta)+m*PI/(k*d))&
&+SIN((k*SIN(theta)-m*PI/d)*d/2.0)/(SIN(theta)-m*PI/(k*d)))

END SUBROUTINE

当 theta 大于 PI/2 时,cos 为负数。开 sqrt 出错。

此外,117 行的  DO y=x,y+10,1
这是一个很奇怪的用法。
2332222  楼主 发表于 2017-4-13 22:17:59
fcode 发表于 2017-4-12 21:15
1. 你的各种变量没有初始化。比如主程序 uu , ud , du , dd
2. 学会调试,你会自己解决各种问题。详解 http ...


谢谢你的建议,我刚接触fortran,对它还不是太熟悉,非常感谢你能给我帮助
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则 长代码粘贴

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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