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 GUNEAR(ISEARC, ICALL, X, JNEAR)
14 C. ******************************************************************
17 C. * ISEARC to identify the given volume *
18 C. * ICALL to identify the calling routine *
21 C. * X coordinates (+direction for ICALL=2) *
22 C. * JNEAR address of default list of neighbours *
23 C. * (list to be overwriten by user) *
25 C. * Called by : GFTRAC, GINVOL, GTMEDI, GTNEXT, GNEXT, GMEDIA *
27 C. ******************************************************************
30 C. ------------------------------------------------------------------