24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1591  |  回复: 2

踏步青云

银虫 (小有名气)

[求助] 求助各位才子们,为什么FROTRAN程序总是出现Program exception-access violation 错误 已有2人参与

1.CHARACTER*60 NAME,CASE(12)
2.CHARACTER*2 NAWP(50)                           
3.  INTEGER NUMC(3,20),NUMP(3),ITY
4.    COMMON/WOU1/ MP,NOP(50),UU(10,121)
5. COMMON /OUV/M,CASE
6.OPEN(49,FILE='NONEVT')
7. J2=0  
8.          DO 33 I=1,2                                                
9.       READ(49,501) ITY                                               
10.       READ(49,501)NUMC(1,I)     
11.       READ(49,502) NAME                                            
12.       READ(49,502) CASE(M)                                         
  13.      J1=J2+1                                                   
  14.      J2=J1+NUMC(1,I)-1                                            
  15.      DO 88 J=J1,J2                                                
  16.      READ(49,503)NAWP(J),NOP(J)                                      
   17.     READ(49,504) (UU(J,K),K=1,121)
88     CONTINUE         
33      CONTINUE
501    FORMAT(I4)
502    FORMAT(A60)                                                  
503    FORMAT(A2,I4)                                                
504    FORMAT(10(F9.5,1H,),F9.5)                                                               
       END      
程序如上所示,我的NONEVT文件在下面,请大家帮我看一下,编译链接都没有问题,但是运行出来总是出错误,显示
forrt1:severe<157>rogram Exception-access violation
press any key to continue
NONEVT文件如下:
   1
   2
   1
   2
SFPSZ10-120000/220                                          
A :入波点,      最大分接                                   
GX  10
  0.00000,  0.53625,  0.68618,  0.72243,  0.72558,  0.71940,  0.71095,  0.70200,  0.69284,  0.68354,  0.67443
  0.66594,  0.65819,  0.65093,  0.64369,  0.63604,  0.62796,  0.61986,  0.61248,  0.60648,  0.60223,  0.59973
  0.59877,  0.59914,  0.60079,  0.60378,  0.60822,  0.61410,  0.62122,  0.62931,  0.63813,  0.64756,  0.65763
  0.66835,  0.67962,  0.69117,  0.70260,  0.71351,  0.72367,  0.73304,  0.74174,  0.74991,  0.75765,  0.76495
  0.77176,  0.77798,  0.78357,  0.78849,  0.79264,  0.79589,  0.79806,  0.79903,  0.79882,  0.79760,  0.79564
  0.79327,  0.79071,  0.78810,  0.78544,  0.78267,  0.77973,  0.77657,  0.77317,  0.76949,  0.76549,  0.76115
  0.75649,  0.75158,  0.74654,  0.74151,  0.73656,  0.73168,  0.72679,  0.72175,  0.71640,  0.71062,  0.70433
  0.69746,  0.69000,  0.68192,  0.67322,  0.66391,  0.65403,  0.64362,  0.63271,  0.62134,  0.60954,  0.59735
  0.58482,  0.57203,  0.55905,  0.54592,  0.53261,  0.51904,  0.50511,  0.49070,  0.47577,  0.46034,  0.44453
  0.42853,  0.41262,  0.39710,  0.38228,  0.36846,  0.35583,  0.34452,  0.33449,  0.32562,  0.31766,  0.31034
  0.30340,  0.29664,  0.28995,  0.28334,  0.27688,  0.27071,  0.26498,  0.25981,  0.25526,  0.25132,  0.24789
GX  30
  0.00000,  0.11271,  0.14611,  0.15549,  0.16011,  0.16324,  0.16618,  0.16902,  0.17103,  0.17171,  0.17193
  0.17337,  0.17698,  0.18345,  0.19326,  0.20629,  0.22188,  0.23913,  0.25695,  0.27380,  0.28796,  0.29851
  0.30600,  0.31221,  0.31948,  0.32975,  0.34373,  0.36074,  0.37933,  0.39825,  0.41700,  0.43564,  0.45434
  0.47289,  0.49058,  0.50641,  0.51953,  0.52961,  0.53682,  0.54161,  0.54457,  0.54620,  0.54683,  0.54659
  0.54541,  0.54307,  0.53936,  0.53414,  0.52747,  0.51961,  0.51099,  0.50215,  0.49362,  0.48596,  0.47965
  0.47507,  0.47244,  0.47185,  0.47326,  0.47660,  0.48175,  0.48845,  0.49621,  0.50430,  0.51186,  0.51815
  0.52284,  0.52611,  0.52865,  0.53133,  0.53487,  0.53964,  0.54555,  0.55219,  0.55900,  0.56543,  0.57099
  0.57520,  0.57752,  0.57743,  0.57447,  0.56839,  0.55922,  0.54732,  0.53330,  0.51783,  0.50153,  0.48488
  0.46816,  0.45148,  0.43479,  0.41794,  0.40069,  0.38279,  0.36408,  0.34456,  0.32445,  0.30412,  0.28407
  0.26473,  0.24640,  0.22921,  0.21313,  0.19805,  0.18388,  0.17055,  0.15804,  0.14633,  0.13541,  0.12519
  0.11556,  0.10639,  0.09753,  0.08889,  0.08036,  0.07188,  0.06335,  0.05468,  0.04577,  0.03650,  0.02676
   1
   1
