This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gxint / gxclos.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:21:49 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani
11*-- Author :
12 SUBROUTINE GXCLOS(LUN)
13*
14* To close unit LUN
15*
16#if defined(CERNLIB_IBM)
17 CHARACTER*80 CHTEMP
18 CHARACTER*3 CHLUN
19#endif
20*________________________________________________________
21*
22 CLOSE (LUN)
23#if defined(CERNLIB_IBM)
24 WRITE(CHLUN,'(I3)')LUN
25 CHTEMP='FILEDEF '//CHLUN//' CLEAR'
26 CALL VMCMS(CHTEMP,ISTAT)
27#endif
28*
29 END
30