| ²é¿´: 5157 | »Ø¸´: 23 | ||||||||||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||||||||||
lu_wei07Òø³æ (СÓÐÃûÆø)
|
[½»Á÷]
PWSCF ¾ßÌåʵÀý Ïêϸ½â´ð¸÷ÖÖÎÊÌâ ÒÑÓÐ13È˲ÎÓë
|
|||||||||
|
PWSCF ¾ßÌåʵÀý Ïêϸ½â´ð¸÷ÖÖÎÊÌ⣬ժ×ÔÍøÂçÒ»¸öblogblog µØÖ· http://zhaoyunawuli.blog.163.com ... 976200811147143279/ ÍøÒ×µÄ ÍøÃû£º ËæÃÎÏë¶ø·É 1,¸½ ´¦ÀíPWSCFÖмÆËãµÃµ½±¾Õ÷ƵÂʵijÌÐò ×Ô¼ºÐÞ¸ÄÁË ÓõÄʱºòÐèÒª°Ñ*.freq µÄÎļþ ÊÖ¶¯¸Ä³Éinput.freq program prog real, allocatable :: e(:, ![]() real, allocatable :: k(:, ,dk( ,x(![]() real, dimension(3) ::k0,a character(len=32):: xx, yy, zz integer :: nbands, i, j, n, nk open(10, file='input.freq', status='old') read(10,*) xx, yy, nbands, zz, nk write(*,*)"nk=",nk allocate(k(nk,3)) allocate(e(nk,nbands)) allocate(dk(0:nk)) allocate(x(1:nk)) open(11,file='phoband.dat') do i=1,nk read(10,*) (k(i,j),j=1,3) read(10,*) (e(i,n),n=1,nbands) enddo do n=1,nk dk(0)=0 if (n.eq.1) then k0=k(n, endif a=k(n, -k0 dk(n)=dk(n-1)+sqrt(dot_product(a,a)) x(n)=dk(n) k0=k(n, enddo do i=1,nk write(11, 8888) x(i), (e(i,j),j=1,nbands) enddo 8888 format (1x, f9.4, 2x ,1000(f12.6,2x)) end program prog 2,´¦ÀíÄÜ´øµÄ³ÌÐòÖÐÔÚ do i=1, nhighk-1 ǰһÐÐ ¼ÓÉÏ ntkp=0 ÆäËüµÄÎÒÔÝʱ»¹Ã»Óõ½£¬ÓÐʲôÎÊÌâÏ£Íû¹²Í¬½»Á÷[ Last edited by lu_wei07 on 2013-3-5 at 16:37 ] |
» ±¾Ìû¸½¼þ×ÊÔ´Áбí
-
»¶Ó¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com - ¸½¼þ 1 : PWSCF½Ì³Ì£¬´ÓÈëÃŵ½¾«Í¨.docx
- ¸½¼þ 2 : phfreq.exe
2013-03-04 20:04:39, 45.86 K
2013-03-05 16:37:30, 349 K
» ÊÕ¼±¾ÌûµÄÌÔÌûר¼ÍƼö
¾«»ªÍøÌûÊÕ¼¯ | ¿ÆÑм¼ÇÉ | µÚÒ»ÐÔÔÀí¼ÆË㸨Öú¹¤¾ß | condensed matter physics |
¼ÆËãÄ£Äâ | µÚÒ»ÐÔÔÀí¼ÆËã | ¼ÆËãºÍÈí¼þ |
» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©
» ²ÂÄãϲ»¶
¹¤¿Æ²ÄÁÏ085601 279Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
Ò»Ö¾Ô¸Äϲý´óѧ£¬327·Ö£¬²ÄÁÏÓ뻯¹¤085600
ÒѾÓÐ4È˻ظ´
Ò»Ö¾Ô¸¼ªÁÖ´óѧ²ÄÁÏѧ˶321Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
²ÄÁÏѧ˶297ÒѹýËÄÁù¼¶Çóµ÷¼ÁÍÆ¼ö
ÒѾÓÐ5È˻ظ´
²ÄÁÏ080500µ÷¼ÁÇóÊÕÁô
ÒѾÓÐ6È˻ظ´
296Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á
ÒѾÓÐ7È˻ظ´
295¸´ÊÔµ÷¼Á
ÒѾÓÐ5È˻ظ´
Ò»Ö¾Ô¸ ÄϾ©º½¿Õº½Ìì´óѧ´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÎÒµÄPWSCFÒ»Ö±±¨´í£¬Ã²ËÆÊÇÊäÈëÎÊÌ⣬µ«²»Öª´íÔÚÄÄ£¬ÐÂÊÖÇóÖ¸µ¼¡£
ÒѾÓÐ5È˻ظ´
Çë´óÅ£½â´ðÒ»¸ö¸ÅÄîÐÔÎÊÌ⣬±í¹Û»î»¯ÄÜÓë¾ø¶ÔÄÜÀÝ£¬ÓÐʵÀý·ÖÎö
ÒѾÓÐ9È˻ظ´
ÒÔʯīϩΪÀýPwscf¼ÆËã̬ÃܶȵÄÏêϸ²½ÖèºÍÒªµã
ÒѾÓÐ11È˻ظ´
³æÓѽṹ½âÎöÐÞÕýÎÊÌâ½â´ðʵÀý
ÒѾÓÐ70È˻ظ´

hakuna
ľ³æ (ÖªÃû×÷¼Ò)
- 1STÇ¿Ìû: 3
- Ó¦Öú: 82 (³õÖÐÉú)
- ½ð±Ò: 8735.9
- É¢½ð: 158
- ºì»¨: 126
- Ìû×Ó: 5599
- ÔÚÏß: 1367.2Сʱ
- ³æºÅ: 167622
- ×¢²á: 2006-01-15
- רҵ: ¿¼¹ÅÀíÂÛ
3Â¥2013-03-05 06:49:10
0.8
| ¶¥Ò»Ï£¬¸Ðл·ÖÏí£¡ |
2Â¥2013-03-04 21:23:36
0.8
| лл·ÖÏí£¡£¡£¡£¡£¡£¡£¡£¡£¡ |
4Â¥2013-03-05 06:56:35
0.8
| ¶¥Ò»Ï£¬¸Ðл·ÖÏí£¡ |
5Â¥2013-03-05 09:15:32














»Ø¸´´ËÂ¥
renren123123