±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 5632  |  »Ø¸´: 24

mengfc

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

[ÇóÖú] vasp gk.xÎļþÉú³ÉKPOINTS³ö´í ÒÑÓÐ1È˲ÎÓë

Çë½Ì¸÷룬ÎÒ×Ô¼ºÐ´ÁËÒ»¸ösymlÎļþ¡£µ«ÓñàÒëµÄgk.xÖ´ÐÐʱֻ³öÏÖÈçÏÂÄÚÈÝ£º
¡°
k-points along high symmetry lines
-1225672974
Reciprocal
¡±
ÇëÎÊÕâÊÇʲôÎÊÌâ?
ÎÒµÄsymlÎļþÈçÏ£º
2
25   
G 0.0    0.0    0.0
M 0.0    0.5    0.0
50.041423917  0.005031325  0.000000000     0.019983444 -0.000002011  0.000000000     
0.000248027  2.465241129  0.000000000    -0.000040784  0.405639837  0.000000000     
0.000000000  0.000000000 29.937787689     0.000000000  0.000000000  0.033402602     
-8.0  8.0
-3.7306
gk.fÎļþÈçÏ£¬ÎÒÊÇʹÓà ifort -O gk.fÃüÁî½øÐбàÒëµÄ¡£
c    +---------------------------------------------------------
c    |  For generating k-points along the high-symmetry lines in
c    |  Brillouin zone and for calculate band-structures !
c    |
c    |  OK for "VASP" package
c    |                                Modified by   Hou Zhufeng
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
cc   0.000  2.449  2.449  -0.204158033  0.204158033  0.204158033
cc   2.449  0.000  2.449   0.204158033 -0.204158033  0.204158033
cc   2.449  2.449  0.000   0.204158033  0.204158033 -0.204158033   
c    -20.0  20.0           :emin, emax
c    0.0                   :efermi
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')
      open(8,file='KPOINTS')
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
      write(8,10)'k-points along high symmetry lines'
  10  format(A34)
      write(8,*)ntotkpt
      write(8,'(A10)')'Reciprocal'
         weight=1.d0
         do i=1,ntotkpt
         write(7,200) pk(i,1),pk(i,2),pk(i,3),weight
         write(8,200) pk(i,1),pk(i,2),pk(i,3),weight
         enddo
200  format(3F10.6,F6.2)
      stop
      end
c----------------------- end ---------------------------
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

µÚÒ»ÐÔÔ­ÀíÏà¹ØÎĵµ

» ²ÂÄãϲ»¶

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

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
»ØÌûÖ§³Ö ( ÏÔʾ֧³Ö¶È×î¸ßµÄǰ 50 Ãû )

Mr_WuSH

½ð³æ (СÓÐÃûÆø)


²»ÊÜÒâ˼¡¤¡¤¼Ç´íÁË¡¤¡¤Ê¹ÓÃÕâ¸ö±àÒë
g77 -o gk.x gk.f
15Â¥2012-06-11 16:23:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Mr_WuSH

½ð³æ (СÓÐÃûÆø)


¡ï
xueht987: ½ð±Ò+1, лл»ØÌû£¬¹ÄÀø½»Á÷£¡ 2012-06-10 10:58:22
ÖØÐÂÓÃgfortran±àÒë¾ÍºÃʹÁË¡¤¡¤¡¤¡¤
7Â¥2012-06-09 20:41:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
ÆÕͨ»ØÌû

fzx2008

ÈÙÓþ°æÖ÷ (ÖøÃûдÊÖ)

ÓÅÐã°æÖ÷ÓÅÐã°æÖ÷

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
mengfc: ½ð±Ò+15, ¡ï¡ï¡ïºÜÓаïÖú, ллÄú 2012-05-05 00:03:32
liliangfang: ½ð±Ò+2, ллָ½Ì 2012-05-05 09:54:57

Á½¸ö¸ß¶Ô³Ækµã£¬G 0.0    0.0    0.0    M 0.0    0.5    0.0
Öмä²åÈë25¸öµã£¬excel±íÖÐһϾÍÄÜÉú³É~

¸ü¼òµ¥µÄ£¬vaspµÄKPOINTS¶¼ÒѾ­Ö§³ÖLINEģʽÁË~
2Â¥2012-05-04 23:45:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

