- 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:
cvs
2003-06-20 10:18:47 +00:00
commit 064ec37e9a
271 changed files with 115513 additions and 0 deletions

26
hardsup/el755_errorlog.c Normal file
View 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 =======*/