RPN_COMM

(RPN_COMM_init)

subroutine RPN_COMM_init(Userinit,Pelocal,Petotal,Pex,Pey)

ARGUMENTS

Userinit: User specified subroutine which returns the process topology (subroutine userinit(pex,pey)
Pex: number of PE along x axis: if 0, specified with Userinit
Pey: number of PE along y axis: if 0, specified with Userinit

OUT

Pelocal: rank of local process

Petotal: total number of processes

Pex: number of processes along X

Pey: number of processes along Y

DESCRIPTION

If not already started, initialize MPI mode and some common blocks (internal use for RPN_COMM routines) and return the topology. If pex and pey are greater than 0, those values will be used and Userinit will not be called.

EXAMPLE
   subroutine maroutine(pex,pey)
   integer pex,pey
   pex=1
   pey=2
   return
   end

   program test
   .....
   pex=0
   pey=0

   call rpn_comm_init(maroutine,Pelocal,Petotal,pex,pey)

RPN_COMM

(RPN_COMM_init)

ARGUMENTS

DESCRIPTION

SEE ALSO