DPMJET/flukapro/(SBUSFL)

   1 *$ CREATE SBUSFL.ADD
   2 *COPY SBUSFL
   3 *
   4 *=== sbusfl ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Created on 28 january 1992   by    Alfredo Ferrari & Paola Sala  *
   9 *                                                   Infn - Milan       *
  10 *                                                                      *
  11 *     Last change on 28-jan-92     by    Alfredo Ferrari               *
  12 *                                                                      *
  13 *     Included in the following routines:                              *
  14 *                                                                      *
  15 *                    SBCOMP                                            *
  16 *                    BREFRA                                            *
  17 *                                                                      *
  18 *----------------------------------------------------------------------*
  19 *
  20       COMMON / SBUSFL / R0HLA , R0HLB , R0SKA , R0SKB , R0CEA , R0CEB ,
  21      &                  R1CEA , R1CEB , R1SKA , R1SKB , R1HLA , R1HLB ,
  22      &                  SQRH0A, SQRH0B, SQRS0A, SQRS0B, SQRC0A, SQRC0B,
  23      &                  SQRC1A, SQRC1B, SQRS1A, SQRS1B, SQRH1A, SQRH1B
  24