版塊導(dǎo)航: 正在加載中...

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

24小時(shí)熱門版塊排行榜

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

返回列表

甲斐之虎

銀蟲 (正式寫手)

應(yīng)助: 60 (初中生)
金幣: 302.3
散金: 220
紅花: 7
帖子: 970
在線: 465小時(shí)
蟲號(hào): 2273045
注冊(cè): 2013-02-03
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] 求一個(gè)能砍PROCAR的程序，或者編一個(gè)程序砍PROCAR

如題，我計(jì)算出的PROCAR是帶有f軌道的，但是我不希望f軌道存在，想砍掉所有的f軌道，附件中是希望被砍掉的軌道，格式為：
ion s py pz px dxy dyz dz2 dxz dx2 f-3 f-2 f-1 f0 f1 f2 f3 tot
希望砍為：
ion s py pz px dxy dyz dz2 dxz dx2 tot
在此特奉上100金幣，求大俠出手相助

回復(fù)此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺(tái)，不對(duì)該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識(shí)產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對(duì)版權(quán)有異議，請(qǐng)聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : Abnormal-PROCAR.7z

2015-04-08 21:35:48, 3.91 M

» 猜你喜歡

303求調(diào)劑已經(jīng)有8人回復(fù)
考研調(diào)劑已經(jīng)有10人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有8人回復(fù)
316求調(diào)劑已經(jīng)有3人回復(fù)
317求調(diào)劑已經(jīng)有3人回復(fù)
材料與化工（0856）304求B區(qū)調(diào)劑已經(jīng)有4人回復(fù)
322求調(diào)劑已經(jīng)有3人回復(fù)
085601 材料工程 313分求調(diào)劑已經(jīng)有4人回復(fù)
321求調(diào)劑已經(jīng)有4人回復(fù)
329求調(diào)劑已經(jīng)有3人回復(fù)

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

PROCAR里面的相因子究竟是如何對(duì)應(yīng)到波函數(shù)系數(shù)的已經(jīng)有3人回復(fù)
用dos_procar處理dos數(shù)據(jù)不準(zhǔn) 已經(jīng)有3人回復(fù)
PROCAR里數(shù)據(jù)是什么意思已經(jīng)有8人回復(fù)
dos-procar.f90 已經(jīng)有94人回復(fù)
如何把16位dos程序變成64位程序已經(jīng)有8人回復(fù)
vasp.5.3.3 的PROCAR 和PARCHG結(jié)果相差很大已經(jīng)有8人回復(fù)
從PROCAR中提取態(tài)密度的shell代碼已經(jīng)有42人回復(fù)
【求助成功】Band－procar 和Dos－procar 程序執(zhí)行出錯(cuò) 已經(jīng)有8人回復(fù)
【求助】procar文件如何提取dxy,dz2,dy等的LDOS 已經(jīng)有6人回復(fù)
【求助】請(qǐng)教一下PROCAR的格式已經(jīng)有11人回復(fù)

別人笑我太瘋顛，我笑他人看不穿。不見五陵豪杰墓，無花無酒鋤作田。

1樓 2015-04-08 21:36:01

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

jpchou

專家顧問 (著名寫手)

專家經(jīng)驗(yàn): +20
1ST強(qiáng)帖: 5
應(yīng)助: 231 (大學(xué)生)
金幣: 2342
散金: 4367
紅花: 103
帖子: 1061
在線: 757.3小時(shí)
蟲號(hào): 585915
注冊(cè): 2008-08-08
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
管轄: 第一性原理

★ ★ ★ ★ ★
fzx2008: 金幣+5, 多謝出手 2015-04-10 08:27:51

隨手寫了個(gè)非常陽春的 fortran
測(cè)過~ 應(yīng)該是沒有問題的
如下

implicit real*8(a-h,o-z)
character*128 t,tt

open(1,file="Abnormal-PROCAR"

open(2,file="Abnormal-PROCAR.out"

read(1,'(a28)') t ; write(2,'(a28)') t
do i=1,2
  read(1,'(a66)') t ; write(2,'(a66)') t
  do nk=1,30
read(1,'(a  )') t ; write(2,'(a  )') t
read(1,'(a75)') t ; write(2,'(a75)') t
do nb=1,100
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a50)') t ; write(2,'(a50)') t
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   do natom=1,32
      read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   end do
   read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a66)') t ; write(2,'(a66)') t
   do natom=1,32*2
      read(1,'(a66)') t ; write(2,'(a66)') t
   end do
end do
read(1,'(a )') t ; write(2,'(a )') t
  end do
end do
end

金幣就免了~ 大放送

贊一下(2人)

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

甲斐之虎

2樓2015-04-09 23:19:33

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

jpchou

