| 查看: 1077 | 回复: 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 |
回复此楼» 猜你喜欢
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有11人回复
-
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了
已经有7人回复
-
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有8人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有7人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有10人回复
-
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）
已经有9人回复
-
有院领导为了换新车，用横向课题经费买了俩车
已经有10人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重氮化高手请进
已经有12人回复
- 解谱高手请进！！！
已经有5人回复
- 气质高手请进!!!
已经有7人回复
- PCR高手请进，小女子有事相求，我刚来金币不要嫌少啊，我只有这么多啊，全给你了
已经有20人回复
- c语言高手请进，请勿灌水，谢谢！（关于读写文件的问题）
已经有6人回复
- 水热反应高手请进
已经有17人回复
- 史上最难，高手请进！
已经有9人回复
- 【求助】有机高手请进-合成反应解释
已经有19人回复
- 【求助】合成高手请进
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
医学超声影像负责人招聘-中国科学院赣江创新研究院
+1/988
-
澳洲西澳大学Dr Yiran Liu招全额奖学金和CSC奖学金博士生（3.8万澳币/年）
+1/111
-
2025难忘的时刻
+1/89
-
江西理工大学联合中国科学院赣江创新研究院招收2026级博士研究生
+1/83
-
香港科技大学（广州）黄加强课题组智能电池方向博士招聘
+1/80
-
哈工大医康学院材料模拟计算方向人才招聘
+1/79
-
坐标广州，征女友
+2/78
-
欢迎报考南京农业大学植物环境适应课题组课题组2026级博士生。
+1/76
-
中国科学院深圳先进技术研究院——招聘博士后
+3/59
-
香港城市大学软物质课题组现招收博士研究生 2026.09 入学
+1/32
-
南方科技大学物理系夏秀杨课题组招收博士生/博士后 计算与理论软物质/生物物理方向
+1/30
-
上海交通大学大气环境科学课题组招收2026年入学博士生
+1/29
-
新加坡 南洋理工大学- 智能光子/ 传感 PHD 全奖一名 2026 - 8 月入学
+1/17
-
澳门大学生物医学影像实验室诚招博士生（2026秋季入学）
+1/13
-
招收中国CSC或学校资助联培博士生/访问学生-- Tsinghua-A*STAR 2025 Joint Funding
+1/8
-
江汉大学轩亮教授课题组招博士研究生/博士后
+1/5
-
电子科技大学 2026年招博士数名
+1/5
-
【科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/4
-
太原理工大学集成电路学院院长团队招收2026年博士研究生
+1/3
-
澳科大招收2026年秋季入学生物材料方向全奖博士研究生（3月5日截止）
+1/1
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