diff --git a/Source/pres.f90 b/Source/pres.f90 index c35113521f..f1caa31f79 100644 --- a/Source/pres.f90 +++ b/Source/pres.f90 @@ -2808,13 +2808,7 @@ SUBROUTINE ULMAT_H_MATRIX_SOLVER_SETUP(NM,IPZ) MNUM = 1 ! Set level MSG to 1 for factorization: -IF (CHECK_POISSON) THEN - MSGLVL = 1 - SELECT CASE(ULMAT_SOLVER_LIBRARY) - CASE(MKL_PARDISO_FLAG); IF(MY_RANK==0) WRITE(LU_ERR,*) 'ULMAT : PARDISO factorization for MESH,ZONE=',NM,IPZ,ZM%NUNKH - CASE(HYPRE_FLAG); IF(MY_RANK==0) WRITE(LU_ERR,*) 'HYPRE : Matrix and Solver setup for MESH,ZONE=',NM,IPZ,ZM%NUNKH - END SELECT -ENDIF +IF (CHECK_POISSON) MSGLVL = 1 ERROR = 0 ! initialize error flag ! Each MPI process builds its local set of rows.