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

登录注册

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

24小时热门版块排行榜

返回列表

yuankanxue

金虫 (著名写手)

分子玩家

应助: 38 (小学生)
金币: 1038.3
散金: 98
红花: 2
帖子: 1689
在线: 426.7小时
虫号: 595695
注册: 2008-09-08
性别: GG
专业: 波谱分析与成像分析

[交流] 【求助】程序运行后出现的错误 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不久，还请能者提提参考意见！

回复此楼

» 猜你喜欢

自荐读博已经有8人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
自然科学基金委宣布启动申请书“瘦身提质”行动已经有4人回复
求个博导看看已经有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人回复

有志者事竟成，梦想给我方向，方法是效率，努力是捷径，失败是老师。

1楼 2010-07-03 20:56:55

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★
yuankanxue(金币+1):谢谢参与

可以看看下面
http://software.intel.com/en-us/forums/showthread.php?t=60219

另外，没有代码只能是瞎猜了……

赞一下(1人)

回复此楼

2楼2010-07-04 07:29:33

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

yuankanxue

金虫 (著名写手)

分子玩家

应助: 38 (小学生)
金币: 1038.3
散金: 98
红花: 2
帖子: 1689
在线: 426.7小时
虫号: 595695
注册: 2008-09-08
性别: GG
专业: 波谱分析与成像分析

引用回帖:

Originally posted by snoopyzhao at 2010-07-04 07:29:33:
可以看看下面
http://software.intel.com/en-us/forums/showthread.php?t=60219

另外，没有代码只能是瞎猜了……

看不明白，我想先看看书。如果你有空又愿意看看我的代码（不长），我就发过来。

赞一下

回复此楼

有志者事竟成，梦想给我方向，方法是效率，努力是捷径，失败是老师。

3楼2010-07-04 08:45:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

发出来看看吧，只要别太长，别涉及保密等事宜就好，呵呵……

赞一下

回复此楼

4楼2010-07-04 09:06:20

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

yuankanxue

金虫 (著名写手)

分子玩家

应助: 38 (小学生)
金币: 1038.3
散金: 98
红花: 2
帖子: 1689
在线: 426.7小时
虫号: 595695
注册: 2008-09-08
性别: GG
专业: 波谱分析与成像分析

引用回帖:

Originally posted by snoopyzhao at 2010-07-04 09:06:20:
发出来看看吧，只要别太长，别涉及保密等事宜就好，呵呵……

好的
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,

=0
SUMM(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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