1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
--- Poisson.c.orig 2021-08-12 13:42:04 UTC
+++ Poisson.c
@@ -209,8 +209,8 @@ void FFT_Poisson(double *ReRhor, double *ImRhor,
allocation of arrays:
****************************************************/
- in = fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
- out = fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
+ in = (fftw_complex *)fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
+ out = (fftw_complex *)fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
ReTmp = (double*)malloc(sizeof(double)*My_NumGridB_AB);
ImTmp = (double*)malloc(sizeof(double)*My_NumGridB_AB);
@@ -260,10 +260,10 @@ void FFT_Poisson(double *ReRhor, double *ImRhor,
array0 = (double*)malloc(sizeof(double)*2*GP_B_AB2CA_S[NN_B_AB2CA_S]);
array1 = (double*)malloc(sizeof(double)*2*GP_B_AB2CA_R[NN_B_AB2CA_R]);
- request_send = malloc(sizeof(MPI_Request)*NN_B_AB2CA_S);
- request_recv = malloc(sizeof(MPI_Request)*NN_B_AB2CA_R);
- stat_send = malloc(sizeof(MPI_Status)*NN_B_AB2CA_S);
- stat_recv = malloc(sizeof(MPI_Status)*NN_B_AB2CA_R);
+ request_send = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_AB2CA_S);
+ request_recv = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_AB2CA_R);
+ stat_send = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_AB2CA_S);
+ stat_recv = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_AB2CA_R);
NN_S = 0;
NN_R = 0;
@@ -385,10 +385,10 @@ void FFT_Poisson(double *ReRhor, double *ImRhor,
array0 = (double*)malloc(sizeof(double)*2*GP_B_CA2CB_S[NN_B_CA2CB_S]);
array1 = (double*)malloc(sizeof(double)*2*GP_B_CA2CB_R[NN_B_CA2CB_R]);
- request_send = malloc(sizeof(MPI_Request)*NN_B_CA2CB_S);
- request_recv = malloc(sizeof(MPI_Request)*NN_B_CA2CB_R);
- stat_send = malloc(sizeof(MPI_Status)*NN_B_CA2CB_S);
- stat_recv = malloc(sizeof(MPI_Status)*NN_B_CA2CB_R);
+ request_send = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_CA2CB_S);
+ request_recv = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_CA2CB_R);
+ stat_send = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_CA2CB_S);
+ stat_recv = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_CA2CB_R);
NN_S = 0;
NN_R = 0;
@@ -592,8 +592,8 @@ void Inverse_FFT_Poisson(double *ReRhor, double *ImRho
fftw_complex out[List_YOUSO[17]];
****************************************************/
- in = fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
- out = fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
+ in = (fftw_complex *)fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
+ out = (fftw_complex *)fftw_malloc(sizeof(fftw_complex)*List_YOUSO[17]);
ReTmp = (double*)malloc(sizeof(double)*My_NumGridB_CB);
ImTmp = (double*)malloc(sizeof(double)*My_NumGridB_CB);
@@ -643,10 +643,10 @@ void Inverse_FFT_Poisson(double *ReRhor, double *ImRho
array0 = (double*)malloc(sizeof(double)*2*GP_B_CA2CB_R[NN_B_CA2CB_R]);
array1 = (double*)malloc(sizeof(double)*2*GP_B_CA2CB_S[NN_B_CA2CB_S]);
- request_send = malloc(sizeof(MPI_Request)*NN_B_CA2CB_R);
- request_recv = malloc(sizeof(MPI_Request)*NN_B_CA2CB_S);
- stat_send = malloc(sizeof(MPI_Status)*NN_B_CA2CB_R);
- stat_recv = malloc(sizeof(MPI_Status)*NN_B_CA2CB_S);
+ request_send = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_CA2CB_R);
+ request_recv = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_CA2CB_S);
+ stat_send = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_CA2CB_R);
+ stat_recv = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_CA2CB_S);
NN_S = 0;
NN_R = 0;
@@ -768,10 +768,10 @@ void Inverse_FFT_Poisson(double *ReRhor, double *ImRho
array0 = (double*)malloc(sizeof(double)*2*GP_B_AB2CA_R[NN_B_AB2CA_R]);
array1 = (double*)malloc(sizeof(double)*2*GP_B_AB2CA_S[NN_B_AB2CA_S]);
- request_send = malloc(sizeof(MPI_Request)*NN_B_AB2CA_R);
- request_recv = malloc(sizeof(MPI_Request)*NN_B_AB2CA_S);
- stat_send = malloc(sizeof(MPI_Status)*NN_B_AB2CA_R);
- stat_recv = malloc(sizeof(MPI_Status)*NN_B_AB2CA_S);
+ request_send = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_AB2CA_R);
+ request_recv = (MPI_Request *)malloc(sizeof(MPI_Request)*NN_B_AB2CA_S);
+ stat_send = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_AB2CA_R);
+ stat_recv = (MPI_Status *)malloc(sizeof(MPI_Status)*NN_B_AB2CA_S);
NN_S = 0;
NN_R = 0;
|
