![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to array.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin|
Return to array.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / builtin |
| version 1.36, 2004/09/14 07:23:34 | version 1.37, 2004/09/15 01:43:32 | ||
|---|---|---|---|
|
|
||
| * 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/builtin/array.c,v 1.35 2004/06/30 20:01:36 ohara Exp $ | * $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.36 2004/09/14 07:23:34 noro Exp $ | ||
| */ | */ | ||
| #include "ca.h" | #include "ca.h" | ||
| #include "base.h" | #include "base.h" | ||
|
|
||
| {"ltov",Pltov,1}, | {"ltov",Pltov,1}, | ||
| {"size",Psize,1}, | {"size",Psize,1}, | ||
| {"det",Pdet,-2}, | {"det",Pdet,-2}, | ||
| {"nd_det",Pnd_det,1}, | {"nd_det",Pnd_det,-2}, | ||
| {"invmat",Pinvmat,-2}, | {"invmat",Pinvmat,-2}, | ||
| {"leqm",Pleqm,2}, | {"leqm",Pleqm,2}, | ||
| {"leqm1",Pleqm1,2}, | {"leqm1",Pleqm1,2}, | ||
|
|
||
| void Pnd_det(NODE arg,P *rp) | void Pnd_det(NODE arg,P *rp) | ||
| { | { | ||
| nd_det(ARG0(arg),rp); | if ( argc(arg) == 1 ) | ||
| nd_det(0,ARG0(arg),rp); | |||
| else | |||
| nd_det(QTOS((Q)ARG1(arg)),ARG0(arg),rp); | |||
| } | } |