*---------------------------------------------------------------
      subroutine uvwmsg( cmsg )
*---------------------------------------------------------------
      character*(*) cmsg

      logical lclip

      call sglget ( 'LCLIP', lclip )
      if ( lclip ) then
         call sglset ( 'LCLIP', .FALSE. )
      end if

      call sgtxzv( 0.5, 0.06, cmsg, 0.02, 0, 0, 1 )

      call sglset ( 'LCLIP', lclip )

      return
      end
