| 查看: 1048 | 回复: 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 |
回复此楼» 猜你喜欢
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
-
自荐读博
已经有7人回复
-
自然科学基金委宣布启动申请书“瘦身提质”行动
已经有4人回复
-
求个博导看看
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重氮化高手请进
已经有12人回复
- 解谱高手请进！！！
已经有5人回复
- 气质高手请进!!!
已经有7人回复
- PCR高手请进，小女子有事相求，我刚来金币不要嫌少啊，我只有这么多啊，全给你了
已经有20人回复
- c语言高手请进，请勿灌水，谢谢！（关于读写文件的问题）
已经有6人回复
- 水热反应高手请进
已经有17人回复
- 史上最难，高手请进！
已经有9人回复
- 【求助】有机高手请进-合成反应解释
已经有19人回复
- 【求助】合成高手请进
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
武汉纺织大学电子与电气工程学院------院长团队招聘光电、材料类博士，博士后
+1/501
-
江汉大学招聘AI for Materials/电解液/锂金属/全固态电池等方面的博士或者博士后
+1/178
-
中国科学院大学纳米科学与工程学院唐智勇（院长）-张银团队招聘启事
+1/177
-
山东农业大学韩福社教授团队招聘有机合成研究助理
+1/174
-
山东征女友，坐标济南
+1/87
-
江苏科技大学能源材料化学课题组张俊豪教授招收博士研究生1-2名
+1/71
-
福建师范大学柔性电子学院招收2026年博士（储能材料与柔性电子器件）
+2/66
-
华中科技大学龚江研究员课题组诚招博士研究生、科研助理和博士后
+3/45
-
2026年黄河科技学院纳米功能材料研究所招聘
+2/34
-
暨南大学理工学院 光子技术研究院段宣明团队申请制读博招生
+1/28
-
盐湖所镁基储氢材料课题组招聘
+1/26
-
【AI、水文方向】香港科技大学（广州）研究助理招聘
+1/26
-
博士招生｜南京工业大学招收2026年全日制学术博士（供热、供燃气通风与空调）
+1/14
-
国家级人才课题组招收2026年入学博士
+1/13
-
吉林大学材料物理本科生求问调剂信息
+1/12
-
中国科学院苏州纳米所院士团队博士后岗位招聘
+1/8
-
青岛大学 丁欣 课题组 招收2026秋化学博士1名
+1/8
-
武汉大学郭宇铮教授课题组招收博士后等研究人员【先进封装/芯片/人工智能等方向】
+1/4
-
Discussion最难写？因为没有用对工具吧。
+1/2
-
现在，OL的editorial review多久后才分配副编辑?
+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