heap_alloc()

static heap heap_alloc ( unsigned  nalloc, unsigned  fdim  )

static

{
     heap h;
     unsigned i;
     h.n = 0;
     h.nalloc = 0;
     h.items = 0;
     h.fdim = fdim;
     h.ee = (esterr *) malloc(sizeof(esterr) * fdim);
     if (h.ee) {
          for (i = 0; i < fdim; ++i) h.ee[i].val = h.ee[i].err = 0;
          heap_resize(&h, nalloc);
     }
     return h;
}