5 * Revision 1.1.1.1 1995/10/24 10:21:49 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani
12 SUBROUTINE GXCLOS(LUN)
16 #if defined(CERNLIB_IBM)
20 *________________________________________________________
23 #if defined(CERNLIB_IBM)
24 WRITE(CHLUN,'(I3)')LUN
25 CHTEMP='FILEDEF '//CHLUN//' CLEAR'
26 CALL VMCMS(CHTEMP,ISTAT)