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)
6 #include "geant321/gcflag.inc"
7 #include "geant321/gcunit.inc"
8 #include "geant321/multiprox.inc"
11 call GRNDMQ( iseed1, iseed2, 0, 'G' )
13 WRITE (CHMAIL,10000) IEVENT,nprank, IDEVT, iseed1, iseed2
16 10000 FORMAT(' **** GTRIGI: IEVENT=',I7,' NODE ', I3 , ' IDEVT=',I7,
17 +' Random Seeds = ',I10,2X,I10)
22 SUBROUTINE GPTRIGI_DUMMY