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

Fix isend for SERIAL_MPI

Browse Source
This commit is contained in:
sfilippone
2025-03-11 12:21:43 +01:00
parent a3aa92dfbc
commit 53930c7bf9
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_penv_mod.F90
+15 -5
View File
@@ -76,6 +76,16 @@ module mpi
end subroutine mpi_send
end interface
interface
subroutine mpi_isend(buf,count,datatype,dest,tag,comm,request,ierr) &
& bind(c,name='mpi_isend')
import
type(*), dimension(..) :: buf
integer(psb_mpk_) :: count, datatype, dest, tag, comm, request,ierr
end subroutine mpi_send
end interface
interface
subroutine mpi_irecv(buf,count,datatype,src,tag,comm,request,ierr) &
& bind(c,name='mpi_irecv')
@@ -643,7 +653,7 @@ contains
write(psb_err_unit,*) 'Fatal memory error inside communication subsystem'
return
end if
call mpi_isend(c_loc(node%doublebuf),size(node%doublebuf),psb_mpi_r_dpk_,&
call mpi_isend(node%doublebuf,size(node%doublebuf),psb_mpi_r_dpk_,&
& dest,tag,icomm,node%request,minfo)
info = minfo
call psb_insert_node(mesg_queue,node)
@@ -680,7 +690,7 @@ contains
write(psb_err_unit,*) 'Fatal memory error inside communication subsystem'
return
end if
call mpi_isend(c_loc(node%complexbuf),size(node%complexbuf),psb_mpi_c_spk_,&
call mpi_isend(node%complexbuf,size(node%complexbuf),psb_mpi_c_spk_,&
& dest,tag,icomm,node%request,minfo)
info = minfo
call psb_insert_node(mesg_queue,node)
@@ -717,7 +727,7 @@ contains
write(psb_err_unit,*) 'Fatal memory error inside communication subsystem'
return
end if
call mpi_isend(c_loc(node%dcomplbuf),size(node%dcomplbuf),psb_mpi_c_dpk_,&
call mpi_isend(node%dcomplbuf,size(node%dcomplbuf),psb_mpi_c_dpk_,&
& dest,tag,icomm,node%request,minfo)
info = minfo
call psb_insert_node(mesg_queue,node)
@@ -755,7 +765,7 @@ contains
write(psb_err_unit,*) 'Fatal memory error inside communication subsystem'
return
end if
call mpi_isend(c_loc(node%logbuf),size(node%logbuf),mpi_logical,&
call mpi_isend(node%logbuf,size(node%logbuf),mpi_logical,&
& dest,tag,icomm,node%request,minfo)
info = minfo
call psb_insert_node(mesg_queue,node)
@@ -793,7 +803,7 @@ contains
write(psb_err_unit,*) 'Fatal memory error inside communication subsystem'
return
end if
call mpi_isend(c_loc(node%charbuf),size(node%charbuf),mpi_character,&
call mpi_isend(node%charbuf,size(node%charbuf),mpi_character,&
& dest,tag,icomm,node%request,minfo)
info = minfo
call psb_insert_node(mesg_queue,node)