!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%

      subroutine clemult
*
      write(6,'(A)') "SUBROUTINE CLEMUL2 IS A"
      write(6,'(A)') "MORE RECENT VERSION OF CLEMULT"
      CALL QQEXIT(1)
*
      return
      end