gfei2008

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

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
mengfc: ½ð±Ò+5, ¡ïÓаïÖú, ллÄú 2012-05-05 00:04:31
liliangfang: ½ð±Ò+2, ллָ½Ì 2012-05-05 09:55:16
ÄãÕâÑù±àÒë³öÖ®ºóÊDz»ÊÇÓиöa.outµÄ¿ÉÖ´ÐÐÎļþ£¬ÄǸö¾ÍÊÇÓÃÀ´Éú²úKPOINTSµÄ³ÌÐò£¬Ê¹Ó÷½·¨ÊÇ£º./a.out
ҪôÄã¾ÍÊÇifort -o gk gk.fÕâÑù±àÒ롣ȻºóÖ´ÐÐ./gk¾Í¿ÉÒÔÉú³ÉÄãÒªµÄKPOINTS
3Â¥2012-05-04 23:52:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mengfc

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

ÒýÓûØÌû:
2Â¥: Originally posted by fzx2008 at 2012-05-04 23:45:55:

Á½¸ö¸ß¶Ô³Ækµã£¬G 0.0    0.0    0.0    M 0.0    0.5    0.0
Öмä²åÈë25¸öµã£¬excel±íÖÐһϾÍÄÜÉú³É~

¸ü¼òµ¥µÄ£¬vaspµÄKPOINTS¶¼ÒѾ­Ö§³ÖLINEģʽÁË~

°¦¡£¡£¡£ÎÒÒ²¾ö¶¨ÓÃLINEģʽÁË¡£¡£¡£¾ÍÊÇÓÃpbnd.x³ÌÐòʱ»¹ÊÇÒªÓõ½symlÎļþ¡£²»ÖªµÀÔõôŪÁË¡£»¹ÇëÎÊÄúһϣ¬¼ÆËãÄÜ´øÊÇ·Ç×ÔÇ¢¼ÆË㣬ÊDz»ÊÇÒòΪ¶ÁÈ¡µçºÉÃܶȣ¬¶ø²»ÊÇÔÙÖØÐ¼ÆË㣿ÎÒÔÚ¼ÆËãÄÜ´øÊ±µÄINCARÖÐediffºÍediffgÁ½¸ö²ÎÊý¸ú¼¸ºÎÓÅ»¯Ê±µÄÒ»Ñù£¿
4Â¥2012-05-05 00:03:15
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mengfc

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

ÒýÓûØÌû:
3Â¥: Originally posted by gfei2008 at 2012-05-04 23:52:32:
ÄãÕâÑù±àÒë³öÖ®ºóÊDz»ÊÇÓиöa.outµÄ¿ÉÖ´ÐÐÎļþ£¬ÄǸö¾ÍÊÇÓÃÀ´Éú²úKPOINTSµÄ³ÌÐò£¬Ê¹Ó÷½·¨ÊÇ£º./a.out
ҪôÄã¾ÍÊÇifort -o gk gk.fÕâÑù±àÒ롣ȻºóÖ´ÐÐ./gk¾Í¿ÉÒÔÉú³ÉÄãÒªµÄKPOINTS

ллÄú£¬µ«Ö´ÐÐÖ®ºóKPOINTSÀïÊÇ
¡°
k-points along high symmetry lines
-1225672974
Reciprocal
¡±
5Â¥2012-05-05 00:04:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

yxz476440843

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
5Â¥: Originally posted by mengfc at 2012-05-05 00:04:22
ллÄú£¬µ«Ö´ÐÐÖ®ºóKPOINTSÀïÊÇ
¡°
k-points along high symmetry lines
-1225672974
Reciprocal
¡±...

ÄãºÃ£¬ÎÒÒ²Óöµ½ÁËͬÑùµÄÎÊÌ⣬ÇëÎʸÃÔõô½â¾ö°¡£¬Ð»Ð»!
6Â¥2012-06-09 19:32:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Mr_WuSH

½ð³æ (СÓÐÃûÆø)


ÖØÐÂÓÃgfortran±àÒë²»ºÃʹ¡¤£¿
8Â¥2012-06-11 09:10:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mengfc

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

ÒýÓûØÌû:
8Â¥: Originally posted by Mr_WuSH at 2012-06-11 09:10:07
ÖØÐÂÓÃgfortran±àÒë²»ºÃʹ¡¤£¿

ллÄú£¬Õâ¸öÓÃgfortranÖØÐ±àÒëÖ®ºóÒ²²»Ì«ÐУ¬ÕâÊÇʲôԭÒòÄØ£¿
9Â¥2012-06-11 10:32:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Mr_WuSH

