5 * Revision 1.1.1.1 1995/10/24 10:21:17 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
12 SUBROUTINE GREND (LUN)
14 C. ******************************************************************
16 C. * Routine to close an RZ file *
18 C. * CHDIR Top directory name of the file *
20 C. * ==>Called by : <USER> *
21 C. * Author R.Brun ********* *
23 C. ******************************************************************
27 C. ------------------------------------------------------------------
30 WRITE(CHDIR,'(''LUN'',I1)') LUN
32 WRITE(CHDIR,'(''LUN'',I2)') LUN