| ²é¿´: 3395 | »Ø¸´: 17 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
[½»Á÷]
¡¾ÇóÖú¡¿Çó²úÉú±äÐκóPOSCARµÄ defvector.f ³ÌÐòµÄÔ´Îļþ
|
|||
| ×î½ü¸ÕѧϰʹÓÃVASPÈí¼þ£¬¿´ºî²©µÄ˵Ã÷ÊéÖÐÌáµ½¼ÆË㵯ÐÔ³£ÊýÒªÓõ½defvector.f£¬ÇëÎÊÕâ¸ö³ÌÐòÔÚÄÄÀï¿ÉÒÔÕÒµ½ÄØ£¿Íû´ó¼Ò¸øÖ¸µ¼Ö¸µ¼£¬²»Ê¤¸Ð¼¤°¡ |
» ²ÂÄãϲ»¶
²ÄÁÏ£¬·ÄÖ¯£¬ÉúÎ0856¡¢0710£©£¬»¯Ñ§ÕÐÉúÀ²
ÒѾÓÐ7È˻ظ´
301Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
281Çóµ÷¼Á£¨0805£©
ÒѾÓÐ7È˻ظ´
²ÄÁÏÓ뻯¹¤Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
277µ÷¼Á
ÒѾÓÐ6È˻ظ´
341Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑоÀú
ÒѾÓÐ8È˻ظ´
293Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
070300»¯Ñ§319Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÇóÖúѹËõÓÀ¾Ã±äÐÎÎÊÌâ
ÒѾÓÐ6È˻ظ´
¾Û¼×»ù±ûÏ¡ËáôÇÒÒõ¥£¨HEMA£©¾ÛºÏ¼Ó¹¤³ÉÐͱäÐÎ
ÒѾÓÐ4È˻ظ´
²ÄÁϲúÉúËÜÐÔ±äÐÎÊDz»ÊÇʹÄÚÓ¦Á¦µÃµ½ÁËÊÍ·Å
ÒѾÓÐ14È˻ظ´
PA6¡¢PETµÄÈȱäÐÎζȷֱðÊǶàÉÙ£¿
ÒѾÓÐ7È˻ظ´
¸÷λÑо¿Ñ¹µçÌմɵĸßÊÖÃÇ ÇóÖú¹ØÓÚ·½ÐÎѹµçƬµÄ±äÐÎÐÎʽ
ÒѾÓÐ3È˻ظ´
Îļþ.fÈçºÎ±àÒë³É¿ÉÖ´ÐÐÎļþ
ÒѾÓÐ3È˻ظ´
¡¾ÇóÖú¡¿×ö±äÐνð¸Õ¹Ø½ÚÓ¦¸ÃÓÃÄÄÖÖÏð½º
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿¼Ó¹¤Ó²»¯ÂÊ»òÕßÓ¦±äÓëÀäÔþµÄ±äÐÎÁ¿ÓÐûÓйØÏµÄØ£¿
ÒѾÓÐ9È˻ظ´
¡¾ÇóÖú¡¿ÇëÎʽðÊô¡¢Ìմɺ͸߷Ö×ӵıäÐλúÖÆ·Ö±ðÊÇʲô£¿
ÒѾÓÐ5È˻ظ´
» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:
¡¾¼¼Êõ·þÎñ¡¿Ñо¿ËùºáÏò¼¼Êõ¿ª·¢¼°·þÎñ
+1/99
ÄϾ©Ò½¿Æ´óѧÉúֳҽѧÓë×Ó´ú½¡¿µ¹úÖØÊµÑéÊÒ-¶·Éºê¿ÎÌâ×é-ѧÊõ˶ʿÕÐÉú
+1/97
ÎïÀíѧ µ÷¼Á
+1/85
ÎïÀíѧ µ÷¼Á
+1/84
Ô¸Óö¼ûÄ㣬Óö¼û²»Ö¹²Á¼ç¶ø¹ýµÄÔµ·Ö
+1/77
¼ÓÄô󰢶û²®Ëþ´óѧÕÐÊÕµç´Å¡¢ÎÞÏßͨÐÅ¡¢»úÆ÷ѧϰ·½ÏòÈ«½±Ë¶Ê¿/²©Ê¿/²©Ê¿ºó/·ÃÎÊѧÕß
+1/53
Call for paper: [Fermentation ¨C IF 3.3]
+2/50
´ß»¯·½ÏòÍÆ¼öÒ»¸ö¼«ºÃµÄ²©µ¼
+1/38
1
+1/37
2026ÄêÖØÇ칤ÉÌ´óѧ¹ÜÀí¿ÆÑ§Ó빤³ÌרҵѧÊõ˶ʿÕÐÉúµ÷¼Á£¬·ç¾°×ÜÔÚÁø°µ»¨Ã÷´¦
+1/36
Ìì½ò¹¤Òµ´óѧº½¿Õº½Ì첩ʿÕÐÉú
+1/35
°Ä´óÀûÑÇÎ÷°Ä´óѧ£¨UWA£©ÕŽðÇ¿¿ÎÌâ×éÕÐÊÕÈ«½±²©Ê¿Éú£¨»¯¹¤ÐÂÄÜÔ´·½Ïò£©
+1/27
ÄϾ©Ò½¿Æ´óѧ-Ĥµ°°×½á¹¹Ó빦ÄÜ¿ÎÌâ×é-ÕÐÊÕ2026¼¶²©Ê¿Ñо¿Éú
+1/11
ÁijǴóѧ»¯ÔºÇཷÕÐÊÕ»¯Ñ§Ïà¹Ø×¨Òµµ÷¼ÁѧÉú
+1/7
ÉϺ£µÚ¶þ¹¤Òµ´óѧ-Öì´óº£¿ÎÌâ×éÕÐÉú£¨¹ýÏß¾ÍÄܵ÷¼Á£©
+1/5
ÄÏ·½¿Æ¼¼´óѧ»ù´¡ÃâÒßÓë΢ÉúÎïѧϵÕÐÆ¸¿ÆÑÐÖúÀí1-2Ãû£¬´ÓÊÂ΢ÉúÎïÓëÃâÒßѧ·½ÏòÑо¿
+1/5
2026ÄêÉϺ£´óѧÍõÁÁ¿ÎÌâ×éÕÐÊÕµç´ß»¯»ò¹â´ß»¯Ñо¿±³¾°µÄ²©Ê¿Éú
+2/4
¶«±±ÁÖÒµ´óѧ£¨211£¬Ë«Ò»Á÷£©ËÎÀÏʦ¿ÎÌâ×éÕÐÊո߷Ö×Ó¡¢»¯Ñ§¡¢¸´ºÏ²ÄÁϵȷ½ÏòÑо¿Éú
+1/4
¼ÓÄô󰢶û²®Ëþ´óѧÕÐÊÕµç´Å¡¢ÎÞÏßͨÐÅ¡¢»úÆ÷ѧϰ·½ÏòÈ«½±Ë¶Ê¿/²©Ê¿/²©Ê¿ºó/·ÃÎÊѧÕß
+2/2
323·Ö¿ØÖƹ¤³ÌÇóµ÷¼Á
+1/2
¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
|
±¾ÌûÄÚÈݱ»ÆÁ±Î |
18Â¥2021-01-30 11:49:56
¡ï
sunyang1988(½ð±Ò+1): ллÌáʾ 2011-04-10 00:04:45
·çÓêͬÖÜ113(½ð±Ò+2): 2011-04-10 12:53:42
sunyang1988(½ð±Ò+1): ллÌáʾ 2011-04-10 00:04:45
·çÓêͬÖÜ113(½ð±Ò+2): 2011-04-10 12:53:42
|
´ò¿ªÖ¸ÄÏ,¼ô/ÌùÒ»ÏÂdefvector.f,±àÒë. »ò Ö±½Ó¸øºî²©Ê¿·¢ÓʼþË÷È¡. |
2Â¥2011-04-09 23:40:39
·çÓêͬÖÜ113(½ð±Ò+16): 2011-07-16 21:39:37
|
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C >this simple program to get the primitive vectors after C $\delta$ strain, in order to calculate the independent C elastic constants of solids. C usage: C!!!!! Please first prepare the undeformed POSCAR in OLDPOS C >defvector.x C >type defvector.x > create new POSCAR in file fort.3 C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% program defvector real*8 privect,strvect,delta,strten,strain,pos, alat dimension privect(3,3),strvect(3,3),strten(3,3),strain(6) dimension pos(50,3) character*10 bravlat, title, direct integer i,j,k,ntype, natomi, nn dimension natomi(10) C%%%%%%%%% Read the undeformed primitive vector and atomic postion %%%%%%% open(7,file='OLDPOS') C%% In first line of OLDPOS, please add the number C%% of the type of atoms after the title read(7,*) title, ntype read(7,*) alat do i=1,3 read(7,*) (privect(i,j),j=1,3) write(*,*) (privect(i,j),j=1,3) enddo read(7,*) (natomi(i),i=1,ntype) nn=0 do i =1, ntype nn=nn+natomi(i) enddo read(7,*) direct do i=1, nn read(7,*) (pos(i,j),j=1,3) enddo C%%%%%%%%% Read the amti of strain %%%%%%%%%%%%%%% read(*,*) delta C%%%%%%%%% Define the strain %%%%%%%%%%%%%% strain(1)=0.0 strain(2)=delta strain(3)=delta strain(4)=0.0 strain(5)=0.0 strain(6)=0.0 C%%%%%%%%% Define the strain tensor %%%%%%%%%%%%%%%%%%%%%%%% strten(1,1)=strain(1)+1.0 strten(1,2)=0.5*strain(6) strten(1,3)=0.5*strain(5) strten(2,1)=0.5*strain(6) strten(2,2)=strain(2)+1.0 strten(2,3)=0.5*strain(4) strten(3,1)=0.5*strain(5) strten(3,2)=0.5*strain(4) strten(3,3)=strain(3)+1.0 C%%%%%%%%% Transform the primitive vector to the new vector under strain%%%%% C strvect(i,j)=privect(i,j)*(I+strten(i,j)) do k=1,3 do i=1,3 strvect(i,k)=0.0 do j=1,3 strvect(i,k)=strvect(i,k)+privect(i,j)*strten(j,k) enddo enddo enddo C%%%%%%%% Write the new vector under strain%%%%%%%%%%%% do i=1,3 write(*,100)(strvect(i,j),j=1,3) enddo 100 format(3f20.15) C%%%%%%%%% Create the POSCAR for total energy calculation %%%%%%%%%%%%%%5 write(3,'(A10)') title write(3,'(f15.10)') alat do i=1,3 write(3,100)(strvect(i,j),j=1,3) enddo write(3,'(10I4)') (natomi(i), i=1,ntype) write(3,'(A6)') Direct do i=1, nn write(3,100) (pos(i,j),j=1,3) enddo C%%%%%%% end |
4Â¥2011-04-12 10:27:42
ufo991
Ìú³æ (ÕýʽдÊÖ)
- 1STÇ¿Ìû: 1
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1148.3
- Ìû×Ó: 358
- ÔÚÏß: 104.6Сʱ
- ³æºÅ: 671678
¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
|
ΪºÎÎÒ±àÒëÄÜͨ¹ý£¬ÔËÐеÄʱºò³öÏÖinvalid number:incomprehensible list input apparent state: unit 7 named OLDPOS last format: list io lately reading direct formatted external IO »òÕßapparent state: unit 5 (unnamed) last format: list io lately reading direct formatted external IO list in: end of file µÄÎÊÌâÄØ£¿ |
5Â¥2012-05-30 10:31:31













»Ø¸´´ËÂ¥