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

Improve cleanup on psb_close

Browse Source
This commit is contained in:
Salvatore Filippone
2021-09-24 11:42:51 +02:00
parent 874dd7825e
commit adbae358e4
1 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_penv_mod.F90
+19 -2
View File
@@ -982,9 +982,26 @@ contains
!if ((ctxt /= mpi_comm_null).and.(ctxt /= mpi_comm_world)) then
if (allocated(ctxt%ctxt)) then
!write(0,*) ctxt%ctxt,mpi_comm_world,mpi_comm_null
if ((ctxt%ctxt /= mpi_comm_world).and.(ctxt%ctxt /= mpi_comm_null)) call mpi_comm_Free(ctxt%ctxt,info)
if ((ctxt%ctxt /= mpi_comm_world).and.(ctxt%ctxt /= mpi_comm_null)) &
& call mpi_comm_Free(ctxt%ctxt,info)
end if
if (close_) then
if (info == 0) call mpi_op_free(mpi_mamx_op,info)
if (info == 0) call mpi_op_free(mpi_mamn_op,info)
if (info == 0) call mpi_op_free(mpi_eamx_op,info)
if (info == 0) call mpi_op_free(mpi_eamn_op,info)
if (info == 0) call mpi_op_free(mpi_samx_op,info)
if (info == 0) call mpi_op_free(mpi_samn_op,info)
if (info == 0) call mpi_op_free(mpi_damx_op,info)
if (info == 0) call mpi_op_free(mpi_damn_op,info)
if (info == 0) call mpi_op_free(mpi_camx_op,info)
if (info == 0) call mpi_op_free(mpi_camn_op,info)
if (info == 0) call mpi_op_free(mpi_zamx_op,info)
if (info == 0) call mpi_op_free(mpi_zamn_op,info)
if (info == 0) call mpi_op_free(mpi_snrm2_op,info)
if (info == 0) call mpi_op_free(mpi_dnrm2_op,info)
end if
if (close_) call mpi_finalize(info)
#endif