GEANT321/cgpack/cghcre.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 CGHCRE(NT,IFWIND,W1,W2,N,H)
  13 ************************************************************************
  14 *                                                                      *
  15 *     Name: CGHCRE                                                     *
  16 *     Author: E. Chernyaev                       Date:    05.08.88     *
  17 *                                                Revised:              *
  18 *                                                                      *
  19 *     Function: Initiate HIDE-structure                                *
  20 *                                                                      *
  21 *     References: none                                                 *
  22 *                                                                      *
  23 *     Input :   NT - number of transformation to screen system         *
  24 *           IFWIND - window flag                                       *
  25 *            W1(2) - left lower window corner                          *
  26 *            W2(2) - rigth upper window corner                         *
  27 *                N - max size of H array                               *
  28 *             H(*) - HIDE-structure                                    *
  29 *                                                                      *
  30 *     Output: none                                                     *
  31 *                                                                      *
  32 *     Errors: none                                                     *
  33 *                                                                      *
  34 ************************************************************************
  35 #include "geant321/cghpar.inc"
  36 #include "geant321/cgctra.inc"
  37       REAL H(*),W1(2),W2(2)
  38 *-
  39       H(KHSIZE) = 0.
  40       IF (N .LT. LHHEAD)                GOTO 999
  41       DO 100 I=1,LHHEAD
  42         H(I)    = 0.
  43   100   CONTINUE
  44       IF (NT.LE.0 .OR. NT.GT.NTMAX)     GOTO 999
  45       H(KHSIZE) = N
  46       H(KHNT)   = NT
  47       H(KHIFWI) = IFWIND
  48       IF (IFWIND .LE. 0)                GOTO 999
  49       H(KHIFWI+1) = W1(1)
  50       H(KHIFWI+2) = W1(2)
  51       H(KHIFWI+3) = W2(1)
  52       H(KHIFWI+4) = W2(2)
  53   999 RETURN
  54       END