Unverified Commit e0ac0537 authored by Graham, Aaron's avatar Graham, Aaron Committed by GitHub
Browse files

Fix superlu_dist issues by using it for serial solvers too (#306)

parent 88d3370c
......@@ -547,11 +547,7 @@ SUBROUTINE init_LinearSolverType_Base(solver,Params,A)
CALL KSPGetPC(solver%ksp,pc,ierr)
CALL PCSetType(pc,PCLU,iperr)
#if (((PETSC_VERSION_MAJOR>=3) && (PETSC_VERSION_MINOR>=12)) || (PETSC_VERSION_MAJOR>=4))
IF (solver%MPIparallelEnv%nproc>1) THEN
CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU_DIST,iperr)
ELSE
CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU,iperr)
ENDIF
CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU_DIST,iperr)
CALL PCFactorSetUpMatSolverType(pc,iperr)
#elif (PETSC_VERSION_MAJOR>=3) && (PETSC_VERSION_MINOR>6)
CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU,iperr)
......
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