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

登录注册

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

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wuluo1213

木虫 (小有名气)

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

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

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

回复此楼

» 猜你喜欢

参与限项已经有5人回复
推荐一本书已经有7人回复
有没有人能给点建议已经有5人回复
假如你的研究生提出不合理要求已经有12人回复
全日制（定向）博士已经有5人回复
萌生出自己或许不适合搞科研的想法，现在跑or等等看？已经有4人回复
Materials Today Chemistry审稿周期已经有4人回复
对氯苯硼酸纯化已经有3人回复
所感已经有4人回复
要不要辞职读博？已经有7人回复

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

怎能让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的回帖

wuluo1213

木虫 (小有名气)

应助: 5 (幼儿园)
金币: 2305.1
散金: 10
帖子: 273
在线: 59.4小时
虫号: 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的回帖

查看全部 11 个回答

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的回帖

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的回帖

查看全部 11 个回答