專家顧問 (著名寫手)

專家經(jīng)驗(yàn): +20
1ST強(qiáng)帖: 5
應(yīng)助: 231 (大學(xué)生)
金幣: 2342
散金: 4367
紅花: 103
帖子: 1061
在線: 757.3小時(shí)
蟲號(hào): 585915
注冊(cè): 2008-08-08
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
管轄: 第一性原理

討人厭的害羞圖案又出現(xiàn)~~ 再貼一次

implicit real*8(a-h,o-z)
character*128 t,tt

open(1,file="Abnormal-PROCAR"  )
open(2,file="Abnormal-PROCAR.out"  )

read(1,'(a28)') t ; write(2,'(a28)') t
do i=1,2
  read(1,'(a66)') t ; write(2,'(a66)') t
  do nk=1,30
read(1,'(a  )') t ; write(2,'(a  )') t
read(1,'(a75)') t ; write(2,'(a75)') t
do nb=1,100
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a50)') t ; write(2,'(a50)') t
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   do natom=1,32
      read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   end do
   read(1,'(a66,49x,a7)') t,tt ; write(2,'(a66,a7)') t,tt
   read(1,'(a  )') t ; write(2,'(a  )') t
   read(1,'(a66)') t ; write(2,'(a66)') t
   do natom=1,32*2
      read(1,'(a66)') t ; write(2,'(a66)') t
   end do
end do
read(1,'(a )') t ; write(2,'(a )') t
  end do
end do
end

贊一下(1人)

回復(fù)此樓

3樓2015-04-09 23:20:51

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

vasp001

金蟲 (正式寫手)

應(yīng)助: 69 (初中生)
金幣: 1513.7
散金: 134
紅花: 24
帖子: 702
在線: 326小時(shí)
蟲號(hào): 727265
注冊(cè): 2009-03-20
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

3樓: Originally posted by jpchou at 2015-04-09 23:20:51
討人厭的害羞圖案又出現(xiàn)~~ 再貼一次

implicit real*8(a-h,o-z)
character*128 t,tt

open(1,file="Abnormal-PROCAR"  )
open(2,file="Abnormal-PROCAR.out"  )

read(1,'(a28)') t ;  ...

看似很NB的樣子。

回復(fù)此樓

一定要精通MaterialsStudios,VASP.

4樓2015-04-10 23:01:10

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

甲斐之虎

銀蟲 (正式寫手)

應(yīng)助: 60 (初中生)
金幣: 302.3
散金: 220
紅花: 7
帖子: 970
在線: 465小時(shí)
蟲號(hào): 2273045
注冊(cè): 2013-02-03
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

送紅花一朵

引用回帖:

2樓: Originally posted by jpchou at 2015-04-09 23:19:33
隨手寫了個(gè)非常陽春的 fortran
測(cè)過~ 應(yīng)該是沒有問題的
如下

implicit real*8(a-h,o-z)
character*128 t,tt

open(1,file="Abnormal-PROCAR"

open(2,file="Abnormal-PROCAR.out"

...

周前輩幫忙解決大問題了！
晚生感謝周前輩一百遍，一百遍！

贊一下

回復(fù)此樓

別人笑我太瘋顛，我笑他人看不穿。不見五陵豪杰墓，無花無酒鋤作田。

5樓2015-04-11 19:40:10

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

對(duì)馬拉二胡

至尊木蟲 (職業(yè)作家)

應(yīng)助: 27 (小學(xué)生)
金幣: 25962.6
散金: 244
紅花: 13
帖子: 4074
在線: 939小時(shí)
蟲號(hào): 2471734
注冊(cè): 2013-05-19
性別: GG
專業(yè): 無機(jī)非金屬材料

引用回帖:

大神，如果PROCAR中只需要留下 s py pz px 的數(shù)據(jù)，程序該怎么呢？萬分感謝

贊一下

回復(fù)此樓

相互學(xué)習(xí)，共同進(jìn)步。

6樓2015-04-12 10:54:33

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

jpchou

專家顧問 (著名寫手)

專家經(jīng)驗(yàn): +20
1ST強(qiáng)帖: 5
應(yīng)助: 231 (大學(xué)生)
金幣: 2342
散金: 4367
紅花: 103
帖子: 1061
在線: 757.3小時(shí)
蟲號(hào): 585915
注冊(cè): 2008-08-08
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
管轄: 第一性原理

???????:

6?: Originally posted by ?????????? at 2015-04-12 10:54:33
???????PROCAR?????????? s py pz px ??????????????????????л...

?m??????ゃ???@?N???????????N
???^~ ?@???????????????

?@????]???κ??A?????????? do loop, read, and write
?????????????????????
read(1,'(a28)') t ; write(2,'(a28)') t
????
read(1,'(a66)') t ; write(2,'(a66)') t

???????????? a28 ( a66 )
?@?????????????
??? input file (PROCAR)
??????
ion    s    py    pz    px dxy dyz dz2 dxz dx2 f-3 f-2 f-1    f0    f1    f2    f3 tot
                                                                           ^
                                                                           ?@??? 66 ?????? format ?? a66
???
ion    s    py    pz    px dxy dyz dz2 dxz dx2 f-3 f-2 f-1    f0    f1    f2    f3 tot
                              ^
                              ??????????@???????????????????????λ???????

贊一下(1人)

回復(fù)此樓

7樓2015-04-12 18:31:48

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

對(duì)馬拉二胡

至尊木蟲 (職業(yè)作家)

應(yīng)助: 27 (小學(xué)生)
金幣: 25962.6
散金: 244
紅花: 13
帖子: 4074
在線: 939小時(shí)
蟲號(hào): 2471734
注冊(cè): 2013-05-19
性別: GG
專業(yè): 無機(jī)非金屬材料

???????:

7?: Originally posted by jpchou at 2015-04-12 18:31:48
?m??????ゃ???@?N???????????N
???^~ ?@???????????????

?@????]???κ??A?????????? do loop, read, and write
?????????????????????
read(1,'(a28)') t ; write(2,'(a28)') t
????
read ...