½ð³æ (СÓÐÃûÆø)


ÎÒ֮ǰҲÓöµ½Ò»ÑùµÄÎÊÌ⡤¡¤
gfortran±àÒëºó¾ÍºÃʹÁË¡¤¡¤¡¤

» ±¾Ìû¸½¼þ×ÊÔ´Áбí

  • »¶Ó­¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
    ±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
  • ¸½¼þ 1 : gk.f
  • 2012-06-11 11:34:59, 2.75 K
10Â¥2012-06-11 11:36:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ mengfc µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 08600ÉúÎïÓëÒ½Ò©-327 +8 18755400796 2026-04-05 8/400 2026-04-06 11:59 by lijunpoly
[¿¼ÑÐ] Çóµ÷¼Á +11 xzghyuj 2026-04-04 11/550 2026-04-06 11:49 by lijunpoly
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤085600 310·ÖÇóµ÷¼Á +16 0856²ÄÁÏÓ뻯¹¤3 2026-04-04 18/900 2026-04-06 01:54 by BruceLiu320
[¿¼ÑÐ] 331Çóµ÷¼Á +8 ÓÚÕ÷yz 2026-04-05 8/400 2026-04-06 00:54 by fmesaito
[¿¼ÑÐ] ÄÐÉú£¬Ò»Ö¾Ô¸»¦9ÉúÎïѧ071000£¬³õÊÔ308Çóµ÷¼Á +3 Áõīī 2026-04-04 3/150 2026-04-05 08:26 by barlinike
[¿¼ÑÐ] 320Çóµ÷¼Á +3 Ò»ÑùÔ² 2026-04-04 3/150 2026-04-04 22:29 by à£à£à£0119
[¿¼ÑÐ] 321Çóµ÷¼Á +6 ÈÏÕæÇóÉÏѧ 2026-04-03 6/300 2026-04-04 19:51 by dongzh2009
[¿¼ÑÐ] 302Çóµ÷¼ÁÒ»Ö¾Ô¸»ªÖÐʦ·¶´óѧ +8 С½­Ð¡½­½­½­ 2026-04-02 8/400 2026-04-04 19:50 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ±¾¿Æ211£¬×¨Òµ085404£¬293·ÖÇëÇóµ÷¼Á +5 Á«²Ë¾ÍÊÇź°É 2026-04-04 5/250 2026-04-04 14:08 by ÕâÊÇÒ»¸öÎÞÁĵÄê
[¿¼ÑÐ] 265Çóµ÷¼Á +17 ÁÖÉîÎÂÀ½ 2026-04-01 20/1000 2026-04-04 01:09 by userper
[¿¼ÑÐ] 311Çóµ÷¼Á +11 Ó¸ҵÄСÎâ 2026-04-02 11/550 2026-04-03 21:46 by qlm5820
[¿¼ÑÐ] ±¾¿Æ985£¬×¨Òµ0812·Ö336Çóµ÷¼Á +4 ĪĪºÜÐÐ 2026-04-03 4/200 2026-04-03 21:31 by zhq0425
[¿¼ÑÐ] 336Çóµ÷¼Á +8 kiyy 2026-04-01 8/400 2026-04-03 19:41 by lijunpoly
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +7 ÏàÐűػá¹ââÍòÕ 2026-04-02 7/350 2026-04-03 16:48 by rzh123456
[¿¼ÑÐ] 338Çóµ÷¼Á +4 zzz£¬£¬r 2026-04-03 4/200 2026-04-03 16:39 by lijunpoly
[¿¼ÑÐ] 289-Çóµ÷¼Á +4 ÕâÀïÊÇ_ 2026-04-03 4/200 2026-04-03 14:23 by 1753564080
[¿¼ÑÐ] Ò»Ö¾Ô¸Î人Àí¹¤0856£¬³õÊÔ334 +3 26¿¼ÑвÄÁÏ 2026-04-02 3/150 2026-04-02 21:22 by dongzh2009
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +12 Ò»ÑùYWY 2026-04-01 12/600 2026-04-02 00:21 by °ÙÃë¹âÄê
[¿¼ÑÐ] 335Çóµ÷¼Á +3 321* 2026-03-31 4/200 2026-04-01 00:00 by 321*
[¿¼ÑÐ] 254²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +3 º²¶¬ÁÖéª 2026-03-30 4/200 2026-03-31 17:53 by yishunmin
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û