GEANT321/geant321/trcom3.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/07/25 15:01:26  ravndal
   6 * CMZ to CVS conversion artefact removed
   7 *
   8 * Revision 1.1  1996/03/06 15:32:35  mclareni
   9 * Add geane321 includes
  10 *
  11 *
  12 #ifndef CERNLIB_ERPRCDES_TRCOM3_INC
  13 #define CERNLIB_ERPRCDES_TRCOM3_INC
  14 *
  15 *      Sequences of the EMC routines
  16 *
  17 * trcom3.inc
  18 *
  19       DOUBLE PRECISION A, B, S, TN, T, COSL, SINL, COSP, SINP, COSL1
  20       INTEGER          NEW
  21       COMMON /TRCOM3/ A(5,5), B(5,5), S(15),
  22      +                TN(3), T(5), COSL, SINL, COSP, SINP, COSL1, NEW
  23 *
  24 * trcom3.inc
  25 *
  26 #if defined(CERNLIB_INCLUDE)
  27 #include "geant321/incbeg.inc"
  28      +    TRCOM3
  29 #include "geant321/incend.inc"
  30 #endif
  31
  32 #endif