<pre style='margin:0'>
Marcus Calhoun-Lopez (MarcusCalhoun-Lopez) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/f60deb9318521faf0a03f007bbb057653bbc121b">https://github.com/macports/macports-ports/commit/f60deb9318521faf0a03f007bbb057653bbc121b</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit f60deb9318521faf0a03f007bbb057653bbc121b
</span>Author: Marcus Calhoun-Lopez <mcalhoun@macports.org>
AuthorDate: Mon Aug 27 16:18:34 2018 -0700
<span style='display:block; white-space:pre;color:#404040;'> mumps: remove unused patch files
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> See https://github.com/macports/macports-ports/commit/5f896bb385493b347ca342ca93f12b4403cd940d
</span>---
math/mumps/files/metis-wgts.patch | 79 ------------
math/mumps/files/metis.patch | 259 --------------------------------------
2 files changed, 338 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/math/mumps/files/metis-wgts.patch b/math/mumps/files/metis-wgts.patch
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 785d7b6..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/math/mumps/files/metis-wgts.patch
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,79 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# HG changeset patch
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# User Sean Farley <sean@mcs.anl.gov>
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Date 1330211528 21600
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Node ID b8b0cc4abb9bed53f909e0ac38b29d9f76875236
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Parent f6fc32c3dec2c9875d6f6412039542111cb1e3e7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-metis: fix vertex weights if not compressed
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/cmumps_part2.F b/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1437,10 +1437,14 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/dmumps_part2.F b/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1433,10 +1433,14 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/smumps_part2.F b/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1433,10 +1433,14 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/zmumps_part2.F b/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1437,10 +1437,14 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/math/mumps/files/metis.patch b/math/mumps/files/metis.patch
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index d340495..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/math/mumps/files/metis.patch
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,259 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# HG changeset patch
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# User Sean Farley <sean@mcs.anl.gov>
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Date 1322279603 21600
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Node ID f6fc32c3dec2c9875d6f6412039542111cb1e3e7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Parent 7fa89842df68bd08f9dbfdc438fec9b85543317b
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-Update for new metis version 5.0.2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/cmumps_part2.F b/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/cmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1048,11 +1048,10 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NEMIN, LP, MP, LDIAG, ITEMP, symmetry
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER MedDens, NBQD, AvgDens
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL PROK, COMPRESS_SCHUR
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NBBUCK
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: HEAD
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- INTEGER NUMFLAG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: OPTIONS_METIS
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- REAL, DIMENSION(:), ALLOCATABLE :: COLSCA_TEMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER THRESH, IVersion
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL AGG6
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1414,34 +1413,38 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- #if defined(metis) || defined(parmetis)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (IORD.EQ.5) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (PROK) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- WRITE(MP,'(A)') ' Ordering based on METIS '
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- NUMFLAG = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- OPT_METIS_SIZE = 8
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPT_METIS_SIZE = 24
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ALLOCATE( OPTIONS_METIS (OPT_METIS_SIZE ), stat = IERR )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( IERR .GT. 0 ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 1 ) = -7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 2 ) = OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- RETURN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This sets the default values
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(I) = -1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This 0 is a special value that tells METIS to use certain
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C default parameters
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- OPTIONS_METIS(1) = 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This number, 17, corresponds to METIS_OPTIONS_NUMBERING which
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C tells METIS to use fortran numbering and is found in metis.h
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(17) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (COMPRESS .EQ. 1) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=1,KEEP(93)/2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEWND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & NUMFLAG, OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEND(NCMP, IW(L2), IW(1), NUMFLAG,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( COMPRESS_SCHUR ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL CMUMPS_622(
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & N, NCMP, IKEEP(1,1),IKEEP(1,2),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & LISTVAR_SCHUR, SIZE_SCHUR, FILS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/dmumps_part2.F b/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/dmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1044,11 +1044,10 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NEMIN, LP, MP, LDIAG, ITEMP, symmetry
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER MedDens, NBQD, AvgDens
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL PROK, COMPRESS_SCHUR
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NBBUCK
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: HEAD
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- INTEGER NUMFLAG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: OPTIONS_METIS
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: COLSCA_TEMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER THRESH, IVersion
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL AGG6
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1410,34 +1409,38 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- #if defined(metis) || defined(parmetis)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (IORD.EQ.5) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (PROK) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- WRITE(MP,'(A)') ' Ordering based on METIS '
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- NUMFLAG = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- OPT_METIS_SIZE = 8
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPT_METIS_SIZE = 24
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ALLOCATE( OPTIONS_METIS (OPT_METIS_SIZE ), stat = IERR )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( IERR .GT. 0 ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 1 ) = -7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 2 ) = OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- RETURN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This sets the default values
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(I) = -1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This 0 is a special value that tells METIS to use certain
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C default parameters
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- OPTIONS_METIS(1) = 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This number, 17, corresponds to METIS_OPTIONS_NUMBERING which
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C tells METIS to use fortran numbering and is found in metis.h
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(17) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (COMPRESS .EQ. 1) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=1,KEEP(93)/2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEWND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & NUMFLAG, OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEND(NCMP, IW(L2), IW(1), NUMFLAG,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( COMPRESS_SCHUR ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL DMUMPS_622(
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & N, NCMP, IKEEP(1,1),IKEEP(1,2),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & LISTVAR_SCHUR, SIZE_SCHUR, FILS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/smumps_part2.F b/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/smumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1044,11 +1044,10 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NEMIN, LP, MP, LDIAG, ITEMP, symmetry
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER MedDens, NBQD, AvgDens
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL PROK, COMPRESS_SCHUR
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NBBUCK
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: HEAD
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- INTEGER NUMFLAG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: OPTIONS_METIS
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- REAL, DIMENSION(:), ALLOCATABLE :: COLSCA_TEMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER THRESH, IVersion
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL AGG6
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1410,34 +1409,38 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- #if defined(metis) || defined(parmetis)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (IORD.EQ.5) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (PROK) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- WRITE(MP,'(A)') ' Ordering based on METIS '
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- NUMFLAG = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- OPT_METIS_SIZE = 8
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPT_METIS_SIZE = 24
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ALLOCATE( OPTIONS_METIS (OPT_METIS_SIZE ), stat = IERR )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( IERR .GT. 0 ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 1 ) = -7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 2 ) = OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- RETURN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This sets the default values
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(I) = -1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This 0 is a special value that tells METIS to use certain
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C default parameters
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- OPTIONS_METIS(1) = 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This number, 17, corresponds to METIS_OPTIONS_NUMBERING which
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C tells METIS to use fortran numbering and is found in metis.h
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(17) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (COMPRESS .EQ. 1) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=1,KEEP(93)/2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEWND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & NUMFLAG, OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEND(NCMP, IW(L2), IW(1), NUMFLAG,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( COMPRESS_SCHUR ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL SMUMPS_622(
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & N, NCMP, IKEEP(1,1),IKEEP(1,2),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & LISTVAR_SCHUR, SIZE_SCHUR, FILS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-diff --git a/src/zmumps_part2.F b/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- a/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ b/src/zmumps_part2.F
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1048,11 +1048,10 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NEMIN, LP, MP, LDIAG, ITEMP, symmetry
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER MedDens, NBQD, AvgDens
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL PROK, COMPRESS_SCHUR
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER NBBUCK
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: HEAD
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- INTEGER NUMFLAG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER, DIMENSION(:), ALLOCATABLE :: OPTIONS_METIS
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: COLSCA_TEMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INTEGER THRESH, IVersion
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- LOGICAL AGG6
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -1414,34 +1413,38 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- #if defined(metis) || defined(parmetis)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (IORD.EQ.5) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (PROK) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- WRITE(MP,'(A)') ' Ordering based on METIS '
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- NUMFLAG = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- OPT_METIS_SIZE = 8
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPT_METIS_SIZE = 24
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ALLOCATE( OPTIONS_METIS (OPT_METIS_SIZE ), stat = IERR )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( IERR .GT. 0 ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 1 ) = -7
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- INFO( 2 ) = OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- RETURN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This sets the default values
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ DO I=1,OPT_METIS_SIZE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(I) = -1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This 0 is a special value that tells METIS to use certain
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C default parameters
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- OPTIONS_METIS(1) = 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C This number, 17, corresponds to METIS_OPTIONS_NUMBERING which
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+C tells METIS to use fortran numbering and is found in metis.h
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ OPTIONS_METIS(17) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF (COMPRESS .EQ. 1) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=1,KEEP(93)/2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 2
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DO I=KEEP(93)/2+1,NCMP
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- FILS(I) = 1
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDDO
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEWND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & NUMFLAG, OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- ELSE
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- CALL METIS_NODEND(NCMP, IW(L2), IW(1), NUMFLAG,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- ENDIF
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ CALL METIS_NODEND(NCMP, IW(L2), IW(1),FILS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & OPTIONS_METIS,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ & IKEEP(1,2), IKEEP(1,1) )
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- DEALLOCATE (OPTIONS_METIS)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- IF ( COMPRESS_SCHUR ) THEN
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- CALL ZMUMPS_622(
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & N, NCMP, IKEEP(1,1),IKEEP(1,2),
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- & LISTVAR_SCHUR, SIZE_SCHUR, FILS)
</span></pre><pre style='margin:0'>
</pre>