diff options
| -rw-r--r-- | R/lossdistrib.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/R/lossdistrib.c b/R/lossdistrib.c index 65295147..ce51e749 100644 --- a/R/lossdistrib.c +++ b/R/lossdistrib.c @@ -79,7 +79,7 @@ void lossdistrib(double *p, int *np, double *w, double *S, int *N, int *defaultf double *qtemp;
lu = 1./(*N-1);
- qtemp = Calloc(*N, double);
+ qtemp = calloc(*N, sizeof(double));
q[0] = 1;
M = 1;
for(i=0; i<(*np); i++){
@@ -107,7 +107,7 @@ void lossdistrib(double *p, int *np, double *w, double *S, int *N, int *defaultf }
q[*N-1] += 1-sum;
}
- Free(qtemp);
+ free(qtemp);
}
void lossdistrib_blas(double *p, int *np, double *w, double *S, int *N, int *defaultflag,
@@ -130,7 +130,7 @@ void lossdistrib_blas(double *p, int *np, double *w, double *S, int *N, int *def int one = 1;
lu = 1./(*N-1);
- qtemp = Calloc(*N, double);
+ qtemp = calloc(*N, sizeof(double));
q[0] = 1;
M = 1;
for(i=0; i<(*np); i++){
@@ -157,7 +157,7 @@ void lossdistrib_blas(double *p, int *np, double *w, double *S, int *N, int *def }
q[*N-1] += 1-sum;
}
- Free(qtemp);
+ free(qtemp);
}
void lossdistrib_Z(double *p, int *np, double *w, double *S, int *N, int *defaultflag,
@@ -195,8 +195,8 @@ void lossdistrib_truncated(double *p, int *np, double *w, double *S, int *N, double *q1, *q2;
lu = 1./(*N-1);
- q1 = Calloc( *T, double);
- q2 = Calloc( *T, double);
+ q1 = calloc( *T, sizeof(double));
+ q2 = calloc( *T, sizeof(double));
q[0] = 1;
M = 1;
for(i=0; i<(*np); i++){
@@ -218,8 +218,8 @@ void lossdistrib_truncated(double *p, int *np, double *w, double *S, int *N, };
M += d2;
}
- Free(q1);
- Free(q2);
+ free(q1);
+ free(q2);
}
void lossdistrib_joint(double *p, int *np, double *w, double *S, int *N, int *defaultflag, double *q) {
@@ -241,7 +241,7 @@ void lossdistrib_joint(double *p, int *np, double *w, double *S, int *N, int *de double *qtemp;
lu = 1./(*N-1);
- qtemp = Calloc( (*N) * (*N), double);
+ qtemp = calloc( (*N) * (*N), sizeof(double));
q[0] = 1;
Mx=1;
My=1;
@@ -288,7 +288,7 @@ void lossdistrib_joint(double *p, int *np, double *w, double *S, int *N, int *de }
q[MIN(*N, Mx)*MIN(My,*N)-1] += 1 - sum;
}
- Free(qtemp);
+ free(qtemp);
}
void lossdistrib_joint_blas(double *p, int *np, double *w, double *S, int *N, int *defaultflag, double *q) {
@@ -316,7 +316,7 @@ void lossdistrib_joint_blas(double *p, int *np, double *w, double *S, int *N, in #endif
lu = 1./(*N-1);
- qtemp = Calloc( (*N) * (*N), double);
+ qtemp = calloc( (*N) * (*N), sizeof(double));
q[0] = 1;
Mx=1;
My=1;
@@ -363,7 +363,7 @@ void lossdistrib_joint_blas(double *p, int *np, double *w, double *S, int *N, in }
q[MIN(*N, Mx)*MIN(My,*N)-1] += 1 - sum;
}
- Free(qtemp);
+ free(qtemp);
}
void recovdist(double *dp, double *pp, int *n, double *w, double *S, int *N, double *q) {
@@ -383,7 +383,7 @@ void recovdist(double *dp, double *pp, int *n, double *w, double *S, int *N, dou double *qtemp;
lu = 1./(*N - 1);
- qtemp = Calloc( (*N), double);
+ qtemp = calloc( (*N), sizeof(double));
q[0] = 1;
M=1;
for(i=0; i<(*n); i++){
@@ -417,7 +417,7 @@ void recovdist(double *dp, double *pp, int *n, double *w, double *S, int *N, dou }
q[*N-1] += 1-sum;
}
- Free(qtemp);
+ free(qtemp);
}
void lossdistrib_prepay_joint(double *dp, double *pp, int *ndp, double *w,
@@ -431,7 +431,7 @@ void lossdistrib_prepay_joint(double *dp, double *pp, int *ndp, double *w, int Mx, My;
lu = 1./(*N-1);
- qtemp = Calloc((*N) * (*N), double);
+ qtemp = calloc((*N) * (*N), sizeof(double));
q[0] = 1;
Mx=1;
My=1;
@@ -504,7 +504,7 @@ void lossdistrib_prepay_joint(double *dp, double *pp, int *ndp, double *w, }
q[MIN(*N, Mx)*MIN(My,*N)-1] += 1 - sum;
}
- Free(qtemp);
+ free(qtemp);
}
void lossdistrib_prepay_joint_blas(double *dp, double *pp, int *ndp, double *w,
@@ -520,7 +520,7 @@ void lossdistrib_prepay_joint_blas(double *dp, double *pp, int *ndp, double *w, int one = 1;
lu = 1./(*N-1);
- qtemp = Calloc((*N) * (*N), double);
+ qtemp = calloc((*N) * (*N), sizeof(double));
q[0] = 1;
Mx=1;
My=1;
@@ -595,7 +595,7 @@ void lossdistrib_prepay_joint_blas(double *dp, double *pp, int *ndp, double *w, }
q[MIN(*N, Mx)*MIN(My,*N)-1] += 1 - sum;
}
- Free(qtemp);
+ free(qtemp);
}
double shockprob(double p, double rho, double Z, int give_log){
@@ -671,7 +671,7 @@ void fitprob(double* Z, double* w, int* nZ, double* rho, double* p0, double* res }
*result = p;
}
- Free(q);
+ free(q);
}
void stochasticrecov(double* R, double* Rtilde, double* Z, double* w, int* nZ,
@@ -804,9 +804,9 @@ void BClossdist(double *defaultprob, int *dim1, int *dim2, dgemv_("n", N, n, &alpha, Lw, N, w, &one, &beta, L + t * (*N), &one);
dgemv_("n", N, n, &alpha, Rw, N, w, &one, &beta, R + t * (*N), &one);
}
- Free(gshocked);
- Free(Rshocked);
- Free(Sshocked);
- Free(Lw);
- Free(Rw);
+ free(gshocked);
+ free(Rshocked);
+ free(Sshocked);
+ free(Lw);
+ free(Rw);
}
|