This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / guser / gunear.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 GUNEAR(ISEARC, ICALL, X, JNEAR)
13C.
14C. ******************************************************************
15C. * *
16C. * User search *
17C. * ISEARC to identify the given volume *
18C. * ICALL to identify the calling routine *
19C. * 1 GMEDIA like *
20C. * 2 GNEXT like *
21C. * X coordinates (+direction for ICALL=2) *
22C. * JNEAR address of default list of neighbours *
23C. * (list to be overwriten by user) *
24C. * *
25C. * Called by : GFTRAC, GINVOL, GTMEDI, GTNEXT, GNEXT, GMEDIA *
26C. * *
27C. ******************************************************************
28C.
29 DIMENSION X(*)
30C. ------------------------------------------------------------------
31* END GUNEAR
32 END