[u/mrichter/AliRoot.git] / GEANT321 / giopa / gclose.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:16  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.20  by  S.Giani
*-- Author :
      SUBROUTINE GCLOSE (LUN,IER)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Routine to close I/O units                               *
C.    *                                                                *
C.    *       LUN      Logical unit number                             *
C.    *       IER      error flag                                      *
C.    *                                                                *
C.    *    ==>Called by : <USER>, UGLAST                               *
C.    *       Authors    R.Brun, F.Carena  *********                   *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcunit.inc"
C.
C.    ------------------------------------------------------------------
C.
      IER=0
      IF(LUN.EQ.0)THEN
         CALL FZENDO(LUN,'T')
         CALL FZENDI(LUN,'T')
      ELSE
         DO 10 I=1,NUNITS
            IF(LUN.EQ.ABS(LUNITS(I)))THEN
               IF(LUNITS(I).LT.0)THEN
                  CALL FZENDI(LUN,'T')
               ELSE
                  CALL FZENDO(LUN,'T')
               ENDIF
               LUNITS(I)=0
               GOTO 999
            ENDIF
   10    CONTINUE
         IER=1
      ENDIF
  999 END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:21:16 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GCLOSE (LUN,IER)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Routine to close I/O units *
	17	C. * *
	18	C. * LUN Logical unit number *
	19	C. * IER error flag *
	20	C. * *
	21	C. * ==>Called by : <USER>, UGLAST *
	22	C. * Authors R.Brun, F.Carena ********* *
	23	C. * *
	24	C. ******************************************************************
	25	C.
	26	#include "geant321/gcunit.inc"
	27	C.
	28	C. ------------------------------------------------------------------
	29	C.
	30	IER=0
	31	IF(LUN.EQ.0)THEN
	32	CALL FZENDO(LUN,'T')
	33	CALL FZENDI(LUN,'T')
	34	ELSE
	35	DO 10 I=1,NUNITS
	36	IF(LUN.EQ.ABS(LUNITS(I)))THEN
	37	IF(LUNITS(I).LT.0)THEN
	38	CALL FZENDI(LUN,'T')
	39	ELSE
	40	CALL FZENDO(LUN,'T')
	41	ENDIF
	42	LUNITS(I)=0
	43	GOTO 999
	44	ENDIF
	45	10 CONTINUE
	46	IER=1
	47	ENDIF
	48	999 END