| ²é¿´: 5164 | »Ø¸´: 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¶ä£©
» ²ÂÄãϲ»¶
08¹¤Ñ§µ÷¼Á
ÒѾÓÐ5È˻ظ´
281Çóµ÷¼Á£¨0805£©
ÒѾÓÐ25È˻ظ´
085600²ÄÁÏÓ뻯¹¤
ÒѾÓÐ6È˻ظ´
265Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
0817 »¯Ñ§¹¤³Ì 299·ÖÇóµ÷¼Á ÓпÆÑоÀú ÓжþÇøÎÄÕÂ
ÒѾÓÐ21È˻ظ´
295²ÄÁÏÇóµ÷¼Á£¬Ò»Ö¾Ô¸Î人Àí¹¤085601ר˶
ÒѾÓÐ4È˻ظ´
0856µ÷¼Á£¬ÊÇѧУ¾ÍÈ¥
ÒѾÓÐ9È˻ظ´
298-Ò»Ö¾Ô¸Öйúũҵ´óѧ-Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
ѧУÒѾÌá½»µ½NSFC£¬»¹ÄÜÐÞ¸ÄÂð£¿
ÒѾÓÐ7È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÎÒµÄPWSCFÒ»Ö±±¨´í£¬Ã²ËÆÊÇÊäÈëÎÊÌ⣬µ«²»Öª´íÔÚÄÄ£¬ÐÂÊÖÇóÖ¸µ¼¡£
ÒѾÓÐ5È˻ظ´
Çë´óÅ£½â´ðÒ»¸ö¸ÅÄîÐÔÎÊÌ⣬±í¹Û»î»¯ÄÜÓë¾ø¶ÔÄÜÀÝ£¬ÓÐʵÀý·ÖÎö
ÒѾÓÐ9È˻ظ´
ÒÔʯīϩΪÀýPwscf¼ÆËã̬ÃܶȵÄÏêϸ²½ÖèºÍÒªµã
ÒѾÓÐ11È˻ظ´
³æÓѽṹ½âÎöÐÞÕýÎÊÌâ½â´ðʵÀý
ÒѾÓÐ70È˻ظ´

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














»Ø¸´´ËÂ¥
renren123123