Commit 8e71fbe7 authored by MARAIT Gilles's avatar MARAIT Gilles

Minor fixes for new pastix

parent 5911a873
......@@ -2263,6 +2263,12 @@ Module XMPH_pcd_mod
if (rank<mphs%ikeep(IKEEP_CGC_NPROCS)) then
call MPH_log(MSG_VERBOSE,'Coarse precond with sequential sparse direct solver')
sp_solver = mphs%ikeep(IKEEP_SDS_Facto)
#if HAVE_LIBPASTIX_6
if (mphs%ikeep(IKEEP_CGC_NPROCS) > 1 .and. sp_solver .ne. 1) then
call MPH_log(MSG_VERBOSE,'Pastix 6 distributed not implemented yet. Attempting to use MUMPS')
sp_solver = 1
end if
#endif
Allocate(S0_sds, STAT=info)
CHCKASSRT( info == 0, info )
If (info < 0 ) Return
......
......@@ -231,6 +231,8 @@ Contains
id_pastix%iparm(IPARM_THREAD_NBR) = 1
id_pastix%iparm(iparm_ordering) = PastixOrderScotch
id_pastix%iparm(IPARM_TASKS2D_LEVEL) = 0
! Set facto type
Select Case (M%SYM)
Case (SM_SYM_IsSPD)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment