C   Extraction of $HESS data
C
      CHARACTER*132 LINE
C
      OPEN(5,FILE='punch.inp')
      OPEN(6,FILE='HESS.out')
C
      do while(LINE.NE.' $HESS')
      read(5,'(A132)')LINE
      end do
C
      do while(LINE.NE.' $END')
      read(5,'(A132)')LINE
      write(6,'(A132)')LINE
      end do
C
      CLOSE (6)
      END