/Proj4/vector1.c
http://github.com/route-me/route-me · C · 33 lines · 30 code · 2 blank · 1 comment · 5 complexity · d4e2f574e50947cd389b8f6a7bab88c6 MD5 · raw file
- /* make storage for one and two dimensional matricies */
- #ifndef lint
- static const char SCCSID[]="@(#)vector1.c 4.4 94/03/22 GIE REL";
- #endif
- #include <stdlib.h>
- #include "projects.h"
- void * /* one dimension array */
- vector1(int nvals, int size) { return((void *)pj_malloc(size * nvals)); }
- void /* free 2D array */
- freev2(void **v, int nrows) {
- if (v) {
- for (v += nrows; nrows > 0; --nrows)
- pj_dalloc(*--v);
- pj_dalloc(v);
- }
- }
- void ** /* two dimension array */
- vector2(int nrows, int ncols, int size) {
- void **s;
- s = (void **)pj_malloc(sizeof(void *) * nrows);
- if (s) {
- int rsize, i;
- rsize = size * ncols;
- for (i = 0; i < nrows; ++i)
- if (!(s[i] = pj_malloc(rsize))) {
- freev2(s, i);
- return (void **)0;
- }
- }
- return s;
- }