NRUTIL.C File Reference

#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <malloc.h>
#include <math.h>

Include dependency graph for NRUTIL.C:

Go to the source code of this file.

Macros
#define	FREE_ARG   char*
#define	NR_END   1

Functions
float **	convert_matrix (float *a, long nrl, long nrh, long ncl, long nch)
unsigned char *	cvector (long nl, long nh)
double **	dmatrix (long nrl, long nrh, long ncl, long nch)
double *	dvector (long nl, long nh)
float ***	f3tensor (long nrl, long nrh, long ncl, long nch, long ndl, long ndh)
void	free_convert_matrix (float **b, long nrl, long nrh, long ncl, long nch)
void	free_cvector (unsigned char *v, long nl, long nh)
void	free_dmatrix (double **m, long nrl, long nrh, long ncl, long nch)
void	free_dvector (double *v, long nl, long nh)
void	free_f3tensor (float ***t, long nrl, long nrh, long ncl, long nch, long ndl, long ndh)
void	free_imatrix (int **m, long nrl, long nrh, long ncl, long nch)
void	free_ivector (int *v, long nl, long nh)
void	free_lvector (unsigned long *v, long nl, long nh)
void	free_matrix (float **m, long nrl, long nrh, long ncl, long nch)
void	free_submatrix (float **b, long nrl, long nrh, long ncl, long nch)
void	free_vector (float *v, long nl, long nh)
int **	imatrix (long nrl, long nrh, long ncl, long nch)
int *	ivector (long nl, long nh)
unsigned long *	lvector (long nl, long nh)
float **	matrix (long nrl, long nrh, long ncl, long nch)
void	nrerror (error_text)
float **	submatrix (float **a, long oldrl, long oldrh, long oldcl, long oldch, long newrl, long newcl)
float *	vector (long nl, long nh)

Macro Definition Documentation

FREE_ARG

#define FREE_ARG   char*

Definition at line 303 of file NRUTIL.C.

Referenced by free_convert_matrix(), free_cvector(), free_dmatrix(), free_dvector(), free_f3tensor(), free_imatrix(), free_ivector(), free_lvector(), free_matrix(), free_submatrix(), and free_vector().

NR_END

#define NR_END   1

Definition at line 302 of file NRUTIL.C.

Referenced by convert_matrix(), cvector(), dmatrix(), dvector(), f3tensor(), free_convert_matrix(), free_cvector(), free_dmatrix(), free_dvector(), free_f3tensor(), free_imatrix(), free_ivector(), free_lvector(), free_matrix(), free_submatrix(), free_vector(), imatrix(), ivector(), lvector(), matrix(), submatrix(), and vector().

Function Documentation

convert_matrix()

float** convert_matrix	(	float *	a,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 469 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i,j,nrow=nrh-nrl+1,ncol=nch-ncl+1;
    float **m;

    /* allocate pointers to rows */
    m=(float **) malloc((unsigned int) ((nrow+NR_END)*sizeof(float*)));
    if (!m) nrerror("allocation failure in convert_matrix()");
    m += NR_END;
    m -= nrl;

    /* set pointers to rows */
    m[nrl]=a-ncl;
    for(i=1,j=nrl+1;i<nrow;i++,j++) m[j]=m[j-1]+ncol;
    /* return pointer to array of pointers to rows */
    return m;
}

Here is the call graph for this function:

cvector()

unsigned char* cvector	(	long	nl,
		long	nh
	)

Definition at line 339 of file NRUTIL.C.

References NR_END, and nrerror().

{
    unsigned char *v;

    v=(unsigned char *)malloc((unsigned int) ((nh-nl+1+NR_END)*sizeof(unsigned char)));
    if (!v) nrerror("allocation failure in cvector()");
    return v-nl+NR_END;
}

Here is the call graph for this function:

dmatrix()

double** dmatrix	(	long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 397 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i, nrow=nrh-nrl+1,ncol=nch-ncl+1;
    double **m;

    /* allocate pointers to rows */
    m=(double **) malloc((unsigned int)((nrow+NR_END)*sizeof(double*)));
    if (!m) nrerror("allocation failure 1 in matrix()");
    m += NR_END;
    m -= nrl;

    /* allocate rows and set pointers to them */
    m[nrl]=(double *) malloc((unsigned int)((nrow*ncol+NR_END)*sizeof(double)));
    if (!m[nrl]) nrerror("allocation failure 2 in matrix()");
    m[nrl] += NR_END;
    m[nrl] -= ncl;

    for(i=nrl+1;i<=nrh;i++) m[i]=m[i-1]+ncol;

    /* return pointer to array of pointers to rows */
    return m;
}

