MUMPS/src/dmumps_part8.F

548      &               id%IS(1), LIW_PASSED,id%MYID_NODES,
647             IF (id%MYID_NODES .eq. MASTER_ROOT) THEN
656             IF (id%MYID_NODES .eq. MASTER_ROOT) THEN
717           IF ( MASTER_ROOT .eq. id%MYID_NODES ) THEN
949       IF ( id%MYID_NODES .EQ. MASTER ) THEN
1227      &               id%IS(1), LIW_PASSED,id%MYID_NODES,
1756      &           id%MYID_NODES, id%PTLUST_S(1),
1764      &           id%MYID_NODES, id%PTLUST_S(1),
1986            IF (id%MYID_NODES .EQ. MAP_PIVNUL_LIST(I) ) THEN
2019         IF ( KEEP(17).NE.0 .and. id%MYID_NODES.EQ.MASTER_ROOT) THEN
2034         IF ( id%MYID_NODES .EQ. MASTER_ROOT ) THEN
2109      &    id%COMM_NODES, id%MYID, id%MYID_NODES,
2148      &    id%COMM_NODES, id%MYID, id%MYID_NODES,
2343      &          id%N, id%MYID_NODES,
2732      & id%COMM_NODES, id%MYID, id%MYID_NODES, id%BUFR(1), id%LBUFR,
3185      & MYID_NODES,
3221       INTEGER SLAVEF, COMM_NODES, MYID, MYID_NODES
3324      &      (KEEP(20).NE.0 .AND. MYID_NODES.EQ.MASTER_ROOT)
3492      &        MYID_NODES, N, KEEP(28), KEEP(201), KEEP8(31),
3533      &           PROCNODE_STEPS, SLAVEF, COMM_NODES, MYID_NODES,
3574      &        PROCNODE_STEPS, SLAVEF, COMM_NODES, MYID_NODES,
3698      &          MYID_NODES, N, KEEP(28), KEEP(201),
3718      &   .AND. MYID_NODES .EQ. MASTER_ROOT) THEN
3753      &       root%IPIV(1), root%LPIV, MASTER_ROOT, MYID_NODES,
3773         IF ( MYID_NODES .eq.  MASTER_ROOT ) THEN
3849      &    MYID_NODES, N, KEEP(28), KEEP(201), KEEP8(31),
3880      &          PROCNODE_STEPS, SLAVEF, COMM_NODES,MYID_NODES,
3907      &          PROCNODE_STEPS, SLAVEF, COMM_NODES,MYID_NODES,
3965      &        MYID_NODES, TYPE_PARAL, N2RECV
3984         MYID_NODES = MYID
3986         MYID_NODES = MYID-1
4074           IF (MYID_NODES == MUMPS_275(PROCNODE_STEPS(ISTEP),
4409      &             IW, LIW_PASSED, MYID_NODES, N, STEP,
4412       INTEGER MTYPE, MYID_NODES, N, NSLAVES
4445           IF ( MYID_NODES == MUMPS_275( PROCNODE(ISTEP),
4478      &           SLAVEF, N, MYID_NODES,
4494       INTEGER SLAVEF, N, MYID_NODES, LIW, MTYPE, NRHS, LD_RHS  variable
4515             IF (MYID_NODES == MUMPS_275(PROCNODE_STEPS(ISTEP),
4582      &        MYID_NODES, TYPE_PARAL
4604         MYID_NODES = MYID
4606         MYID_NODES = MYID-1
4648           IF (MYID_NODES == MUMPS_275(PROCNODE_STEPS(ISTEP),
4707      &           (NSLAVES, N, MYID_NODES,
4715       INTEGER NSLAVES, N, MYID_NODES, LIW
4750         IF (MYID_NODES == MUMPS_275(PROCNODE_STEPS(ISTEP),