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

登录注册

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

24小时热门版块排行榜

返回列表

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

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

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

查看全部 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的回帖

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

查看全部 11 个回答

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

[基金申请] 今天务委会开完了，明天出结果吗 +13	angus9576 2026-08-25	13/650	2026-08-25 18:24 by miguan3344
[基金申请] 放榜前的不淡定 20+4	snowwithsea 2026-08-19	19/950	2026-08-25 17:57 by chick875
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9	yuleib84 2026-08-25	10/500	2026-08-25 17:14 by alexon
[基金申请] 有没有大神帮我看看基金代码 28+3	1234567wang 2026-08-24	9/450	2026-08-25 16:51 by 北京莱茵编辑
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 +6	ziyangfang 2026-08-25	8/400	2026-08-25 16:28 by 宝贝的猪
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +17	医学老男孩 2026-08-20	22/1100	2026-08-25 15:36 by 医学老男孩
[基金申请] 什么时候开奖？ +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 南海小哥
[基金申请] 人气不行了 +11	fansofjerry 2026-08-21	11/550	2026-08-25 11:04 by 孤独的英雄6
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +5	process2012 2026-08-23	7/350	2026-08-25 09:42 by huixian257
[基金申请] 今天基金会出结果吗？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
[基金申请] 让我中一个面上吧！ +13	大萍1987 2026-08-20	16/800	2026-08-24 10:23 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 张春生
[基金申请] 时间戳今天，20号变了 +5	archvillain 2026-08-20	5/250	2026-08-22 06:12 by hui_daxiao
[基金申请] 看来今天不会放榜了？ +8	chengyan1220 2026-08-21	11/550	2026-08-21 17:52 by dcqxinyang
[基金申请] 今天放榜没戏了吧 +9	yuleib84 2026-08-19	11/550	2026-08-21 10:06 by gltch
[基金申请] 基金啊基金 +4	longfie172 2026-08-20	4/200	2026-08-21 08:58 by mark mao