version 1.1, 2018/09/19 05:45:06 |
version 1.2, 2018/09/28 08:20:27 |
|
|
/* |
/* |
* $OpenXM$ |
* $OpenXM: OpenXM_contrib2/asir2018/builtin/iarray.c,v 1.1 2018/09/19 05:45:06 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
|
|
|
|
asir_assert(ARG0(arg),O_N,"newimat"); |
asir_assert(ARG0(arg),O_N,"newimat"); |
asir_assert(ARG1(arg),O_N,"newimat"); |
asir_assert(ARG1(arg),O_N,"newimat"); |
row = QTOS((Q)ARG0(arg)); col = QTOS((Q)ARG1(arg)); |
row = ZTOS((Q)ARG0(arg)); col = ZTOS((Q)ARG1(arg)); |
if ( row <= 0 || col <= 0 ) error("newimat : invalid size"); |
if ( row <= 0 || col <= 0 ) error("newimat : invalid size"); |
NEWIMAT(m); |
NEWIMAT(m); |
m->col = col; |
m->col = col; |