 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
小木蟲論壇-學術科研互動平臺 » 計算模擬區(qū) » 程序語言 » Fortran » 【求助】高手請進
| 6 | 1/1 | 返回列表 |
| 查看: 1111 | 回復: 5 | |||
[交流]
【求助】高手請進
|
|
調試正常，為什么運行的時候出現(xiàn) segmentation fault，請大家?guī)兔纯�，這個程序哪里有問題，我調試了很長時間，總是這個錯誤，請大家?guī)蛶兔Γ簧醺屑ぁ?br />
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 |
回復此樓» 猜你喜歡
086502化學工程342求調劑
已經(jīng)有5人回復
-
材料求調劑 一志愿哈工大總分298分，前三科223分
已經(jīng)有5人回復
-
085600 286分 材料求調劑
已經(jīng)有6人回復
-
材料求調劑一志愿哈工大324
已經(jīng)有7人回復
-
328求調劑
已經(jīng)有7人回復
-
340求調劑
已經(jīng)有5人回復
-
一志愿南昌大學324求調劑
已經(jīng)有4人回復
-
求調劑推薦 材料 304
已經(jīng)有15人回復
-
291求調劑
已經(jīng)有19人回復
-
331環(huán)境科學與工程求調劑
已經(jīng)有3人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 重氮化高手請進
已經(jīng)有12人回復
- 解譜高手請進�。�！
已經(jīng)有5人回復
- 氣質高手請進!!!
已經(jīng)有7人回復
- PCR高手請進，小女子有事相求，我剛來金幣不要嫌少啊，我只有這么多啊，全給你了
已經(jīng)有20人回復
- c語言高手請進，請勿灌水，謝謝！（關于讀寫文件的問題）
已經(jīng)有6人回復
- 水熱反應高手請進
已經(jīng)有17人回復
- 史上最難，高手請進！
已經(jīng)有9人回復
- 【求助】有機高手請進-合成反應解釋
已經(jīng)有19人回復
- 【求助】合成高手請進
已經(jīng)有9人回復
» 搶金幣啦！回帖就可以得到:
-
【招聘】溫州醫(yī)科大學/附屬醫(yī)院/甌江實驗室李校堃院士團隊誠聘博士后和科研人員
+1/195
-
濟南大學水利與環(huán)境學院趙艷俠簡介
+1/46
-
西京學院土木水利 2026 級研究生招生
+2/44
-
廣東省五邑大學光電催化團隊接受研究生調劑
+1/43
-
長江師范學院 材料與化工專業(yè) 招收調劑學生
+1/40
-
歡迎化學、生物與醫(yī)藥、藥學，生物、食品等相關專業(yè)的同學
+1/39
-
天津城建大學招收物理、化學或者生物調劑生一名，前往天津大學聯(lián)合培養(yǎng)
+1/38
-
招收2名土木工程方向碩士研究生
+1/37
-
安徽工程大學化學與環(huán)境工程學院對外招收2026級調劑碩士研究生
+1/36
-
【分享】招收08工學碩士（要求過國家線）
+1/34
-
API項目尋求落地合作
+1/23
-
武漢工程大學資源生物技術課題組生物/環(huán)境/化工/礦物專業(yè)碩士、博士研究生招生及調劑
+1/16
-
【博士招生】天津理工大學國家杰青王鐵課題組招收2026年博士研究生
+1/9
-
墨爾本大學伯明翰大學聯(lián)合全獎國際博士生
+1/5
-
武漢紡織大學招收碩士研究生調劑 （社牛最好）
+1/5
-
江蘇科技大學機械工程學院海洋裝備仿生課題組招生簡介
+1/5
-
山東濟南省屬重點高校，生態(tài)環(huán)境類碩士招生 調劑 信息
+1/4
-
招聘碩博生：基于機器學習和人工智能的結構/合金設計-西安交大
+1/3
-
2026年北京石油化工學院環(huán)境學科-水污染控制工程方向課題組歡迎您
+1/1
-
天津大學福州校區(qū)｜學長推薦上岸新思路
+1/1
2樓2010-12-14 13:44:36
3樓2010-12-14 13:47:15
4樓2010-12-14 19:46:39
5樓2010-12-15 02:36:51
6樓2015-04-27 15:22:45
相關版塊跳轉
我要訂閱樓主 astringent 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085701環(huán)境工程求調劑 +9 | 多久上課 2026-03-27 | 9/450 |
|
|---|---|---|---|---|
|
|
[考研] 083000學碩274求調劑 +5 | Li李魚 2026-03-26 | 5/250 |
|
|
|
[考研] 0703化學求調劑，各位老師看看我！��！ +5 | 祁祺祺 2026-03-25 | 5/250 |
|
|
[考研] 286求調劑 +8 | PolarBear11 2026-03-26 | 8/400 |
|
|
|
[考研] 317求調劑 +5 | 十閑wx 2026-03-24 | 5/250 |
|
|
|
[考研] 22408 359分調劑 +3 | Qshers 2026-03-27 | 3/150 |
|
|
|
[考研] 336材料求調劑 +7 | 陳瀅瑩 2026-03-26 | 9/450 |
|
|
|
[考研] 333求調劑 +6 | wfh030413@ 2026-03-23 | 6/300 |
|
|
|
[考研] 321求調劑 +6 | Ymlll 2026-03-24 | 6/300 |
|
|
|
[考研] 081200-11408-276學碩求調劑 +3 | 崔wj 2026-03-26 | 3/150 |
|
|
|
[考研] 求調劑 +8 | Auroracx 2026-03-22 | 8/400 |
|
|
|
[考研] 化學工程085602 305分求調劑 +17 | RichLi_ 2026-03-25 | 17/850 |
|
|
|
[考研] 總分322求生物學/生化與分子/生物信息學相關調劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
|
[考研] 生物學學碩，一志愿湖南大學，初試成績338 +4 | YYYYYNNNNN 2026-03-26 | 4/200 |
|
|
|
[考研] 打過很多競賽，085406控制工程300分，求調劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
|
[考研] 309求調劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 化學調劑 +6 | yzysaa 2026-03-21 | 6/300 |
|
|
|
[考研] 調劑 +4 | 13853210211 2026-03-24 | 4/200 |
|
|
|
[考研] 335求調劑 +4 | yuyu宇 2026-03-23 | 5/250 |
|
|
|
[考研] 336化工調劑 +4 | 王大坦1 2026-03-23 | 5/250 |
|