GEANT321/gbase/gfrung.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:10  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 GFRUNG (NWRUNG,IRUNG,NWBUF,UBUF)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C     *       Retrieves the parameter of the RUNG   bank               *
  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       DIMENSION IRUNG(1),UBUF(1)
  27 *
  28       IF (JRUNG.NE.0) THEN
  29          NWRUNG = IQ(JRUNG-1)
  30          DO 10 I=1,NWRUNG
  31             IRUNG(I) = IQ(JRUNG+I)
  32    10    CONTINUE
  33 *
  34          NWBUF = 0
  35          IF (LQ(JRUNG-1).NE.0) THEN
  36             JRU = LQ(JRUNG-1)
  37             NWBUF = IQ(JRU-1)
  38             DO 20 I=1,NWBUF
  39                UBUF(I) = Q(JRU+I)
  40    20       CONTINUE
  41          ENDIF
  42 *
  43       ELSE
  44          NWRUNG = 0
  45          WRITE(CHMAIL,1000)
  46          CALL GMAIL(0,0)
  47       ENDIF
  48 *
  49  1000 FORMAT(' **** GFRUNG: No RUNG bank existing in memory ')
  50 *
  51       END