24小时热门版块排行榜    

查看: 3614  |  回复: 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不久,还请能者提提参考意见!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

有志者事竟成,梦想给我方向,方法是效率,努力是捷径,失败是老师。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

发出来看看吧,只要别太长,别涉及保密等事宜就好,呵呵……
4楼2010-07-04 09:06:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 16 个回答

snoopyzhao

至尊木虫 (职业作家)


yuankanxue(金币+1):谢谢参与
可以看看下面
http://software.intel.com/en-us/forums/showthread.php?t=60219

另外,没有代码只能是瞎猜了……
2楼2010-07-04 07:29:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuankanxue

金虫 (著名写手)

分子玩家

引用回帖:
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的回帖

yuankanxue

金虫 (著名写手)

分子玩家

引用回帖:
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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 能否申诉? +6 echo8914667 2026-08-30 7/350 2026-08-31 08:41 by kingkocxr
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
请填处理意见