diff -urN MUMPS_4.6.3.orig/include/cmumps_struc.h MUMPS_4.6.3/include/cmumps_struc.h
--- MUMPS_4.6.3.orig/include/cmumps_struc.h	Thu Jun 22 13:25:47 2006
+++ MUMPS_4.6.3/include/cmumps_struc.h	Mon Jul 10 20:52:24 2006
@@ -251,7 +251,7 @@
          INTEGER,DIMENSION(:), POINTER :: PIVNUL_LIST
 !    Internal control array
          REAL DKEEP(30)
-C    Array needed to manage additionnal candidate processor 
-C    when using -DNEW_MAPPING
+!    Array needed to manage additionnal candidate processor 
+!    when using -DNEW_MAPPING
          INTEGER, DIMENSION(:,:), POINTER :: SUP_PROC
       END TYPE CMUMPS_STRUC
diff -urN MUMPS_4.6.3.orig/include/dmumps_struc.h MUMPS_4.6.3/include/dmumps_struc.h
--- MUMPS_4.6.3.orig/include/dmumps_struc.h	Thu Jun 22 13:24:32 2006
+++ MUMPS_4.6.3/include/dmumps_struc.h	Mon Jul 10 20:52:30 2006
@@ -251,7 +251,7 @@
          INTEGER,DIMENSION(:), POINTER :: PIVNUL_LIST
 !    Internal control array
          DOUBLE PRECISION DKEEP(30)
-C    Array needed to manage additionnal candidate processor 
-C    when using -DNEW_MAPPING
+!    Array needed to manage additionnal candidate processor 
+!    when using -DNEW_MAPPING
          INTEGER, DIMENSION(:,:), POINTER :: SUP_PROC
       END TYPE DMUMPS_STRUC
diff -urN MUMPS_4.6.3.orig/include/smumps_struc.h MUMPS_4.6.3/include/smumps_struc.h
--- MUMPS_4.6.3.orig/include/smumps_struc.h	Thu Jun 22 13:24:57 2006
+++ MUMPS_4.6.3/include/smumps_struc.h	Mon Jul 10 20:52:34 2006
@@ -251,7 +251,7 @@
          INTEGER,DIMENSION(:), POINTER :: PIVNUL_LIST
 !    Internal control array
          REAL DKEEP(30)
-C    Array needed to manage additionnal candidate processor 
-C    when using -DNEW_MAPPING
+!    Array needed to manage additionnal candidate processor 
+!    when using -DNEW_MAPPING
          INTEGER, DIMENSION(:,:), POINTER :: SUP_PROC
       END TYPE SMUMPS_STRUC
diff -urN MUMPS_4.6.3.orig/include/zmumps_struc.h MUMPS_4.6.3/include/zmumps_struc.h
--- MUMPS_4.6.3.orig/include/zmumps_struc.h	Thu Jun 22 13:25:19 2006
+++ MUMPS_4.6.3/include/zmumps_struc.h	Mon Jul 10 20:52:38 2006
@@ -251,7 +251,7 @@
          INTEGER,DIMENSION(:), POINTER :: PIVNUL_LIST
 !    Internal control array
          DOUBLE PRECISION DKEEP(30)
-C    Array needed to manage additionnal candidate processor 
-C    when using -DNEW_MAPPING
+!    Array needed to manage additionnal candidate processor 
+!    when using -DNEW_MAPPING
          INTEGER, DIMENSION(:,:), POINTER :: SUP_PROC
       END TYPE ZMUMPS_STRUC
diff -urN MUMPS_4.6.3.orig/src/cmumps_part1.F MUMPS_4.6.3/src/cmumps_part1.F
--- MUMPS_4.6.3.orig/src/cmumps_part1.F	Thu Jun 22 13:25:26 2006
+++ MUMPS_4.6.3/src/cmumps_part1.F	Fri Jun 30 09:10:55 2006
@@ -2138,8 +2138,8 @@
       IF (NFRONT_EFF.NE.NFRONT) THEN
         IF (NFRONT.GT.NFRONT_EFF) THEN
         IWPOS = IWPOS - ((2*NFRONT)-(2*NFRONT_EFF))
-        LREQ = 2 * NFRONT + HF 
         NFRONT = NFRONT_EFF
+        LREQ = 2 * NFRONT + HF 
         ELSE
          Write(*,*) ' ERROR 1 during ass_niv1', NFRONT, NFRONT_EFF
          GOTO 270
diff -urN MUMPS_4.6.3.orig/src/cmumps_part5.F MUMPS_4.6.3/src/cmumps_part5.F
--- MUMPS_4.6.3.orig/src/cmumps_part5.F	Thu Jun 22 13:25:36 2006
+++ MUMPS_4.6.3/src/cmumps_part5.F	Mon Jul 10 20:54:00 2006
@@ -261,7 +261,7 @@
       IORD = ICNTL(7)
       IF (PROK) WRITE( MP, 220 )
       IF (PROKG.AND.(MPG .NE. MP)) WRITE( MPG, 220 )
- 220  FORMAT( /' CMUMPS Version 4.6.3 -- June 2006' )
+ 220  FORMAT( /' CMUMPS Version 4.6.3.2 -- July 2006' )
       IF ( PROK ) THEN
         IF ( KEEP(50) .eq. 0 ) THEN
           WRITE(MP, '(A)') 'L U Solver for unsymmetric matrices'
