Fortran Coder

查看: 374|回复: 3

[数值问题] 求助Float Invalid Operation

[复制链接]

25

帖子

7

主题

0

精华

熟手

F 币
125 元
贡献
73 点
发表于 2017-4-12 17:41:02 | 显示全部楼层 |阅读模式
程序最后没有出现错误和警告,但运行之后出现:“Float Invalid Operation” 然后黑色窗口闪了一下,就关了
回复

使用道具 举报

25

帖子

7

主题

0

精华

熟手

F 币
125 元
贡献
73 点
 楼主| 发表于 2017-4-12 17:43:38 | 显示全部楼层
这是这个程序

xxx.f90

10.73 KB, 下载次数: 2

1106

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
900 元
贡献
776 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 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
这是一个很奇怪的用法。

25

帖子

7

主题

0

精华

熟手

F 币
125 元
贡献
73 点
 楼主| 发表于 2017-4-13 22:17:59 | 显示全部楼层
fcode 发表于 2017-4-12 21:15
1. 你的各种变量没有初始化。比如主程序 uu , ud , du , dd
2. 学会调试,你会自己解决各种问题。详解 http ...


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

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-9-26 02:30

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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