GEANT321/gparal/gptrigi.F

   1 *CMZ :          20/10/94  15.26.50  by  John Apostolakis CERN GP-MIMD 2
   2 *-- Author :    John Apostolakis CERN GP-MIMD 2   13/07/94
   3 #if defined(CERNLIB_PARA)
   4       subroutine gptrigi
   5       implicit none
   6 #include "geant321/gcflag.inc"
   7 #include "geant321/gcunit.inc"
   8 #include "geant321/multiprox.inc"
   9       integer  iseed1, iseed2
  10
  11       call GRNDMQ( iseed1, iseed2, 0, 'G' )
  12
  13       WRITE (CHMAIL,10000) IEVENT,nprank, IDEVT, iseed1, iseed2
  14       CALL GMAIL(0,0)
  15
  16 10000 FORMAT(' **** GTRIGI: IEVENT=',I7,' NODE ', I3 , ' IDEVT=',I7,
  17      +' Random Seeds = ',I10,2X,I10)
  18
  19       return
  20       end
  21 #endif