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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (3007)
>考研 (666)
>导师招生 (390)
>虫友互识 (99)
>招聘信息布告栏 (53)
>文献求助 (41)
>硕博家园 (36)
>休闲灌水 (23)
>海外博后 (22)
>考博 (21)
>博后之家 (12)
>基金申请 (11)
>教师之家 (11)
>有机交流 (11)
>论文投稿 (8)
>找工作 (7)

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

返回列表

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2292.6
散金: 10
帖子: 275
在线: 59.5小时
虫号: 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 (幼儿园)
金币: 2292.6
散金: 10
帖子: 275
在线: 59.5小时
虫号: 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 (幼儿园)
金币: 2292.6
散金: 10
帖子: 275
在线: 59.5小时
虫号: 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 (幼儿园)
金币: 2292.6
散金: 10
帖子: 275
在线: 59.5小时
虫号: 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 的主题更新

返回列表

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

[考研] 292求调剂 +3	lilllllxccc 2026-04-05	4/200	2026-04-06 10:39 by 蓝云思雨
[考研] 085410人工智能初试316分求调剂 +7	残星拂曙 2026-03-31	7/350	2026-04-06 10:09 by 蓝云思雨
[考研] 考研调剂 +5	美丽的youth_ 2026-04-04	6/300	2026-04-06 06:57 by houyaoxu
[考研] 材料调剂 +14	壹贰贰亿 2026-04-04	14/700	2026-04-05 23:31 by 来看流星雨10
[考研] 086000生物与医药求调剂 +3	老天眷顾之人 2026-03-31	3/150	2026-04-05 22:24 by syh9288
[考研] 材料调剂 +13	一样YWY 2026-04-03	14/700	2026-04-05 18:20 by 蓝云思雨
[考研] 考研调剂生寻找导师 +3	顾瞻考研啊 2026-04-05	3/150	2026-04-05 18:18 by 啵啵啵0119
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +8	哇呼哼呼哼 2026-04-02	9/450	2026-04-05 17:14 by lbsjt
[考研] 304求调剂（085602，过四级，一志愿985） +15	化工人999 2026-04-04	15/750	2026-04-05 16:25 by 我是电风扇r
[考研] 考研生物学考A区211，初试322，科目生化和生物综合，求调剂 +6	。。。54 2026-04-03	6/300	2026-04-05 14:54 by JOKER0401
[考研] 数一英一 347 人工智能国奖论文都有求调剂 +3	乌拉儿山脉 2026-03-30	7/350	2026-04-05 10:32 by zhq0425
[考研] 285求调剂 +11	哦呦呼o 2026-04-04	11/550	2026-04-05 08:15 by 544594351
[考研] 278求调剂 +3	依旧！ 2026-04-02	4/200	2026-04-04 20:27 by 蓝云思雨
[考研] 一志愿0817化学工程与技术，求调剂 +24	我不是只因 2026-04-02	28/1400	2026-04-04 15:15 by dongzh2009
[考研] 数二英二348求调剂 +4	hxdzj1 2026-04-03	5/250	2026-04-03 21:25 by zhq0425
[考研] 320求调剂 +5	振—TZ 2026-04-02	5/250	2026-04-03 14:42 by fxue1114
[考研] 建环，能源，土木老师路过看一看！！！ +5	嘿嘿uu 2026-04-01	5/250	2026-04-03 11:47 by znian
[考研] 复试调剂 +3	bvzz 2026-04-01	3/150	2026-04-03 09:47 by 蓝云思雨
[考研] 考研调剂 +3	李木子0120 2026-04-02	5/250	2026-04-02 21:45 by dongzh2009
[考研] 254材料与化工求调剂 +3	翰冬林楠 2026-03-30	4/200	2026-03-31 17:53 by yishunmin