±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 860  |  »Ø¸´: 28
±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴

ºØÒÇ

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

[ÇóÖú] ¸ñʽÎÊÌâ

write(19,100) ikpt,(kpt(i),i=1,3),npw                     
100    FORMAT('k-point #',I3,':  (',3f7.4,')    npw=',I6)
Õâ¸ö¾ä×ÓÄÄÀïÓÐÎÊÌ⣿
»Ø¸´´ËÂ¥
à½À²À²à½À²À²à½
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

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

¡ï
΢³¾¡¢ÃÎÏë(½ð±Ò+1): лл²ÎÓëÓ¦Öú£¡ 2011-04-26 17:41:07
Õâ¾ä»°£¬Óï·¨ÉÏûÓÐÎÊÌâ°¡£¬ÖÁÉÙÕâÀï¿ÉÒÔ±àÒëͨ¹ý¡­¡­

ÄãÊDz»ÊDz»ÏëÊä³ö½á¹ûÖÐÓÐÄǶÔÀ¨ºÅ£¿£¿
CODE:
100    FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)

2Â¥2011-04-26 08:33:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

holmescn

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

¡ï
΢³¾¡¢ÃÎÏë(½ð±Ò+1): лл²ÎÓ룡 2011-04-26 17:41:23
gfortran 4.3.3²âÊÔ£¬Ã»ÓÐÎÊÌâ
3Â¥2011-04-26 08:38:43
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ºØÒÇ

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

ÒýÓûØÌû:
Originally posted by snoopyzhao at 2011-04-26 08:33:16:
Õâ¾ä»°£¬Óï·¨ÉÏûÓÐÎÊÌâ°¡£¬ÖÁÉÙÕâÀï¿ÉÒÔ±àÒëͨ¹ý¡­¡­

ÄãÊDz»ÊDz»ÏëÊä³ö½á¹ûÖÐÓÐÄǶÔÀ¨ºÅ£¿£¿
CODE:
100    FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)


ÊǵÄ
µ«ÊÇÎÒÕâÀïÓÃifort×ÜÊÇÌáʾ³ö´í
à½À²À²à½À²À²à½
4Â¥2011-04-26 12:29:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ºØÒÇ

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