Here is the call graph for this function:

dvector()

double* dvector	(	long	nl,
		long	nh
	)

Definition at line 361 of file NRUTIL.C.

References NR_END, and nrerror().

{
    double *v;

    v=(double *)malloc((unsigned int) ((nh-nl+1+NR_END)*sizeof(double)));
    if (!v) nrerror("allocation failure in dvector()");
    return v-nl+NR_END;
}

Here is the call graph for this function:

f3tensor()

float*** f3tensor	(	long	nrl,
		long	nrh,
		long	ncl,
		long	nch,
		long	ndl,
		long	ndh
	)

Definition at line 493 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i,j,nrow=nrh-nrl+1,ncol=nch-ncl+1,ndep=ndh-ndl+1;
    float ***t;

    /* allocate pointers to pointers to rows */
    t=(float ***) malloc((unsigned int)((nrow+NR_END)*sizeof(float**)));
    if (!t) nrerror("allocation failure 1 in f3tensor()");
    t += NR_END;
    t -= nrl;

    /* allocate pointers to rows and set pointers to them */
    t[nrl]=(float **) malloc((unsigned int)((nrow*ncol+NR_END)*sizeof(float*)));
    if (!t[nrl]) nrerror("allocation failure 2 in f3tensor()");
    t[nrl] += NR_END;
    t[nrl] -= ncl;

    /* allocate rows and set pointers to them */
    t[nrl][ncl]=(float *) malloc((unsigned int)((nrow*ncol*ndep+NR_END)*sizeof(float)));
    if (!t[nrl][ncl]) nrerror("allocation failure 3 in f3tensor()");
    t[nrl][ncl] += NR_END;
    t[nrl][ncl] -= ndl;

    for(j=ncl+1;j<=nch;j++) t[nrl][j]=t[nrl][j-1]+ndep;
    for(i=nrl+1;i<=nrh;i++) {
        t[i]=t[i-1]+ncol;
        t[i][ncl]=t[i-1][ncl]+ncol*ndep;
        for(j=ncl+1;j<=nch;j++) t[i][j]=t[i][j-1]+ndep;
    }

    /* return pointer to array of pointers to rows */
    return t;
}

Here is the call graph for this function:

free_convert_matrix()

void free_convert_matrix	(	float **	b,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 604 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (b+nrl-NR_END));
}

free_cvector()

void free_cvector	(	unsigned char *	v,
		long	nl,
		long	nh
	)

Definition at line 545 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (v+nl-NR_END));
}

free_dmatrix()

void free_dmatrix	(	double **	m,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 578 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (m[nrl]+ncl-NR_END));
    free((FREE_ARG) (m+nrl-NR_END));
}

free_dvector()

void free_dvector	(	double *	v,
		long	nl,
		long	nh
	)

Definition at line 561 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (v+nl-NR_END));
}

free_f3tensor()

void free_f3tensor	(	float ***	t,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch,
		long	ndl,
		long	ndh
	)

Definition at line 612 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (t[nrl][ncl]+ndl-NR_END));
    free((FREE_ARG) (t[nrl]+ncl-NR_END));
    free((FREE_ARG) (t+nrl-NR_END));
}

free_imatrix()

void free_imatrix	(	int **	m,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 587 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (m[nrl]+ncl-NR_END));
    free((FREE_ARG) (m+nrl-NR_END));
}

free_ivector()

void free_ivector	(	int *	v,
		long	nl,
		long	nh
	)

Definition at line 537 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (v+nl-NR_END));
}

free_lvector()

void free_lvector	(	unsigned long *	v,
		long	nl,
		long	nh
	)

Definition at line 553 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (v+nl-NR_END));
}

free_matrix()

void free_matrix	(	float **	m,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 569 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (m[nrl]+ncl-NR_END));
    free((FREE_ARG) (m+nrl-NR_END));
}

free_submatrix()

void free_submatrix	(	float **	b,
		long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 596 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (b+nrl-NR_END));
}

free_vector()

void free_vector	(	float *	v,
		long	nl,
		long	nh
	)

Definition at line 529 of file NRUTIL.C.

References FREE_ARG, and NR_END.

{
    free((FREE_ARG) (v+nl-NR_END));
}

imatrix()

