array.c

/*
 *  array.c
 *
 *    routines for handling of dynamic arrays in C
 */

#include <errno.h>
#include <stdlib.h>
#include "array.h"

void 
new_dmatrix(dmatrix *ar, int n, int m)
{
   /* 
    * allocate initialized array
    */

   if ( ((ar->ptr = (double *)calloc(n*m, sizeof(double))) != NULL) )
   {
      ar->nx = n;
      ar->ny = m;
   }
   else
   {
      perror("darray");
      exit(-1);
   }
}

void 
delete_dmatrix(dmatrix ar)
{
   free(ar.ptr);
}