PMPCOL(3)     ScaLAPACK routine of NEC Numeric Library Collection    PMPCOL(3)



NAME
       PMPCOL - finds the collaborators of MYPROC

SYNOPSIS
       SUBROUTINE PMPCOL(  MYPROC,  NPROCS,  IIL, NEEDIL, NEEDIU, PMYILS, PMY-
                           IUS, COLBRT, FRSTCL, LASTCL )

           INTEGER         FRSTCL, IIL, LASTCL, MYPROC, NEEDIL, NEEDIU, NPROCS

           LOGICAL         COLBRT

           INTEGER         PMYILS( * ), PMYIUS( * )

PURPOSE
       Using  the  output  from PMPIM2 and given the information on eigenvalue
       clusters, PMPCOL finds the collaborators of MYPROC.


ARGUMENTS
       MYPROC  (input) INTEGER
               The processor number, 0 <= MYPROC < NPROCS

       NPROCS  (input) INTEGER
               The total number of processors available

       IIL     (input) INTEGER
               The index of the leftmost eigenvalue in W

       NEEDIL  (input) INTEGER
               The leftmost position in W needed by MYPROC

       NEEDIU  (input) INTEGER
               The rightmost position in W needed by MYPROC

       PMYILS  (input) INTEGER array
               For each processor p,  PMYILS(p) is  the  index  of  the  first
               eigenvalue in W to be computed PMYILS(p) equals zero if p stays
               idle

       PMYIUS  (input) INTEGER array
               For each processor p,  PMYIUS(p)  is  the  index  of  the  last
               eigenvalue in W to be computed PMYIUS(p) equals zero if p stays
               idle

       COLBRT  (output) LOGICAL
               TRUE if MYPROC collaborates.

       FRSTCL  (output) INTEGER

       LASTCL  FIRST and LAST collaborator of MYPROC
               MYPROC  collaborates  with  FRSTCL,  ...,  MYPROC-1,  MYPROC+1,
               ...,LASTCL  If  MYPROC == FRSTCL, there are no collaborators on
               the left. IF MYPROC == LASTCL, there are  no  collaborators  on
               the right.
               If  FRSTCL == 0 and LASTCL = NPROCS-1, then MYPROC collaborates
               with everybody



ScaLAPACK routine               31 October 2017                      PMPCOL(3)