*$ CREATE MUSRBR.FOR
*COPY MUSRBR
*
*=== musrbr ===========================================================*
*
      INTEGER FUNCTION MUSRBR ( IJ, PCONTR, XA, YA, ZA, MREG, LATCLL,
     &                          ICALL )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1995-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Created on 21 february 1995  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 22-feb-95     by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      MUSRBR = MREG
*=== End of function musrbr ===========================================*
      RETURN
      END

