This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gparal / gpdynamic.F
1 *CMZ :          11/11/94  14.40.52  by  John Apostolakis CERN GP-MIMD 2
2 *-- Author :    John Apostolakis CERN GP-MIMD 2   13/07/94
3 C------------------------------------------------------------------------
4 C     gpdynamic
5 C           Function: informs parallel Geant that events will be 
6 C                     dynamically distributed between nodes, ie
7 C                     each "worker" node will request (the data of) an event
8 C                     from a "master" or "leader". 
9 C
10 C     called by:  <USER>, (if CERNLIB_PARA switch is used)
11 C------------------------------------------------------------------------
12 #if defined(CERNLIB_PARA)
13       subroutine gpdynamic
14       implicit none
15 #include "geant321/multiprox.inc"
16
17 c
18 c     This routine overrides the default (set in gpinit) 
19 c       of a static decomposition of events , with which 
20 c       each processor would get 1/(number of processors) of the share 
21 c       of events. 
22 c     It should be used if an input file exists or the time per event 
23 c       has a large standard deviation, the events can be dynamically assigned.
24 c       You will need to look at the routines gukine and muxread
25 c       in gexam3 for how to distribute events.
26
27 c
28 c     The following initialises the "dynamic" configuration,
29 c       in which there is no "master" or "leader".
30 c
31 c         -- Id of task expected to be a "master"
32       npleader = 0
33 c         -- Id of task expected to be 1st worker
34 c                                 (representative for printout ...)
35       nfirstworker= 1
36
37       return
38       end
39 #endif