C//��VEC‚Ì’Š�o
      CHARACTER*132 LINE
C
      OPEN(5,FILE='punch.inp')
      OPEN(6,FILE='VEC.out')
C
      do while(LINE(1:17).NE.'--- OPTIMIZED RHF')
      READ(5,'(A132)')LINE
      end do
C      
      READ(5,*)LINE
      READ(5,'(A132)')LINE
      WRITE(6,'(A132)')LINE
C      
      do while(LINE.NE.' $END')
      READ(5,'(A132)')LINE
      WRITE(6,'(A132)')LINE
      end do
      close(6) 
      END