%N bugseverity_c %F $MIR/src/subs/bug.c
%D Return last severity level
%P pjt
%: error-handling
%B
    This routine does not have a FORTRAN counterpart, as it is normally 
    only called by C clients who have set their own error handler if
    for some reason they don't like the MIRIAD one (e.g. C++ or java
    exceptions, or NEMO's error handler. This way the bugrecover handler
    can call this routine to retrieve the last severity level 

    bugrecover_c(my_handler);

    void my_handler(void) {
       char  s = bugseverity_c();
       char *m = bugmessage_c();
       printf("RECOVERED: (%c) %sn",s,m);
       if (s=='f') exit(1);
    }
    ..                                                                  
