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);
 }