This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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