Znn3bq.jpeg
²é¿´: 3507  |  »Ø¸´: 17
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

·çÓêͬÖÜ113

½ð³æ (³õÈëÎÄ̳)


[½»Á÷] ¡¾ÇóÖú¡¿Çó²úÉú±äÐκóPOSCARµÄ defvector.f ³ÌÐòµÄÔ´Îļþ

×î½ü¸ÕѧϰʹÓÃVASPÈí¼þ£¬¿´ºî²©µÄ˵Ã÷ÊéÖÐÌáµ½¼ÆË㵯ÐÔ³£ÊýÒªÓõ½defvector.f£¬ÇëÎÊÕâ¸ö³ÌÐòÔÚÄÄÀï¿ÉÒÔÕÒµ½ÄØ£¿Íû´ó¼Ò¸øÖ¸µ¼Ö¸µ¼£¬²»Ê¤¸Ð¼¤°¡
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
±¾ÌûÄÚÈݱ»ÆÁ±Î

18Â¥2021-01-30 11:49:56
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 18 ¸ö»Ø´ð

babaleo

ľ³æ (ÕýʽдÊÖ)


¡ï
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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

songdewang

½ð³æ (СÓÐÃûÆø)


·çÓêͬÖÜ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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ufo991

Ìú³æ (ÕýʽдÊÖ)


¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÒýÓûØÌû:
620225Â¥: Originally posted by songdewang at 2011-04-12 10:27:42
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
C >this simple program to get the primitive vectors after
C $\delta$ strain, in order to calculate the independent
C elastic co ...

ΪºÎÎÒ±àÒëÄÜͨ¹ý£¬ÔËÐеÄʱºò³öÏÖ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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁÏÀà284µ÷¼Á +20 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 24/1200 2026-04-09 03:34 by ËïСС12457
[¿¼ÑÐ] »¯¹¤Çóµ÷¼Á£¡ +27 RichLi_ 2026-04-06 27/1350 2026-04-08 22:57 by jean5056
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÄÏʦ·¶´óѧ0702ÎïÀíѧ305µ÷¼Á +4 Äî³£°² 2026-04-07 6/300 2026-04-08 22:53 by bljnqdcc
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó£¬³õÊÔ329£¬Çó»·¾³¿ÆÑ§Ó빤³Ìµ÷¼Á£¡ +11 ÓàδÐÁ 2026-04-06 11/550 2026-04-08 15:21 by screening
[¿¼ÑÐ] »¯¹¤Ñ§Ë¶ 285Çóµ÷¼Á +26 Wisjxn 2026-04-07 26/1300 2026-04-08 14:42 by screening
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉúÎïÓëÒ½Ò©£¬296·Ö£¬Çóµ÷¼Á +14 66¹ 2026-04-03 16/800 2026-04-08 10:38 by tjzhao
[¿¼ÑÐ] 263·ÖBÇøÇóµ÷¼Á +6 Àînihao 2026-04-08 6/300 2026-04-08 09:38 by ÄÏ¿ªÐ¡ôë
[¿¼ÑÐ] 326·Ö£¬Ò»Ö¾Ô¸»¦9£¬ÇóÉúÎïѧµ÷¼Á +4 Áõīī 2026-04-05 4/200 2026-04-08 06:22 by lijunpoly
[¿¼ÑÐ] 259Çóµ÷¼Á +5 ¾Í°®³ÔÍÁ¶¹Ñ½Ñ½ 2026-04-07 5/250 2026-04-07 22:40 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤085600 310·ÖÇóµ÷¼Á +20 0856²ÄÁÏÓ뻯¹¤3 2026-04-04 22/1100 2026-04-07 15:14 by Éϰ¶¿ì¿ì
[¿¼ÑÐ] 287Çóµ÷¼Á +3 ͨÐÅѧ˶081000 2026-04-03 4/200 2026-04-06 21:03 by going home
[¿¼ÑÐ] ÉúÎïѧÇóµ÷¼Á +5 15064154688 2026-04-03 5/250 2026-04-06 11:56 by lijunpoly
[¿¼ÑÐ] 0817»¯Ñ§¹¤³ÌÓë¼¼ÊõÇóµ÷¼Á£¬Ò»Ö¾Ô¸Öк£Ñó319 +14 lv945 2026-04-04 14/700 2026-04-06 10:20 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ²ÄÁÏ»¯¹¤306·ÖÕÒºÏÊʵ÷¼Á +14 ²×º£ÇáÖÛe 2026-04-04 14/700 2026-04-05 09:53 by ÖìÔÆ»¢202
[¿¼ÑÐ] 0835ѧ˶299Çóµ÷¼Á 08´óÀà¿É½ÓÊÜ +5 useryy 2026-04-03 5/250 2026-04-04 20:07 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 325Çóµ÷¼Á +4 ´º·ç²»½èÒâ 2026-04-04 4/200 2026-04-04 14:46 by ÏæÅ©´¢ÄܲÄÁÏ
[¿¼ÑÐ] ¿¼ÑÐÇóµ÷¼Á +3 ľÐÄÏë¼ÌÐøÉîÔì 2026-04-03 3/150 2026-04-03 21:56 by à£à£à£0119
[¿¼ÑÐ] Çóµ÷¼Á +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[¿¼ÑÐ] Ò»Ö¾Ô¸°²»Õ´óѧ0817»¯Ñ§¹¤³ÌÓë¼¼Êõ£¬Çóµ÷¼Á +14 ÎÒ²»ÊÇÖ»Òò 2026-04-02 15/750 2026-04-03 09:49 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +4 Ò»ÑùYWY 2026-04-03 4/200 2026-04-03 09:48 by À¶ÔÆË¼Óê
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û