24小时热门版块排行榜    

查看: 3611  |  回复: 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的回帖

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的回帖
查看全部 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的回帖

snoopyzhao

至尊木虫 (职业作家)

发出来看看吧,只要别太长,别涉及保密等事宜就好,呵呵……
4楼2010-07-04 09:06:20
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 11:52 by l0VvVHGBGRLv
[考博] 找导师 +5 yuanjiabao 2026-08-29 6/300 2026-08-30 11:52 by zhouyanli11
[博后之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +8 ASdOkHsho7FD 2026-08-28 9/450 2026-08-30 11:40 by l0VvVHGBGRLv
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +6 ASdOkHsho7FD 2026-08-28 9/450 2026-08-30 11:30 by l0VvVHGBGRLv
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 ASdOkHsho7FD 2026-08-28 6/300 2026-08-30 11:18 by l0VvVHGBGRLv
[基金申请] 投票:  有多少人是今天查系统知道结果的? +16 爱看书的可乐 2026-08-26 18/900 2026-08-30 10:33 by winsaint
[考博] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 07:05 by ZPa0EcMwuECS
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 gy1nBQXYQJqL 2026-08-29 6/300 2026-08-30 06:22 by ZPa0EcMwuECS
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 02:40 by ZPa0EcMwuECS
[论文投稿] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 gy1nBQXYQJqL 2026-08-29 4/200 2026-08-30 02:09 by ZPa0EcMwuECS
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +5 gy1nBQXYQJqL 2026-08-29 6/300 2026-08-30 01:58 by ZPa0EcMwuECS
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 gy1nBQXYQJqL 2026-08-29 4/200 2026-08-30 01:45 by ZPa0EcMwuECS
[论文投稿] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 ASdOkHsho7FD 2026-08-28 5/250 2026-08-30 01:03 by ZPa0EcMwuECS
[基金申请] 为什么到现在没收到通知? +4 tannykie 2026-08-29 4/200 2026-08-29 17:14 by lmz0216
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 基金不中,共勉 +11 eulota 2026-08-26 11/550 2026-08-28 14:22 by 火星超人xi
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 明天应该可查了!? +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
信息提示
请填处理意见