Znn3bq.jpeg
±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 957  |  »Ø¸´: 12
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

xiaowenzhi16

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿ÈçºÎÏÔʾ3D spin density

ÇëÎÊVASPÀïµÄ×ÔÐýÃܶÈÈçºÎÏÔʾΪ3D spin density µÄµç×ÓÔÆ×´µÄͼÏñ?ÓÃʲôÈí¼þ¿ÉÒÔ×öµ½ÄØ£¿£¿
лл
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

gaofenglili

Òø³æ (СÓÐÃûÆø)

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
qasd(½ð±Ò+2,VIP+0):лл~ 5-13 21:07
xiaowenzhi16(½ð±Ò+3,VIP+0):ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶¡£ 5-13 22:20
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
VESTA¿ÉÒÔ£¡
2Â¥2009-05-13 20:56:31
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xiaowenzhi16

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

¾ßÌåÔõô²Ù×÷ÄØ£¬ÎÒÊÔÁ˺ܾã¬ÄÜ×ö´íµçºÉÃܶÈÈýάͼ£¬µ«ÊÇ×ÔÐýÈýάͼ²»ÐÐѽ£¬Äܹ»Ïêϸµã²»£¿ÏÈллÀ²
3Â¥2009-05-13 22:19:11
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

y1ding

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¡ï ¡ï ¡ï ¡ï
xiaowenzhi16(½ð±Ò+3,VIP+0)::ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶ 5-14 10:15
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
ÒýÓûØÌû:
Originally posted by xiaowenzhi16 at 2009-5-13 22:19:
¾ßÌåÔõô²Ù×÷ÄØ£¬ÎÒÊÔÁ˺ܾã¬ÄÜ×ö´íµçºÉÃܶÈÈýάͼ£¬µ«ÊÇ×ÔÐýÈýάͼ²»ÐÐѽ£¬Äܹ»Ïêϸµã²»£¿ÏÈллÀ²

ÄãÒª×Ô¼ºÏÈ´¦ÀíÏÂCHGCARÎļþ,µÃµ½×ÔÐýµçºÉÃܶÈ,ÔÚ»­Í¼.
4Â¥2009-05-14 09:21:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xiaowenzhi16

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

ÄãÒª×Ô¼ºÏÈ´¦ÀíÏÂCHGCARÎļþ,µÃµ½×ÔÐýµçºÉÃܶÈ,ÔÚ»­Í¼.

Â¥ÉϵÄר¼Ò£¬Ð»Ð»ÄãµÄÌáʾ£¬ÎÒÒ²¿´³öÀ´ÁË£¬×ÔÐýµçºÉÃܶÈÊÇÔÚCHGCARÎļþµ±ÖÐ,¾ÍÊDz»»á°ÑËüµÄÊý¾ÝÌáÈ¡³öÀ´¡£Çë²»Áߴͽ̡£
лл¡£
5Â¥2009-05-14 10:14:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

µÆËþÊØÍûÕß

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
xiaowenzhi16(½ð±Ò+6,VIP+0):ʵÔÚÊÇÌ«¸ÐлÀ²¡£ÒÔºó»¹ÒªÂé·³ÄãµÄ¡£ 5-14 12:00
wuchenwf(½ð±Ò+10,VIP+0):лл 5-14 23:01
¸øÄãÒ»¶ÎÎÒ×Ô¼º±àµÄ³ÌÐò£¬ÌáÈ¡µçºÉ»ò×ÔÐýÃܶÈͼ

program readcharge4vasp
!..............................................................
!    read density from name=CHG file of VASP
!..............................................................
!    spin =0 - total charge \____ only for CHGCAR
!         =1 - spin density /
!..............................................................

