*
*=== speede ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Created on 07  November 1990 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( NBNSPD = 150 )
      PARAMETER ( EMNSPD = 1.0 D-04 )
      PARAMETER ( EMXSPD = 5.0 D+00 )
*   This is the natural logarithm of the previos one less something
*     PARAMETER ( ELMXSP = 1.609437912434100 D+00 )
      PARAMETER ( ELMXSP = 1.609437912434100 D+00 - 10.D+00 * ANGLGB )
*
      COMMON / SPEEDE / SPEED1 (0:NBNSPD), SPEED0 (0:NBNSPD),
     &                  ESPEE1, ESPEE0
      SAVE / SPEEDE /