int** imatrix	(	long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 422 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i, nrow=nrh-nrl+1,ncol=nch-ncl+1;
    int **m;

    /* allocate pointers to rows */
    m=(int **) malloc((unsigned int)((nrow+NR_END)*sizeof(int*)));
    if (!m) nrerror("allocation failure 1 in matrix()");
    m += NR_END;
    m -= nrl;


    /* allocate rows and set pointers to them */
    m[nrl]=(int *) malloc((unsigned int)((nrow*ncol+NR_END)*sizeof(int)));
    if (!m[nrl]) nrerror("allocation failure 2 in matrix()");
    m[nrl] += NR_END;
    m[nrl] -= ncl;

    for(i=nrl+1;i<=nrh;i++) m[i]=m[i-1]+ncol;

    /* return pointer to array of pointers to rows */
    return m;
}

Here is the call graph for this function:

ivector()

int* ivector	(	long	nl,
		long	nh
	)

Definition at line 328 of file NRUTIL.C.

References NR_END, and nrerror().

{
    int *v;

    v=(int *)malloc((unsigned int) ((nh-nl+1+NR_END)*sizeof(int)));
    if (!v) nrerror("allocation failure in ivector()");
    return v-nl+NR_END;
}

Here is the call graph for this function:

lvector()

unsigned long* lvector	(	long	nl,
		long	nh
	)

Definition at line 350 of file NRUTIL.C.

References NR_END, and nrerror().

{
    unsigned long *v;

    v=(unsigned long *)malloc((unsigned int) ((nh-nl+1+NR_END)*sizeof(long)));
    if (!v) nrerror("allocation failure in lvector()");
    return v-nl+NR_END;
}

Here is the call graph for this function:

matrix()

float** matrix	(	long	nrl,
		long	nrh,
		long	ncl,
		long	nch
	)

Definition at line 372 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i, nrow=nrh-nrl+1,ncol=nch-ncl+1;
    float **m;

    /* allocate pointers to rows */
    m=(float **) malloc((unsigned int)((nrow+NR_END)*sizeof(float*)));
    if (!m) nrerror("allocation failure 1 in matrix()");
    m += NR_END;
    m -= nrl;

    /* allocate rows and set pointers to them */
    m[nrl]=(float *) malloc((unsigned int)((nrow*ncol+NR_END)*sizeof(float)));
    if (!m[nrl]) nrerror("allocation failure 2 in matrix()");
    m[nrl] += NR_END;
    m[nrl] -= ncl;

    for(i=nrl+1;i<=nrh;i++) m[i]=m[i-1]+ncol;

    /* return pointer to array of pointers to rows */
    return m;
}

Here is the call graph for this function:

nrerror()

void nrerror

(

error_text

)

Definition at line 305 of file NRUTIL.C.

Referenced by convert_matrix(), cvector(), dmatrix(), dvector(), f3tensor(), imatrix(), ivector(), lvector(), matrix(), submatrix(), and vector().

{
    void exit();

    fprintf(stderr,"Numerical Recipes run-time error...\n");
    fprintf(stderr,"%s\n",error_text);
    fprintf(stderr,"...now exiting to system...\n");
    exit(1);
}

Here is the caller graph for this function:

submatrix()

float** submatrix	(	float **	a,
		long	oldrl,
		long	oldrh,
		long	oldcl,
		long	oldch,
		long	newrl,
		long	newcl
	)

Definition at line 448 of file NRUTIL.C.

References NR_END, and nrerror().

{
    long i,j,nrow=oldrh-oldrl+1,ncol=oldcl-newcl;
    float **m;

    /* allocate array of pointers to rows */
    m=(float **) malloc((unsigned int) ((nrow+NR_END)*sizeof(float*)));
    if (!m) nrerror("allocation failure in submatrix()");
    m += NR_END;
    m -= newrl;

    /* set pointers to rows */
    for(i=oldrl,j=newrl;i<=oldrh;i++,j++) m[j]=a[i]+ncol;

    /* return pointer to array of pointers to rows */
    return m;
}

Here is the call graph for this function:

vector()

float* vector	(	long	nl,
		long	nh
	)

Definition at line 317 of file NRUTIL.C.

References NR_END, and nrerror().

{
    float *v;

    v=(float *)malloc((unsigned int) ((nh-nl+1+NR_END)*sizeof(float)));
    if (!v) nrerror("allocation failure in vector()");
    return v-nl+NR_END;
}

Here is the call graph for this function: