064ec37e9a
- Refactored site specific stuff into a site module - PSI specific stuff is now in the PSI directory. - The old version has been tagged with pre-ansto
27 lines
722 B
C
27 lines
722 B
C
#define ident "1A01"
|
|
#ifdef VAXC
|
|
#module EL755_ErrorLog ident
|
|
#endif
|
|
#ifdef __DECC
|
|
#pragma module EL755_ErrorLog ident
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
|
|
/*
|
|
**--------------------------------------------------------------------------
|
|
** EL755_ErrorLog: This routine is called by EL755 routines in
|
|
** the case of certain errors. It simply prints
|
|
** to stderr. The user should supply his own
|
|
** routine if he wishes to log these errors in
|
|
** some other way.
|
|
*/
|
|
void EL755_ErrorLog (
|
|
/* ==============
|
|
*/ char *routine_name,
|
|
char *text) {
|
|
|
|
fprintf (stderr, "%s: %s\n", routine_name, text);
|
|
}
|
|
/*-------------------------------------------- End of EL755_ErrorLog.C =======*/
|