GEANT321/cgpack/cgheva.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:43  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.31  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE CGHEVA(H,HISI)
  13 *SG
  14 #include "geant321/cghpar.inc"
  15 *
  16       REAL H(*)
  17 *-
  18       HISI=0
  19       NHSIZE = H(KHSIZE)
  20 *      NT     = H(KHNT)
  21       NXYZ   = H(KHNXYZ)
  22       NFACE  = H(KHNFAC)
  23       NEDGE  = H(KHNEDG)
  24 *           S P A C E   F O R   N O D E S
  25       NX     = 3*NXYZ
  26 *           S P A C E   F O R   F A C E S
  27       NF     = (NFACE+NEDGE*2)/I4SIZE + 1
  28       NP     = NFACE
  29       NDF    = 6*NFACE
  30 *           S P A C E   F O R   T R E E
  31       NTR    = 4*NFACE/I4SIZE
  32       NST    = NFACE/I4SIZE + 1
  33       NAL    = NFACE
  34       NAR    = NFACE
  35 *            C H E C K   S P A C E
  36       NTOTAL = LHHEAD + NX + NF + NP + NDF + NTR + NST + NAL + NAR
  37       IF(NTOTAL .GT. NHSIZE)THEN
  38         HISI=NTOTAL+1
  39       ENDIF
  40  999  END
  41 *SG