Hello,
Here is a small patch for src/mat/impls/aij/mpi/mumps/mumps.c.
BTW, MUMPS 5.0.0 was released last week and is now compatible with the latest 
version of Metis/ParMetis.

Thank you,
Pierre

diff --git a/src/mat/impls/aij/mpi/mumps/mumps.c 
b/src/mat/impls/aij/mpi/mumps/mumps.c
index 76dde43..a4cccc6 100644
--- a/src/mat/impls/aij/mpi/mumps/mumps.c
+++ b/src/mat/impls/aij/mpi/mumps/mumps.c
@@ -1196,7 +1196,7 @@ PetscErrorCode MatView_MUMPS(Mat A,PetscViewer viewer)
       ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(18) (input mat struct):    
                       %d \n",mumps->id.ICNTL(18));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(19) (Shur complement 
info):                       %d \n",mumps->id.ICNTL(19));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(20) (rhs sparse pattern):  
                       %d \n",mumps->id.ICNTL(20));CHKERRQ(ierr);
-      ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(21) (somumpstion struct):  
                          %d \n",mumps->id.ICNTL(21));CHKERRQ(ierr);
+      ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(21) (solution struct):     
                       %d \n",mumps->id.ICNTL(21));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(22) (in-core/out-of-core 
facility):               %d \n",mumps->id.ICNTL(22));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  ICNTL(23) (max size of memory 
can be allocated locally):%d \n",mumps->id.ICNTL(23));CHKERRQ(ierr);

@@ -1213,8 +1213,8 @@ PetscErrorCode MatView_MUMPS(Mat A,PetscViewer viewer)

       ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(1) (relative pivoting 
threshold):      %g \n",mumps->id.CNTL(1));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(2) (stopping criterion of 
refinement): %g \n",mumps->id.CNTL(2));CHKERRQ(ierr);
-      ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(3) (absomumpste pivoting 
threshold):      %g \n",mumps->id.CNTL(3));CHKERRQ(ierr);
-      ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(4) (vamumpse of static 
pivoting):         %g \n",mumps->id.CNTL(4));CHKERRQ(ierr);
+      ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(3) (absolute pivoting 
threshold):      %g \n",mumps->id.CNTL(3));CHKERRQ(ierr);
+      ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(4) (value of static 
pivoting):         %g \n",mumps->id.CNTL(4));CHKERRQ(ierr);
       ierr = PetscViewerASCIIPrintf(viewer,"  CNTL(5) (fixation for null 
pivots):         %g \n",mumps->id.CNTL(5));CHKERRQ(ierr);

       /* infomation local to each processor */

Reply via email to