5 * Revision 1.1.1.1 1995/10/24 10:20:50 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.29 by S.Giani
12 SUBROUTINE GINPAR(X,PAR,IYES)
14 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. *
20 C. * ==>Called by : GINME *
21 C. * Author A.McPherson ********* *
23 C. ******************************************************************
27 C. -------------------------------------
30 IF(ABS(X(3)).GT.PAR(3)) GO TO 99
33 IF(ABS(YT).GT.PAR(2)) GO TO 99
35 XT=X(1)-PAR(5)*X(3)-PAR(4)*YT
36 IF(ABS(XT).GT.PAR(1)) GO TO 99