version 1.13, 2004/12/18 16:50:10 |
version 1.14, 2005/06/03 07:16:16 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/engine/mat.c,v 1.12 2004/08/18 06:30:07 saito Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/mat.c,v 1.13 2004/12/18 16:50:10 saito Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "../parse/parse.h" |
#include "../parse/parse.h" |
|
|
extern int StrassenSize; |
extern int StrassenSize; |
|
/* remove miser type |
void mulmatmat_miser(); |
void mulmatmat_miser(); |
|
*/ |
|
|
void addmat(vl,a,b,c) |
void addmat(vl,a,b,c) |
VL vl; |
VL vl; |
|
|
} |
} |
} |
} |
|
|
|
/* remove miser type |
void addmat_miser(vl,a,b,c,ar0,ac0,ar1,ac1,br0,bc0,br1,bc1) |
void addmat_miser(vl,a,b,c,ar0,ac0,ar1,ac1,br0,bc0,br1,bc1) |
VL vl; |
VL vl; |
MAT a,b,*c; |
MAT a,b,*c; |
Line 197 int ar0,ac0,ar1,ac1,br0,bc0,br1,bc1; |
|
Line 200 int ar0,ac0,ar1,ac1,br0,bc0,br1,bc1; |
|
*c = t; |
*c = t; |
} |
} |
} |
} |
|
*/ |
|
|
void mulmat(vl,a,b,c) |
void mulmat(vl,a,b,c) |
VL vl; |
VL vl; |
|
|
case O_VECT: |
case O_VECT: |
mulmatvect(vl,(MAT)a,(VECT)b,(VECT *)c); break; |
mulmatvect(vl,(MAT)a,(VECT)b,(VECT *)c); break; |
case O_MAT: |
case O_MAT: |
|
mulmatmat(vl, (MAT)a, (MAT)b, (MAT *)c); break; |
|
/* remove miser type |
mulmatmat_miser(vl,(MAT)a,(MAT)b,(MAT *)c, 0,0, ((MAT)a)->row-1, ((MAT)a)->col-1, 0,0,((MAT)b)->row-1, ((MAT)b)->col-1); break; |
mulmatmat_miser(vl,(MAT)a,(MAT)b,(MAT *)c, 0,0, ((MAT)a)->row-1, ((MAT)a)->col-1, 0,0,((MAT)b)->row-1, ((MAT)b)->col-1); break; |
|
*/ |
default: |
default: |
notdef(vl,a,b,c); break; |
notdef(vl,a,b,c); break; |
} |
} |
|
|
*c = t; |
*c = t; |
} |
} |
|
|
|
#if 0 |
|
/* remove miser type */ |
void mulmatmat_miser(vl,a,b,c,ar0,ac0,ar1,ac1,br0,bc0,br1,bc1) |
void mulmatmat_miser(vl,a,b,c,ar0,ac0,ar1,ac1,br0,bc0,br1,bc1) |
VL vl; |
VL vl; |
MAT a,b,*c; |
MAT a,b,*c; |
Line 743 int ar0, ac0, ar1, ac1, br0, bc0, br1, bc1; |
|
Line 752 int ar0, ac0, ar1, ac1, br0, bc0, br1, bc1; |
|
} |
} |
*c = t; |
*c = t; |
} |
} |
|
#endif |
|
|
void mulmatvect(vl,a,b,c) |
void mulmatvect(vl,a,b,c) |
VL vl; |
VL vl; |