ÕâÊdzÌÐò£º
      program WAVECAR
      integer   nkpt,nband,emax,ikpt,npw,iband
      real*8  A kpt
      dimension   A(3,3),kpt(3)           

      open(unit=12,file="WAVECAR",status="old",form="unformatted"
      open(unit=19,file="wave",status="new"
      read(12,*) nkpt,nband,emax,((A(i,j),i=1,3),j=1,3)
      write(19,*)
      write(19,*) 'nkpt  =',nkpt
      write(19,*) 'nband =',nband
      write(19,*) 'emax  =',emax
      write(19,*) 'A='
      write(19,'(3X,3(1X,f8.3))') (A(i,1),i=1,3)
      write(19,'(3X,3(1X,f8.3))') (A(i,2),i=1,3)
      write(19,'(3X,3(1X,f8.3))') (A(i,3),i=1,3)
      read(12,*) code   
                                                
      do ikpt=1, nkpt                                                                                                      
          read(12,*) npw, (kpt(i),i=1,3)
          write(19,*)                                             
          write(19,100) ikpt,(kpt(i),i=1,3),npw
          100  FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)                        
          write(19,*) 'kpt =',kpt                                 
          write(19,*) 'npw =',npw                                 
          write(19,*) "  band       energy        weight"         
c         
          ALLOCATE(coef(npw))                                                
          ALLOCATE(ac(npw,200))                                            
          ic = 1                                                            
             DO iband = 1, nband                                                                             
               read(12,*) eval, fweight, (coef(i),i=1,npw)                        
                                                                        
c               
               write(19,'(5X,I3,5X,f8.4,5x,f8.4)') iband, dreal(eval), fweight
c               
                                                                        
                IF(iband >= nbandmin.and.iband.le.nbandmax) then               
                     DO i = 1,npw                                                     
                       ac(i,ic) = coef(i)                                            
                     ENDDO                                                            
                       ic = ic+1;                                                      
                     end if                                                           
                                                                                 
            ENDDO                                                              
           DEALLOCATE(coef)                                                   
       ENDDO                                                               
close(unit=12)  
close(unit=19)
c                                                                                   
      stop                                             
      end                                               
c----------------------- end ---------------------------
à½À²À²à½À²À²à½
5Â¥2011-04-26 12:31:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ºØÒÇ

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

ÒýÓûØÌû:
Originally posted by ºØÒÇ at 2011-04-26 12:31:45:
ÕâÊdzÌÐò£º
      program WAVECAR
      integer   nkpt,nband,emax,ikpt,npw,iband
      real*8  A kpt
      dimension   A(3,3),kpt(3)           

      open(unit=12,file="WAVECAR",sta ...

ÄǸöЦÁ³ÊÇÒ»¸ö  )
à½À²À²à½À²À²à½
6Â¥2011-04-26 12:32:56
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ºØÒÇ

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

ÒýÓûØÌû:
Originally posted by holmescn at 2011-04-26 08:38:43:
gfortran 4.3.3²âÊÔ£¬Ã»ÓÐÎÊÌâ

ÎÒ°à³ÌÐòÌù³öÀ´ÁË Âé·³ÄãÔÚ¿´¿´£¬Ð»Ð»¿©
à½À²À²à½À²À²à½
7Â¥2011-04-26 12:33:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

ÒýÓûØÌû:
Originally posted by ºØÒÇ at 2011-04-26 12:33:48:
ÎÒ°à³ÌÐòÌù³öÀ´ÁË Âé·³ÄãÔÚ¿´¿´£¬Ð»Ð»¿©

Êý¾ÝÎļþ£¿
8Â¥2011-04-26 14:40:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

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

ÒýÓûØÌû:
Originally posted by ºØÒÇ at 2011-04-26 12:31:45:
ÕâÊdzÌÐò£º
      program WAVECAR
      integer   nkpt,nband,emax,ikpt,npw,iband
      real*8  A kpt
      dimension   A(3,3),kpt(3)           

      open(unit=12,file="WAVECAR",sta ...

ÄãÕâ³ÌÐò±àÒë²»¹ýÈ¥°¡£¬coef ÊÇɶûÓж¨Òå°¡¡­¡­
9Â¥2011-04-26 14:44:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ºØÒÇ

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

ÒýÓûØÌû:
Originally posted by snoopyzhao at 2011-04-26 14:44:50:
ÄãÕâ³ÌÐò±àÒë²»¹ýÈ¥°¡£¬coef ÊÇɶûÓж¨Òå°¡¡­¡­

Õâ¸öÁíÍâÓж¨Ò壬µ«ÊÇÄã±àÒëʱ£¬Ç°ÃæÃ»ÓдíÎóÂð£¿
à½À²À²à½À²À²à½
10Â¥2011-04-26 19:28:42
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ ºØÒÇ µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 309·Ö085801Çóµ÷¼Á +10 ѧԱGtwj7W 2026-03-31 10/500 2026-04-02 22:42 by yunlongyang
[¿¼ÑÐ] »¯Ñ§070300-×Ü·Ö378-Çóµ÷¼Á +5 ŲÒÎ×ÓµÄÅÝÅÝÌÇ 2026-04-02 5/250 2026-04-02 22:20 by ZXlzxl0425
[¿¼ÑÐ] Ò»Ö¾Ô¸¸´µ©²ÄÁÏ£¬Ó¢Ò»×¨Ë¶£¬×Ü·Ö357µ÷¼Á +4 1050389037 2026-04-02 5/250 2026-04-02 21:40 by dongzh2009
[¿¼ÑÐ] 298Çóµ÷¼Á +4 zzz£¬£¬r 2026-04-02 7/350 2026-04-02 18:57 by 1939136013¹·×³
[¿¼ÑÐ] 348Çóµ÷¼Á +11 zzzzyk123 2026-04-01 11/550 2026-04-02 16:52 by Wang200018
[¿¼ÑÐ] 301Çóµ÷¼Á +14 ÂæÍÕÄÐÈË 2026-04-02 14/700 2026-04-02 14:08 by baoball
[¿¼ÑÐ] 085601Ò»Ö¾Ô¸ÖÐɽ´óѧÉîÛÚ²ÄÁϹ¤³Ì330Çóµ÷¼Á +8 pipiver 2026-03-30 8/400 2026-04-02 12:01 by ms629
[¿¼ÑÐ] 266·Ö£¬Ò»Ö¾Ô¸µçÆø¹¤³Ì£¬±¾¿Æ²ÄÁÏ£¬Çó²ÄÁÏרҵµ÷¼Á +10 ÍÛºôºßºôºß 2026-04-01 11/550 2026-04-02 11:31 by lnilvy
[¿¼ÑÐ] 372Çóµ÷¼Á +3 jjÓ¿77 2026-04-02 3/150 2026-04-02 09:57 by olim
[¿¼ÑÐ] 284Çóµ÷¼Á +12 СÐÜ¡«¡« 2026-03-31 12/600 2026-04-01 20:23 by »¨??
[¿¼ÑÐ] 085600£¬320·ÖÇóµ÷¼Á +5 ´ó²öС×Ó 2026-04-01 6/300 2026-04-01 19:40 by ÌÆãå¶ù
[¿¼ÑÐ] 0856£¬²ÄÁÏÓ뻯¹¤321·ÖÇóµ÷¼Á +13 ´ó²öС×Ó 2026-03-27 14/700 2026-04-01 15:58 by yanflower7133
[¿¼ÑÐ] ²ÄÁÏר˶322·Ö +9 ¹þ¹þ¹þºðºðºð¹þ 2026-04-01 9/450 2026-04-01 14:30 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÄÏʦ·¶361·Ö£¬»¯Ñ§Çóµ÷¼Á +4 Nicole88888 2026-04-01 4/200 2026-04-01 10:08 by ÌÆãå¶ù
[¿¼ÑÐ] Çó»¯Ñ§µ÷¼Á +12 wulanna 2026-03-28 12/600 2026-03-31 16:38 by 690616278
[¿¼ÑÐ] 085601 329·Öµ÷¼Á +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[¿¼ÑÐ] 282Çóµ÷¼Á ²»Ìôרҵ ÇóÊÕÁô +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by ÍõÁÁ_´óÁ¬Ò½¿Æ´ó
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©µ÷¼Á +5 Feisty¡£ 2026-03-28 9/450 2026-03-29 12:02 by longlotian
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤£¨0856£©304ÇóBÇøµ÷¼Á +8 Çñgl 2026-03-27 8/400 2026-03-28 12:42 by ÌÆãå¶ù
[¿¼ÑÐ] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by ±£»¤µØÇòÄãÎÒ×öÆ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û