Commit 981d15dc authored by Graham, Aaron's avatar Graham, Aaron
Browse files

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

This reverts commit e0ac0537.
parent e0ac0537

src/LinearSolverTypes.f90

+5 −1
Original line number Diff line number Diff line
@@ -547,7 +547,11 @@ 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 PCFactorSetUpMatSolverType(pc,iperr)

#elif (PETSC_VERSION_MAJOR>=3) && (PETSC_VERSION_MINOR>6)

          CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU,iperr)