24小时热门版块排行榜    

查看: 22565  |  回复: 142
【奖励】 本帖被评价116次,作者gaottgougou增加金币 90.6501 个
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

gaottgougou

金虫 (小有名气)


[资源] 【分享】将ELFCAR、CHGCAR转化成MS阅读可读的fortran代码

在程序中只要修改读取格式就能转换不同的vasp生成文件(ELFCAR或CHGCAR)
http://d.namipan.com/d/chgcar2gr ... 23622d46c678c080000

[ Last edited by zzy870720z on 2010-9-9 at 20:32 ]

youzhizhe版主补充本地下载[ Last edited by youzhizhe on 2011-10-6 at 22:49 ]
回复此楼

» 收录本帖的淘帖专辑推荐

纳米技术与能源及模拟 精华网帖收集 第一性原理计算资源总汇 VASP and MS
研究生资料集 VASP VASP VASP使用技巧
第一性原理计算-tg vasp first principle VASP算例
VASP资料 @个人收集@ VASP计算 爪机党
Gaussian软件 VASP相关

» 本帖已获得的红花(最新10朵)

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
实际上ELFCAR和CHGCAR是有差别的。在两点上:
(1)网格划分的控制参数不同。CHGCAR是NGXF*NGYF*NGZF;ELGCAR是NGX*NGY*NGZ.
(2)每个数字的格式不同。

另外,你的程序中这段:
IF(NSPIN==1) THEN
     ALLOCATE(work1(nx,ny,nz))
     READ(16,vasp_form) (((work1(i,j,k),i=1,nx),j=1,ny),k=1,nz)
     WRITE(15,dmol_form) (((work1(i,j,k),i=1,nx),j=1,ny),k=1,nz)
     DEALLOCATE(work1)
  ELSE
     ALLOCATE(work1(nx,ny,nz),work2(nx,ny,nz))
     READ(16,vasp_form) (((work1(i,j,k),i=1,nx),j=1,ny),k=1,nz)
     READ(16,*)
     READ(16,vasp_form) (((work2(i,j,k),i=1,nx),j=1,ny),k=1,nz)
     work1=work1-work2
     WRITE(15,dmol_form) (((work1(i,j,k),i=1,nx),j=1,ny),k=1,nz)   
  DEALLOCATE(work1,work2)
  END IF

从红色部分看,如果是考虑自旋(NSPIN=2)的话,你只给出了部分结果。
请问ELFCAR或者CHGCAR中自旋结果是不是这样给出的:
第一部分:total(spin up + spin down)
第二部分:spin up or spin down.
你用减法来处理是得到单纯上旋结果?

[ Last edited by cenwanglai on 2010-9-12 at 11:22 ]
9楼2010-09-12 10:45:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 143 个回答

★★★★★ 五星级,优秀推荐

请问怎么用啊,我编译后在有CHGCAR的文件夹里运行出错啊
5楼2010-09-10 17:23:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

★★★ 三星级,支持鼓励

为什么不传递一个参数,用来分别处理ELFCAR和CHGCAR?

或者设置一个开关?

修改以下格式怎么修改呢?先去读读你的程序再说。呵呵
6楼2010-09-10 19:26:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gaottgougou

金虫 (小有名气)


★
zzy870720z(金币+1):谢谢补充 2010-09-11 14:55:33
引用回帖:
Originally posted by sunyang1988 at 2010-09-10 17:23:33:
请问怎么用啊,我编译后在有CHGCAR的文件夹里运行出错啊

源程序是操作ELFCAR的,如果是操作CHGCAR需要改一下程序
将第一个变量“vasp_form = '(10(1X,E11.5))'”改为“vasp_form = '(6(1X,E17.11))'”
将 “OPEN(unit=16,file='ELFCAR')”改为 “OPEN(unit=16,file='CHGCAR')”
7楼2010-09-11 13:07:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2010-09-10 08:53   回复  
 顶 。
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 考博求助 10+3 社会实践对别 2026-11-08 3/150 2026-11-13 14:04 by 沐小虫252
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 G2rhSvqvhNzl 2026-11-10 5/250 2026-11-13 11:37 by Equinoxhua
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +6 zSbvVX9JFl9J 2026-11-09 9/450 2026-11-13 11:13 by Equinoxhua
[考博] 27博士 +5 锦鲤送福至 2026-11-10 5/250 2026-11-13 06:22 by wlf1982
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:48 by ECLTXnJnRSXf
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 Z7qfCsdIiD1T 2026-11-10 8/400 2026-11-12 11:20 by HajghKOMynmz
[基金申请] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 czAiolzR0IJC 2026-11-10 9/450 2026-11-12 11:11 by HajghKOMynmz
[基金申请] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +5 G2rhSvqvhNzl 2026-11-10 7/350 2026-11-12 10:49 by HajghKOMynmz
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 C6CRn66RYYXS 2026-11-10 8/400 2026-11-12 10:27 by HajghKOMynmz
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 YHiw1gou1Eda 2026-11-10 6/300 2026-11-12 10:08 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +6 FChKX8meu1ds 2026-11-09 11/550 2026-11-12 09:57 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +7 FChKX8meu1ds 2026-11-09 12/600 2026-11-12 09:43 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 Z7qfCsdIiD1T 2026-11-10 6/300 2026-11-12 07:09 by 9fOTqj074tIg
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 czAiolzR0IJC 2026-11-10 5/250 2026-11-12 06:36 by 9fOTqj074tIg
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 8/400 2026-11-12 05:30 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 FChKX8meu1ds 2026-11-09 8/400 2026-11-12 05:30 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:19 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +5 cqv1zKnzd7hr 2026-11-09 8/400 2026-11-12 05:08 by 9fOTqj074tIg
[考博] 申请环境,微生物方向博士 +3 浅笑09 2026-11-08 3/150 2026-11-10 12:44 by 可淡不可忘
信息提示
请填处理意见