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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】大家帮我看一下这个程序的错误
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 545  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zyj8119

木虫 (著名写手)

[交流] 【求助】大家帮我看一下这个程序的错误 已有1人参与

program main
        parameter (natom0=18331,nN=5000)
        character atomname*2,nname(3)*3
        integer i,j
        real coor(natom0,3),xn,yn,zn,n(natom0,3)
        real dl
        open(10,file='1.pdb',status='old')
        if((i.le.natom0).and.(i.ge.1))then
        read(10,*)i,atomname,coor(i,1),coor(i,2),coor(i,3)
      end if
      close (10)
        do 25 i=1,nN
         do 26 j=1,3
         n(i,j)=0
26    continue
25    continue

   

      do 30 i=1,nN
50          xn=64.185*RAN2(INUM)
          yn=149.764*RAN2(INUM)
          zn=42.79*RAN2(INUM)
         do 40 j=1,natom0
         dl=sqrt((xn-coor(j,1))**2+(yn-coor(j,2))**2+(zn-coor(j,3))**2)
      if (dl.lt.0.15) goto 50
40        continue
            
        if(i.ge.1)then
         do 60 k=1,i
         dl=sqrt((xn-n(k,1))**2+(yn-n(k,2))**2+(zn-n(k,3))**2)
      if(dl.lt.0.15) goto 50
60    continue
      end if
      
             n(i,1)=xn
        n(i,2)=yn
        n(i,3)=zn

30        continue

        do 110 i=1,nN
         do 120 j=1,3
        nname(1)='N'
        nname(2)='N'
        nname(3)='N'
120   continue
110   continue
     
      open(60,file='2.pdb',access='append')
        do 100 j=1,3
      write(60,600)i,nname(j),n(i,j)
        write(60,600)i,atomname,coor(i,j)
100        continue
600   format(1X,I3,A2,3F8.3)

      close(60)
        end


        FUNCTION RAN2(INUM)
        INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
        REAL ran2,AM,eps,RNMX
        PARAMETER(IM1=214783563,IM2=214783399,AM=1./IM1,IMM1=IM1-1,
     *IA1=40014,IA2=40692,IQ1=53668,IQ2=52774,IR1=12211,IR2=3791,
     *NTAB=32,NDIV=1+IMM1/NTAB,EPS=1.2E-7,RNMX=1.-EPS)
        INTEGER idum2,j,k,iv(NTAB),iy
         SAVE iv,iy,idum2
         DATA idum2/123456789/,iv/NTAB*0/,iy/0/
        if(idum.le.0)then
        idum=max(-idum,1)
        idum2=idum
        do 11 j=NTAB+8,1,-1
         k=idum/iq1
        idum=IA1*(idum-k*IQ1)-k*IR1
        if(idum.lt.0)idum=idum+IM1
        if(j.le.NTAB)iv(j)=idum
11     continue
       iy=iv(1)
        end if
        k=idum/IQ1
        idum=IA1*(idum-k*IQ1)-k*IR1
        if(idum.lt.0)idum=idum+IM1
        k=idum2/IQ2
        idum2=IA2*(idum2-k*IQ2)-k*IR2
        if(idum2.lt.0)idum2=idum2+IM2
        j=1+iy/NDIV
        iy=iv(j)-idum2
        iv(j)=idum
        if(iy.lt.1)iy=iy+IMM1
        ran2=min(AM*iy,RNMX)
        return
        END
说的是数组越界，在iy=iv(j)-idum2这里，使用的是COMPAQ VISUAL FORTRAN的DEBUGGING 调试的，输入文件的格式是
1        SI        38.349        21.095        16.446
2        O        30.974        20.423        14.478
3        O        34.674        13.2        5.204
4        SI        33.557        9.684        4.419
5        O        32.251        18.364        8.928
6        O        33.171        11.24        4.572
7        O        32.016        12.941        0.731
8        SI        36.701        18.416        16.43
9        O        27.251        20.294        2.714
10        O        30.31        15.536        13.347
11        O        32.387        5.65        15.653
12        SI        37.202        20.618        21.333
13        O        28.179        16.802        6.719
14        O        30.904        19.77        10.618
15        O        30.236        13.134        20.145
回复此楼

» 猜你喜欢
好好学习，天天向上。
1楼 2010-03-27 21:20:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by figgers at 2010-04-03 14:44:10:
这么几行程序，就单步一步步看就是了，肯定是j超过32了或者小于1了
btw: 这个程序的风格太糟糕了. 三十年前的风格啊...
如果整个工程就这么些程序，完全可以用90格式写的清清楚楚，跟C一样的

兄弟，我是新手，以后还请多多指教，我的QQ是675096471.
赞一下 回复此楼
好好学习，天天向上。
7楼2010-04-03 23:29:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

zyj8119

木虫 (著名写手)
能编译通过，但是运行不出来
赞一下 回复此楼
好好学习，天天向上。
2楼2010-03-27 21:21:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
请把错误一并贴上来，帮助分析。
赞一下(1人) 回复此楼
3楼2010-03-29 14:32:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wanjj

木虫 (正式写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
请问RAN2(INUM)中参数INUM是干什么的？
赞一下(1人) 回复此楼
在下才疏学浅，请多多指教了。
4楼2010-04-01 22:25:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 086000生物与医药调剂 +3 Feisty。 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 一志愿北京工业大学，324分求调剂 +4 零八# 2026-03-28 4/200 2026-03-28 15:01 by 17865157980
[考研] 一志愿中南大学化学0703总分337求调剂 +5 niko- 2026-03-27 5/250 2026-03-28 14:25 by 唐沐儿
[考研] 315分求调剂 +7 26考研上岸版26 2026-03-26 7/350 2026-03-28 04:05 by fmesaito
[考研] 070300化学求调剂 +4 起个名咋这么难 2026-03-27 4/200 2026-03-27 21:39 by 83503孙老师
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 266分求材料化工冶金矿业等专业的调剂 +4 哇呼哼呼哼 2026-03-26 4/200 2026-03-27 17:02 by zhyzzh
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 机械学硕310分，数一英一，一志愿211本科双非找调剂信息 +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 0854电子信息求调剂 324 +4 Promise-jyl 2026-03-23 4/200 2026-03-25 11:36 by Sugarlight
[考研] 求调剂 +6 研研，接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考博] 26申博自荐 +3 whh869393 2026-03-24 3/150 2026-03-24 09:55 by 21018060
[考研] 一志愿山东大学药学学硕求调剂 +3 开开心心没烦恼 2026-03-23 4/200 2026-03-24 00:06 by 开开心心没烦恼
[考研] 335求调剂 +4 yuyu宇 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
信息提示
关闭
请填处理意见
关闭