SUBROUTINE Flusher(Flush_Unit)
   INTEGER Flush_Unit
   FLUSH(Flush_Unit)
   RETURN
ENDSUBROUTINE Flusher