SFPSZ10-120000/220                                          
A :入波点,      最大分接                                   
D   28
  0.00000,  0.06569,  0.06142,  0.03617,  0.01496,  0.01399,  0.02967,  0.04502,  0.04645,  0.02868,  0.00021
-0.02337, -0.03178, -0.02512, -0.01372, -0.01027, -0.02044, -0.03995, -0.05799, -0.06482, -0.05851, -0.04536
-0.03499, -0.03353, -0.03967, -0.04620, -0.04541, -0.03450, -0.01727, -0.00129,  0.00747,  0.00839,  0.00622
  0.00735,  0.01536,  0.02866,  0.04191,  0.04978,  0.05045,  0.04653,  0.04283,  0.04288,  0.04663,  0.05064
  0.05074,  0.04484,  0.03429,  0.02277,  0.01379,  0.00844,  0.00511,  0.00086, -0.00628, -0.01596, -0.02588
-0.03342, -0.03745, -0.03892, -0.04001, -0.04249, -0.04641, -0.05015, -0.05154, -0.04937, -0.04411, -0.03754
-0.03147, -0.02662, -0.02229, -0.01704, -0.00986, -0.00094,  0.00844,  0.01668,  0.02290,  0.02736,  0.03112
  0.03520,  0.03980,  0.04418,  0.04717,  0.04790,  0.04640,  0.04341,  0.03990,  0.03636,  0.03261,  0.02800
  0.02200,  0.01462,  0.00652, -0.00142, -0.00856, -0.01479, -0.02047, -0.02602, -0.03152, -0.03661, -0.04069
-0.04330, -0.04438, -0.04428, -0.04345, -0.04214, -0.04022, -0.03732, -0.03310, -0.02756, -0.02105, -0.01412
-0.00723, -0.00054,  0.00603,  0.01265,  0.01932,  0.02579,  0.03164,  0.03649,  0.04014,  0.04264,  0.04417
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★ ★ ★
xzhdty: 金币+1, 谢谢参与 2014-03-09 08:56:20
踏步青云: 金币+3, 恩,现在解决了 2014-03-19 10:18:58
数组超界或者输入文件有问题, 数据不够
2楼2014-03-08 23:26:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

学虫dj

金虫 (正式写手)

【答案】应助回帖

★ ★ ★
踏步青云: 金币+3, 恩,现在解决了 2014-03-19 10:19:11
程序异常,存取违规
穷则独善其事,达则兼济天下
3楼2014-03-18 17:15:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 踏步青云 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +4 吴彦祖24k 2026-04-02 4/200 2026-04-02 12:46 by wxiongid
[考研] 生医工0831调剂求推荐 +5 小熊睿睿_s 2026-03-27 7/350 2026-04-02 11:30 by 纺大杨老师
[考研] 348环境工程调剂 +3 吴彦祖24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +10 脚滑的守法公民 2026-03-27 10/500 2026-04-01 17:23 by pies112
[考研] 一志愿中国科学院大学265求调剂 +8 恬淡ye 2026-03-31 9/450 2026-04-01 14:34 by 逆水乘风
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[硕博家园] 博一被送出联培感觉不适应怎么办 +3 全村的狗 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[考研] 267求调剂 +13 uiybh 2026-03-31 13/650 2026-04-01 10:25 by 探123
[考研] 土木304求调剂 +3 兔突突突, 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 求调剂 生物学 377分 +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by 唐沐儿
[考研] 329求调剂,一志愿西北工业大学,材料工程(085601) +6 小小机灵虫 2026-03-29 12/600 2026-03-31 16:58 by 记事本2026
[考研] 0856 335分 +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[考研] 材料与化工272求调剂 +25 阿斯蒂芬2004 2026-03-28 25/1250 2026-03-31 16:27 by hypershenger
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 282求调剂 +3 呼吸都是减肥 2026-03-31 3/150 2026-03-31 10:00 by wangjy2002
[考研] 071010 323 分求调剂 +3 Baekzhy 2026-03-27 3/150 2026-03-30 14:24 by andresqi
[考研] 296求调剂 +10 彼岸t 2026-03-29 10/500 2026-03-30 10:50 by 探123
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
信息提示
请填处理意见