5 * Revision 1.1.1.1 1995/10/24 10:21:46 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 SUBROUTINE GUINME(X,SH,P,IYES)
14 C. **********************************************
16 C. * USER ROUTINE TO PROVIDE GINME FUNCTION *
17 C. * FOR ALL USER SHAPES IDENTIFIED BY THE *
18 C. * SHAPE NUMBER SH. POINT IS GIVEN IN X *
19 C. * THE PARAMETERS ARE GIVEN IN P. IYES IS *
20 C. * RETURNED 1 IF POINT IS IN, 0 IF POINT *
21 C. * IS OUT AND LESS THAN ZERO IF SHAPE *
22 C. * NUMBER IS NOT SUPPORTED. *
24 C. * ==>Called by : GINME *
26 C. **********************************************