版塊導航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

astringent

銅蟲 (著名寫手)

應(yīng)助: 16 (小學生)
金幣: 2210.7
帖子: 1180
在線: 354.8小時
蟲號: 900839

[交流] 【求助】高手請進

調(diào)試正常，為什么運行的時候出現(xiàn) segmentation fault，請大家?guī)兔纯矗@個程序哪里有問題，我調(diào)試了很長時間，總是這個錯誤，請大家?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

回復此樓

» 猜你喜歡

一志愿北京理工大學本科211材料工程294求調(diào)劑已經(jīng)有8人回復
349求調(diào)劑已經(jīng)有6人回復
329求調(diào)劑已經(jīng)有9人回復
求調(diào)劑一志愿武漢理工大學材料工程（085601）已經(jīng)有9人回復
327求調(diào)劑已經(jīng)有5人回復
求收留已經(jīng)有5人回復
375求調(diào)劑已經(jīng)有4人回復
340求調(diào)劑已經(jīng)有6人回復
298求調(diào)劑已經(jīng)有3人回復
085601材料工程找調(diào)劑已經(jīng)有9人回復

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

重氮化高手請進已經(jīng)有12人回復
解譜高手請進�。�！已經(jīng)有5人回復
氣質(zhì)高手請進!!! 已經(jīng)有7人回復
PCR高手請進，小女子有事相求，我剛來金幣不要嫌少啊，我只有這么多啊，全給你了已經(jīng)有20人回復
c語言高手請進，請勿灌水，謝謝�。P(guān)于讀寫文件的問題）已經(jīng)有6人回復
水熱反應(yīng)高手請進已經(jīng)有17人回復
史上最難，高手請進！已經(jīng)有9人回復
【求助】有機高手請進-合成反應(yīng)解釋已經(jīng)有19人回復
【求助】合成高手請進已經(jīng)有9人回復

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-11-23 17:28:39

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zyj8119

木蟲 (著名寫手)

astringent(金幣+10): 2010-12-15 02:35:31

引用回帖:

Originally posted by astringent at 2010-11-23 17:28:39:
調(diào)試正常，為什么運行的時候出現(xiàn) segmentation fault，請大家?guī)兔纯�，這個程序哪里有問題，我調(diào)試了很長時間，總是這個錯誤，請大家?guī)蛶兔Γ簧醺屑ぁ?br /> sum = 0

open(nin,file='TRAJ1',status='ol ...

這個翻譯過來，貌似叫做段錯誤。

贊一下

回復此樓

3樓2010-12-14 13:47:15

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個回答

heyansheng12345

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 634.1
帖子: 71
在線: 4.9小時
蟲號: 543364

astringent(金幣+10): 2010-12-15 02:35:40

主程序和子程序之間的連接可能有問題，不很清楚，幫頂個

贊一下

回復此樓

2樓2010-12-14 13:44:36

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

cean

金蟲 (職業(yè)作家)

應(yīng)助: 23 (小學生)
金幣: 53.1
帖子: 3442
在線: 578.8小時
蟲號: 1147499

astringent(金幣+10): 2010-12-15 02:35:13

我前些天也遇到segmentation fault的問題,知道是肯定連接的不對.多變變連接的設(shè)置.

你的程序不全,沒法試.光讀不好調(diào).

贊一下

回復此樓

4樓2010-12-14 19:46:39

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

astringent

銅蟲 (著名寫手)

應(yīng)助: 16 (小學生)
金幣: 2210.7
帖子: 1180
在線: 354.8小時
蟲號: 900839

問題已解決，不過感謝各位參與，沒人贈送10個金幣，呵呵。

贊一下

回復此樓

5樓2010-12-15 02:36:51

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 6 個回答

普通表情龍兔虎貓高級回復 (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 317分一志愿南理工材料工程本科湖工大求調(diào)劑 +9	芋泥小鈴鐺 2026-03-28	9/450	2026-03-29 11:46 by longlotian
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5	大饞小子 2026-03-28	5/250	2026-03-29 08:56 by qingfeng258
[考研] 0856求調(diào)劑 +7	楒桉 2026-03-28	7/350	2026-03-29 08:28 by fmesaito
[考研] 305求調(diào)劑 +8	RuiFairyrui 2026-03-28	8/400	2026-03-29 08:22 by fmesaito
[考研] 330分求調(diào)劑 +5	qzenlc 2026-03-29	5/250	2026-03-29 07:37 by 無際的草原
[考研] 295求調(diào)劑 +4	wei-5 2026-03-26	4/200	2026-03-28 23:20 by 小木蟲tim
[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +5	0857求調(diào)劑. 2026-03-24	6/300	2026-03-28 22:04 by zhq0425
[考研] 22408 359分調(diào)劑 +4	Qshers 2026-03-27	5/250	2026-03-28 21:26 by zhq0425
[考研] 085602 307分求調(diào)劑 +7	不知道叫什么！ 2026-03-26	7/350	2026-03-28 09:57 by 神馬都不懂
[考研] 275求調(diào)劑 +10	jjjjjjjjjjl 2026-03-27	10/500	2026-03-27 23:47 by barnett0632
[考研] 化學調(diào)劑 +4	愛吃番茄的旭 2026-03-24	5/250	2026-03-27 17:50 by kiokin
[考研] 考研調(diào)劑 +4	Sanmu-124 2026-03-26	4/200	2026-03-27 17:49 by kiokin
[考研] 安徽大學專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級，六級521，求調(diào)劑 +4	美味可樂雞翅 2026-03-26	4/200	2026-03-27 15:27 by 星空星月
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 276求調(diào)劑。有半年電池和半年高分子實習經(jīng)歷 +10	材料學257求調(diào)劑 2026-03-23	11/550	2026-03-27 10:13 by YCIT- LHL
[考研] 359求調(diào)劑 +4	王了個楠 2026-03-25	4/200	2026-03-27 08:43 by 不吃魚的貓
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 285求調(diào)劑 +3	AZMK 2026-03-24	3/150	2026-03-25 12:23 by userper
[考研] 一志愿吉林大學材料與化工303分求調(diào)劑 +4	為學666 2026-03-24	4/200	2026-03-25 11:27 by BruceLiu320
[考研] 292求調(diào)劑 +4	鵝鵝鵝額額額額?/a> 2026-03-24	4/200	2026-03-24 16:41 by peike

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

astringent

[交流] 【求助】高手請進

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

zyj8119

heyansheng12345

cean

astringent

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到:

查看全部散金貼