Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gparal / gptrigi.F
CommitLineData
fe4da5cc 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
1610000 FORMAT(' **** GTRIGI: IEVENT=',I7,' NODE ', I3 , ' IDEVT=',I7,
17 +' Random Seeds = ',I10,2X,I10)
18
19 return
20 end
62be6b28 21#else
22 SUBROUTINE GPTRIGI_DUMMY
23 END
fe4da5cc 24#endif