/*
 *	This file should be included in any user routine
 *	which accesses the Portable Math Library (PML).
 *
 */

#ifdef PDP10
#define dasinh		qzzz8		/* rename to avoid name clash	*/
#define dacosh		qzzz9		/* rename to avoid name clash	*/
#define datanh		qzzy0		/* rename to avoid name clash	*/
#define datan2		qzzy1		/* rename to avoid name clash	*/
#endif

/* And some data structures */

typedef struct complex {
    double real;
    double imag;
} COMPLEX;

/*	Define the error codes used internally in library routines	*/

#define DEXP_OVERFLOW	0
#define DEXP_UNDERFLOW	1
#define DSCALE_OVERFLOW	2
#define NEG_DSQRT	3
#define LOG_OF_ZERO	4
#define LOG_OF_NEGATIVE	5
#define DACOS_BADARG	6
#define DASIN_BADARG	7
#define DTAN_OVERFLOW	8
#define DCOSH_OVERFLOW	9
#define DCOSH_UNDERFLOW 10
#define DSINH_OVERFLOW	11
#define DSINH_UNDERFLOW	12
#define DASINH_OVERFLOW	13
#define DACOSH_BADARG	14
#define DACOSH_OVERFLOW	15
#define DATANH_BADARG	16
#define DATAN_UNDERFLOW 17
#define C_DIV_ZERO	18
#define CRCP_OF_ZERO	19
#define DSCALE_UNDERFLOW 20
#define DINT_2BIG	21
/*
 *	Error control values
 */

#define CONTINUE	01	/* Bit to continue processing on error	*/
#define LOG		02	/* Bit to log error (print message)	*/
#define COUNT		04	/* Bit to count error against limit	*/

