source:
ThirdParty/Mumps/trunk/mumps.patch
Last change on this file was 2747, checked in by stefan, 8 years ago | |
---|---|
|
|
File size: 1.4 KB |
-
MUMPS/src/dmumps_part2.F
old new 1146 1146 IF ( (KEEP(50).EQ.2) 1147 1147 & .AND. (KEEP(95) .EQ. 3) 1148 1148 & .AND. (IORD .EQ. 7) ) THEN 1149 IORD = 21149 IORD = 0 1150 1150 ENDIF 1151 1151 CALL DMUMPS_701( N, KEEP(50), NSLAVES, IORD, 1152 1152 & symmetry, MedDens, NBQD, AvgDens, … … 1162 1162 IF(KEEP(95) .EQ. 2 .AND. IORD .EQ. 0) THEN 1163 1163 IF (PROK) WRITE(MP,*) 1164 1164 & '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 1167 1172 ENDIF 1168 1173 ELSE 1169 1174 KEEP(95) = 1 … … 3642 3647 IF (NBQD.GE.MAXQD) THEN 3643 3648 IORD = 6 3644 3649 ELSE 3645 IORD = 23650 IORD = 0 3646 3651 ENDIF 3647 3652 ELSE 3648 3653 IF (NBQD.GE.MedDens*NPROCS) THEN … … 3668 3673 IF (NBQD.GE.MAXQD) THEN 3669 3674 IORD = 6 3670 3675 ELSE 3671 IORD = 23676 IORD = 0 3672 3677 ENDIF 3673 3678 ELSE 3674 3679 IF (NBQD.GE.MedDens*NPROCS) THEN
Note: See TracBrowser
for help on using the repository browser.