版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

wuluo1213

木蟲 (小有名氣)

應助: 5 (幼兒園)
金幣: 2291.6
散金: 10
帖子: 275
在線: 59.5小時
蟲號: 940174
注冊: 2010-01-10
專業(yè): 制造系統(tǒng)與自動化

[求助] 有會看fortran程序的，能幫忙看看這個程序嗎？

這個程序是李尚健的《金屬塑性成形過程模擬》上的，但是，怎么也運行不出來，希望大家能過多讀指點�。≈x謝。也歡迎大家一起探討�。�

回復此樓

» 猜你喜歡

材料考研調(diào)劑已經(jīng)有3人回復
材料調(diào)劑已經(jīng)有12人回復
英一數(shù)一408，總分284，二戰(zhàn)真誠求調(diào)劑已經(jīng)有14人回復
085410 一志愿211 22408分數(shù)359求調(diào)劑已經(jīng)有4人回復
271求調(diào)劑已經(jīng)有19人回復
385分生物學（071000）求調(diào)劑已經(jīng)有3人回復
一志愿安徽大學計算機科學與技術學碩，331分求調(diào)劑已經(jīng)有3人回復
318求調(diào)劑，計算材料方向已經(jīng)有8人回復
291求調(diào)劑已經(jīng)有25人回復
一志愿北京科技大學085601材料工程英一數(shù)二初試總分335求調(diào)劑已經(jīng)有6人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

怎能讓fortran調(diào)用c的fopen和fileio函數(shù) 已經(jīng)有3人回復
在linux下編FORTRAN程序已經(jīng)有14人回復
我編的Simpson積分法fortran程序給不出結果，大俠們看看哪里出了問題？已經(jīng)有4人回復
求助計算機高人，編寫個Fortran程序已經(jīng)有13人回復
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復
有關fortran的一次而問題，希望大家能幫幫忙，謝謝已經(jīng)有4人回復
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復
【求助】如何寫FORTRAN程序實現(xiàn)求平均最近鄰距離已經(jīng)有34人回復
【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a> 已經(jīng)有8人回復

【求助】初學fortran，已經(jīng)有15人回復
【求助】Fortran程序，如何讓exe文件可以單獨運行？已經(jīng)有6人回復
【求助】請問有擬合分子力場參數(shù)的FORTRAN程序嗎？已經(jīng)有13人回復

沒什么好與不好。

1樓 2011-10-31 21:54:27

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

zuoyh09

金蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 3645.9
散金: 190
紅花: 1
帖子: 588
在線: 114.5小時
蟲號: 850387
注冊: 2009-09-17
性別: GG
專業(yè): 核技術及其應用

【答案】應助回帖

★ ★
jjdg(金幣+2): 辛苦了 2011-11-01 00:30:00

提示數(shù)組的下標溢出，結果如下
forrtl: severe (10): cannot overwrite existing file, unit 1, file D:\try\pcurve.
dat
Image             PC       Routine          Line       Source
EDFEM.exe       004220D9  Unknown             Unknown  Unknown
EDFEM.exe       00421F0B  Unknown             Unknown  Unknown
EDFEM.exe       00421114  Unknown             Unknown  Unknown
EDFEM.exe       00421549  Unknown             Unknown  Unknown
EDFEM.exe       00416874  Unknown             Unknown  Unknown
EDFEM.exe       00401363  Unknown             Unknown  Unknown
EDFEM.exe       0044D739  Unknown             Unknown  Unknown
EDFEM.exe       0043FB24  Unknown             Unknown  Unknown
kernel32.dll    7C817077  Unknown             Unknown  Unknown

Incrementally linked image--PC correlation disabled.
Press any key to continue

你可以試著用F11單步執(zhí)行看看，找到是什么地方緯度溢出了

贊一下(1人)

回復此樓

2樓2011-10-31 22:55:23

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

mystar

金蟲 (文壇精英)

應助: 0 (幼兒園)
貴賓: 1.2
金幣: 1534.1
散金: 1520
紅花: 2
沙發(fā): 1
帖子: 10236
在線: 667.3小時
蟲號: 91402
注冊: 2005-09-05

★
jjdg(金幣+1): 感謝參與 2011-11-01 00:29:43

cannot overwrite existing file

大概是沒有close

贊一下(1人)

回復此樓

