*$ CREATE USRGLO.FOR
*COPY USRGLO
*
*=== usrglo ===========================================================*
*
      SUBROUTINE USRGLO ( WHAT, SDUM )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2006-2006      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     USeR GLObal settings: this routine is called before whichever    *
*                           FLUKA initialization starts every time the *
*                           USRGCALL card is found anywhere in the     *
*                           input stream                               *
*                                                                      *
*                                                                      *
*     Created on 11 september 2006  by   Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 11-sep-06      by   Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      DIMENSION WHAT (6)
      CHARACTER SDUM*8
*
*  Don't change the following line:
      LUSRGL = .TRUE.
* *** Write from here on *** *
      RETURN
*=== End of subroutine Usrglb =========================================*
      END