File mumps.patch of Package mingw64-mumps
--- /home/stefan/work/coin/CoinAll-trunk/ThirdParty/Mumps/MUMPS/src/dmumps_part2.F 2011-05-10 14:57:26.000000000 +0200
+++ MUMPS/src/dmumps_part2.F 2013-04-26 12:21:16.000000000 +0200
@@ -1146,7 +1146,7 @@
IF ( (KEEP(50).EQ.2)
& .AND. (KEEP(95) .EQ. 3)
& .AND. (IORD .EQ. 7) ) THEN
- IORD = 2
+ IORD = 0
ENDIF
CALL DMUMPS_701( N, KEEP(50), NSLAVES, IORD,
& symmetry, MedDens, NBQD, AvgDens,
@@ -1162,8 +1162,13 @@
IF(KEEP(95) .EQ. 2 .AND. IORD .EQ. 0) THEN
IF (PROK) WRITE(MP,*)
& 'WARNING: DMUMPS_195 AMD not available with ',
- & ' compressed ordering -> move to QAMD'
- IORD = 6
+#if defined(metis) || defined(parmetis)
+ & 'compressed ordering -> move to METIS'
+ IORD = 5
+#else
+ & 'compressed ordering -> move to AMF'
+ IORD = 2
+#endif
ENDIF
ELSE
KEEP(95) = 1
@@ -3642,7 +3647,7 @@
IF (NBQD.GE.MAXQD) THEN
IORD = 6
ELSE
- IORD = 2
+ IORD = 0
ENDIF
ELSE
IF (NBQD.GE.MedDens*NPROCS) THEN
@@ -3668,7 +3673,7 @@
IF (NBQD.GE.MAXQD) THEN
IORD = 6
ELSE
- IORD = 2
+ IORD = 0
ENDIF
ELSE
IF (NBQD.GE.MedDens*NPROCS) THEN