 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
小木蟲論壇-學術科研互動平臺 » 計算模擬區(qū) » 程序語言 » Fortran » 【求助】高手請進
| 5 | 1/1 | 返回列表 |
| 查看: 1114 | 回復: 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 |
回復此樓» 猜你喜歡
299求調劑
已經(jīng)有8人回復
-
一志愿北京理工大學本科211材料工程294求調劑
已經(jīng)有6人回復
-
300求調劑，材料科學英一數(shù)二
已經(jīng)有8人回復
-
招收生物學/細胞生物學調劑
已經(jīng)有5人回復
-
070305高分子化學與物理 304分求調劑
已經(jīng)有7人回復
-
289求調劑
已經(jīng)有13人回復
-
一志愿哈爾濱工業(yè)大學材料與化工方向336分
已經(jīng)有9人回復
-
081200-11408-276學碩求調劑
已經(jīng)有6人回復
-
調劑求院校招收
已經(jīng)有5人回復
-
調劑310
已經(jīng)有8人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 重氮化高手請進
已經(jīng)有12人回復
- 解譜高手請進�。�！
已經(jīng)有5人回復
- 氣質高手請進!!!
已經(jīng)有7人回復
- PCR高手請進，小女子有事相求，我剛來金幣不要嫌少啊，我只有這么多啊，全給你了
已經(jīng)有20人回復
- c語言高手請進，請勿灌水，謝謝�。P于讀寫文件的問題）
已經(jīng)有6人回復
- 水熱反應高手請進
已經(jīng)有17人回復
- 史上最難，高手請進！
已經(jīng)有9人回復
- 【求助】有機高手請進-合成反應解釋
已經(jīng)有19人回復
- 【求助】合成高手請進
已經(jīng)有9人回復
» 搶金幣啦！回帖就可以得到:
-
西安征結婚女友
+1/286
-
南方醫(yī)科大學中藥學院 調劑碩士生一名 中藥學專業(yè)
+1/82
-
湖北師范大學調劑 化學材料類
+1/78
-
留學--博士招生
+1/50
-
天津城建大學招收物理、化學或者生物調劑生一名，前往天津大學聯(lián)合培養(yǎng)
+1/38
-
青島大學固態(tài)電池研究團隊招收材料、化學、物理等方向博士研究生
+2/36
-
沈陽農業(yè)大學生物與醫(yī)藥招收調劑生！�。。。。。。。�！
+1/35
-
環(huán)境化學、地學、環(huán)境毒理方向，擅長污染物遷移轉化降解、分析檢測、計算模擬者優(yōu)先
+1/33
-
福建理工大學材料學院招收2026碩士研究生
+1/14
-
食品學碩考研調劑
+1/12
-
西安工程大學環(huán)境與化學工程學院能源環(huán)境催化與先進材料課題組招生
+1/9
-
武漢工程大學化學與環(huán)境工程學院招收調劑生
+1/9
-
南京林業(yè)大學木質纖維素功能材料國際聯(lián)合創(chuàng)新中心招收2026級碩士生（調劑）
+2/8
-
大連理工大學氣體監(jiān)測與環(huán)境催化團隊誠聘副教授、助理教授及博士后3-4名
+1/6
-
武漢紡織大學招收碩士研究生調劑
+1/4
-
江蘇科技大學機械工程學院海洋裝備仿生課題組招生簡介
+1/4
-
【博士招生】天津理工大學國家杰青王鐵課題組招收2026年博士研究生
+1/2
-
山東濟南省屬重點高校生態(tài)環(huán)境類碩士調劑信息
+1/2
-
海南師范大學 孫元元老師團隊招2026級碩士生2名
+1/1
-
北京石油化工學院康舉、張慧杰老師團招2026年研究生復試調劑考生，歡迎聯(lián)系
+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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[碩博家園] 招收生物學/細胞生物學調劑 +4 | IceGuo 2026-03-26 | 5/250 |
|
|---|---|---|---|---|
|
|
[碩博家園] 求調劑 有機化學考研356分 +3 | Nadiums 2026-03-25 | 4/200 |
|
|
[考研] 305求調劑 +7 | RuiFairyrui 2026-03-28 | 7/350 |
|
|
|
[考研] 085701求調劑初試286分 +4 | secret0328 2026-03-28 | 4/200 |
|
|
|
[考研] 食品工程專碩一志愿中海洋309求調劑 +4 | 小張zxy張 2026-03-26 | 8/400 |
|
|
|
[考研] 085600 286分 材料求調劑 +7 | 麻辣魷魚 2026-03-27 | 8/400 |
|
|
|
[考研] 339求調劑，想調回江蘇 +6 | 烤麥芽 2026-03-27 | 8/400 |
|
|
|
[考研] 291求調劑 +7 | 孅華 2026-03-22 | 7/350 |
|
|
|
[考研] 考研調劑 +4 | Sanmu-124 2026-03-26 | 4/200 |
|
|
|
[考研] 07化學280分求調劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
|
[考研] 085600，材料與化工321分，求調劑 +9 | 大饞小子 2026-03-27 | 9/450 |
|
|
|
[考研] 求調劑 +3 | 劉柯@ 2026-03-24 | 4/200 |
|
|
|
[考研]
 085602化學工程求調劑。
+4
|
平樂樂樂 2026-03-26 | 4/200 |
|
|
|
[考研] 289求調劑 +17 | 碩星赴 2026-03-23 | 17/850 |
|
|
|
[考研] 086000生物與醫(yī)藥292求調劑 +6 | 小小陳小小 2026-03-22 | 9/450 |
|
|
|
[考研] 環(huán)境專碩324分求調劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿天津大學339材料與化工求調劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
|
[考研] 調劑 +4 | 13853210211 2026-03-24 | 4/200 |
|
|
|
[基金申請] 請教下大家 2026年國家基金申請是雙盲審嗎？ +3 | lishucheng1 2026-03-22 | 5/250 |
|
|
|
[考研] 070300，一志愿北航320求調劑 +3 | Jerry0216 2026-03-22 | 5/250 |
|