Znn3bq.jpeg
²é¿´: 3608  |  »Ø¸´: 19

identation

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

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

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

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

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

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

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µÄ»ØÌû

mxcrhr07jili

½ð³æ (ÕýʽдÊÖ)

¡ï
identation(½ð±Ò+5):лл²ÎÓë
ͬ²ÎÓ룬ͬѧϰ
¾²Ä¬ÒÔ´ý£¬¼áÈÍÒÔÐÐ
5Â¥2010-04-26 07:49:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

tianai3385

Í­³æ (ÕýʽдÊÖ)

¡ï
identation(½ð±Ò+5):лл²ÎÓë
ÐÂÊÖ£¬Ñ§Ï°ÖÐ
6Â¥2010-04-26 08:14:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

qqpie

ľ³æ (Ö°Òµ×÷¼Ò)

identation(½ð±Ò+5): 2010-04-26 11:58
ËÆºõÒ²ÄÜÔÚmaterials studio µÄcellÎļþÖеõ½/
7Â¥2010-04-26 09:11:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

identation

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

ÒýÓûØÌû:
Originally posted by gavinliu7390 at 2010-04-25 22:22:42:
Õâ¸öÒ»°ãÀ´Ëµ¶¼ÊÇ×Ô¼ºÐ´µÄ, ºÜ¼òµ¥!
ÄǸöweb site²»ÊÇÌṩÁ˳ÌÐò.
ËüµÄÊäÈëÎļþΪsyml£¬Êä³öÎļþΪinp.kpt¡£(Äã»á×öÄÜ´ø°É,Õâ¸öÈ¡µã¸úÄÜ´øµÄÈ¡µã×ÚÖ¼ÊÇÒ»ÑùµÄ.)
ÆäÖÐsymlÊäÈëÎļþµÄ¸ñʽÈçÏ£º
8
15 15 15 15 ...

ÄúºÃ£¬Ð»Ð»Äú°ï棬ÄÇÄúÄÜÌṩһϱàÒëºÃµÄexeÎļþô£¿fortran±àÒëÎÒ²»¶®£¬¶øÇÒûϵ½fortranµÄ±àÒëÆ÷¡£Ð»Ð»Äú
8Â¥2010-04-26 21:39:18
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

goldenfisher

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

Õâ¸öÎÊÌâÃ²ËÆÌÖÂÛÁ˺ܶà´ÎÁËŶ¡£
×î¼òµ¥µÄ°ì·¨¾ÍÊÇһ¥˵µÄ£¬ÓÃxcrysdenÖ±½Ó²úÉú£¬ºÜɵ¹Ï£¬Ò²ºÜÇ¿´ó
9Â¥2010-04-26 22:12:12
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

enola

¾èÖú¹ó±ö (ÕýʽдÊÖ)

identation(½ð±Ò+10):лл£¬ÓÊÏäÕ¾ÄÚÐÅ·¢¸øÄ㣬ºÙºÙ 2010-04-27 12:26
ÒýÓûØÌû:
Originally posted by identation at 2010-04-25 21:20:34:
ÇëÎÊÔõô¿ÉÒÔ»ñµÃK_POINTSµÄ·¾¶ÄØ£¬ÀýÈ磬http://valenhou.blog.edu.cn/2006/133292.html
¸ÃÍøÕ¾ÖмÆËãÁËÄÜ´ø½á¹¹£¬ÏëÎÊÒ»ÏÂ
K_POINTS
28
0.0 0.0 0.0 1.0
0.0 0.0 0.1 1.0
0.0 0.0 0.2 1.0
0 ...

