USROUT

Here the ntupla and the file containing it are simply closed invoking the recommended HBOOK routines.

*$ CREATE USROUT.FOR
*COPY USROUT
*
*=== usrout ===========================================================*
*
      SUBROUTINE USROUT ( WHAT, SDUM )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
      DIMENSION WHAT (6)
      CHARACTER SDUM*8
*
      ITSAV = ITEXPI
      CALL HROUT(0,ICYCLE,' ')
      CALL HREND('Muons')
      NLUNI1 = 63
      CLOSE(NLUNI1)
      ITEXPI = ITSAV
      RETURN
      END