GEANT321/gbase/gshead.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 GSHEAD (NWBUF,UBUF,IADR)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C     *       Stores User's informations in HEADER user bank.          *
  17 C     *       IADR is the stating location in the bank                 *
  18 C     *                                                                *
  19 C     *       on output IADR is the new starting location              *
  20 C.    *                                                                *
  21 C.    *    ==>Called by : <USER>                                       *
  22 C.    *       Author     M.Maire                                       *
  23 C.    *                                                                *
  24 C.    ******************************************************************
  25 C.
  26 #include "geant321/gcbank.inc"
  27 #include "geant321/gcunit.inc"
  28 #include "geant321/gcflag.inc"
  29 *
  30       DIMENSION UBUF(1)
  31 *
  32       IF (JHEAD.GT.0) THEN
  33 *
  34          NDATA = IADR + NWBUF
  35          IF (LQ(JHEAD-1).EQ.0) THEN
  36             CALL MZBOOK (IXDIV,JHU,JHEAD,-1,'HEDU',0,0,NDATA,3,0)
  37          ELSE
  38             JHU = LQ(JHEAD-1)
  39             NFREE = IQ(JHU-1) - NDATA
  40             IF (NFREE.LT.0) CALL MZPUSH (IXDIV,JHU,0,-NFREE,'I')
  41          ENDIF
  42 *
  43          DO  10 I=1,NWBUF
  44             Q(JHU+IADR+I) = UBUF(I)
  45    10    CONTINUE
  46 *
  47          IADR = IADR + NWBUF
  48       ELSE
  49 *
  50          IADR = 0
  51          WRITE(CHMAIL,1000) IEVENT
  52          CALL GMAIL(0,0)
  53       ENDIF
  54 *
  55  1000 FORMAT(' **** GSHEAD: No Header bank in memory for ievent:',I7)
  56 *
  57       END