ÎÒ¿ÉÒÔ¸øÄãÒ»¸öÔÚwinϵijÌÐòµÄ£¬°ÑÓÊÏ䏸ÎÒ°É£¬µ«ÊÇ»¹ÊÇÒª½áºÏÌØÊâKµãÀ´µÄ¡£
timeflies..
10Â¥2010-04-27 11:11:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ identation µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703»¯Ñ§ +29 ÄÝÄÝninicgb 2026-04-04 32/1600 2026-04-08 22:50 by Öí»á·É
[¿¼ÑÐ] 290Çóµ÷¼Á085701 +20 1314Åõ»¨ 2026-04-02 21/1050 2026-04-08 21:19 by cyh¡ª315
[¿¼ÑÐ] ²ÄÁϹ¤³Ìµ÷¼Á +8 СÁõͬѧ߹߹ 2026-04-06 9/450 2026-04-08 19:35 by cheerful9622
[¿¼ÑÐ] 347²ÄÁÏר˶Çóµ÷¼Á +18 zj8215216 2026-04-06 18/900 2026-04-08 16:27 by luoyongfeng
[˶²©¼ÒÔ°] ÓÐûÓÐѧУ²ÄÁÏרҵÊÕ¿çµ÷(Ò»Ö¾Ô¸085410) +3 momo(Éϰ¶°æ) 2026-04-06 6/300 2026-04-08 14:53 by »¯Ñ§521
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤085600 310·ÖÇóµ÷¼Á +20 0856²ÄÁÏÓ뻯¹¤3 2026-04-04 22/1100 2026-04-07 15:14 by Éϰ¶¿ì¿ì
[¿¼ÑÐ] 292Çóµ÷¼Á +4 lilllllxccc 2026-04-05 5/250 2026-04-07 09:29 by ·Ä´óÑîÀÏʦ
[¿¼ÑÐ] ¿¼Ñе÷¼Á +7 15615482637 2026-04-04 7/350 2026-04-06 22:56 by chenzhimin
[¿¼ÑÐ] 085600£¬320·ÖÇóµ÷¼Á +16 ´ó²öС×Ó 2026-04-04 17/850 2026-04-06 07:58 by MOF_Catal
[¿¼ÑÐ] Çóµ÷¼Á +10 Hllºú 2026-04-04 10/500 2026-04-05 20:09 by nepu_uu
[¿¼ÑÐ] µ÷¼Á +3 Àî¹ã»ð 2026-04-05 3/150 2026-04-05 18:57 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ²ÄÁÏר˶(0856) 339·ÖÇóµ÷¼Á +10 ¹þ¹þ¹þ¶ì¹þ¹þ¹þ 2026-04-04 10/500 2026-04-05 18:51 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸Çà¿Æ085500£¬³õÊÔ295·Ö£¬¹«¹²¿Î213·Ö +3 Óöµ½µÄÈËÔ¸Íû¶¼Ä 2026-04-05 3/150 2026-04-05 18:45 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 0860 Çóµ÷¼Á Ò»Ö¾Ô¸¹ú¿Æ´ó 348 ·Ö +3 WiiiP 2026-04-03 3/150 2026-04-05 17:43 by Ecowxq666£¡
[¿¼ÑÐ] µ÷¼Á +11 JLLLLLLLLLL 2026-04-03 11/550 2026-04-04 22:21 by hemengdong
[¿¼ÑÐ] 316Çóµ÷¼Á +9 Ä«³½_Orion926 2026-04-04 9/450 2026-04-04 21:35 by lbsjt
[¿¼ÑÐ] 278Çóµ÷¼Á +6 Yy7400 2026-04-03 6/300 2026-04-04 09:53 by zhangdingwa
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖØÇì´óѧ085404£¬×Ü·Ö314·Ö£¬Çóµ÷¼Á +4 zf83hn 2026-04-03 4/200 2026-04-03 21:25 by à£à£à£0119
[¿¼ÑÐ] ÊÞÒ½µ÷¼Á +3 wh119216 2026-04-02 3/150 2026-04-03 19:34 by zrongyan
[¿¼ÑÐ] ÉúÎïѧ˶341Çóµ÷¼Á +4 ÄãЦÆðÀ´ÏñÔÆ¶ä 2026-04-03 4/200 2026-04-03 10:32 by macy2011
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û