??л?????????

回復(fù)此樓

相互學(xué)習(xí)，共同進(jìn)步。

8樓2015-04-12 21:24:14

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主甲斐之虎的主題更新

返回列表

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

[考研] 322求調(diào)劑 +3	舊吢 2026-03-24	3/150	2026-03-27 11:42 by sanrepian
[考研] 299求調(diào)劑 +5	嗯嗯嗯嗯2 2026-03-27	5/250	2026-03-27 11:36 by wxiongid
[考研] 一志愿北京化工大學(xué)材料與化工 264分各科過A區(qū)國(guó)家線 +9	哈哈157349 2026-03-21	9/450	2026-03-27 11:27 by wangjy2002
[考研] 269專碩求調(diào)劑 +9	金恩貝 2026-03-21	9/450	2026-03-27 11:25 by 王笑宇一定是研?/a>
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +3	辰沐5211314 2026-03-26	3/150	2026-03-27 10:24 by 盡舜堯1
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +4	XQTJZ 2026-03-26	4/200	2026-03-27 01:23 by dgnhs
[考研] 333求調(diào)劑 +7	87639 2026-03-21	12/600	2026-03-26 22:08 by 不吃魚的貓
[考研] 325求調(diào)劑 +3	Aoyijiang 2026-03-23	3/150	2026-03-26 20:46 by 不吃魚的貓
[考研] 一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑 +9	稻妻小編 2026-03-26	9/450	2026-03-26 16:16 by 不吃魚的貓
[考研] 22 350 本科985求調(diào)劑，求老登收留 +4	李軼男003 2026-03-20	4/200	2026-03-26 16:05 by 哇啦啦啦xtj
[考研] 332求調(diào)劑 +6	032500 2026-03-25	6/300	2026-03-25 22:45 by 418490947
[考研] 0854人工智能方向招收調(diào)劑 +4	章小魚567 2026-03-24	4/200	2026-03-25 13:29 by 2177681040
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7	小羊睡著了? 2026-03-23	10/500	2026-03-25 02:24 by 清風(fēng)拂揚(yáng)。 m
[考研] 一志愿武理085500機(jī)械專業(yè)總分300求調(diào)劑 +3	an10101 2026-03-24	7/350	2026-03-25 00:00 by 山鬼0-
[有機(jī)交流] 有機(jī)合成求助 20+3	FENGSHUJEI 2026-03-23	5/250	2026-03-24 19:31 by 88817753
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5	番茄頭--- 2026-03-22	6/300	2026-03-23 23:45 by Txy@872106
[考研] 269求調(diào)劑 +4	我想讀研11 2026-03-23	4/200	2026-03-23 21:25 by pswait
[考研] 070300，一志愿北航320求調(diào)劑 +3	Jerry0216 2026-03-22	5/250	2026-03-23 09:16 by 。。堂堂
[考研] 求助 +5	夢(mèng)里的無言 2026-03-21	6/300	2026-03-21 17:51 by 學(xué)員8dgXkO
[考研] 求調(diào)劑 +3	.m.. 2026-03-21	4/200	2026-03-21 16:25 by barlinike

24小時(shí)熱門版塊排行榜

[求助] 求一個(gè)能砍PROCAR的程序，或者編一個(gè)程序砍PROCAR

» 本帖附件資源列表

» 猜你喜歡

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

» 本帖已獲得的紅花（最新10朵）

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