版塊導(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í)熱門版塊排行榜

返回列表

甲斐之虎

銀蟲 (正式寫手)

應(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

» 猜你喜歡

一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑已經(jīng)有8人回復(fù)
08工學(xué)調(diào)劑已經(jīng)有20人回復(fù)
調(diào)劑求收留已經(jīng)有4人回復(fù)
294分080500材料科學(xué)與工程求調(diào)劑已經(jīng)有4人回復(fù)
071000生物學(xué)求調(diào)劑，初試成績(jī)343 已經(jīng)有5人回復(fù)
一志愿北化求調(diào)劑已經(jīng)有3人回復(fù)
求調(diào)劑一志愿本科北科大化學(xué) 343 已經(jīng)有6人回復(fù)
324求調(diào)劑已經(jīng)有3人回復(fù)
305求調(diào)劑已經(jīng)有4人回復(fù)
321求調(diào)劑已經(jīng)有6人回復(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ù)

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

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è)非常陽(yáng)春的 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è)非常陽(yáng)春的 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ù)此樓

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

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

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

對(duì)馬拉二胡

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

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

引用回帖:

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

贊一下

回復(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é)生)
金幣: 25955.6
散金: 244
紅花: 13
帖子: 4073
在線: 939小時(shí)
蟲號(hào): 2471734
注冊(cè): 2013-05-19
性別: GG
專業(yè): 無(wú)機(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ā)表

[考研] 324求調(diào)劑 +4	wysyjs25 2026-03-21	4/200	2026-03-26 20:38 by fmesaito
[考研] 化學(xué)工程085602 305分求調(diào)劑 +17	RichLi_ 2026-03-25	17/850	2026-03-26 19:44 by plmuchong
[考研] 生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績(jī)338 +4	YYYYYNNNNN 2026-03-26	4/200	2026-03-26 19:00 by macy2011
[考研] 材料考研求調(diào)劑 +3	Dendel 2026-03-23	6/300	2026-03-26 17:51 by fmesaito
[考研] 292求調(diào)劑 +9	鵝鵝鵝額額額額?/a> 2026-03-25	10/500	2026-03-26 16:27 by 不吃魚的貓
[考研] 考研調(diào)劑 +8	小蠟新筆 2026-03-26	8/400	2026-03-26 16:18 by dick_runner
[考研] 一志愿上海交大生物與醫(yī)藥專碩324分，求調(diào)劑 +6	jiajunX 2026-03-22	6/300	2026-03-25 23:05 by licg0208
[考研] 求調(diào)劑 +3	QiMing7 2026-03-25	3/150	2026-03-25 21:13 by 給你你注意休息
[考研] 311求調(diào)劑 +4	勇敢的小吳 2026-03-20	4/200	2026-03-25 18:12 by xcjcqu
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4	為學(xué)666 2026-03-24	4/200	2026-03-25 11:27 by BruceLiu320
[考研] 材料專碩找調(diào)劑 +5	哈哈哈吼吼吼哈 2026-03-23	5/250	2026-03-24 19:07 by 了了了了。。
[考研] 306求0703調(diào)劑一志愿華中師范 +10	紙魚ly 2026-03-21	11/550	2026-03-24 17:22 by qingfeng258
[考研] 求調(diào)劑 +6	研研，接電話 2026-03-24	7/350	2026-03-24 17:01 by barlinike
[考研] 材料專碩331求調(diào)劑 +4	鮮當(dāng)牛 2026-03-24	4/200	2026-03-24 15:58 by JourneyLucky
[考研] 化學(xué)308分求調(diào)劑 +3	你好明天你好 2026-03-23	3/150	2026-03-23 20:11 by macy2011
[論文投稿] 急發(fā)核心期刊論文 +3	賢達(dá)問津 2026-03-23	5/250	2026-03-23 17:13 by 妹子不好惹
[考研] 考研調(diào)劑 +3	呼呼？~+123456 2026-03-21	3/150	2026-03-21 20:04 by 無(wú)際的草原
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境總分308求調(diào)劑 +7	墨墨漠 2026-03-20	7/350	2026-03-21 16:36 by barlinike
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6	77chaselx 2026-03-20	6/300	2026-03-21 07:24 by JourneyLucky
[考研] 求調(diào)劑 +3	@taotao 2026-03-20	3/150	2026-03-20 19:35 by JourneyLucky

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

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

» 本帖附件資源列表

» 猜你喜歡

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

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

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