24小时热门版块排行榜

返回列表

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位时还是正常递减，再往前就出现了很大的值，还是逐渐递增，就是不知道问题出在哪，难道我的编译器有问题，求大神帮运行看一下啊，多谢

回复此楼