Freeing init_arr
@@ -409,7 +409,7 @@ static void ccl_cosmology_compute_power_class(ccl_cosmology * cosmo, int * statu
free(y2d_lin);
*status = CCL_ERROR_CLASS;
strcpy(cosmo->status_message ,"ccl_power.c: ccl_cosmology_compute_power_class(): Error computing CLASS power spectrum\n");
- ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,status);
+ ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,init_arr,status);
return;
}
@@ -421,7 +421,7 @@ static void ccl_cosmology_compute_power_class(ccl_cosmology * cosmo, int * statu
free(y2d_nl);
free(y2d_lin);
gsl_spline2d_free(log_power);
- ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,status);
+ ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,init_arr,status);
strcpy(cosmo->status_message,"ccl_power.c: ccl_cosmology_compute_power_class(): Error creating log_power spline\n");
return;
} else {
@@ -446,7 +446,7 @@ static void ccl_cosmology_compute_power_class(ccl_cosmology * cosmo, int * statu
free(y2d_lin);
*status = CCL_ERROR_CLASS;
strcpy(cosmo->status_message ,"ccl_power.c: ccl_cosmology_compute_power_class(): Error computing CLASS power spectrum\n");
- ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,status);
+ ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,init_arr,status);
return;
}
@@ -459,7 +459,7 @@ static void ccl_cosmology_compute_power_class(ccl_cosmology * cosmo, int * statu
free(y2d_nl);
free(y2d_lin);
gsl_spline2d_free(log_power_nl);
- ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,status);
+ ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,init_arr,status);
strcpy(cosmo->status_message,"ccl_power.c: ccl_cosmology_compute_power_class(): Error creating log_power_nl spline\n");
return;
} else {
@@ -468,7 +468,7 @@ static void ccl_cosmology_compute_power_class(ccl_cosmology * cosmo, int * statu
free(y2d_nl);
}
- ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le, status);
+ ccl_free_class_structs(cosmo, &ba,&th,&pt,&tr,&pm,&sp,&nl,&le,init_arr,status);
free(x);
free(y2d_lin);
free(z);
