MUMPS/src/cmumps_part2.F

1032       SUBROUTINE CMUMPS_195(N, NZ, IRN, ICN, LIW, IKEEP, PTRAR,  argument
1039       INTEGER IKEEP(N,3)
1100             WRITE (MP,99997) (IKEEP(I,1),I=1,K)
1199      &        N,PIV,FRERE,FILS,NFSIZ,IKEEP,
1285      &           IW(L1), IKEEP,
1286      &           IKEEP(1,2), NCMPA, FILS, IKEEP(1,3), PTRAR, PTRAR(1,3),
1307                   CALL CMUMPS_549(NCMP,IW(L2),IKEEP(1,1),
1310                      IKEEP(IKEEP(I,1),2)=I
1326      &              PTRAR(1,2), IW(1), IW(L1), IKEEP,
1327      &              IKEEP(1,2), NCMPA)
1336                  CALL CMUMPS_549(NCMP,IW(L2),IKEEP(1,1),
1339                    IKEEP(IKEEP(I,1),2)=I
1364      &                 IW(1), IW(L1), IKEEP, IKEEP(1,2), NCMPA, FILS,
1365      &                 IKEEP(1,3), PTRAR, PTRAR(1,3), HEAD)
1371      &                 IW(1), IW(L1), IKEEP, IKEEP(1,2), NCMPA, FILS,
1372      &                 IKEEP(1,3), PTRAR, PTRAR(1,3), HEAD,
1399      &              IW(L1), IKEEP, IKEEP(1,2), NCMPA, FILS,
1400      &              IKEEP(1,3), PTRAR, PTRAR(1,3))
1404      &              IW(1), IW(L1), IKEEP, IKEEP(1,2), NCMPA, FILS,
1405      &              IKEEP(1,3), PTRAR, PTRAR(1,3))
1410      &           PIV,IKEEP(1,1),IKEEP(1,2))
1437      &           IKEEP(1,2), IKEEP(1,1) )
1441      &           IKEEP(1,2), IKEEP(1,1) )
1446      &           N, NCMP, IKEEP(1,1),IKEEP(1,2),
1452      &           KEEP(93),PIV,IKEEP(1,1),IKEEP(1,2))
1468             IF ((IKEEP(K,1).LE.0).OR.(IKEEP(K,1).GT.N))
1470             IF (PTRAR(IKEEP(K,1),1).EQ.1) THEN
1473                PTRAR(IKEEP(K,1),1) = 1
1509      &           IKEEP(1,2), NCMPA, FILS, IKEEP(1,3), PTRAR, PTRAR(1,3),
1510      &           IKEEP(1,1), LISTVAR_SCHUR, ITEMP, AGG6)
1513             CALL CMUMPS_198(N, NZ, IRN, ICN, IKEEP, IW(1),
1519                CALL CMUMPS_199(N, IW(L2), IW, LLIW, IWFR, IKEEP,
1520      &              IKEEP(1,2), IW(L1),
1523                CALL CMUMPS_199(N, IW(L2), IW, LLIW, IWFR, IKEEP,
1524      &              IKEEP(1,2), IW(L1),
1536      &     (N, IW(L2), IW(L1), IKEEP(1,1), IKEEP(1,2), IKEEP(1,3),
1540      &     (N, IW(L2), IW(L1), IKEEP(1,1), IKEEP(1,2), IKEEP(1,3),
1568       CALL CMUMPS_201(IKEEP(1,2),
1621          IF (K.GT.0) WRITE (MP,99997) (IKEEP(I,1),I=1,K)
1622          IF (K.GT.0) WRITE (MP,99991) (IKEEP(I,2),I=1,K)
1623          IF (K.GT.0) WRITE (MP,99990) (IKEEP(I,3),I=1,K)