版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

xiaobear20

金虫 (小有名气)

(⊙o⊙)…

应助: 0 (幼儿园)
金币: 652.8
帖子: 106
在线: 25.8小时
虫号: 1252476
注册: 2011-04-01
性别: GG
专业: 传热传质学

[求助] FORTRAN新手求助一个运行结果问题

我有一个有关一维数组运算的小程序，定义没有问题，没有编译错误，其计算公式为：DO J=119,2,-1
   W(J)=(A(J)-W(J+1))/C(J)
   ENDDO
            A(J)                      C(J) 如下
   0.0000000028       0.0432152076
      0.0000000080       0.4230034067
      0.0000000200       0.0675112414
      0.0000000503       0.3152820300
      0.0000000917       0.0932565326
      0.0000001837       0.2671521899
      0.0000002958       0.1200595684
      0.0000005230       0.2461530634
      0.0000007846       0.1487013278
      0.0000012550       0.2423849710
      0.0000017481       0.1809267587
      0.0000024987       0.2513632934
      0.0000031507       0.2161753841
      0.0000039613       0.2670218809
      0.0000045009       0.2493410692
      0.0000050727       0.2835216641
      0.0000053664       0.2768993396
      0.0000056714       0.2996388635
      0.0000058121       0.3000725200
      0.0000059838       0.3164350571
      0.0000060907       0.3213782054
      0.0000062401       0.3347372825
      0.0000063807       0.3426027479
      0.0000065673       0.3548846632
      0.0000067743       0.3647554643
      0.0000070300       0.3770046717
      0.0000073234       0.3883991751
      0.0000076706       0.4011818986
      0.0000080693       0.4138823202
      0.0000085310       0.4275220101
      0.0000090589       0.4414660371
      0.0000096638       0.4561730072
      0.0000103536       0.4713921106
      0.0000111404       0.4873352069
      0.0000120369       0.5039246029
      0.0000130589       0.5212726233
      0.0000142242       0.5393813747
      0.0000155544       0.5583309489
      0.0000170745       0.5781656441
      0.0000188141       0.5989652814
      0.0000208079       0.6208049285
      0.0000230973       0.6437817216
      0.0000257305       0.6680029769
      0.0000273849       0.6628940941
      0.0000306438       0.6626951808
      0.0000380087       0.6870547624
      0.0000495610       0.7177898795
      0.0000654069       0.7478146162
      0.0000866672       0.7814245158
      0.0001147456       0.8159773834
      0.0001526284       0.8557560189
      0.0002037946       0.8995648086
      0.0002706431       0.9414250930
      0.0003573056       0.9832661450
      0.0004705587       1.0281051767
      0.0006188167       1.0756054185
      0.0008131309       1.1263346082
      0.0010678530       1.1805121143
      0.0014019227       1.2385922053
      0.0018403161       1.3010228767
      0.0024161538       1.3683727946
      0.0031734977       1.4413064539
      0.0041712486       1.5206316703
      0.0054885465       1.6073300283
      0.0072323688       1.7026109212
      0.0095483216       1.8079801890
      0.0126361789       1.9253379478
      0.0167725956       2.0571169506
      0.0223448885       2.2064830382
      0.0299023241       2.3776332103
      0.0402359135       2.5762517975
      0.0545061448       2.8102285381
      0.0744547118       3.0908369091
      0.1027705921       3.4347546484
      0.1437565742       3.8677185624
      0.2046245357       4.4316008666
      0.2982323801       5.1993308242
      0.4495469896       6.3100936302
      0.7134651468       8.0663641831
      1.2368908524    11.2719411417
      2.5838112047    19.0023300152
      10.7484044968    63.9083801926
      -9.3378721564    -45.0076484338
      -4.1869272658    -16.4211800200
      -3.1106817830    -9.9797792711
      -2.7062429896    -7.1531200579
      -2.5388922556    -5.5817548104
      -2.4833009360    -4.5975846161
      -2.4875280483    -3.9395479891
      -2.5238165909    -3.4853205644
      -2.5742890861    -3.1704471578
      -2.6265872707    -2.9579728581
      -2.6732473002    -2.8251790778
      -2.7123579058    -2.7571589913
      -2.7478353300    -2.7435520687
      -2.7882302604    -2.7769239332
      -2.8441118800    -2.8520292593
      -2.9252254308    -2.9654855651
      -3.0387939926    -3.1155714012
      -3.1894202876    -3.3020276919
      -3.3800204749    -3.5258530083
      -3.6129352439    -3.7891221094
      -3.8907191643    -4.0948493767
      -4.2165457132    -4.4469012916
      -4.5943662656    -4.8499518224
      -5.0289626739    -5.3094720218
      -5.5259723489    -5.8317462993
      -6.0919176167    -6.4239098779
      -6.7342487418    -7.0940037672
      -7.4614021649    -7.8510449111
      -8.2828734203    -8.7051100785
      -9.2093039133    -9.6674326601
   -10.2525808956    -10.7505119276
   -11.4259502114    -11.9682345699
   -12.7441415872    -13.3360084897
   -14.2235063967    -14.8709089601
   -15.8275695484    -16.5505112209
      -2.1155865359    -2.0480184438
W(120)=1 我的问题是从数据上看，数组C总是大于数组A的，W的值应该很小才对，而且从119到2逐渐递减，到很小的值，但是在看运行结果W时，W在119到5,60位时还是正常递减，再往前就出现了很大的值，还是逐渐递增，就是不知道问题出在哪，难道我的编译器有问题，求大神帮运行看一下啊，多谢

回复此楼

» 猜你喜欢

070305高分子化学与物理 304分求调剂已经有16人回复
esi高被引论文是不是能对中标有所加分和帮助呢已经有5人回复
调剂求助已经有8人回复
315分 085602 求调剂已经有10人回复
求调剂，一志愿郑州大学材料与化工专硕，英二数二342分，求老师收留已经有7人回复
302求调剂已经有6人回复
一志愿北京科技大学材料工程085601，求调剂已经有6人回复
材料与化工306分找调剂已经有15人回复
070300化学求调剂已经有9人回复
一志愿深大085601材料工程专业（专硕）300分可以调剂去哪已经有3人回复

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

关于Fortran程序运行的求助已经有2人回复
fortran程序运行黑框闪下就消失已经有5人回复
【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊已经有8人回复
【求助】请教如何在超算上运行fortran程序已经有4人回复
【求助】fortran出错编译通过运行溢出已经有10人回复
【求助】FORTRAN编译通过，但是运行不了已经有19人回复
【求助】fortran程序未出错，但运行不出结果，中途中断！已经有6人回复
【求助】此FORTRAN90程序没有错误，但是运行不出来。已经有4人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复

一切还好

1楼 2012-04-10 19:21:11

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
xiaobear20: 金币+13, ★★★很有帮助, 十分感谢 2012-04-11 15:51:32

你这里的数据只有118行啊？

我用 R 简单地路一样，你这数 W 中应该有一些非常大的数据……

赞一下