|
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
|
| Rev | Line | |
|---|
| [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.
