GEANT321/gparal/gptrig.F

   1 *CMZ :          02/11/94  15.22.20  by  John Apostolakis CERN GP-MIMD 2
   2 *-- Author :    John Apostolakis CERN GP-MIMD/2  Started: 13/07/94
   3 C------------------------------------------------------------------------
   4 C     gptrig
   5 C           Function: prints some default information about the number of
   6 C             the event simulated, the node and the current RNG seeds.
   7 C
   8 C     called by:  gtrig (if PARALLEL switch is used)
   9 C------------------------------------------------------------------------
  10 #if defined(CERNLIB_PARA)
  11       subroutine gptrig
  12       implicit none
  13 #include "geant321/gcflag.inc"
  14 #include "geant321/multiprox.inc"
  15 #include "geant321/multseeds.inc"
  16       integer  isequence, idbg
  17
  18       idbg= 0
  19
  20 c     if (idbg) write( *, 10000)  nprank, iseqnc, iseeda, iseedb
  21 10000 FORMAT (' --> Node',I4,' Before grndmq call. ',
  22      &        ' Sequence expected ', I5, ' Previous Seeds', 2I11 )
  23
  24       isequence = -1
  25       call GRNDMQ( iseeda, iseedb, isequence, 'G' )
  26
  27       if(idbg) write( *, 10005)  nprank, isequence
  28 10005 FORMAT (' --> Node',I4,' After grndmq call. ',
  29      &        ' Sequence returned ', I5 )
  30
  31 c     call GRNDMQ( iseeda, iseedb, iseqnc, 'G' )
  32
  33       write( *, 10010)  nprank, ievent, iseeda, iseedb
  34 10010 FORMAT (' --> Node',I4,'  Event',I7,'  Seeds',2I11 )
  35
  36       return
  37       end
  38 #endif