| ²é¿´: 5161 | »Ø¸´: 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¶ä£©
» ²ÂÄãϲ»¶
Ò»Ö¾Ô¸ÖÐÄÏ»¯Ñ§337Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
281Çóµ÷¼Á£¨0805£©
ÒѾÓÐ23È˻ظ´
265Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
279·ÖÇóµ÷¼Á Ò»Ö¾Ô¸211
ÒѾÓÐ10È˻ظ´
ÕÐÊÕµ÷¼Á˶ʿ
ÒѾÓÐ12È˻ظ´
296Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
ÕÐÊÕ²©Ê¿1-2ÈË
ÒѾÓÐ3È˻ظ´
085700×ÊÔ´Óë»·¾³308Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
274Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
290Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÎÒµÄPWSCFÒ»Ö±±¨´í£¬Ã²ËÆÊÇÊäÈëÎÊÌ⣬µ«²»Öª´íÔÚÄÄ£¬ÐÂÊÖÇóÖ¸µ¼¡£
ÒѾÓÐ5È˻ظ´
Çë´óÅ£½â´ðÒ»¸ö¸ÅÄîÐÔÎÊÌ⣬±í¹Û»î»¯ÄÜÓë¾ø¶ÔÄÜÀÝ£¬ÓÐʵÀý·ÖÎö
ÒѾÓÐ9È˻ظ´
ÒÔʯīϩΪÀýPwscf¼ÆËã̬ÃܶȵÄÏêϸ²½ÖèºÍÒªµã
ÒѾÓÐ11È˻ظ´
³æÓѽṹ½âÎöÐÞÕýÎÊÌâ½â´ðʵÀý
ÒѾÓÐ70È˻ظ´

fyuewen
½ð³æ (ÕýʽдÊÖ)
- Ó¦Öú: 30 (СѧÉú)
- ½ð±Ò: 1620.4
- É¢½ð: 151
- ºì»¨: 10
- Ìû×Ó: 480
- ÔÚÏß: 125.2Сʱ
- ³æºÅ: 1506790
- ×¢²á: 2011-11-23
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï
fzx2008: ½ð±Ò+1, лл»ØÌû£¡ 2013-03-05 16:37:31
fzx2008: »ØÌûÖö¥ 2013-03-05 16:37:35
fzx2008: ½ð±Ò+1, лл»ØÌû£¡ 2013-03-05 16:37:31
fzx2008: »ØÌûÖö¥ 2013-03-05 16:37:35
|
ͬѧ£¬Çë×¢ÖØÖªÊ¶²úȨ£¬Ä㶼˵ÁËÊDz©¿ÍÀïÃæµÄ£¬ÄǾͰѲ©Ö÷Ìù³öÀ´¡£Ã»¿´ÎҾͲ²âÊǺîÖù·åÀÏʦµÄ£¬´ò¿ª¿´¹ûÈ»ÊÇ¡£¶øÇÒÄã·ÖÏíµÄÕâÖÖ·½Ê½×Åʵ²»ºÃ£¬ÄãºÃ´õ˵һЩ¸ÅÀ¨ÔÚÌù×ÓÀïÃæ¡£Ìù³öÒ»²¿·ÖÔÎÄ¡£¡£¡£ÆäʵÕâ¸ö¶«Î÷Ö»Òª´ó¼ÒÁ¬½ÓµÄÁËÍøÂç¾Í¶¼¿ÉÒÔÔÚÍøÒ³ÉÏÖ±½Ó¿´µÄ¡£ ÎÞÐǼ¶£¬²»ÊÇÆÀÂÛ×ÊÔ´¡£¶øÊǸøÄãÕâ¸öÌû×Ó¡£ |

7Â¥2013-03-05 13:34:43
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
0.8
| ¶¥Ò»Ï£¬¸Ðл·ÖÏí£¡ |
5Â¥2013-03-05 09:15:32
0.8
| ¶¥Ò»Ï£¬¸Ðл·ÖÏí£¡ |
6Â¥2013-03-05 09:19:03
Ц`Ц
Ìú³æ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 487.3
- Ìû×Ó: 18
- ÔÚÏß: 38.3Сʱ
- ³æºÅ: 1529295
- ×¢²á: 2011-12-08
- ÐÔ±ð: MM
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ

8Â¥2013-03-05 15:05:23
0.8
| ¶¥Ò»Ï£¬¸Ðл·ÖÏí£¡ |
9Â¥2013-03-05 16:02:02
huazhorg
Ìú¸Ëľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 21 (СѧÉú)
- ½ð±Ò: 4953.8
- É¢½ð: 5
- ºì»¨: 2
- Ìû×Ó: 381
- ÔÚÏß: 363.2Сʱ
- ³æºÅ: 629899
- ×¢²á: 2008-10-18
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
10Â¥2013-03-05 17:20:12














»Ø¸´´ËÂ¥
renren123123