【答案】应助回帖

» 猜你喜欢

假如你的研究生提出不合理要求已经有4人回复
论文终于录用啦！满足毕业条件了已经有27人回复
所感已经有3人回复
要不要辞职读博？已经有7人回复
不自信的我已经有11人回复
北核录用已经有3人回复
实验室接单子已经有3人回复
磺酰氟产物，毕不了业了！已经有8人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有10人回复
26申博（荧光探针方向，有机合成）已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

Fortran如何读取不确定行数的数据已经有3人回复
很简单的Fortran赋值出错啦，求大神们帮忙找bug... 已经有11人回复
fortran程序运行结果输出及绘图已经有9人回复
fortran和c混合编译问题？已经有9人回复
求助：fortran程序中换行及return报错已经有12人回复
对于Fortran计算结果，结果发散？应如何处理？已经有5人回复
fortran中运行中出现无穷大的数怎么处理已经有9人回复
fortran 程序有write和没有write两种情况计算的结果为什么会不一样? 已经有14人回复
求助：intel visual fortran的格式问题已经有14人回复
FORTRAN中如何实现重复读取一行？已经有24人回复
fortran，带字符的数据读取与存储！已经有11人回复
急求fortran运行错误原因，在线等已经有7人回复
请教 fortran 运行错误的原因已经有13人回复
FORTRAN新手求助主程序循环问题已经有10人回复
Fortran 编译问题已经有9人回复
大家帮我看一个fortran的程序，我总是计算不出正确的结果已经有20人回复
我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？已经有4人回复
请教一个fortran小程序编译出错的问题，谢谢已经有9人回复
【求助】FORTRAN写文件时每行开头都多了一个空格？已经有6人回复
【求助】求高手关于Fortran数据读写的问题。【已完结】已经有12人回复

1楼 2015-04-20 19:36:07

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

回帖支持 ( 显示支持度最高的前 50 名 )

未岸亡灵

铁杆木虫 (著名写手)

暂时离开小木虫

应助: 622 (博士)
金币: 6517.3
散金: 1221
红花: 111
帖子: 1345
在线: 517.7小时
虫号: 1730773
注册: 2012-04-01
性别: GG
专业: 理论和计算化学

【答案】应助回帖

★ ★ ★
感谢参与，应助指数 +1
RwingRWING: 金币+3, ★★★很有帮助 2015-04-23 14:37:39

添加IMPLICIT NONE
正确定义浮点数，整数

不要整这种既有整数又有浮点数的混合运算，算前统一一下

2楼2015-04-20 20:36:52

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

应助: 8 (幼儿园)
金币: 3652.1
红花: 1
帖子: 207
在线: 45.6小时
虫号: 3744514
注册: 2015-03-17
专业: 电气科学与工程

【答案】应助回帖

感谢参与，应助指数 +1

即使LZ的程序不声明取消所有的默认设置，也会按照缺省的运算操作来执行。还是请LZ看下表达式上是不是从公式翻译过来的时候出现了运算符的差异。希望能帮到你。

3楼2015-04-21 09:48:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

bb_polarlight

金虫 (小有名气)

应助: 20 (小学生)
金币: 1774.4
红花: 4
帖子: 113
在线: 85.4小时
虫号: 473417
注册: 2007-12-05
专业: 河流海岸动力学与泥沙研究

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
RwingRWING: 金币+2 2015-04-23 14:38:00

在第二行加上语句implicit none
然后对每个变量明确的定义类型，整型(int)或者实型（double）.
Q定义为double

5楼2015-04-22 09:02:38

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

应助: 8 (幼儿园)
金币: 3652.1
红花: 1
帖子: 207
在线: 45.6小时
虫号: 3744514
注册: 2015-03-17
专业: 电气科学与工程

【答案】应助回帖

同意4楼的说法，我看了下你的输入的数据，M=0，带入公式中0her任何数相乘结果肯定是0而不可能是其他的数值。

8楼2015-04-22 14:15:29

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

seanbsd

木虫 (小有名气)

应助: 8 (幼儿园)
金币: 3652.1
红花: 1
帖子: 207
在线: 45.6小时
虫号: 3744514
注册: 2015-03-17
专业: 电气科学与工程

您需要检查您的输入，M是否为零。如果为零，结果肯定为零；如果不为零，则需要加入一个说明，就是定义所有的变量均是实数，否则会因为从整形到实型的转变引起结果为0.

9楼2015-04-22 14:51:33

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

普通回帖

qchem

铁杆木虫 (著名写手)

应助: 280 (大学生)
金币: 6871.6
散金: 1411
红花: 43
帖子: 2586
在线: 669.2小时
虫号: 183011
注册: 2006-02-12
专业: 理论和计算化学

【答案】应助回帖

感谢参与，应助指数 +1

m输入的是0，那结果乘出来当然也就是0了

[ 发自小木虫客户端 ]

4楼2015-04-22 07:16:16

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 10.5
帖子: 24
在线: 4.1小时
虫号: 3780371
注册: 2015-04-01
专业: 水工结构和材料及施工

引用回帖:

2楼: Originally posted by 未岸亡灵 at 2015-04-20 20:36:52
添加IMPLICIT NONE
正确定义浮点数，整数

不要整这种既有整数又有浮点数的混合运算，算前统一一下

重新定义了，输入数据以后，没有反应

6楼2015-04-22 10:06:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 10.5
帖子: 24
在线: 4.1小时
虫号: 3780371
注册: 2015-04-01
专业: 水工结构和材料及施工

引用回帖:

3楼: Originally posted by seanbsd at 2015-04-21 09:48:17
即使LZ的程序不声明取消所有的默认设置，也会按照缺省的运算操作来执行。还是请LZ看下表达式上是不是从公式翻译过来的时候出现了运算符的差异。希望能帮到你。

重新检查了公式，没有错误。

7楼2015-04-22 10:13:55

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 10.5
帖子: 24
在线: 4.1小时
虫号: 3780371
注册: 2015-04-01
专业: 水工结构和材料及施工

引用回帖:

9楼: Originally posted by seanbsd at 2015-04-22 14:51:33
您需要检查您的输入，M是否为零。如果为零，结果肯定为零；如果不为零，则需要加入一个说明，就是定义所有的变量均是实数，否则会因为从整形到实型的转变引起结果为0.

m值为零是手误输错了，按照各位前辈的指点，已经把程序调试好，可以运行了。谢谢