*$ CREATE USRRNC.FOR
*COPY USRRNC
*
*=== Usrrnc ===========================================================*
*
      SUBROUTINE USRRNC ( IZ, IA, IS, X, Y, Z, MREG, WEE, ICALL )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
      INCLUDE '(TRACKR)'
      INCLUDE '(GENSTK)'
      INCLUDE '(CASLIM)'
      INCLUDE '(FHEAVY)'

*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2005-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     USeR Residual NuClei:                                            *
*                                                                      *
*     Created on   06 april 2005   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 06-apr-05     by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER*20 FILNAM
      LOGICAL LFCOPE
 
      SAVE LFCOPE
      DATA LFCOPE / .FALSE. /

*
*----------------------------------------------------------------------*
      IF ( .NOT. LFCOPE ) THEN
         LFCOPE = .TRUE.
         FILNAM = 'me'
         OPEN ( UNIT = 43.0, FILE = FILNAM, STATUS = 'NEW', FORM =
     &          'FORMATTED' )
      END IF
*
*------total number of secondary particles-----------------------------*


*----------------------------------------------------------------------


* Output
      IF (IZ .GE. 3) THEN
          WRITE(48.0, *) IZ, IA, WEE
      END IF



      RETURN
*=== End of subroutine Usrrnc =========================================*
      END





