Znn3bq.jpeg
²é¿´: 958  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 334Çóµ÷¼Á +13 Riot2025 2026-04-08 14/700 2026-04-09 00:12 by lature00
[¿¼ÑÐ] 311Çóµ÷¼Á +5 surte 2026-04-08 11/550 2026-04-08 22:10 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] 265Çóµ÷¼Á +3 ·ç˵ËýÔçÍüÁË 2026-04-07 3/150 2026-04-08 20:20 by ÄæË®³Ë·ç
[¿¼ÑÐ] 320·ÖÈ˹¤ÖÇÄܵ÷¼Á +9 Õñ¡ªTZ 2026-04-03 10/500 2026-04-08 19:56 by Õñ¡ªTZ
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬»¯Ñ§Ñ§Ë¶£¬310·Ö£¬±¾¿ÆÖصãË«·Ç£¬Çóµ÷¼Á +10 ŬÁ¦·Ü¶·112 2026-04-07 10/500 2026-04-08 15:01 by screening
[¿¼ÑÐ] 284Çóµ÷¼Á +17 èó@@ 2026-04-06 17/850 2026-04-08 11:35 by 1shin_ichi
[¿¼ÑÐ] ±¾¿ÆÖ£ÖÝ´óѧ£¬Ò»Ö¾Ô¸»ª¶«Ê¦·¶´óѧ282Çóµ÷¼Á +21 Ðܸçxtk 2026-04-07 24/1200 2026-04-08 09:48 by 123¿¼ÑÐ123
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +11 Ò»ÑùYWY 2026-04-07 11/550 2026-04-07 15:13 by shdgaomin
[¿¼ÑÐ] 081200-11408-367ѧ˶Çóµ÷¼Á +4 1_2_3111 2026-04-06 4/200 2026-04-07 08:13 by jp9609
[¿¼ÑÐ] 0854Çóµ÷¼Á +4 assdll 2026-04-05 4/200 2026-04-06 12:29 by ÖзÉÔº¿Õ¹ÜѧԺÑ
[¿¼ÑÐ] ¹¤¿Æ08-»úеר˶-Çóµ÷¼Á +3 À×Å··ÉÌß 2026-04-02 3/150 2026-04-05 18:49 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©½»Í¨´óѧ²ÄÁϹ¤³Ì×Ü·Ö358Çóµ÷¼Á +4 cs0106 2026-04-04 4/200 2026-04-05 18:46 by imissbao
[¿¼ÑÐ] 313Çóµ÷¼Á +5 º£ÈÕº£ÈÕ 2026-04-04 7/350 2026-04-05 13:58 by imissbao
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +7 dxyµ÷¼Á 2026-04-04 7/350 2026-04-05 09:15 by İÇï26
[¿¼ÑÐ] 295Çóµ÷¼Á +4 AÄãºÃÑо¿Éú 2026-04-04 5/250 2026-04-04 22:46 by yu221
[¿¼ÑÐ] 278Çóµ÷¼Á +3 ÒÀ¾É£¡ 2026-04-02 4/200 2026-04-04 20:27 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸0817»¯Ñ§¹¤³ÌÓë¼¼Êõ£¬Çóµ÷¼Á +24 ÎÒ²»ÊÇÖ»Òò 2026-04-02 28/1400 2026-04-04 15:15 by dongzh2009
[¿¼ÑÐ] 357Çóµ÷¼Á +13 1050389037 2026-04-03 13/650 2026-04-03 22:27 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] ר˶ 351 086100 Ò²ÊÇ¿¼µÄ²Ä¿Æ»ù ±¾¿ÆÒ²ÊDzÄÁÏ +8 202451007219 2026-04-02 8/400 2026-04-03 09:50 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸°²»Õ´óѧ0817»¯Ñ§¹¤³ÌÓë¼¼Êõ£¬Çóµ÷¼Á +14 ÎÒ²»ÊÇÖ»Òò 2026-04-02 15/750 2026-04-03 09:49 by À¶ÔÆË¼Óê
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û