%N buglabel %F $MIR/src/subs/bug.c
%D Give the "program name" to be used as a label in messages.
%P pjt
%: error-handling
%B
FORTRAN call sequence:
        subroutine buglabel(name)

        implicit none
        character name*(*)

  Give the name that is to be used as a label in error messages. Usually
  this is the program name and should be set by the user interface.

  Input:
    name        The name to be given as a label in error messages.      
