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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (4608)
>基金申请 (497)
>虫友互识 (335)
>论文投稿 (288)
>文献求助 (235)
>导师招生 (162)
>考博 (132)
>硕博家园 (104)
>休闲灌水 (88)
>考研 (40)
>公派出国 (31)
>博后之家 (26)
>招聘信息布告栏 (25)
>教师之家 (22)
>论文道贺祈福 (20)
>找工作 (17)

返回列表

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2331.1
散金: 10
帖子: 276
在线: 61小时
虫号: 940174
注册: 2010-01-10
专业: 制造系统与自动化

[求助] 有会看fortran程序的，能帮忙看看这个程序吗？

这个程序是李尚健的《金属塑性成形过程模拟》上的，但是，怎么也运行不出来，希望大家能过多读指点啊！谢谢。也欢迎大家一起探讨啊！

回复此楼

» 猜你喜欢

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

怎能让fortran调用c的fopen和fileio函数已经有3人回复
在linux下编FORTRAN程序已经有14人回复
我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？已经有4人回复
求助计算机高人，编写个Fortran程序已经有13人回复
请教一个fortran小程序编译出错的问题，谢谢已经有9人回复
有关fortran的一次而问题，希望大家能帮帮忙，谢谢已经有4人回复
写了一个fortran90的小程序，编译通不过，请大侠帮忙已经有59人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离已经有34人回复
【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙已经有8人回复
【求助】初学fortran，已经有15人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复
【求助】请问有拟合分子力场参数的FORTRAN程序吗？已经有13人回复

没什么好与不好。

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

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

zuoyh09

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 3645.9
散金: 190
红花: 1
帖子: 588
在线: 114.5小时
虫号: 850387
注册: 2009-09-17
性别: GG
专业: 核技术及其应用

【答案】应助回帖

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

提示数组的下标溢出，结果如下
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单步执行看看，找到是什么地方纬度溢出了

赞一下(1人)

回复此楼

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

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

mystar

金虫 (文坛精英)

应助: 0 (幼儿园)
贵宾: 1.2
金币: 1534.1
散金: 1520
红花: 2
沙发: 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发消息送TA红花 TA的回帖

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2331.1
散金: 10
帖子: 276
在线: 61小时
虫号: 940174
注册: 2010-01-10
专业: 制造系统与自动化

是的里面有：
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发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

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

【答案】应助回帖

★ ★
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发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

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

★
余泽成(金币+1): 谢谢参与应助！ 2011-11-02 10:37:39

上面 log 中，行号大于 909 的错误信息，给出的行号所对应的代码在你的原始代码中应该是行号减一所在的行。因为909行超过了72列，所以我折了行，导致后面的行号与你原始代码之行号相差1。

赞一下(1人)

回复此楼

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

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

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2331.1
散金: 10
帖子: 276
在线: 61小时
虫号: 940174
注册: 2010-01-10
专业: 制造系统与自动化

我在子程序!!!!!!!!!!!!!!!!!! 子程序 BANSOL !!!!!!!!!!!!!!加入了显示语句，发现啊矩阵的值为很惊人啊
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发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

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

【答案】应助回帖

★
wuluo1213(金币+1): 哦，好的。谢谢啊，我现在就去改改。 2011-11-01 15:35:47
余泽成(金币+1): 谢谢参与应助！ 2011-11-02 10:37:59

我这里显示的全是 NaN，呵呵……其实多半是因为没有赋初值，或者数组越界啥的造成的……

所以，你要仔细修改你的程序，保证前面我给出的那些个 warning 都不存在了，然后再找问题（或许那时就没有问题了……）

赞一下(1人)

回复此楼

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

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

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2331.1
散金: 10
帖子: 276
在线: 61小时
虫号: 940174
注册: 2010-01-10
专业: 制造系统与自动化

引用回帖:

