*$ CREATE CMRNSD.ADD
*COPY CMRNSD
*
*=== Cmrnsd ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1992-2005      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     CoMmon for RaNdom SeeDs:                                         *
*                                                                      *
*                                                                      *
*     Used in Fluka9x/2000x only to steer the new Fred James double    *
*     precision random number generator                                *
*                                                                      *
*     Created on 19   july  1992   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 29-jan-97     by    Alfredo Ferrari               *
*                                                                      *
*         (K)Sseed(i) = (integer)double precision auxiliary random     *
*                       seeds                                          *
*              Lfjr48 = logical flag for using the new Fred James      *
*                       random number generator                        *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MHLPAL = 2 * KALGNM )
      LOGICAL LFJR48
      COMMON / CMRNSD / KSSEED (MHLPAL), LFJR48
      DIMENSION SSEED (2)
      EQUIVALENCE ( KSSEED (1), SSEED (1) )
      SAVE / CMRNSD /