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