source: ThirdParty/Mumps/trunk/mumps.patch

Last change on this file was 2747, checked in by stefan, 9 years ago

revert r2745

  • Property svn:eol-style set to native
File size: 1.4 KB
  • MUMPS/src/dmumps_part2.F

    old new  
    11461146      IF ( (KEEP(50).EQ.2)
    11471147     & .AND. (KEEP(95) .EQ. 3)
    11481148     & .AND. (IORD .EQ. 7) ) THEN 
    1149         IORD = 2
     1149        IORD = 0
    11501150      ENDIF
    11511151      CALL DMUMPS_701( N, KEEP(50), NSLAVES, IORD,
    11521152     &     symmetry, MedDens, NBQD, AvgDens,
     
    11621162         IF(KEEP(95) .EQ. 2 .AND. IORD .EQ. 0) THEN
    11631163            IF (PROK) WRITE(MP,*)
    11641164     &      'WARNING: DMUMPS_195 AMD not available with ',
    1165      &      ' compressed ordering -> move to QAMD'
    1166             IORD = 6
     1165#if defined(metis) || defined(parmetis)
     1166     &      'compressed ordering -> move to METIS'
     1167            IORD = 5
     1168#else
     1169     &      'compressed ordering -> move to AMF'
     1170            IORD = 2
     1171#endif
    11671172         ENDIF
    11681173      ELSE
    11691174         KEEP(95) = 1
     
    36423647             IF (NBQD.GE.MAXQD) THEN
    36433648               IORD = 6         
    36443649             ELSE
    3645                IORD = 2         
     3650               IORD = 0         
    36463651             ENDIF
    36473652          ELSE
    36483653             IF (NBQD.GE.MedDens*NPROCS) THEN
     
    36683673            IF (NBQD.GE.MAXQD) THEN
    36693674              IORD = 6 
    36703675            ELSE
    3671               IORD = 2   
     3676              IORD = 0   
    36723677            ENDIF
    36733678          ELSE
    36743679            IF (NBQD.GE.MedDens*NPROCS) THEN
Note: See TracBrowser for help on using the repository browser.