6Â¥: Originally posted by q1036210267 at 2011-09-07 12:56:13:
ÎÒ¾ÍÊÇ°´ÕÕÕâ¸ö³ÌÐòÊäÈëµÄ°¡¡£¡£½á¹û»¹ÊǸղÅÏÔʾµÄÄÇÑù£¬ÎªÊ²Ã´ÄØ£¿ ÊDz»ÊÇÄÄÀï   ³ö´íÀ­


      program waterbox
      implicit none
      integer :: num, no, i, i1, i2, i3
      character(len= ...

program waterbox
   implicit none
   integer :: num, no, i, i1, i2, i3
   character(len=3) :: ele
   character(len=80) :: line
   real :: x, y, z

   open(unit=11, file='waterbox.xyz', status='old')
   open(unit=12, file='waterbox.are', status='unknown')

   read(11,'(i6)') num
   write(12,'(i6)') num

   do i=1,num
      if (mod(i,3) == 1) then
         read(11, '(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x,y,z,i1,i2,i3
         write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3
      else
         read(11,'(a)') line
         write(12,'(a)') trim(line)
      end if
   end do

end program waterbox

2Â¥: Originally posted by snoopyzhao at 2011-09-06 17:41:00:
ºÜ¼òµ¥µÄÂï¡­¡­
[code]
program waterbox
   implicit none
   integer :: num, no, i, i1, i2, i3
   character(len=3) :: ele
   character(len=80) :: line
   real :: x, y, z

   open(unit=11, fi ...

2Â¥: Originally posted by snoopyzhao at 2011-09-06 17:41:00:
ºÜ¼òµ¥µÄÂï¡­¡­
[code]
program waterbox
   implicit none
   integer :: num, no, i, i1, i2, i3
   character(len=3) :: ele
   character(len=80) :: line
   real :: x, y, z

   open(unit=11, fi ...