subroutine m3msg2( message )
    character(len=*), intent(in) :: message
    call m3mesg( message )
  end subroutine m3msg2