! $Id: message_set_program.f90 4452 2015-01-29 14:42:02Z idculv $

subroutine message_set_program(progname)

!****s* Messages/message_set_program *
!
! NAME
!    message_set_program - Set the program name for the ropp_utils message and
!                          error handling system.
!
! SYNOPSIS
!    call message_set_program(progname)
! 
! DESCRIPTION
!    This routine sets the name of the program that appears in error messages
!    issued by the message and error handling system of the ropp_utils library.
!
! INPUTS
!    character(len = *) :: progname
!
! SEE ALSO
!    assert
!    message
!    message_get_program
!    message_set_routine
!    message_get_routine
!    message_set_addinfo
!    message_get_addinfo
!
! AUTHOR
!    C. Marquardt, Darmstadt, Germany              <christian@marquardt.sc>
!
! COPYRIGHT
!
!    Copyright (c) 2005 Christian Marquardt        <christian@marquardt.sc>
!
!    All rights reserved.
!
!    Permission is hereby granted, free of charge, to any person obtaining
!    a copy of this software and associated documentation files (the
!    "Software"), to deal in the Software without restriction, including
!    without limitation the rights to use, copy, modify, merge, publish,
!    distribute, sublicense, and/or sell copies of the Software, and to
!    permit persons to whom the Software is furnished to do so, subject to
!    the following conditions:
!
!    The above copyright notice and this permission notice shall be
!    included in all copies or substantial portions of the Software as well
!    as in supporting documentation.
!
!    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
!    EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
!    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
!    NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
!    LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
!    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
!    WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
!
!****

!-------------------------------------------------------------------------------
! 1. Declarations
!-------------------------------------------------------------------------------

  use messages

  implicit none

  character(len = *), intent(in) :: progname

  msg_program = progname

end subroutine message_set_program