1
/* make storage for one and two dimensional matricies */
3
static const char SCCSID[]="@(#)vector1.c 4.4 94/03/22 GIE REL";
7
void * /* one dimension array */
8
vector1(int nvals, int size) { return((void *)pj_malloc(size * nvals)); }
9
void /* free 2D array */
10
freev2(void **v, int nrows) {
12
for (v += nrows; nrows > 0; --nrows)
17
void ** /* two dimension array */
18
vector2(int nrows, int ncols, int size) {
21
if (s = (void **)pj_malloc(sizeof(void *) * nrows)) {
25
for (i = 0; i < nrows; ++i)
26
if (!(s[i] = pj_malloc(rsize))) {