This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / guser / guinme.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:46 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
11*-- Author :
12 SUBROUTINE GUINME(X,SH,P,IYES)
13C.
14C. **********************************************
15C. * *
16C. * USER ROUTINE TO PROVIDE GINME FUNCTION *
17C. * FOR ALL USER SHAPES IDENTIFIED BY THE *
18C. * SHAPE NUMBER SH. POINT IS GIVEN IN X *
19C. * THE PARAMETERS ARE GIVEN IN P. IYES IS *
20C. * RETURNED 1 IF POINT IS IN, 0 IF POINT *
21C. * IS OUT AND LESS THAN ZERO IF SHAPE *
22C. * NUMBER IS NOT SUPPORTED. *
23C. * *
24C. * ==>Called by : GINME *
25C. * *
26C. **********************************************
27C.
28 DIMENSION X(3),P(*)
29C
30 IYES=-1
31 END