| 查看: 1088 | 回复: 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 |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有4人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重氮化高手请进
已经有12人回复
- 解谱高手请进！！！
已经有5人回复
- 气质高手请进!!!
已经有7人回复
- PCR高手请进，小女子有事相求，我刚来金币不要嫌少啊，我只有这么多啊，全给你了
已经有20人回复
- c语言高手请进，请勿灌水，谢谢！（关于读写文件的问题）
已经有6人回复
- 水热反应高手请进
已经有17人回复
- 史上最难，高手请进！
已经有9人回复
- 【求助】有机高手请进-合成反应解释
已经有19人回复
- 【求助】合成高手请进
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
西湖大学2026年秋季入学物理学、光学、电子信息方向博士生有名额速来！！！
+2/228
-
西湖大学拓扑光学、非厄米光学、太赫兹方向博士后招聘
+2/220
-
坐标广州，征女友
+2/186
-
ChineseResearchLaTeX: 开源、免费的vibe coding辅助国自然写作
+1/87
-
石河子大学化学化工学院CJ学者领衔分子炼油团队招收博士、硕士。【接收调剂】
+1/83
-
北京-89175-事业单位-诚征女友
+1/63
-
2025难忘的时刻
+1/61
-
上海理工大学2026年系统科学学科海外骨干教师招聘启事
+2/52
-
国家级青年人才课题组招收2026级硕士研究生
+1/33
-
清华大学深圳国际研究生院招聘-博士后（长期有效）
+1/32
-
有没有人做过这种结构的顺式体向反式体的转化？
+1/32
-
澳大利亚麦考瑞大学(Macquarie University)国际博士硕士全额奖学金-计算机-26年中开学
+1/15
-
中科院深圳先进技术研究院招聘免疫及计算生物学方向博士后、科研助理或联培学生
+1/9
-
中科院深圳先进技术研究院招联培学生 -- 多中心大队列数据已就绪，助你快车道产出成果
+1/9
-
宁波诺丁汉大学招收26年秋/27年春固废协同转化与低碳冶金方向全奖博士生
+1/7
-
哈工大（深圳）国家级青年人才 钟颖教授课题组 新增26级博士名额！欢迎报名！
+1/5
-
澳科大药学院诚招2026年秋季药剂学/生物材料硕士研究生（2026年3月5日报名截止）
+1/4
-
【科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/3
-
澳科大招收2026秋季全奖博士研究生（药剂学/生物材料方向，3月5日18:00截止）
+1/3
-
代教授（南昌航空大学）招收CO2光&光热催化还原方向的博士生
+1/1
5楼2010-12-15 02:36:51
2楼2010-12-14 13:44:36
3楼2010-12-14 13:47:15
4楼2010-12-14 19:46:39