lib/linalg.h

   1 # include "xmath.h"
   2 # include "xlisp.h"
   3 # include "complex.h"
   4
   5 extern void *calloc(); /*conflict?  was (char *) */
   6 extern double macheps();
   7
   8 #define nil 0L
   9
  10 typedef char **Matrix, *Vector;
  11 typedef int **IMatrix, *IVector;
  12 typedef double **RMatrix, *RVector;
  13 typedef Complex **CMatrix, *CVector;
  14
  15 #define IN 0
  16 #define RE 1
  17 #define CX 2
  18
  19 /* external functions */
  20 extern IVector ivector();
  21 extern RVector rvector();
  22 extern CVector cvector();
  23 extern IMatrix imatrix();
  24 extern RMatrix rmatrix();
  25 extern CMatrix cmatrix();
  26
  27 extern void free_vector(double *);