This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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