Sindbad~EG File Manager

/* COMPLEX.H header file from Baker, C Mathematical Function Handbook;
   needed to support the file cbessel.c in Mathpert */

#define CMULTR(X,Y) ((X).r*(Y).r-(X).i*(Y).i)
#define CMULTI(X,Y)  ((X).i*(Y).r+(X).r *(Y).i)
#define CDRN(X,Y)  ((X).r*(Y).r+(Y).i*(X).i)
#define CDIN(X,Y)  ((X).i*(Y).r-(X).r*(Y).i)
#define CNORM(X) ((X).r*(X).r+(X).i*(X).i)
#define CDIV(z,nu,de)  z = Cdiv(nu,de)
#define CONJG(z,X) {(z).r=(X).r;(z).i=-(X).i;}
#define CMULT(z,X,Y) {(z).r=CMULTR((X),(Y)); (z).i=CMULTI((X),(Y));}
#define CADD(z,X,Y) {(z).r=(X).r+(Y).r;(z).i=(X).i+(Y).i;}
#define CSUB(z,X,Y) {(z).r=(X).r-(Y).r;(z).i=(X).i-(Y).i;}
#define CMPLX(X,real,imag) {(X).r=(real);(X).i=(imag);}
#define CASSN(to,from) {to.r=from->r;to.i=from->i;}
#define CTREAL(z,X,real) {(z).r=(X).r*(real);(z).i=(X).i*(real);}
#define CSET(to,from) {to->r=(from).r;to->i=(from).i;}
#define  Egamma 0.577215664901532860606512090082402431
#define PI_DECIMAL 3.141592653589793238462643383279