fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psi_comm_buffers_mod.F90

Fix mpi type definitions in serial mode.
psblas3-final
Salvatore Filippone 12 years ago
parent f40ea391d3
commit 21cb8304d8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

8
base/modules/psi_comm_buffers_mod.F90
Unescape Escape View File

@ -38,10 +38,10 @@ module mpi
integer(psb_mpik_), parameter :: mpi_status_size = 1 integer(psb_mpik_), parameter :: mpi_status_size = 1
integer(psb_mpik_), parameter :: mpi_integer = 1 integer(psb_mpik_), parameter :: mpi_integer = 1
integer(psb_mpik_), parameter :: mpi_integer8 = 2 integer(psb_mpik_), parameter :: mpi_integer8 = 2
integer(psb_mpik_), parameter :: psb_mpi_r_spk_ = 3 integer(psb_mpik_), parameter :: mpi_real = 3
integer(psb_mpik_), parameter :: psb_mpi_r_dpk_ = 4 integer(psb_mpik_), parameter :: mpi_double_precision = 4
integer(psb_mpik_), parameter :: psb_mpi_c_spk_ = 5 integer(psb_mpik_), parameter :: mpi_complex = 5
integer(psb_mpik_), parameter :: psb_mpi_c_dpk_ = 6 integer(psb_mpik_), parameter :: mpi_double_complex = 6
integer(psb_mpik_), parameter :: mpi_character = 7 integer(psb_mpik_), parameter :: mpi_character = 7
integer(psb_mpik_), parameter :: mpi_logical = 8 integer(psb_mpik_), parameter :: mpi_logical = 8
integer(psb_mpik_), parameter :: mpi_integer2 = 9 integer(psb_mpik_), parameter :: mpi_integer2 = 9

Write Preview
Loading…
Cancel
Save