¡¾´ð°¸¡¿Ó¦Öú»ØÌû

Originally posted by °¢÷ìÀ­ at 2011-06-14 09:04:31:
ÄãºÃ
Êä³öÈý×é
ÕâÈý×éÊÇdx*N+X=X#         dy*N+Y=Y#     dz*N+Z=Z#    X# Y# Z# ÊÇËùÏëÒªµÄÐÂÊý¾Ý¡£
±ÈÈç           X         Y         Z                        dx          dy          dz
     10 ...

program outcar
implicit none
real, dimension(:,:), allocatable :: coor, diff
character(len=128) :: line
integer :: num, ios, i
real :: frac

open(unit=12, file='OUTCARf', status='old')
open(unit=13, file='Result', status='new')

do
   read(12,'(a)', iostat=ios) line
   if (ios /= 0) exit
   if (index(line, 'f/i') /= 0) then
       read (12, '(a)') line
       exit
   end if
end do

num = 0
do
   read (12, '(a)') line
!  write(*,*) trim(line)
   if (len_trim(line) == 0) exit
   num = num + 1
end do
write (*,*) num

rewind 12
allocate(coor(num,3), diff(num,3))

write(*,*) 'please input the frac: '
read(*,*) frac

do
   read(12,'(a)', iostat=ios) line
   if (ios /= 0) exit
   if (index(line, 'f/i') /= 0) then
       read (12, '(a)') line
       do i=1,num
          read (12, *) coor(i,1:3), diff(i,1:3)
          write(13,'(3F11.6)') coor(i,1:3) + diff(i,1:3) * frac
       end do
       write(13,*)
   end if
end do

end program outcar