5 * Revision 1.1.1.1 1995/10/24 10:19:42 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.31 by S.Giani
12 SUBROUTINE CGBMMT(A,B,IREP)
13 ************************************************************************
16 * Author: E. Chernyaev Date: 23.10.88 *
19 * Function: Mim-max test of two faces *
23 * Input: A(*) - 1-st face *
26 * Output: IREP - reply (=0 if NO intersection) *
27 * (=1 if there is intersection) *
31 ************************************************************************
32 #include "geant321/cggpar.inc"
33 #include "geant321/cgdelt.inc"
34 REAL A(*),B(*),RMNA(3),RMXA(3),RMNB(3),RMXB(3)
36 DATA IND/KCGX1,KCGY1,KCGZ1,KCGX2,KCGY2,KCGZ2/
45 * C O M P U T E M I N - M A X O F 1 - S T F A C E
51 IF (J .GT. 3) I = J - 3
52 IF (A(JJ+IND(J)) .LT. RMNA(I)) RMNA(I) = A(JJ+IND(J))
53 IF (A(JJ+IND(J)) .GT. RMXA(I)) RMXA(I) = A(JJ+IND(J))
57 * C O M P U T E M I N - M A X O F 2 - N D F A C E
63 IF (J .GT. 3) I = J - 3
64 IF (B(JJ+IND(J)) .LT. RMNB(I)) RMNB(I) = B(JJ+IND(J))
65 IF (B(JJ+IND(J)) .GT. RMXB(I)) RMXB(I) = B(JJ+IND(J))
69 * M I N - M A X T E S T
71 IF (RMNA(1) .GT. RMXB(1)+EEWOR) GOTO 999
72 IF (RMXA(1) .LT. RMNB(1)-EEWOR) GOTO 999
73 IF (RMNA(2) .GT. RMXB(2)+EEWOR) GOTO 999
74 IF (RMXA(2) .LT. RMNB(2)-EEWOR) GOTO 999
75 IF (RMNA(3) .GT. RMXB(3)+EEWOR) GOTO 999
76 IF (RMXA(3) .LT. RMNB(3)-EEWOR) GOTO 999