Graphics Plus/Graphics Plus.iso/general/fractal/kaos.lha/eigenlib/dmatrix.c

C/C++ Source or Header | 1989-11-18 | 388 b | 18 lines

double **dmatrix(nrl,nrh,ncl,nch)
int nrl,nrh,ncl,nch;
{
    int i;
    double **m;
    m = (double **) malloc((unsigned) (nrh - nrl + 1) * sizeof(double *));
    if(!m) printf("dmatrix: allocation failure!");
    m -= nrl;

    for(i=nrl;i<=nrh;i++){
        m[i] = (double *) malloc((unsigned) (nch - ncl + 1) * sizeof(double));
        if(!m) printf("matrix: allocation failure!");
        m[i] -= ncl;
    }
    return(m);
}