- Rearranged directory structure for forking out ANSTO
- 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
This commit is contained in:
26
hardsup/el755_errorlog.c
Normal file
26
hardsup/el755_errorlog.c
Normal file
@ -0,0 +1,26 @@
|
||||
#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 =======*/
|
Reference in New Issue
Block a user