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

src/LinearSolverTypes.f90

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

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

          CALL PCFactorSetMatSolverType(pc,MATSOLVERSUPERLU,iperr)