²é¿´: 3517  |  »Ø¸´: 19
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

identation

½ð³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿Ð鯵ºÍÈíÄ£ÊÇÒ»»ØÊÂô£¿ ÒÑÓÐ10È˲ÎÓë

Ò»Ð©Î»ÒÆÐÍÏà±ä£¬±ÈÈçBaTiO3µÄ˳µç-ÌúµçÏà±ä£¬ÔÚÏà±äµã¸½½üÓÐÈíÄ££¬ÕâÔÚµÚÒ»ÐÔÔ­Àí¼ÆËãÖÐÔõôÌåÏÖÄØ£¿ÊÇÉù×ÓÆ×ÖдæÔÚÐéÆµÃ´£¿Ð鯵ºÍÈíÄ£ÊÇÒ»»ØÊÂô£¿

[ Last edited by identation on 2010-7-1 at 20:02 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

ylli

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

ζÈЧӦ²»ºÃ¿¼ÂÇ

identation(½ð±Ò+7): 2010-09-06 20:55:21
Ŀǰ,Éù×Ó¼ÆËã¶¼ÊÇÁãÎÂϵÄ. ÔÚ¹ÌÌå²ÄÁÏÖÐζÈЧӦ²»ÊǺÜÃ÷ÏÔ,Èç¹ûζȲ»¸ßµÄ»°.

""¾ÍÊÇ˵¼ÆË㲻ͬÌõ¼þϵÄÉù×ÓÆ×,È»ºó±È½ÏijЩÕð¶¯ÆµÂʵÄÈí»¯?""
²»Ò»¶¨ÊDz»Í¬Ìõ¼þ,ºÜ¶àÌåϵÔÚÁãÎÂÁãѹ϶¼ÓÐÈí»¯ÏÖÏó. ÁíÍâ,ÈíĤÔÚһЩÌåϵÖпÉÒÔµ¼Ö½ṹÏà±ä.
18Â¥2010-09-06 20:47:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 20 ¸ö»Ø´ð

lono75

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

¡ï
identation(½ð±Ò+5):лл²ÎÓë
ÏÈÓÃxcrysdenÕÒÌØÊâKµã,

ÔÙ±àÒëgk.f, ÍøÕ¾ÉÏÄǸöF77³ÌʽÓдíÎó
Éú³Éinp.kpt

[ Last edited by lono75 on 2010-4-25 at 22:06 ]
ÓÉÌìÃü,³ÉÈËÊ£¡
2Â¥2010-04-25 21:47:44
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

gavinliu7390

ľ³æ (ÖøÃûдÊÖ)

Ò¶ÂäÓ¥·É

¡ï
identation(½ð±Ò+5):лл²ÎÓë
identation(½ð±Ò+40): 2010-04-25 23:36
Õâ¸öÒ»°ãÀ´Ëµ¶¼ÊÇ×Ô¼ºÐ´µÄ, ºÜ¼òµ¥!
ÄǸöweb site²»ÊÇÌṩÁ˳ÌÐò.
ËüµÄÊäÈëÎļþΪsyml£¬Êä³öÎļþΪinp.kpt¡£(Äã»á×öÄÜ´ø°É,Õâ¸öÈ¡µã¸úÄÜ´øµÄÈ¡µã×ÚÖ¼ÊÇÒ»ÑùµÄ.)
ÆäÖÐsymlÊäÈëÎļþµÄ¸ñʽÈçÏ£º
8
15 15 15 15 15 15 15
G 0.0 0.0 0.0
K -0.33333333333 0.6666666666667 0.000000000
H -0.33333333333 0.6666666666667 0.500000000
A 0.0 0.0 0.5
G 0.0 0.0 0.0
M 0.0 0.5 0.0
L 0.0 0.5 0.5
A 0.0 0.0 0.5
µÚÒ»ÐÐÓÃÀ´±ê¼ÇÓжàÉÙ¸öÌØÊâkµã£¬ÏÂÃæÊÇÕâÐ©ÌØÊâkµãÖ®¼äÿ¸öÒª·Ö¶àÉÙ¸ökµã£¬½ÓמÍÊÇÕâÐ©ÌØÊâkµãµÄ×ø±ê¡£
°ÑÏÂÃæÕâ¸ö³ÌÐò±àÒë,Ö´Ðм´¿É.
c +---------------------------------------------------------
c For generating k-points along the high-symmetry lines in
c Brillouin zone and for calculate band-structures !
c +----------------------------------------------------------
C ---------'syml'---------
c 6 : nhighk
c 20 20 20 10 20 : ndiv(i)
c X 0.5 0.0 0.5 : labhk(1),phighk(1,1),........
c G 0.0 0.0 0.0
c L 0.5 0.5 0.5
c W 0.5 0.25 0.75
c K 0.375 0.375 0.75
c G 0.0 0.0 0.0
c direct & reciprocal lattice vectors over 'emin, emax' line
C -----------------------
c max k-points = 200
program gk
implicit real*8 (a-h,o-z)
character*2 labhk
dimension tkpt(200,3),pk(200,3),phighk(10,3)
dimension disk(200),dish(10),labhk(10)
dimension ndiv(10)
c
open(5,file='syml',status='old')
open(7,file='inp.kpt')
c
read(5,*) nhighk
read(5,*) (ndiv(i),i=1,nhighk-1)

do i=1,nhighk-1
ntkp=ntkp+ndiv(i)
enddo
ntotkpt=ntkp+1

if(nhighk>10)then
write(*,*)'Number of high-symmetry k points must < 10!'
STOP
endif
if(ntotkpt>200)then
write(*,*)'Total number of k points must <= 200!'
STOP
endif

do i=1, nhighk
read(5,*) labhk(i),(phighk(i,j),j=1,3)
enddo
write(*,*) (labhk(i),i=1,nhighk)
c
c----- generating k-points along high symmetric lines --------
c
c
pk(1,1)=phighk(1,1)
pk(1,2)=phighk(1,2)
pk(1,3)=phighk(1,3)
ii=1
do i = 2, nhighk
delx = (phighk(i,1) - phighk(i-1,1))/float(ndiv(i-1))
dely = (phighk(i,2) - phighk(i-1,2))/float(ndiv(i-1))
delz = (phighk(i,3) - phighk(i-1,3))/float(ndiv(i-1))
do j=1, ndiv(i-1)
ii = ii + 1
pk(ii,1) = pk(ii-1,1) + delx
pk(ii,2) = pk(ii-1,2) + dely
pk(ii,3) = pk(ii-1,3) + delz
enddo
enddo
c
10 format(A34)
weight=1.d0
do i=1,ntotkpt
write(7,200) pk(i,1),pk(i,2),pk(i,3),weight
enddo
200 format(3F10.6,F6.2)
stop
end
c----------------------- end ---------------------------

ÍøÕ¾ÉÏ˵µÄºÜÇå³þ!
Èç¹ûÄãÏë°ÑÁ½¸ökµã·Ö³ÉÊ®·Ý, ¾Í°Ñ15»»³É10¾Í¿ÉÒÔÁË!

[ Last edited by gavinliu7390 on 2010-4-25 at 22:34 ]
ÕæÀíÊÇÒ»µãµã½Ó½üµÄ£¡
3Â¥2010-04-25 22:22:42
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mudannanzi

ľ³æ (ÕýʽдÊÖ)

¡ï
identation(½ð±Ò+5):лл²ÎÓë
ÎÒÒ²ÊÇÐÂÊÖ£¬Ñ§Ï°ÖÐ
ÃÔºý
4Â¥2010-04-25 22:25:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 266Çóµ÷¼Á +5 ÑôÑôÍÛÈû 2026-03-14 9/450 2026-03-18 15:05 by stone_128
[¿¼ÑÐ] Ò»Ö¾Ô¸985£¬±¾¿Æ211£¬0817»¯Ñ§¹¤³ÌÓë¼¼Êõ319Çóµ÷¼Á +6 Liwangman 2026-03-15 6/300 2026-03-18 13:21 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +4 pupcoco 2026-03-17 7/350 2026-03-18 12:14 by djl2006
[¿¼ÑÐ] Çóµ÷¼Á£¬×Ü·Ö315£¬¿¼µÄÉúÎïÒ½Ò©£¬Ò»Ö¾Ô¸ºþÄÏʦ·¶´óѧ¡£µ÷¼Áµ½ÈκÎרҵ¶¼¿ÉÒÔ +4 С¶¡Ïë½ø²½ 2026-03-11 5/250 2026-03-17 16:05 by ÍâÐÇÎÄÃ÷
[ÂÛÎÄͶ¸å] ÓÐûÓдóÀз¢Ð¡ÂÛÎÄÄÜ´øÎÒ¸ö¶þ×÷ +3 ÔöÈñ©ÈË 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
[¿¼ÑÐ] [µ¼Ê¦ÍƼö]Î÷ÄϿƼ¼´óѧ¹ú·À/²ÄÁϵ¼Ê¦ÍƼö +3 ¼â½ÇСºÉ 2026-03-16 6/300 2026-03-16 23:21 by ¼â½ÇСºÉ
[¿¼ÑÐ] »¯Ñ§µ÷¼Á0703 +8 °¡ÎÒÎÒµÄ 2026-03-11 8/400 2026-03-16 17:23 by ÎҵĴ¬Îҵĺ£
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 304Çóµ÷¼Á +3 ÂüÊâ2266 2026-03-14 3/150 2026-03-16 16:39 by houyaoxu
[¿¼ÑÐ] 070300»¯Ñ§Ñ§Ë¶Çóµ÷¼Á +6 Ì«Ïë½ø²½ÁË0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[¿¼ÑÐ] 277²ÄÁÏ¿ÆÑ§Ó빤³Ì080500Çóµ÷¼Á +3 ×ÔÓɼå±ý¹û×Ó 2026-03-16 3/150 2026-03-16 14:10 by ÔËÆøyunqi
[¿¼ÑÐ] 0856Çóµ÷¼Á +3 ÁõÃÎ΢ 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[¿¼ÑÐ] Öпƴó²ÄÁÏÓ뻯¹¤319Çóµ÷¼Á +3 ÃÏöβÄÁÏ 2026-03-14 3/150 2026-03-14 20:10 by ms629
[¿¼ÑÐ] ±¾¿ÆÄϾ©´óѧһ־Ը´¨´óҩѧ327 +3 ÂóÌï¸ûÕß 2026-03-14 3/150 2026-03-14 20:04 by ÍâÐÇÎÄÃ÷
[¿¼ÑÐ] Öпƴó²ÄÁÏר˶319Çóµ÷¼Á +3 ÃÏöβÄÁÏ 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[¿¼ÑÐ] 265Çóµ÷¼Á +4 Íþ»¯±ý07 2026-03-12 4/200 2026-03-14 17:23 by userper
[¿¼ÑÐ] 255Çóµ÷¼Á +3 Àî¼Î»Û£¬ 2026-03-12 4/200 2026-03-14 16:58 by ÓÐÖ»ÀêÅ«
[¿¼ÑÐ] ²ÄÁϹ¤³Ìµ÷¼Á +9 ßäßä¿Õ¿Õ 2026-03-12 9/450 2026-03-13 22:05 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] Çóµ÷¼Á +7 18880831720 2026-03-11 7/350 2026-03-13 16:10 by JourneyLucky
[¿¼ÑÐ] ¹¤¿Æ²ÄÁÏ085601 279Çóµ÷¼Á +8 À§ÓÚÐdz¿ 2026-03-12 10/500 2026-03-13 15:42 by ms629
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û