[u/mrichter/AliRoot.git] / GEANT321 / gparal / gprocs.F

*CMZ :           1/08/95  16.58.00  by  John Apostolakis
*-- Author :    John Apostolakis  CERN/GP-MIMD2    1/08/95
**DOC
*
*  Routine to allow calling GEANT program to become aware of
*  the extent of the parallel machine it is running on and its place
*  within it.
*
#if defined(CERNLIB_PARA)
      subroutine gprocs( nsize, nrank, nleader )
      implicit none
      integer nsize, nrank, nleader
*  nsize   = Number of nodes or processes
*  nrank   = The id or rank of the this process ( 0 <= rank < size )
*  nleader = The node that does input distibution (if there is one,
*                  and -1 if there is no leader)
**ENDDOC
#include "geant321/multiprox.inc"
      nsize= npsize
      nrank= nprank
      nleader= npleader

      RETURN
      END
#else
      SUBROUTINE GPROCS_DUMMY
      END
#endif
Commit	Line	Data
fe4da5cc	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
62be6b28	25	#else
	26	SUBROUTINE GPROCS_DUMMY
	27	END
fe4da5cc	28	#endif