| 查看: 3270 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
yuankanxue金虫 (著名写手)
分子玩家
|
[交流]
【求助】程序运行后出现的错误 access violation 已有3人参与
|
||
|
forrtl: severe (157): Program Exception - access violation Image PC Routine Line Source mean square.exe 0040173D Unknown Unknown Unknown mean square.exe 00401438 Unknown Unknown Unknown mean square.exe 00443859 Unknown Unknown Unknown mean square.exe 00427EF9 Unknown Unknown Unknown kernel32.dll 7C817077 Unknown Unknown Unknown Incrementally linked image--PC correlation disabled. 晚辈初用fortran不久，还请能者提提参考意见！ |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有13人回复
-
2025年遐想
已经有5人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
-
求个博导看看
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助：运行Fortran程序 提示出现的问题?
已经有16人回复
- 生物信息学问题，染色体畸变查找
已经有9人回复
- FLUENT received fatal signal (ACCESS_VIOLATION)
已经有7人回复
- 程序错误求教！！！！
已经有3人回复
- shelxtl一运行XL就提示不是可运行的程序
已经有6人回复
- in文件运行失败（lost atoms）求助！！
已经有11人回复
- Fluent中UDF自定义了一个热流密度
已经有12人回复
- 用VC运行程序出问题 求解答
已经有12人回复
- 急求 运行时出现应用程序发生异常 在线等
已经有4人回复
- 哪里有错，运行结果不对（我刚学c，不知道怎么下手，求助）
已经有7人回复
- 求这个程序那出错了，运行不了
已经有6人回复
- 关于ms运行出现的错误，求大神指点
已经有8人回复
- 怎样解决FLUENT received fatal signal (ACCESS_VIOLATION)的错误？
已经有20人回复
- C语言调试时出现Unhandled exception 0xc0000005:Access Violation怎么回事
已经有4人回复
- abaqus设置连接器时出现错误：no rotary inertia
已经有10人回复
- FLUENT报错 (ACCESS_VIOLATION)
已经有8人回复
- 程序没报错中断，但停止运行
已经有3人回复
- OpenGl 程序运行报错
已经有4人回复
- 求助一个简单程序的错误（2），谢谢
已经有5人回复
- 单片机运行时产生的错误提示
已经有6人回复
- 【求助】程序运行已经无错误，但是输入文件有问题，求教。
已经有23人回复
- 【求助】求助：ACTAE投稿付费后出现错误怎么办
已经有14人回复
- 【求助】此程序没有错误，怎么运行不出来？
已经有6人回复
- 【求助】此程序也是没有问题了，但是依然运行不出结果
已经有7人回复
- 【求助】有很多错误的程序，找不出来了
已经有18人回复
yuankanxue
金虫 (著名写手)
分子玩家
- 应助: 38 (小学生)
- 金币: 1038.3
- 散金: 98
- 红花: 2
- 帖子: 1689
- 在线: 426.7小时
- 虫号: 595695
- 注册: 2008-09-08
- 性别: GG
- 专业: 波谱分析与成像分析
3楼2010-07-04 08:45:41
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
★
yuankanxue(金币+1):谢谢参与
yuankanxue(金币+1):谢谢参与
|
可以看看下面 http://software.intel.com/en-us/forums/showthread.php?t=60219 另外，没有代码只能是瞎猜了…… |
2楼2010-07-04 07:29:33
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2010-07-04 09:06:20
yuankanxue
金虫 (著名写手)
分子玩家
- 应助: 38 (小学生)
- 金币: 1038.3
- 散金: 98
- 红花: 2
- 帖子: 1689
- 在线: 426.7小时
- 虫号: 595695
- 注册: 2008-09-08
- 性别: GG
- 专业: 波谱分析与成像分析
|
好的 program main !SAW链标度系数的数值计算 IMPLICIT NONE real*8 RK,RE,SUMM(1:2),DIF INTEGER :: X(0:1000200,1:2) INTEGER I,J,ITN,YES X(0,  =0SUMM(1:2)=0 DO I=1,1000200 !SAW自避行走 11 CALL RANDOM_NUMBER(RK) ITN=int(4*RK) IF(ITN==0) THEN X(I,1)=X(I-1,1)+1 X(I,2)=X(I-1,2) ELSEIF(ITN==1)THEN X(I,1)=X(I-1,1)-1 x(I,2)=X(I-1,2) ELSEIF(ITN==2)THEN X(I,2)=X(I-1,2)+1 X(I,1)=X(I-1,1) ELSEIF(ITN==3)THEN X(I,2)=X(I-1,2)-1 X(I,1)=X(I-1,1) ENDIF ! 排除体积检验 CALL BIOTEST(I,X,YES) IF(YES==1)THEN GOTO 11 ENDIF END DO DO I=1,2 DO J=1,1000000 SUMM(I)=SUMM(I)+(X(J+50*I,1)-X(J,1))**2+(X(J+50*I,2)-X(J,2))**2 END DO END DO DIF=LOG(SUMM(2)/1000000.0)-LOG(SUMM(1)/1000000.0) PRINT*,DIF/(LOG(100.0)-LOG(50.0)) END PROGRAM MAIN SUBROUTINE BIOTEST(I,X,YES) IMPLICIT NONE INTEGER :: I,X(0:10000200,1:2),J,YES DO J=0,I-1 IF(X(J,1)==X(I,1).AND.X(J,2)==X(I,2))THEN YES=1 EXIT END IF END DO YES=0 END SUBROUTINE BIOTEST 先看看例行子程序参数有没有问题 |
5楼2010-07-04 09:20:07