GEANT321/gparal/gprocs.F

   1 *CMZ :           1/08/95  16.58.00  by  John Apostolakis
   2 *-- Author :    John Apostolakis  CERN/GP-MIMD2    1/08/95
   3 **DOC
   4 *
   5 *  Routine to allow calling GEANT program to become aware of
   6 *  the extent of the parallel machine it is running on and its place
   7 *  within it.
   8 *
   9 #if defined(CERNLIB_PARA)
  10       subroutine gprocs( nsize, nrank, nleader )
  11       implicit none
  12       integer nsize, nrank, nleader
  13 *  nsize   = Number of nodes or processes
  14 *  nrank   = The id or rank of the this process ( 0 <= rank < size )
  15 *  nleader = The node that does input distibution (if there is one,
  16 *                  and -1 if there is no leader)
  17 **ENDDOC
  18 #include "geant321/multiprox.inc"
  19       nsize= npsize
  20       nrank= nprank
  21       nleader= npleader
  22
  23       RETURN
  24       END
  25 #endif