diff -urN MUMPS_4.6.3.orig/src/dmumps_part1.F MUMPS_4.6.3/src/dmumps_part1.F
--- MUMPS_4.6.3.orig/src/dmumps_part1.F	Thu Jun 22 13:24:21 2006
+++ MUMPS_4.6.3/src/dmumps_part1.F	Fri Jun 30 09:11:14 2006
@@ -2129,8 +2129,8 @@
       IF (NFRONT_EFF.NE.NFRONT) THEN
         IF (NFRONT.GT.NFRONT_EFF) THEN
         IWPOS = IWPOS - ((2*NFRONT)-(2*NFRONT_EFF))
-        LREQ = 2 * NFRONT + HF 
         NFRONT = NFRONT_EFF
+        LREQ = 2 * NFRONT + HF 
         ELSE
          Write(*,*) ' ERROR 1 during ass_niv1', NFRONT, NFRONT_EFF
          GOTO 270
diff -urN MUMPS_4.6.3.orig/src/dmumps_part5.F MUMPS_4.6.3/src/dmumps_part5.F
--- MUMPS_4.6.3.orig/src/dmumps_part5.F	Thu Jun 22 13:24:26 2006
+++ MUMPS_4.6.3/src/dmumps_part5.F	Mon Jul 10 20:53:54 2006
@@ -261,7 +261,7 @@
       IORD = ICNTL(7)
       IF (PROK) WRITE( MP, 220 )
       IF (PROKG.AND.(MPG .NE. MP)) WRITE( MPG, 220 )
- 220  FORMAT( /' DMUMPS Version 4.6.3 -- June 2006' )
+ 220  FORMAT( /' DMUMPS Version 4.6.3.2 -- July 2006' )
       IF ( PROK ) THEN
         IF ( KEEP(50) .eq. 0 ) THEN
           WRITE(MP, '(A)') 'L U Solver for unsymmetric matrices'
diff -urN MUMPS_4.6.3.orig/src/smumps_part1.F MUMPS_4.6.3/src/smumps_part1.F
--- MUMPS_4.6.3.orig/src/smumps_part1.F	Thu Jun 22 13:24:38 2006
+++ MUMPS_4.6.3/src/smumps_part1.F	Fri Jun 30 09:11:23 2006
@@ -2129,8 +2129,8 @@
       IF (NFRONT_EFF.NE.NFRONT) THEN
         IF (NFRONT.GT.NFRONT_EFF) THEN
         IWPOS = IWPOS - ((2*NFRONT)-(2*NFRONT_EFF))
-        LREQ = 2 * NFRONT + HF 
         NFRONT = NFRONT_EFF
+        LREQ = 2 * NFRONT + HF 
         ELSE
          Write(*,*) ' ERROR 1 during ass_niv1', NFRONT, NFRONT_EFF
          GOTO 270
diff -urN MUMPS_4.6.3.orig/src/smumps_part5.F MUMPS_4.6.3/src/smumps_part5.F
--- MUMPS_4.6.3.orig/src/smumps_part5.F	Thu Jun 22 13:24:47 2006
+++ MUMPS_4.6.3/src/smumps_part5.F	Mon Jul 10 20:53:48 2006
@@ -261,7 +261,7 @@
       IORD = ICNTL(7)
       IF (PROK) WRITE( MP, 220 )
       IF (PROKG.AND.(MPG .NE. MP)) WRITE( MPG, 220 )
- 220  FORMAT( /' SMUMPS Version 4.6.3 -- June 2006' )
+ 220  FORMAT( /' SMUMPS Version 4.6.3.2 -- July 2006' )
       IF ( PROK ) THEN
         IF ( KEEP(50) .eq. 0 ) THEN
           WRITE(MP, '(A)') 'L U Solver for unsymmetric matrices'
diff -urN MUMPS_4.6.3.orig/src/zmumps_part1.F MUMPS_4.6.3/src/zmumps_part1.F
--- MUMPS_4.6.3.orig/src/zmumps_part1.F	Thu Jun 22 13:25:02 2006
+++ MUMPS_4.6.3/src/zmumps_part1.F	Fri Jun 30 09:11:32 2006
@@ -2138,8 +2138,8 @@
       IF (NFRONT_EFF.NE.NFRONT) THEN
         IF (NFRONT.GT.NFRONT_EFF) THEN
         IWPOS = IWPOS - ((2*NFRONT)-(2*NFRONT_EFF))
-        LREQ = 2 * NFRONT + HF 
         NFRONT = NFRONT_EFF
+        LREQ = 2 * NFRONT + HF 
         ELSE
          Write(*,*) ' ERROR 1 during ass_niv1', NFRONT, NFRONT_EFF
          GOTO 270
diff -urN MUMPS_4.6.3.orig/src/zmumps_part5.F MUMPS_4.6.3/src/zmumps_part5.F
--- MUMPS_4.6.3.orig/src/zmumps_part5.F	Thu Jun 22 13:25:10 2006
+++ MUMPS_4.6.3/src/zmumps_part5.F	Mon Jul 10 20:53:40 2006
@@ -261,7 +261,7 @@
       IORD = ICNTL(7)
       IF (PROK) WRITE( MP, 220 )
       IF (PROKG.AND.(MPG .NE. MP)) WRITE( MPG, 220 )
- 220  FORMAT( /' ZMUMPS Version 4.6.3 -- June 2006' )
+ 220  FORMAT( /' ZMUMPS Version 4.6.3.2 -- July 2006' )
       IF ( PROK ) THEN
         IF ( KEEP(50) .eq. 0 ) THEN
           WRITE(MP, '(A)') 'L U Solver for unsymmetric matrices'