GEANT321/ggeom/ginpar.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:50  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.29  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GINPAR(X,PAR,IYES)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *    Routine to determine whether a point X is inside the        *
  17 C.    *    parallelepiped with parameters PAR. IYES is returned as 1   *
  18 C.    *    if it is; as zero if it isn't.                              *
  19 C.    *                                                                *
  20 C.    *    ==>Called by : GINME                                        *
  21 C.    *         Author  A.McPherson  *********                         *
  22 C.    *                                                                *
  23 C.    ******************************************************************
  24 C.
  25       DIMENSION X(3),PAR(6)
  26 C.
  27 C.           -------------------------------------
  28 C.
  29       IYES=0
  30       IF(ABS(X(3)).GT.PAR(3)) GO TO 99
  31 C
  32       YT=X(2)-PAR(6)*X(3)
  33       IF(ABS(YT).GT.PAR(2)) GO TO 99
  34 C
  35       XT=X(1)-PAR(5)*X(3)-PAR(4)*YT
  36       IF(ABS(XT).GT.PAR(1)) GO TO 99
  37 C
  38       IYES=1
  39 C
  40    99 CONTINUE
  41       END