11 v=(
int *)malloc((
unsigned) (nh-nl+1)*
sizeof(
int));
12 if (!v)
nrerror(
"allocation failure in ivector()");
19 v=(
double *)malloc((
unsigned) (nh-nl+1)*
sizeof(
double));
20 if (!v)
nrerror(
"allocation failure in vector()");
24 int **
imatrix(
int nrl,
int nrh,
int ncl,
int nch)
28 m=(
int **) malloc((
unsigned) (nrh-nrl+1)*
sizeof(
int*));
29 if (!m)
nrerror(
"allocation failure 1 in imatrix()");
32 for(i=nrl;i<=nrh;i++) {
33 m[i]=(
int *) malloc((
unsigned) (nch-ncl+1)*
sizeof(
int));
34 if (!m[i])
nrerror(
"allocation failure 2 in imatrix()");
40 double **
matrix(
int nrl,
int nrh,
int ncl,
int nch)
45 m=(
double **) malloc((
unsigned) (nrh-nrl+1)*
sizeof(
double*));
46 if (!m)
nrerror(
"allocation failure 1 in matrix()");
49 for(i=nrl;i<=nrh;i++) {
50 m[i]=(
double *) malloc((
unsigned) (nch-ncl+1)*
sizeof(
double));
51 if (!m[i])
nrerror(
"allocation failure 2 in matrix()");
61 m=(
int **) realloc((
char*) (oldm+nrl), (
unsigned) (newnrh-nrl+1)*
sizeof(
int*));
62 if (!m)
nrerror(
"allocation failure 1 in imatrix()");
65 for(i=nrh+1;i<=newnrh;i++) {
66 m[i]=(
int *) malloc((
unsigned) (nch-ncl+1)*
sizeof(
int));
67 if (!m[i])
nrerror(
"allocation failure 2 in imatrix()");
73 double **
reallocmatrix(
double **oldm,
int nrl,
int nrh,
int newnrh,
int ncl,
int nch)
78 m=(
double **) realloc((
char*) (oldm+nrl), (
unsigned) (newnrh-nrl+1)*
sizeof(
double*));
79 if (!m)
nrerror(
"allocation failure 1 in matrix()");
82 for(i=nrh+1;i<=newnrh;i++) {
83 m[i]=(
double *) malloc((
unsigned) (nch-ncl+1)*
sizeof(
double));
84 if (!m[i])
nrerror(
"allocation failure 2 in matrix()");
104 for(i=nrh;i>=nrl;i--) free((
char *) (m[i]+ncl));
105 free((
char*) (m+nrl));
112 for(i=nrh;i>=nrl;i--) free((
char *) (m[i]+ncl));
113 free((
char*) (m+nrl));
int * ivector(int nl, int nh)
double ** reallocmatrix(double **oldm, int nrl, int nrh, int newnrh, int ncl, int nch)
void free_vector(double *v, int nl, int nh)
void nrerror(char *error_text)
double * vector(int nl, int nh)
void free_imatrix(int **m, int nrl, int nrh, int ncl, int nch)
void free_ivector(int *v, int nl, int nh)
void free_matrix(double **m, int nrl, int nrh, int ncl, int nch)
int ** imatrix(int nrl, int nrh, int ncl, int nch)
double ** matrix(int nrl, int nrh, int ncl, int nch)
int ** ireallocmatrix(int **oldm, int nrl, int nrh, int newnrh, int ncl, int nch)