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

Last change on this file since 1500 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
  • src/dmumps_part2.F

    old new  
    46184618      INTEGER, INTENT(OUT) ::  PERM( N )
    46194619      INTEGER  :: IPERM, INODE, IN, I
    46204620      INTEGER  :: INBLEAF, INBROOT
     4621      IF (N.EQ.1) THEN
     4622         RETURN
     4623      END IF
    46214624      IF (N.GT.1) THEN
    46224625         IF(POOL(N-1) .LT. 0) THEN
    46234626            INBLEAF = N-1
Note: See TracBrowser for help on using the repository browser.