character title*20,type_coodinates*20
integer :: natoms=0,NGX,NGY,NGZ,n=1,totalatoms=0,spin
integer,allocatable :: ntypat(
real*8 :: scale, basic_vectorx,basic_vectory,basic_vectorz
real*8, allocatable :: grid(:,:,
write(*,*)'Number of atom types in the unit cell'
read(*,*) n
write(*,*)'Charge density or spin density? (0 or 1)'
read(*,*) spin
allocate(ntypat(n))
open(unit=11,file='CHG')
if (spin==0) then
   open(unit=12,file='Charge_Density.vasp')
else if (spin==1) then
   open(unit=12,file='Spin_Density.vasp')
end if

read(11,'(A15)') title
write(12,'(a15)') title
read(11,*) scale
write(12,"(F6.3)" scale

do i=1,3
read(11,*) basic_vectorx,basic_vectory,basic_vectorz
write(12,'(3F13.7)')basic_vectorx,basic_vectory,basic_vectorz
end do
read(11,*) (ntypat(i),i=1,n)
write(12,*) (ntypat(i),i=1,n)

read(11,*) type_coodinates
write(12,*) type_coodinates

do i=1,n
totalatoms=ntypat(i)+totalatoms
end do

do i=1,totalatoms
read(11,*) x,y,z
write(12,"(3F11.7)" x,y,z
end do
read(11,*)
write(12,*)

read(11,*) NGX,NGY,NGZ
write(12,'(3I5)') NGX,NGY,NGZ
allocate(grid(NGX,NGY,NGZ))

if (spin==1) then
   read(11,"(10E12.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)
   read(11,*)
else if (spin==0) then
end if

read(11,"(10E12.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)
write(12,"(10E13.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)
close(11)
close(12)
end


Ö®ºóÓÃvesta´ò¿ª¡£

[ Last edited by µÆËþÊØÍûÕß on 2009-5-14 at 12:18 ]
6Â¥2009-05-14 11:25:56
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ddang100

Òø³æ (СÓÐÃûÆø)

¡ï
xiaowenzhi16(½ð±Ò+1,VIP+0):лл¸úÌû 5-14 12:01
¸ú×Åѧϰ£ºÎÒÏëÎÊÎÒÊÇÔÚÖ÷»úÉϵÄlinuxϼÆËãµÄ£¬ÎÒÈçºÍÓÃÔÚwindowsÏÂ×°µÄvestaÈí¼þ´¦Àí£¬ÒòΪÎÒûÓÐȨÏÞÔÚÖ÷»úÉÏ×°Èí¼þ£¬Ð»Ð»
7Â¥2009-05-14 11:30:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mywai520

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)


лл£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡
8Â¥2009-05-14 12:16:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

×ÓÐéÎÚÓÐ5388

ľ³æ (ÕýʽдÊÖ)

¡ï
wuchenwf(½ð±Ò+1,VIP+0):лл 5-14 23:02
°ÑÊý¾Ý¿½±´³öÀ´  È»ºóÓÃgunplot¿ÉÒÔ×÷Èýάͼ°É
·¿ÎÞÒ»¼ä£¬µØÎÞһĶ£¬ÉíÎÞ·ÖÎÄ£¬ÐØÎÞ´óÖ¾¡£
9Â¥2009-05-14 15:16:10
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

y1ding

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¡ï
wuchenwf(½ð±Ò+1,VIP+0):лл 5-14 23:02
ÒýÓûØÌû:
Originally posted by ddang100 at 2009-5-14 11:30:
¸ú×Åѧϰ£ºÎÒÏëÎÊÎÒÊÇÔÚÖ÷»úÉϵÄlinuxϼÆËãµÄ£¬ÎÒÈçºÍÓÃÔÚwindowsÏÂ×°µÄvestaÈí¼þ´¦Àí£¬ÒòΪÎÒûÓÐȨÏÞÔÚÖ÷»úÉÏ×°Èí¼þ£¬Ð»Ð»

VESTA ¿ÉÒÔÔÚ×Ô¼ºµÄwindowsʹÓõÄ.
10Â¥2009-05-14 16:52:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ xiaowenzhi16 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 353Çóµ÷¼Á +6 Çç¿ÕÍòÀïair 2026-04-07 6/300 2026-04-08 10:06 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 326·Ö£¬Ò»Ö¾Ô¸»¦9£¬ÇóÉúÎïѧµ÷¼Á +4 Áõīī 2026-04-05 4/200 2026-04-08 06:22 by lijunpoly
[¿¼ÑÐ] 328Çóµ÷¼Á +13 lftmya 2026-04-07 14/700 2026-04-07 22:45 by JourneyLucky
[¿¼ÑÐ] µ÷¼Á +18 ²»·ê´º 2026-04-05 19/950 2026-04-07 22:04 by lijunpoly
[¿¼ÑÐ] 326Çóµ÷¼Á +5 9ahye 2026-04-02 6/300 2026-04-07 21:37 by lijunpoly
[¿¼ÑÐ] 085602µ÷¼Á ³õÊÔ×Ü·Ö335 +10 19123253302 2026-04-05 10/500 2026-04-07 15:23 by СÇÇͬѧya
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤301·ÖÇóµ÷¼ÁԺУ +25 ´ÌÍ´jk 2026-04-06 26/1300 2026-04-07 15:07 by -ÃÔÁË·°¡Â·
[¿¼ÑÐ] 081700£¬311£¬Çóµ÷¼Á +17 ¶¬Ê®Èý 2026-04-04 18/900 2026-04-07 12:50 by Sammy2
[¿¼ÑÐ] 287·ÖÇóµ÷¼Á ÓÐרÀû¹ú½±Ò»Ö¾Ô¸¹þ¹¤´ó085406 +6 °×Ò׳½ 2026-04-06 7/350 2026-04-06 22:46 by 875465
[¿¼ÑÐ] ÉúÎïѧÇóµ÷¼Á Ò»Ö¾Ô¸»¦9£¬326·Ö +6 Áõīī 2026-04-06 6/300 2026-04-06 19:36 by lijunpoly
[¿¼ÑÐ] 283Çóµ÷¼Á +5 baiiyu 2026-04-05 6/300 2026-04-05 20:35 by à£à£à£0119
[¿¼ÑÐ] 284Çóµ÷¼Á +7 Ðìͬѧ_001 2026-04-04 13/650 2026-04-05 17:19 by yulian1987
[¿¼ÑÐ] ¹¤¿Æ277·ÖÇóµ÷¼Á²ÄÁÏ +8 ÉÏÁËÉÏÁËÉÏŶ 2026-04-05 9/450 2026-04-05 13:05 by wwytracy
[¿¼ÑÐ] ±¾¿Æ211£¬×¨Òµ085404£¬293·ÖÇëÇóµ÷¼Á +5 Á«²Ë¾ÍÊÇź°É 2026-04-04 5/250 2026-04-04 14:08 by ÕâÊÇÒ»¸öÎÞÁĵÄê
[¿¼ÑÐ] ²ÄÁÏרҵ383Çóµ÷¼Á +8 ¹ùÑôÑôÑô³É 2026-04-03 8/400 2026-04-04 10:29 by Rednal.
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 15615482637 2026-04-03 3/150 2026-04-03 22:50 by ms629
[¿¼ÑÐ] 294Çóµ÷¼Á +6 Grey_Ey 2026-04-03 6/300 2026-04-03 20:46 by ÐÀϲ777
[˶²©¼ÒÔ°] ÇóÀÏʦÊÕÁô +9 lllq123 2026-04-03 9/450 2026-04-03 13:48 by ºôÎü¶¼ÊǼõ·Ê
[¿¼ÑÐ] 260Çóµ÷¼Á +3 ÖìÜÆÁÕ 2026-04-02 3/150 2026-04-03 08:44 by yulian1987
[¿¼ÑÐ] 312Çóµ÷¼Á +6 ССī123 2026-04-02 7/350 2026-04-03 07:32 by jsw79
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û