Skip to content

Commit

Permalink
prettify
Browse files Browse the repository at this point in the history
  • Loading branch information
@wilfonba
wilfonba committed Feb 23, 2024
1 parent 301716e commit 8319386
Showing 1 changed file with 27 additions and 27 deletions.
54 changes: 27 additions & 27 deletions src/post_process/m_mpi_proxy.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1056,11 +1056,11 @@ contains
! Sending/receiving the data to/from bc_y%end/bc_y%beg
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
bc_y%end, 0, q_cons_buffer_in(0), &
int(buff_size*sys_size* &
(m + 2*buff_size + 1)*(p + 1)), &
(m + 2*buff_size + 1)*(p + 1)), &
MPI_DOUBLE_PRECISION, bc_y%beg, 0, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand All @@ -1086,11 +1086,11 @@ contains
! Sending/receiving the data to/from bc_y%beg/bc_y%beg
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
bc_y%beg, 1, q_cons_buffer_in(0), &
int(buff_size*sys_size* &
(m + 2*buff_size + 1)*(p + 1)), &
(m + 2*buff_size + 1)*(p + 1)), &
MPI_DOUBLE_PRECISION, bc_y%beg, 0, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand Down Expand Up @@ -1142,10 +1142,10 @@ contains
! Sending/receiving the data to/from bc_y%beg/bc_y%end
call MPI_SENDRECV(q_cons_buffer_out(0), buff_size* &
int(sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
(p + 1)), MPI_DOUBLE_PRECISION, &
bc_y%beg, 1, q_cons_buffer_in(0), &
int(buff_size*sys_size* &
(m + 2*buff_size + 1)*(p + 1)), &
(m + 2*buff_size + 1)*(p + 1)), &
MPI_DOUBLE_PRECISION, bc_y%end, 1, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand All @@ -1172,11 +1172,11 @@ contains
! Sending/receiving the data to/from bc_y%end/bc_y%end
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
sys_size*(m + 2*buff_size + 1)* &
(p + 1)), MPI_DOUBLE_PRECISION, &
bc_y%end, 0, q_cons_buffer_in(0), &
int(buff_size*sys_size* &
(m + 2*buff_size + 1)*(p + 1)), &
(m + 2*buff_size + 1)*(p + 1)), &
MPI_DOUBLE_PRECISION, bc_y%end, 1, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand Down Expand Up @@ -1237,12 +1237,12 @@ contains
! Sending/receiving the data to/from bc_z%end/bc_z%beg
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%end, 0, &
q_cons_buffer_in(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%beg, 0, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand All @@ -1269,12 +1269,12 @@ contains
! Sending/receiving the data to/from bc_z%beg/bc_z%beg
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%beg, 1, &
q_cons_buffer_in(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%beg, 0, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand Down Expand Up @@ -1327,12 +1327,12 @@ contains
! Sending/receiving the data to/from bc_z%beg/bc_z%end
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%beg, 1, &
q_cons_buffer_in(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%end, 1, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand Down Expand Up @@ -1360,12 +1360,12 @@ contains
! Sending/receiving the data to/from bc_z%end/bc_z%end
call MPI_SENDRECV(q_cons_buffer_out(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%end, 0, &
q_cons_buffer_in(0), int(buff_size* &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
sys_size*(m + 2*buff_size + 1)* &
(n + 2*buff_size + 1)), &
MPI_DOUBLE_PRECISION, bc_z%end, 1, &
MPI_COMM_WORLD, MPI_STATUS_IGNORE, &
ierr)
Expand Down

0 comments on commit 8319386

Please sign in to comment.