software/Nstrophy
1
Fork 0
Code Issues Pull Requests Releases Activity

Fix order of arguments in calloc

Browse Source
This commit is contained in:
Ian Jauslin 2024-10-15 11:31:53 -04:00
parent 41ff1919f0
commit f93ada07f0
4 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/io.c
View File

@ -71,7 +71,7 @@ int read_vec(_Complex double* out, int K1, int K2, FILE* file){
}
// allocate line buffer
line=calloc(sizeof(char), len);
line=calloc(len,sizeof(char));
while(1){
c=fgetc(file);
@ -126,7 +126,7 @@ int read_vec(_Complex double* out, int K1, int K2, FILE* file){
// check that there is room in buffer
if(pos==len){
// too short: reallocate
line_realloc=calloc(sizeof(char), 2*len);
line_realloc=calloc(2*len,sizeof(char));
for(pos=0;pos<len;pos++){
line_realloc[pos]=line[pos];
}
@ -258,7 +258,7 @@ int save_state(
// params
// allocate buffer for params
if(params_string!=NULL) {
char* params=calloc(sizeof(char), strlen(params_string)+1);
char* params=calloc(strlen(params_string)+1,sizeof(char));
strcpy(params, params_string);
remove_entry(params, "starting_time");
remove_entry(params, "init");

16
src/lyapunov.c
View File

@ -301,14 +301,14 @@ int lyapunov_init_tmps(
){
ns_init_tmps(u, tmp3, tmp4, tmp5, tmp6, tmp7, tmp8, tmp9, fft1, fft2, ifft, K1, K2, N1, N2, nthreads, algorithm);
*lyapunov=calloc(sizeof(double),MATSIZE);
*lyapunov_avg=calloc(sizeof(double),MATSIZE);
*Du_prod=calloc(sizeof(double),MATSIZE*MATSIZE);
*Du=calloc(sizeof(double),MATSIZE*MATSIZE);
*prevu=calloc(sizeof(_Complex double),USIZE);
*tmp1=calloc(sizeof(_Complex double),USIZE);
*tmp2=calloc(sizeof(_Complex double),USIZE);
*tmp10=calloc(sizeof(double),MATSIZE*MATSIZE);
*lyapunov=calloc(MATSIZE,sizeof(double));
*lyapunov_avg=calloc(MATSIZE,sizeof(double));
*Du_prod=calloc(MATSIZE*MATSIZE,sizeof(double));
*Du=calloc(MATSIZE*MATSIZE,sizeof(double));
*prevu=calloc(USIZE,sizeof(_Complex double));
*tmp1=calloc(USIZE,sizeof(_Complex double));
*tmp2=calloc(USIZE,sizeof(_Complex double));
*tmp10=calloc(MATSIZE*MATSIZE,sizeof(double));
return(0);
}

4
src/main.c
View File

@ -958,7 +958,7 @@ int args_from_file(
_Complex double* set_driving(
nstrophy_parameters parameters
){
_Complex double* g=calloc(sizeof(_Complex double),parameters.K1*(2*parameters.K2+1)+parameters.K2);
_Complex double* g=calloc(parameters.K1*(2*parameters.K2+1)+parameters.K2,sizeof(_Complex double));
switch(parameters.driving){
case DRIVING_ZERO:
@ -987,7 +987,7 @@ _Complex double* set_driving(
_Complex double* set_init(
nstrophy_parameters* parameters
){
_Complex double* u0=calloc(sizeof(_Complex double),parameters->K1*(2*parameters->K2+1)+parameters->K2);
_Complex double* u0=calloc(parameters->K1*(2*parameters->K2+1)+parameters->K2,sizeof(_Complex double));
switch(parameters->init){
case INIT_RANDOM:

36
src/navier-stokes.c
View File

@ -346,30 +346,30 @@ int ns_init_tmps(
unsigned int algorithm
){
// velocity field
*u=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*u=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
// allocate tmp vectors for computation
if(algorithm==ALGORITHM_RK2){
*tmp1=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp2=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp1=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp2=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
} else if (algorithm==ALGORITHM_RK4){
*tmp1=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp2=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp3=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp1=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp2=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp3=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
} else if (algorithm==ALGORITHM_RKF45 || algorithm==ALGORITHM_RKDP54){
*tmp1=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp2=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp3=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp4=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp5=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp6=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp7=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp1=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp2=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp3=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp4=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp5=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp6=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp7=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
} else if (algorithm==ALGORITHM_RKBS32){
*tmp1=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp2=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp3=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp4=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp5=calloc(sizeof(_Complex double),K1*(2*K2+1)+K2);
*tmp1=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp2=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp3=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp4=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
*tmp5=calloc(K1*(2*K2+1)+K2,sizeof(_Complex double));
} else {
fprintf(stderr,"bug: unknown algorithm: %u, contact ian.jauslin@rutgers,edu\n",algorithm);
};