/* * Simple output routines */ #include error(_fmt, _args) char *_fmt; int _args; /* * A fatal error has occurred -- this routine needs work */ { fprintf(stderr, "fatal error: %s\n", _fmt); lib$stop(); }