fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Take out call to mpi_test with --enable-serial

Browse Source
This commit is contained in:
Salvatore Filippone
2017-02-07 09:41:10 +00:00
parent 7d88720e8a
commit faf976a876
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psi_comm_buffers_mod.F90
+6 -2
View File
@@ -149,7 +149,7 @@ contains
type(psb_buffer_node), intent(inout) :: node
integer(psb_ipk_), intent(out) :: info
integer(psb_mpik_) :: status(mpi_status_size),minfo
minfo = mpi_success
call mpi_wait(node%request,status,minfo)
info=minfo
end subroutine psb_wait_buffer
@@ -166,8 +166,12 @@ contains
logical, intent(out) :: flag
integer(psb_ipk_), intent(out) :: info
integer(psb_mpik_) :: status(mpi_status_size), minfo
minfo = mpi_success
#if defined(SERIAL_MPI)
flag = .true.
#else
call mpi_test(node%request,flag,status,minfo)
#endif
info=minfo
end subroutine psb_test_buffer