不要使自己麻木于制度化當中，而拋棄了從前的美好事物和希望。

3樓2011-10-31 23:18:33

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wuluo1213

木蟲 (小有名氣)

應助: 5 (幼兒園)
金幣: 2291.6
散金: 10
帖子: 275
在線: 59.5小時
蟲號: 940174
注冊: 2010-01-10
專業(yè): 制造系統(tǒng)與自動化

是的里面有：
open(1,fiLe='pcurve.dat',status='new')
open(2,fiLe='femdat.dat',status='oLd')
open(3,fiLe='femsoL.dat',status='new')
open(4,fiLe='messag.dat',status='new')
open(7,fiLe='midat.dat',status='new')
這個幾個打開的文件。先試試 zuoyh09的方法看。多謝大家�。�

贊一下

回復此樓

沒什么好與不好。

4樓2011-11-01 09:10:43

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

【答案】應助回帖

★ ★
xzhdty(金幣+2): 謝謝參與 2011-11-01 12:00:07

先把下面編譯 log 中的warning都消除了，再看結果是否是正確的吧……

我用的編譯方式是：

gfortran -Wall -Wextra -O2 -ffixed-line-length-80 EDFEM.for >& z1.log

CODE:

EDFEM.for:52.3:

100     write(*,3000)                                                           

   1

Warning: Label 100 at (1) defined but not used

EDFEM.for:154.14:

110     ieL(m,3)=ieL(m,k2)+1                                                    

              1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 2

