| 查看: 1032 | 回复: 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 |
回复此楼» 猜你喜欢
想换工作。大多数高校都是 评职称时 认可5年内在原单位取得的成果吗？
已经有9人回复
-
求个博导看看
已经有16人回复
-
上海工程技术大学张培磊教授团队招收博士生
已经有4人回复
-
上海工程技术大学【激光智能制造】课题组招收硕士
已经有5人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
需要合成515-64-0，50g，能接单的留言
已经有4人回复
-
自荐读博
已经有4人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
带资进组求博导收留
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重氮化高手请进
已经有12人回复
- 解谱高手请进！！！
已经有5人回复
- 气质高手请进!!!
已经有7人回复
- PCR高手请进，小女子有事相求，我刚来金币不要嫌少啊，我只有这么多啊，全给你了
已经有20人回复
- c语言高手请进，请勿灌水，谢谢！（关于读写文件的问题）
已经有6人回复
- 水热反应高手请进
已经有17人回复
- 史上最难，高手请进！
已经有9人回复
- 【求助】有机高手请进-合成反应解释
已经有19人回复
- 【求助】合成高手请进
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
导电高分子用什么工艺处理分子链的堆叠会更加规整？？？
+1/84
-
Analytical Science Advances 持续征稿中
+1/81
-
中国海洋大学与中国水产科学研究院 联合培养 专硕 食品加工与安全
+1/78
-
Analytical Science Advances（Wiley出版社）长期征稿中...
+1/35
-
【招生啦招生啦】武汉理工大学朱曼副研究员招收2026年9月入学博士/硕士研究生
+1/30
-
有没有在ITO或者FTO玻璃上做好的CdS薄膜购买？
+1/27
-
深圳大学李天任博士课题组研究生招生信息
+1/26
-
大叔征婚
+1/23
-
山东大学集成电路学院博士招生1名
+1/12
-
重庆大学前沿院，黄小洋教授课题组，招收2026年非均相催化方向学术博士2名
+1/12
-
天津大学化学系吴立朋课题组申请考核制博士招生/博后招聘
+1/7
-
所以当初说在欧美生活𣎴用讲人情世故的人怎么生活的
+1/5
-
谈谈考证那些事儿
+1/4
-
博士后网站系统登录
+1/3
-
合肥工业大学 多智能体方向 2026 级博士招生
+1/3
-
北京理工大学-集成电路与电子学院-国家杰青团队-招博士后及科研助理
+1/2
-
北京师范大学与企业联合招聘博士后、全职、兼职人员
+1/1
-
北京师范大学与企业联合招聘博士后、全职、兼职人员
+1/1
-
海南大学！海洋与极地地质团队长期招收博士和博士后
+1/1
-
武汉工程大学杰青张亚文/司锐教授团队招收催化能源方向2026年博士生
+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