source: ThirdParty/Mumps/trunk/mumps.patch @ 1706

Last change on this file since 1706 was 1500, checked in by stefan, 11 years ago

merge chgset 1499 from stable/1.2: patch for bug in MUMPS

File size: 415 bytes
RevLine 
[1499]1--- MUMPS_4.9/src/dmumps_part2.F        2009-07-29 12:38:27.000000000 +0200
2+++ MUMPS/src/dmumps_part2.F    2010-04-03 14:01:57.441212067 +0200
3@@ -4618,6 +4618,9 @@
4       INTEGER, INTENT(OUT) ::  PERM( N )
5       INTEGER  :: IPERM, INODE, IN, I
6       INTEGER  :: INBLEAF, INBROOT
7+      IF (N.EQ.1) THEN
8+         RETURN
9+      END IF
10       IF (N.GT.1) THEN
11          IF(POOL(N-1) .LT. 0) THEN
12             INBLEAF = N-1
Note: See TracBrowser for help on using the repository browser.