EDFEM.for:544.21:

        r12=rr(1)-rr(2)                                                         

                     1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:545.21:

        r13=rr(1)-rr(3)                                                         

                     1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:546.21:

        r14=rr(1)-rr(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:547.21:

        r23=rr(2)-rr(3)                                                         

                     1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:547.15:

        r23=rr(2)-rr(3)                                                         

               1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:548.21:

        r24=rr(2)-rr(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:548.15:

        r24=rr(2)-rr(4)                                                         

               1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:549.21:

        r34=rr(3)-rr(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:549.15:

        r34=rr(3)-rr(4)                                                         

               1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:550.21:

        z12=zz(1)-zz(2)                                                         

                     1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:551.21:

        z13=zz(1)-zz(3)                                                         

                     1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:552.21:

        z14=zz(1)-zz(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:553.21:

        z23=zz(2)-zz(3)                                                         

                     1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:553.15:

        z23=zz(2)-zz(3)                                                         

               1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:554.21:

        z24=zz(2)-zz(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:554.15:

        z24=zz(2)-zz(4)                                                         

               1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:555.21:

        z34=zz(3)-zz(4)                                                         

                     1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:555.15:

        z34=zz(3)-zz(4)                                                         

               1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:588.12:

        b(1,3)=y2                                                               

            1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 2

EDFEM.for:589.12:

        b(1,5)=y3                                                               

            1

Warning: Array reference at (1) is out of bounds (5 > 1) in dimension 2

EDFEM.for:590.12:

        b(1,7)=y4                                                               

            1

Warning: Array reference at (1) is out of bounds (7 > 1) in dimension 2

EDFEM.for:591.12:

        b(2,2)=x1                                                               

            1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 2

EDFEM.for:592.12:

        b(2,4)=x2                                                               

            1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 2

EDFEM.for:593.12:

        b(2,6)=x3                                                               

            1

Warning: Array reference at (1) is out of bounds (6 > 1) in dimension 2

EDFEM.for:594.12:

        b(2,8)=x4                                                               

            1

Warning: Array reference at (1) is out of bounds (8 > 1) in dimension 2

EDFEM.for:596.12:

        b(3,3)=g(2)                                                             

            1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 2

EDFEM.for:597.12:

        b(3,5)=g(3)                                                             

            1

Warning: Array reference at (1) is out of bounds (5 > 1) in dimension 2

EDFEM.for:598.12:

        b(3,7)=g(4)                                                             

            1

Warning: Array reference at (1) is out of bounds (7 > 1) in dimension 2

EDFEM.for:600.12:

        b(4,2)=y1/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 2

EDFEM.for:601.12:

        b(4,3)=x2/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 2

EDFEM.for:602.12:

        b(4,4)=y2/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 2

EDFEM.for:603.12:

        b(4,5)=x3/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (5 > 1) in dimension 2

EDFEM.for:604.12:

        b(4,6)=y3/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (6 > 1) in dimension 2

EDFEM.for:605.12:

        b(4,7)=x4/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (7 > 1) in dimension 2

EDFEM.for:606.12:

        b(4,8)=y4/sqrt2                                                         

            1

Warning: Array reference at (1) is out of bounds (8 > 1) in dimension 2

EDFEM.for:608.10:

        q(2)=x1                                                                 

          1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

EDFEM.for:609.10:

        q(3)=y2+g(2)                                                            

          1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

EDFEM.for:610.10:

        q(4)=x2                                                                 

          1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

EDFEM.for:611.10:

        q(5)=y3+g(3)                                                            

          1

Warning: Array reference at (1) is out of bounds (5 > 1) in dimension 1

EDFEM.for:612.10:

        q(6)=x3                                                                 

          1

Warning: Array reference at (1) is out of bounds (6 > 1) in dimension 1

EDFEM.for:613.10:

        q(7)=y4+g(4)                                                            

          1

Warning: Array reference at (1) is out of bounds (7 > 1) in dimension 1

EDFEM.for:614.10:

        q(8)=x4                                                                 

          1

Warning: Array reference at (1) is out of bounds (8 > 1) in dimension 1

EDFEM.for:929.3:

200     continue                                                                

   1

Warning: Label 200 at (1) defined but not used

EDFEM.for:1301.2:

75      write(4,1000)i,no,rn,zn,ra,za,aLp(i)                                    

  1

Warning: Label 75 at (1) defined but not used

EDFEM.for: In function 'codrz':

EDFEM.for:127:0: warning: 'dr' may be used uninitialized in this function

EDFEM.for:128:0: warning: 'dz' may be used uninitialized in this function

EDFEM.for: In function 'decert':

EDFEM.for:937:0: warning: 'ueror1' may be used uninitialized in this function

EDFEM.for:940:0: warning: 'ueror2' may be used uninitialized in this function

EDFEM.for: In function 'mintm':

EDFEM.for:1078:0: warning: 'u1' may be used uninitialized in this function

贊一下(1人)

回復此樓

5樓2011-11-01 09:40:05

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

★
余澤成(金幣+1): 謝謝參與應助！ 2011-11-02 10:37:39

上面 log 中，行號大于 909 的錯誤信息，給出的行號所對應的代碼在你的原始代碼中應該是行號減一所在的行。因為909行超過了72列，所以我折了行，導致后面的行號與你原始代碼之行號相差1。

贊一下(1人)

回復此樓

6樓2011-11-01 09:46:14

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wuluo1213

木蟲 (小有名氣)

應助: 5 (幼兒園)
金幣: 2291.6
散金: 10
帖子: 275
在線: 59.5小時
蟲號: 940174
注冊: 2010-01-10
專業(yè): 制造系統(tǒng)與自動化

我在子程序!!!!!!!!!!!!!!!!!! 子程序 BANSOL !!!!!!!!!!!!!!加入了顯示語句，發(fā)現(xiàn)啊矩陣的值為很驚人啊
SUBROUTINE BANSOL(a,b,neq,mband) print*,'%……………bansoL…………………%^'
   write(*,*)a(n,1)

一下就是a矩陣的值：
1.660169824622443E+068
%……………bansoL…………………%^
  6.762579132058774E+069
%……………bansoL…………………%^
  2.754686649467159E+071
%……………bansoL…………………%^
  1.122101255832913E+073
%……………bansoL…………………%^
  4.570796568042873E+074
%……………bansoL…………………%^
  1.861880214270383E+076
%……………bansoL…………………%^
  7.584231502509986E+077
%……………bansoL…………………%^
  3.089380672440602E+079
%……………bansoL…………………%^
  1.258436393468591E+081
%……………bansoL…………………%^
  5.126147679156506E+082
%……………bansoL…………………%^
  2.088098386609277E+084
%……………bansoL…………………%^
  8.505714515188760E+085
%……………bansoL…………………%^
  3.464739970005556E+087
%……………bansoL…………………%^
  1.411336230285845E+089
%……………bansoL…………………%^
  5.748973868634262E+090
%……………bansoL…………………%^
  2.341802033633450E+092
%……………bansoL…………………%^
  9.539157578450715E+093
%……………bansoL…………………%^
  3.885705367047124E+095
%……………bansoL…………………%^
  1.582813374800237E+097
%……………bansoL…………………%^
  6.447473348578595E+098
%……………bansoL…………………%^
  2.626330636476820E+100
%……………bansoL…………………%^
  1.069816382198366E+102
%……………bansoL…………………%^
  4.357817997947655E+103
%……………bansoL…………………%^
  1.775124967166119E+105
%……………bansoL…………………%^
  7.230840412657281E+106
%……………bansoL…………………%^
  2.945429422740173E+108
%……………bansoL…………………%^
  1.199798915373284E+110
%……………bansoL…………………%^
  4.887292244102407E+111
%……………bansoL…………………%^
  1.990802389734800E+113
%……………bansoL…………………%^
  8.109386459867174E+114
%……………bansoL…………………%^
  3.303298664627251E+116
%……………bansoL…………………%^
  1.345574307221623E+118
%……………bansoL…………………%^
  5.481097533332661E+119
%……………bansoL…………………%^
  2.232684587441163E+121
%……………bansoL…………………%^
  9.094675722667480E+122
%……………bansoL…………………%^
  3.704648966797105E+124
%……………bansoL…………………%^
  1.509061387750664E+126
%……………bansoL…………………%^
  6.147050077915465E+127
%……………bansoL…………………%^
  2.503955436612350E+129
%……………bansoL…………………%^
  1.019967748606125E+131
%……………bansoL…………………%^
  4.154763271682408E+132
%……………bansoL…………………%^
  1.692412124531507E+134
%……………bansoL…………………%^
  6.893915758770564E+135
%……………bansoL…………………%^
  2.808185654081228E+137
%……………bansoL…………………%^
  1.143893680127295E+139
%……………bansoL…………………%^
  4.659566398444817E+140
%……………bansoL…………………%^
  1.898039948878805E+142
%……………bansoL…………………%^
  7.731525510060875E+143
%……………bansoL…………………%^
  3.149379798250967E+145
%……………bansoL…………………%^
  1.282876594111271E+147
%……………bansoL…………………%^
  5.225703030903187E+148
%……………bansoL…………………%^
  2.128651523657168E+150
%……………bansoL…………………%^
  8.670904723004972E+151
%……………bansoL…………………%^
  3.532028980782053E+153
%……………bansoL…………………%^
  1.438745911713918E+155
%……………bansoL…………………%^
  5.860625180983600E+156
%……………bansoL…………………%^
  2.387282370871378E+158
%……………bansoL…………………%^
  9.724418372233754E+159
%……………bansoL…………………%^
  3.961169982741530E+161
%……………bansoL…………………%^
  1.613553328492618E+163
%……………bansoL…………………%^
  6.572690278965716E+164
%……………bansoL…………………%^
  2.677336828003579E+166
%……………bansoL…………………%^
  1.090593377497814E+168
%……………bansoL…………………%^
  4.442451553355687E+169
%……………bansoL…………………%^
  1.809599820713373E+171
%……………bansoL…………………%^
  7.371271181679637E+172
%……………bansoL…………………%^
  3.002632859039560E+174
%……………bansoL…………………%^
  1.223100312547411E+176
%……………bansoL…………………%^
  4.982208764051443E+177
%……………bansoL…………………%^
  2.029465932920266E+179
%……………bansoL…………………%^
  8.266879546682521E+180
%……………bansoL…………………%^
  3.367452310028147E+182
%……………bansoL…………………%^
  1.371706820727116E+184
%……………bansoL…………………%^
  5.587546396502839E+185
%……………bansoL…………………%^
  2.276045745440148E+187
%……………bansoL…………………%^
  9.271304196379515E+188
%……………bansoL…………………%^
  3.776597270683669E+190
%……………bansoL…………………%^
  1.538368997805614E+192
%……………bansoL…………………%^
  6.266432462312912E+193
%……………bansoL…………………%^
  2.552584968934153E+195
%……………bansoL…………………%^
  1.039776629336504E+197
%……………bansoL…………………%^
  4.235453283914842E+198
%……………bansoL…………………%^
  1.725280604899937E+200
%……………bansoL…………………%^
  7.027803085323180E+201
%……………bansoL…………………%^
  2.862723667431625E+203
%……………bansoL…………………%^
  1.166109336954525E+205
%……………bansoL…………………%^
  4.750060235302118E+206
%……………bansoL…………………%^
  1.934901944780356E+208
%……………bansoL…………………%^
  7.881680127108294E+209
%……………bansoL…………………%^
  3.210544172206388E+211
%……………bansoL…………………%^
  1.307791449977322E+213
%……………bansoL…………………%^
  5.327191855636118E+214
%……………bansoL…………………%^
  2.169992246642069E+216
%……………bansoL…………………%^
  8.839303103951022E+217
%……………bansoL…………………%^
  3.600624817181935E+219
%……………bansoL…………………%^
  1.466687918905228E+221
%……………bansoL…………………%^
  5.974444883002793E+222
%……………bansoL…………………%^
  2.433645985621886E+224
%……………bansoL…………………%^
  9.913277131710299E+225
%……………bansoL…………………%^
  4.038100203180456E+227
%……………bansoL…………………%^
  1.644890285450215E+229
%……………bansoL…………………%^
  6.700339058048820E+230
%……………bansoL…………………%^
  2.729333615130853E+232
%……………bansoL…………………%^
  1.111773884596897E+234
%……………bansoL…………………%^
  4.528728784269251E+235
%……………bansoL…………………%^
  1.844744213334806E+237
%……………bansoL…………………%^
  7.514429268657054E+238
%……………bansoL…………………%^
  3.060947248159306E+240
%……………bansoL…………………%^
  1.246854248145513E+242
%……………bansoL…………………%^
  5.078968665838310E+243
%……………bansoL…………………%^
  2.068880364079002E+245
%……………bansoL…………………%^
  8.427431320183550E+246
%……………bansoL…………………%^
  3.432851888853765E+248
%……………bansoL…………………%^
  1.398346856008575E+250
%……………bansoL…………………%^
  5.696062612133168E+251
%……………bansoL…………………%^
  2.320249024190775E+253
%……………bansoL…………………%^
  9.451362986759914E+254
%……………bansoL…………………%^
  3.849942888722903E+256
%……………bansoL…………………%^
  1.568245793457701E+258
%……………bansoL…………………%^
  6.388133382190512E+259
%……………bansoL…………………%^
  2.602158939555126E+261
%……………bansoL…………………%^
  1.059970220030813E+263
%……………bansoL…………………%^
  4.317710383764082E+264
%……………bansoL…………………%^
  1.758787426831882E+266
%……………bansoL…………………%^
  7.164290649075946E+267
%……………bansoL…………………%^
  2.918320868195703E+269
%……………bansoL…………………%^
  1.188756445949746E+271
%……………bansoL…………………%^
  4.842311560691296E+272
%……………bansoL…………………%^
  1.972479840651550E+274
%……………bansoL…………………%^
  8.034750909793432E+275
%……………bansoL…………………%^
  3.272896424690547E+277
%……………bansoL…………………%^
  1.333190179386353E+279
%……………bansoL…………………%^
  5.430651703499197E+280
%……………bansoL…………………%^
  2.212135851337687E+282
%……………bansoL…………………%^
  9.010971964231102E+283
%……………bansoL…………………%^
  3.670552859177180E+285
%……………bansoL…………………%^
  1.495172590203859E+287
%……………bansoL…………………%^
  6.090475087172707E+288
%……………bansoL…………………%^
  2.480910032092939E+290
%……………bansoL…………………%^
  1.010580373327920E+292
%……………bansoL…………………%^
  4.116524491998747E+293
%……………bansoL…………………%^
  1.676835840124402E+295
%……………bansoL…………………%^
  6.830466914969016E+296
%……………bansoL…………………%^
  2.782340236300357E+298
%……………bansoL…………………%^
  1.133365740132721E+300
%……………bansoL…………………%^
  4.616681612650646E+301
%……………bansoL…………………%^
  1.880571148205932E+303
%……………bansoL…………………%^
  7.660367641064344E+304
run-time error M6104: MATH
- floating-point error: overflow
Press any key to continue

贊一下

回復此樓

沒什么好與不好。

7樓2011-11-01 10:45:02

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

【答案】應助回帖

★
wuluo1213(金幣+1): 哦，好的。謝謝啊，我現(xiàn)在就去改改。 2011-11-01 15:35:47
余澤成(金幣+1): 謝謝參與應助！ 2011-11-02 10:37:59

我這里顯示的全是 NaN，呵呵……其實多半是因為沒有賦初值，或者數(shù)組越界啥的造成的……

所以，你要仔細修改你的程序，保證前面我給出的那些個 warning 都不存在了，然后再找問題（或許那時就沒有問題了……）

贊一下(1人)

回復此樓

8樓2011-11-01 11:47:40

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wuluo1213

木蟲 (小有名氣)

應助: 5 (幼兒園)
金幣: 2291.6
散金: 10
帖子: 275
在線: 59.5小時
蟲號: 940174
注冊: 2010-01-10
專業(yè): 制造系統(tǒng)與自動化

引用回帖:

8樓: Originally posted by snoopyzhao at 2011-11-01 11:47:40:
我這里顯示的全是 NaN，呵呵……其實多半是因為沒有賦初值，或者數(shù)組越界啥的造成的……

所以，你要仔細修改你的程序，保證前面我給出的那些個 warning 都不存在了，然后再找問題（或許那時就沒有問題了……）

你好，我已經(jīng)按照你給的那個要求改過了，但是結果還是一樣的��？奇怪啦。請問你用的是那個版本啊？我用的是Microsoft Developer Studio，還是不會出現(xiàn)你給的那種信息，我傳了文件，里面是兩本書上的源程序，能否幫忙看看，都還有哪些錯誤的信息��？謝謝

贊一下

回復此樓

沒什么好與不好。

9樓2011-11-01 17:27:04

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

【答案】應助回帖

★ ★
jjdg(金幣+2): 感謝參與 2011-11-02 01:39:34

引用回帖:

9樓: Originally posted by wuluo1213 at 2011-11-01 17:27:04:
你好，我已經(jīng)按照你給的那個要求改過了，但是結果還是一樣的��？奇怪啦。請問你用的是那個版本��？我用的是Microsoft Developer Studio，還是不會出現(xiàn)你給的那種信息，我傳了文件，里面是兩本書上的源程序，能否 ...

1 里面的程序沒有問題了，但結果似乎還是不對

2 里面的程序除了一些錯誤，比如把 x 寫成 z，把 1 寫成 l 以外，還有以下的一些警告：

CODE:

rigid.for:179.4:

3000    format(5i5)                                                     

    1

Warning: Label 3000 at (1) defined but not used

rigid.for:525.4:

5011    format(i7,9x,2f14.4,f17.3)                                      

    1

Warning: Label 5011 at (1) defined but not used

rigid.for:550.72:

        character*3 step                                                

                                                                        1

Warning: Line truncated at (1)

rigid.for:711.3:

200     continue                                                        

   1

Warning: Label 200 at (1) defined but not used

rigid.for:1044.4:

1008    format('ABC')                                                   

    1

Warning: Label 1008 at (1) defined but not used

rigid.for:1276.3:

100     continue                                                        

   1

Warning: Label 100 at (1) defined but not used

rigid.for:1320.4:

2000    format(2i6,5f12.8)                                              

    1

Warning: Label 2000 at (1) defined but not used

rigid.for:1434.2:

75      write(4,2000)i,no,r(no),rn,z(no),zn,alp(i)                      

  1

Warning: Label 75 at (1) defined but not used

rigid.for:1764.51:

        r=h(1)*rr(1)+h(2)*rr(2)+h(3)*rr(3)+h(4)*rr(4)                   

                                                   1

Warning: Array reference at (1) is out of bounds (4 > 1) in dimension 1

rigid.for:1764.40:

        r=h(1)*rr(1)+h(2)*rr(2)+h(3)*rr(3)+h(4)*rr(4)                   

                                        1

Warning: Array reference at (1) is out of bounds (3 > 1) in dimension 1

rigid.for:1764.29:

        r=h(1)*rr(1)+h(2)*rr(2)+h(3)*rr(3)+h(4)*rr(4)                   

                             1

Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1

rigid.for:1872.72:

        SUBROUTINE MODIFY(code,uz,a,b,numnp,neq,mband,niter)            

                                                                        1

Warning: Line truncated at (1)

rigid.for:2120.4:

1110    format('layer'/,'new'/,i1,/'color'/,i1,/i1,/'set'/,i1)          

    1

Warning: Label 1110 at (1) defined but not used

rigid.for: In function 'touch':

rigid.for:384:0: warning: 'x2' may be used uninitialized in this function

rigid.for:385:0: warning: 'y1' may be used uninitialized in this function

rigid.for:386:0: warning: 'y2' may be used uninitialized in this function

rigid.for: In function 'writer':

rigid.for:865:0: warning: 'n' may be used uninitialized in this function

rigid.for: In function 'graphs':

rigid.for:964:0: warning: 'nunism' may be used uninitialized in this function

rigid.for: In function 'grarcl':

rigid.for:1030:0: warning: 'j' may be used uninitialized in this function

rigid.for: In function 'mintm':

rigid.for:1246:0: warning: 'u1' may be used uninitialized in this function

rigid.for: In function 'element':

rigid.for:2201:0: warning: 'nuni' may be used uninitialized in this function

C:\Temp\cclFXeHC.o:rigid.for:(.text+0x9166): undefined reference to `alp_'

C:\Temp\cclFXeHC.o:rigid.for:(.text+0x918f): undefined reference to `alp_'

collect2: ld returned 1 exit status

贊一下(1人)

回復此樓

10樓2011-11-01 20:22:50

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉我要訂閱樓主 wuluo1213 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 找調(diào)劑 +5	楚喬喬 2026-04-01	5/250	2026-04-01 16:12 by w蟲蟲123
[考研] 總分343，求生物學調(diào)劑 +6	深刻的凱撒 2026-03-26	6/300	2026-04-01 15:58 by 2007huanle
[考研] 調(diào)劑 +5	好好讀書。 2026-03-28	7/350	2026-04-01 15:32 by 王亮_大連醫(yī)科大
[考研] 348求調(diào)劑 +9	zzzzyk123 2026-04-01	9/450	2026-04-01 14:24 by w蟲蟲123
[考研] 085600，321分求調(diào)劑 +13	大饞小子 2026-03-31	13/650	2026-04-01 12:35 by chemdavid
[考研] 085410人工智能初試316分求調(diào)劑 +3	殘星拂曙 2026-03-31	3/150	2026-04-01 11:09 by 小熊raider
[考研] 288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學上就行 +25	lllllos 2026-03-30	26/1300	2026-04-01 09:52 by 一只好果子?
[考研] 309分085801求調(diào)劑 +7	學員Gtwj7W 2026-03-31	7/350	2026-04-01 02:36 by BruceLiu320
[考研] 289求調(diào)劑 +7	BrightLL 2026-03-29	7/350	2026-03-31 22:05 by 544594351
[考研] 318求調(diào)劑 +10	陳晨79 2026-03-30	10/500	2026-03-31 17:37 by 544594351
[考研] 286求調(diào)劑 +6	Faune 2026-03-30	6/300	2026-03-31 14:37 by jp9609
[考研] 354求調(diào)劑 +3	lxb598 2026-03-31	4/200	2026-03-31 13:42 by sophie2180
[考博] 材料專業(yè)申博 +5	杜雨婷dyt 2026-03-29	5/250	2026-03-31 11:19 by oooqiao
[考研] 287求調(diào)劑 +17	land xuxu 2026-03-26	17/850	2026-03-31 11:16 by Zzxxxs
[考研] 276求調(diào)劑 +3	趙久華 2026-03-29	3/150	2026-03-31 10:06 by cal0306
[考研] 福建理工大學材料學院先進合金團隊招收考研調(diào)劑學生 +3	大華金商都 2026-03-30	4/200	2026-03-31 01:04 by 方英俊602
[考研] 一志愿北京化工大學材料與化工（085600）296求調(diào)劑 +25	稻妻小編 2026-03-26	25/1250	2026-03-30 20:11 by 滴滴上岸呀
[考研] 材料化工340求調(diào)劑 +3	jhx777 2026-03-30	3/150	2026-03-30 17:54 by JourneyLucky
[考研] 394求調(diào)劑 +3	好事多磨靜候佳?/a> 2026-03-26	5/250	2026-03-28 14:24 by 唐沐兒
[考研] 352分化工與材料 +5	海納百川Ly 2026-03-27	5/250	2026-03-28 03:39 by fmesaito

24小時熱門版塊排行榜

[求助] 有會看fortran程序的，能幫忙看看這個程序嗎？

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

[求助] 有會看fortran程序的，能幫忙看看這個程序嗎？

» 本主題相關價值貼推薦，對您同樣有幫助: