| ²é¿´: 175 | »Ø¸´: 0 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
xwyanгæ (ÕýʽдÊÖ)
|
[½»Á÷]
Pwscf ÄÜ·ñ¶Ônon-collinear magnetic ´ÅÐò ÓÃberry phase ¼ÆËãµç¼«»¯
|
||
|
¸÷λºÃ£º ÔÚpwscfÖУ¬ÎÒÏëÓÃberry phase¼ÆËã·Ç¹²ÏߵĴÅÐòµÄµç¼«»¯£¬µ«ÎÒ²»Çå³þ¸Ã³ÌÐòÊÇ·ñÄܼÆË㣬Çë½Ì´ó¼Ò¶à¶àÖ¸µã£¬ ´ÓÏÂÃæµÄ´úÂëÉÏ¿´£¬ºÃÏñÖ»ÄܼÆËã·Ç´ÅºÍ¹²Ïß´ÅÐòµÄµç¼«»¯£¬²»ÖªÎÒµÄÈÏʶÊÇ·ñÕýÈ·£¿£¿ ´ÓPW £¯bp_c_phase.f90Öп´ ££££££££££ IF ((degauss > 0.01d0) .OR. (nbnd /= nelec/2)) & CALL errore('c_phase', & 'Polarization only for insulators and no empty bands',1) £££££££££ ! electronic polarization: weight strings ! ! ------------------------------------------------------------------------- ! ! --- Calculate string weights, normalizing to 1 (no spin) or 1+1 (spin) --- DO is=1,nspin weight=0.0_dp DO kort=1,nkort istring=kort+(is-1)*nkort wstring(istring)=wk(nppstr*istring) weight=weight+wstring(istring) END DO DO kort=1,nkort istring=kort+(is-1)*nkort wstring(istring)=wstring(istring)/weight END DO END DO £££££££££££ Çë½Ì´ó¼Ò¶à¶àÖ¸µã£¬Ð»Ð» |
» ²ÂÄãϲ»¶
298Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£©×ö¹ý·Ö×ÓʵÑé
ÒѾÓÐ7È˻ظ´
288Çóµ÷¼Á£¬Ò»Ö¾Ô¸»ªÄÏÀí¹¤´óѧ071005
ÒѾÓÐ11È˻ظ´
Ò»Ö¾Ô¸Éî´ó085601²ÄÁϹ¤³Ìרҵ£¨×¨Ë¶£©300·Ö¿ÉÒÔµ÷¼ÁÈ¥ÄÄ
ÒѾÓÐ13È˻ظ´
Ò»Ö¾Ô¸Ö£ÖÝ´óѧ085600Çóµ÷¼Á
ÒѾÓÐ24È˻ظ´
327Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
327Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
²ÄÁÏ¿¼ÑÐÇóµ÷¼Á×Ü·Ö280
ÒѾÓÐ28È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
²ÄÁÏר˶µ÷¼Á
ÒѾÓÐ13È˻ظ´















»Ø¸´´ËÂ¥