0000typedef struct {
0001 int dimen; // number of subscripts
0002 int size[4]; // sizes of each subscripts
0003 double *dat; // data pointer
0004 int offs; // offset in bdouble
0005 int mem; // offset in mem
0006} darray;
0007
0008typedef struct {
0009 int dimen;
0010 int size[4];
0011 int *dat;
0012 int offs; // offset in bint
0013 int mem; // offset in mem
0014} iarray;
0015
0016int matmul(darray *c,darray *a,darray *b);
0017
0018int matinv(darray *a);
0019