8楼: Originally posted by snoopyzhao at 2011-11-01 11:47:40:
我这里显示的全是 NaN，呵呵……其实多半是因为没有赋初值，或者数组越界啥的造成的……

所以，你要仔细修改你的程序，保证前面我给出的那些个 warning 都不存在了，然后再找问题（或许那时就没有问题了……）

你好，我已经按照你给的那个要求改过了，但是结果还是一样的啊？奇怪啦。请问你用的是那个版本啊？我用的是Microsoft Developer Studio，还是不会出现你给的那种信息，我传了文件，里面是两本书上的源程序，能否帮忙看看，都还有哪些错误的信息啊？谢谢

赞一下

回复此楼

没什么好与不好。

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

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

snoopyzhao

至尊木虫 (职业作家)

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

【答案】应助回帖

★ ★
jjdg(金币+2): 感谢参与 2011-11-02 01:39:34

引用回帖:

9楼: Originally posted by wuluo1213 at 2011-11-01 17:27:04:
你好，我已经按照你给的那个要求改过了，但是结果还是一样的啊？奇怪啦。请问你用的是那个版本啊？我用的是Microsoft Developer Studio，还是不会出现你给的那种信息，我传了文件，里面是两本书上的源程序，能否 ...

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发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 wuluo1213 的主题更新

返回列表

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[基金申请] 今天务委会开完了，明天出结果吗 +7	angus9576 2026-08-25	7/350	2026-08-25 15:50 by Weed114114
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +17	医学老男孩 2026-08-20	22/1100	2026-08-25 15:36 by 医学老男孩
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +8	yuleib84 2026-08-25	9/450	2026-08-25 15:23 by Weed114114
[基金申请] 什么时候开奖？ +12	CrisMessi 2026-08-18	13/650	2026-08-25 14:40 by ZJTJZ
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8	scalable 2026-08-24	8/400	2026-08-25 12:52 by jnhyjjm
[基金申请] 没有任何消息-是不是就凉了 +9	图啦图啦 2026-08-24	10/500	2026-08-25 11:59 by 南海小哥
[基金申请] 2026国自然函评费到账 +19	羊腰板 2026-08-21	22/1100	2026-08-25 10:38 by popular289
[基金申请] 今天基金会出结果吗？20260819 +17	kkkl_v 2026-08-19	18/900	2026-08-25 09:41 by windflowerwy
[基金申请] 我面上完蛋了 +13	且听虎啸 2026-08-20	14/700	2026-08-25 09:10 by mrkang
[基金申请] 范进中举一文的中心思想 +7	炎黄贵胄 2026-08-22	8/400	2026-08-25 08:48 by ZJTJZ
[基金申请] 只有每年这种时候来逛逛小木虫 +25	yaoyewhu2008 2026-08-20	27/1350	2026-08-25 08:01 by Equinoxhua
[基金申请] 明天应该可查了！？ +5	chengyan1220 2026-08-23	5/250	2026-08-24 23:28 by 我4大白菜
[基金申请] 能否退出参与的面上项目解除限项 +21	koalala 2026-08-24	24/1200	2026-08-24 19:25 by 家与远方
[基金申请] filecode，4个jtjc了 +14	ziyangfang 2026-08-19	17/850	2026-08-24 18:37 by 哈哈蛤？
[教师之家] 跳槽后在研项目怎么办？ +5	简单化xn 2026-08-22	10/500	2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜吗？ +15	布布和一二 2026-08-19	16/800	2026-08-23 09:55 by 张春生
[基金申请] 看来今天不会放榜了？ +8	chengyan1220 2026-08-21	11/550	2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13	wuchongjun 2026-08-20	19/950	2026-08-21 17:21 by 紫杉醇
[基金申请] 应该是下周三26日公布了吧？ +4	哈哈蛤？ 2026-08-21	4/200	2026-08-21 10:58 by Vivilian
[基金申请] 今天放榜没戏了吧 +9	yuleib84 2026-08-19	11/550	2026-08-21 10:06 by gltch