用Material Studio构建复杂模型及转换成poscar的2种方法.docx

用 Material Studio 构建复杂模型及转换成 poscar 的 2 种方法
这里我介绍''用Material Studio构建稍微复杂的表面模型”。这里介绍的 是构造一个根号3x2的pt (111)表面。
用MS Model6

XXXX 1
xx
Au

Aul6


XXXX 1
xx
Au

end
end
要转换成vasp,下面贴出我的程序是:
CODE： [Copy to clipboard]
parameter(nsum=16,nsun=0,n=16) real x(n),y(n),z(n)
real lx(3),ly(3),lz(3) real lattice character p character*18 selective character*6 direct
lx=
ly=
lz= lattice=
lx(1)=
ly(2)= lz(3)=
open(1,file="Au (1 1 1) (4).car")
do i=1,5
read(1,*)
enddo
do i=1,n read(1,*)p,x(i),y(i),z(i) enddo
do i=1,2 read(1,*) enddo
close(1) open(2,file="P0SCAR") write(2,*)"(110)" write(2,15)lattice
format()
write(2,16)lx
write(2,16)ly
write(2,16)lz
format() write(2,17)nsum,nsun
format(2l5)
Selective="Selective dynamics" direct="direct"
write(2,171)Selective write(2,172)"direct"
format(Al8)
format(A6)
do i=1,n
write(2,18)x(i)/lx(1)/lattice,y(i)/ly(2)/lattice,z( i)/lz(3)/lattice
format(," T T T")
enddo
close(2)
end
那么产生的poscar文件：
Quote:
(110)


.00000000
.00000000
.00000000

.00000000
.00000000
.00000000

16 0
Selective dynamics direct
.00000000
.40752380
-.14850510
T
T
T
.48548710
.40752380