This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gbase / gprung.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:11  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.19  by  S.Giani
11 *-- Author :
12       SUBROUTINE GPRUNG
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Prints Rung bank JRUNG                                   *
17 C.    *                                                                *
18 C.    *    ==>Called by : <USER>                                       *
19 C.    *       Author    M.Maire                                        *
20 C.    *                                                                *
21 C.    ******************************************************************
22 C.
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcunit.inc"
25 *
26       IF (JRUNG.NE.0) THEN
27          NRUNG = IQ(JRUNG-1)
28          WRITE (CHMAIL,1000) (IQ(JRUNG+I),I=1,10)
29          CALL GMAIL(0,0)
30          WRITE (CHMAIL,1001) (IQ(JRUNG+I),I=11,20)
31          CALL GMAIL(0,0)
32          WRITE (CHMAIL,1002) ( Q(JRUNG+I),I=21,30)
33          CALL GMAIL(0,0)
34          IF (LQ(JRUNG-1).NE.0) THEN
35              WRITE(CHMAIL,2000)
36              CALL GMAIL(0,0)
37              JRU = LQ(JRUNG-1)
38              NDT = IQ(JRU-1)
39              NW  = MIN(NDT,9)
40              WRITE(CHMAIL,3000) (Q(JRU+I),I=1,NW)
41    15        CALL GMAIL(0,0)
42              IF ((NDT-NW).GT.0) THEN
43                 NS = NW+1
44                 NW = MIN(NDT,NW+9)
45                 WRITE(CHMAIL,3000) (Q(JRU+I),I=NS,NW)
46                 GO TO 15
47              ENDIF
48          ENDIF
49       ELSE
50          WRITE(CHMAIL,4000)
51          CALL GMAIL(0,0)
52       ENDIF
53 *
54  1000 FORMAT(' **** GPRUNG: IDRUN=',I4,2X,9I7)
55  1001 FORMAT(20X,10I10)
56  1002 FORMAT(20X,10F10.4)
57  2000 FORMAT(14X,'User words')
58  3000 FORMAT( 1X,9(2X,E12.5))
59  4000 FORMAT(' **** GPRUNG: No Rung bank existing in memory ')
60 *
61       END