24小时热门版块排行榜    

查看: 1553  |  回复: 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的回帖
相关版块跳转 我要订阅楼主 踏步青云 的主题更新
信息提示
请填处理意见