| 查看: 1297 | 回复: 5 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】高手请进
|
|||
|
调试正常，为什么运行的时候出现 segmentation fault，请大家帮忙看看，这个程序哪里有问题，我调试了很长时间，总是这个错误，请大家帮帮忙，不甚感激。 sum = 0 open(nin,file='TRAJ1',status='old',form & ='unformatted') open(nout,file='cswb.out',form='formatted') open(21,file='check') call readmdinit (mdtype,nin) loop1: do istep=1, nstep call readmd & (mdtype,nattot,nin,atomname,xxx,yyy,zzz,& cell,resname,resindex) open(npdb,file='newsystem.pdb',status='old') call readpdb (atomname,npdb,nattot,resname,resindex) close(npdb) ! loop over all waters nhb=0 loop2: do i=1, nattot if ((atomname(i).eq.' O ').and.(resname(i).eq.'WAT')) then io = i loop3: do j=1,2 ih=io+j loop4: do iat=1,nattot if((resname(iat).eq.'DC5'.or.resname(iat).eq.'DC ').and.& (atomname(iat).eq.' N1 '.or.atomname(iat).eq.' N4 '.or.& atomname(iat).eq.' N3 '.or.atomname(iat).eq.' O2 ')) then call findhbond & (io,ih,iat,xxx,yyy,zzz,nattot,cell,ihbnum) if (ihbnum==1) then acc(j)=iat else exit loop3 endif endif enddo loop4 enddo loop3 if (acc(1)*acc(2)/=0) then if (resindex(acc(1)).ne.resindex(acc(2))+1 & .or. resindex(acc(1)).ne. resindex(acc(2))-1) then nhb=nhb+1 endif endif endif enddo loop2 sum=sum+nhb enddo loop1 avgnhb=sum/nstep write (nout,*) ihbnum |
回复此楼» 猜你喜欢
申博发邮件
已经有8人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有9人回复
-
国社科系统bug了，是不是要放榜了？
已经有7人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有8人回复
-
上海工程技术大学激光智能制造课题组招收博士研究生
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重氮化高手请进
已经有12人回复
- 解谱高手请进！！！
已经有5人回复
- 气质高手请进!!!
已经有7人回复
- PCR高手请进，小女子有事相求，我刚来金币不要嫌少啊，我只有这么多啊，全给你了
已经有20人回复
- c语言高手请进，请勿灌水，谢谢！（关于读写文件的问题）
已经有6人回复
- 水热反应高手请进
已经有17人回复
- 史上最难，高手请进！
已经有9人回复
- 【求助】有机高手请进-合成反应解释
已经有19人回复
- 【求助】合成高手请进
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
先进微纳制造与光刻胶工程研究团队诚聘英才
+1/102
-
【专业EPR】：自由基(超氧、羟基、单线态氧)，空位缺陷；定量计算，VX: 761711562。
+1/97
-
东华大学材料科学与工程学院丁奇老师招收2027级硕士研究生
+1/87
-
希望投的专利、论文及参加的比赛、考试都能如愿以偿！
+1/85
-
转让有机合成实验室
+1/48
-
中国地质大学（北京）地质资源与地质工程专业 招收2027级硕士研究生
+1/26
-
【招聘信息】设备设计工程师，中科院孵化企业，新材料装备方向，2-3名
+1/16
-
【推免招生】招收材料、化工、环境、冶金类推免生
+1/12
-
（捡漏）中山大学2027年接收推荐优秀免试研究生报名通知（第二批）
+1/12
-
凝聚青年力量,共筑学术新程,Biofunctional Materials开启青年编委全球招募
+1/12
-
激荡学术火花，赋能青年成长，Biofunctional Materials青年编委招募
+1/11
-
课题组/公司长期承接多肽定制合成服务，欢迎有需要的虫友联系。
+1/7
-
集结青年新锐，共创学术沃土，Biofunctional Materials 面向全球招募青年编委
+1/5
-
赋能青年学术发声，携手打造前沿特刊，Biofunctional Materials 青年编委全球招募
+1/5
-
美国Ohio University医学院骨性关节炎实验室招收生物医学全奖博士生-2027年秋入学
+1/4
-
【招募学术报告嘉宾】青年学者论坛，线上讲座嘉宾招募中（颁发演讲证书）
+1/4
-
激荡青年思想，深耕生物材料，Biofunctional Materials 青年编委招募开启！
+1/4
-
【生物材料与生物打印专题征稿】Scopus期刊，免APC
+1/3
-
柔性器件多物理场仿真：COMSOL热-力-电耦合与代理模型
+1/3
-
碎碎念
+1/3
4楼2010-12-14 19:46:39
2楼2010-12-14 13:44:36
3楼2010-12-14 13:47:15
5楼2010-12-15 02:36:51