5 * Revision 1.1.1.1 1995/10/24 10:21:16 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
12 SUBROUTINE GCLOSE (LUN,IER)
14 C. ******************************************************************
16 C. * Routine to close I/O units *
18 C. * LUN Logical unit number *
21 C. * ==>Called by : <USER>, UGLAST *
22 C. * Authors R.Brun, F.Carena ********* *
24 C. ******************************************************************
26 #include "geant321/gcunit.inc"
28 C. ------------------------------------------------------------------
36 IF(LUN.EQ.ABS(LUNITS(I)))THEN
37 IF(LUNITS(I).LT.0)THEN