SUBROUTINE HS$SETC(ICOL)
      RETURN
      END