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

mld2p4:

Browse Source 
mlprec/impl/solver/mld_c_mumps_solver_bld.F90
 mlprec/impl/solver/mld_d_mumps_solver_bld.F90
 mlprec/impl/solver/mld_s_mumps_solver_bld.F90
 mlprec/impl/solver/mld_z_mumps_solver_bld.F90

 Take out spurious "use mpi" in Mumps interface
stopcriterion
Salvatore Filippone 8 years ago
parent 5cbb20540d
commit b9f1595e92
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
mlprec/impl/solver/mld_c_mumps_solver_bld.F90
Unescape Escape View File

@ -75,12 +75,12 @@
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/)) call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
call psb_get_mpicomm(ictxt1, icomm) call psb_get_mpicomm(ictxt1, icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt1
call psb_info(ictxt1, me, np) call psb_info(ictxt1, me, np)
npr = np npr = np
else else
call psb_get_mpicomm(ictxt,icomm) call psb_get_mpicomm(ictxt,icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
npr = np npr = np
end if end if

4
mlprec/impl/solver/mld_d_mumps_solver_bld.F90
Unescape Escape View File

@ -75,12 +75,12 @@
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/)) call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
call psb_get_mpicomm(ictxt1, icomm) call psb_get_mpicomm(ictxt1, icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt1
call psb_info(ictxt1, me, np) call psb_info(ictxt1, me, np)
npr = np npr = np
else else
call psb_get_mpicomm(ictxt,icomm) call psb_get_mpicomm(ictxt,icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
npr = np npr = np
end if end if

4
mlprec/impl/solver/mld_s_mumps_solver_bld.F90
Unescape Escape View File

@ -75,12 +75,12 @@
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/)) call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
call psb_get_mpicomm(ictxt1, icomm) call psb_get_mpicomm(ictxt1, icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt1
call psb_info(ictxt1, me, np) call psb_info(ictxt1, me, np)
npr = np npr = np
else else
call psb_get_mpicomm(ictxt,icomm) call psb_get_mpicomm(ictxt,icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
npr = np npr = np
end if end if

4
mlprec/impl/solver/mld_z_mumps_solver_bld.F90
Unescape Escape View File

@ -75,12 +75,12 @@
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/)) call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/me/))
call psb_get_mpicomm(ictxt1, icomm) call psb_get_mpicomm(ictxt1, icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt1,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt1
call psb_info(ictxt1, me, np) call psb_info(ictxt1, me, np)
npr = np npr = np
else else
call psb_get_mpicomm(ictxt,icomm) call psb_get_mpicomm(ictxt,icomm)
write(*,*)'mumps_bld: +++++>',icomm,ictxt,mpi_comm_world write(*,*)'mumps_bld: +++++>',icomm,ictxt
call psb_info(ictxt, me, np) call psb_info(ictxt, me, np)
npr = np npr = np
end if end if

Write Preview
Loading…
Cancel
Save