Lines Matching refs:MYID
292 PROKG = ( MPG .GT. 0 .and. id%MYID .eq. MASTER )
310 I_AM_SLAVE = ( id%MYID .ne. MASTER .OR.
311 & ( id%MYID .eq. MASTER .AND.
316 IF (id%MYID .EQ. MASTER .AND. KEEP(201) .NE. -1) THEN
333 IF (id%MYID .EQ. MASTER) THEN
361 IF (id%MYID.EQ.MASTER) THEN
374 IF (id%MYID.EQ.MASTER) THEN
424 IF (id%KEEP(252).EQ.1 .AND. id%MYID.EQ.MASTER) THEN
450 & id%COMM, id%MYID )
483 IF (id%MYID.EQ.MASTER) KEEP(258)=ICNTL(33)
514 IF ( id%MYID.EQ.MASTER ) THEN
543 IF ( id%MYID .NE. MASTER ) THEN
572 & id%COMM, id%MYID )
582 & M, N, id%NPROCS, id%MYID, id%COMM,
610 & id%COMM, id%MYID )
617 & M, N, id%NPROCS, id%MYID, id%COMM,
639 IF (id%MYID.EQ.MASTER) THEN
646 IF (id%MYID.EQ.MASTER) THEN
708 IF (id%MYID.EQ.MASTER) THEN
714 & id%COMM, id%MYID)
716 ELSE IF (id%MYID.EQ.MASTER) THEN
757 IF (id%MYID.EQ.MASTER) THEN
772 IF (LSCAL .AND. KEEP(258).NE.0 .AND. id%MYID .EQ. MASTER) THEN
822 IF ( id%MYID.EQ.MASTER.AND. KEEP(252).EQ.1 .AND.
832 IF ( id%MYID.NE.MASTER ) THEN
869 & id%COMM, id%MYID )
921 IF (id%MYID .EQ. MASTER) CNTL3 = id%CNTL(3)
924 IF (id%MYID .EQ. MASTER) CNTL5 = id%CNTL(5)
927 IF (id%MYID .EQ. MASTER) CNTL6 = id%CNTL(6)
930 IF (id%MYID .EQ. MASTER) CNTL1 = id%CNTL(1)
933 IF (id%MYID .EQ. MASTER) id%DKEEP(8) = id%CNTL(7)
1061 & (ID_ROOT.EQ.id%MYID .OR. id%MYID.EQ.MASTER)) THEN
1073 & id%COMM, id%MYID )
1081 IF (id%MYID .EQ. MASTER) CNTL4 = id%CNTL(4)
1116 IF ( id%MYID.EQ.MASTER ) THEN
1174 & id%COMM, id%MYID )
1202 & id%MYID, id%N, id%NELT, id%NA(1), id%LNA,
1237 & id%COMM, id%MYID )
1246 & id%COMM, id%MYID )
1321 WRITE(MPG,*)id%MYID,': Warning: DIM_BUF_IO might be
1362 & id%COMM, id%MYID )
1397 IF ( id%MYID .ne. MASTER ) THEN
1419 & id%COMM, id%MYID )
1442 & id%COMM, id%MYID )
1470 WRITE(LP,*) id%MYID,
1567 & id%COMM, id%MYID )
1579 IF (id%MYID.EQ.MASTER) CALL MUMPS_SECDEB(TIME)
1622 & id%COMM, id%MYID )
1630 IF ( id%MYID .eq. MASTER ) THEN
1651 & id%COMM, id%MYID )
1653 IF ( id%MYID .eq. MASTER ) THEN
1673 & id%MYID, id%NSLAVES, id%PROCNODE_STEPS(1),
1711 & id%MYID, id%NSLAVES, id%PROCNODE_STEPS(1),
1733 & KEEP( 1 ), id%KEEP8(1), id%MYID, id%COMM,
1748 IF (id%MYID.EQ.MASTER) THEN
1790 IF ( id%MYID > 0 ) THEN
1824 IF ( KEEP(46) .eq. 0 .AND. id%MYID.eq.MASTER ) THEN
1847 & id%COMM, id%MYID )
1857 IF ( id%MYID.eq.MASTER)
1869 & id%COMM, id%MYID,
1881 & id%COMM, id%MYID )
1887 IF ( id%MYID.EQ.MASTER) THEN
1895 IF (id%MYID.EQ.MASTER) CALL MUMPS_SECDEB(TIME)
2032 WRITE(LP,*) id%MYID,
2044 WRITE(LP,*) id%MYID,
2063 WRITE(LP,*) id%MYID,
2099 WRITE(*,*) id%MYID,': Allocation error for id%IS(',MAXIS,')'
2114 WRITE(LP,*) id%MYID,
2127 WRITE(LP,*) id%MYID,
2157 WRITE(LP,*) id%MYID,
2167 WRITE(LP,*) id%MYID,
2182 & id%COMM, id%MYID )
2199 & id%MYID, id%N, id%NELT, id%NA(1), id%LNA, id%KEEP8(28),
2218 CALL MUMPS_MEM_CENTRALIZE( id%MYID, id%COMM,
2285 & id%COMM_NODES, id%MYID, id%MYID_NODES, id%BUFR(1),id%LBUFR,
2358 IF ( id%MYID .eq. MASTER ) THEN
2361 ELSE IF ( id%MYID .EQ. 1 ) THEN
2388 & id%COMM, id%MYID )
2401 & id%COMM, id%MYID )
2408 IF (id%MYID.EQ.MASTER) THEN
2422 & id%MYID, N, id%NELT, id%NA(1), id%LNA, id%KEEP8(28),
2461 CALL MUMPS_MEM_CENTRALIZE( id%MYID, id%COMM,
2605 IF (id%MYID.EQ.MASTER) THEN
2649 IF (id%MYID.EQ.MASTER) THEN
2743 IF (id%MYID .EQ. ID_ROOT) THEN
2750 IF (id%MYID.EQ.MASTER) THEN
2769 IF (id%MYID .EQ. ID_ROOT) THEN
2773 ELSE IF (id%MYID .EQ. MASTER) THEN
2794 & id%COMM, id%MYID )
2799 IF(id%MYID .EQ. MASTER) THEN
2835 IF (id%MYID.EQ.MASTER .AND. LSCAL. AND. KEEP(258).NE.0) THEN
2864 IF (id%KEEP(50).EQ.0 .AND. id%MYID.EQ. MASTER) THEN
3026 & id%COMM, id%MYID )
3168 IF (id%MYID.EQ.ID_SCHUR) THEN
3179 ELSE IF (id%MYID .EQ. MASTER) THEN
3200 IF (id%MYID.EQ.ID_SCHUR) THEN
3221 IF (id%MYID.EQ.ID_SCHUR) THEN
3255 IF ( id%MYID .eq. ID_SCHUR ) THEN
3264 ELSE IF ( id%MYID .eq. MASTER ) THEN
3287 IF (id%MYID.EQ.ID_SCHUR) THEN
3327 IF (id%MYID .NE. MASTER) THEN