Warning, /include/geant321/trcom3.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2 1996/07/25 15:01:26 ravndal
0006 * CMZ to CVS conversion artefact removed
0007 *
0008 * Revision 1.1 1996/03/06 15:32:35 mclareni
0009 * Add geane321 includes
0010 *
0011 *
0012 #ifndef CERNLIB_ERPRCDES_TRCOM3_INC
0013 #define CERNLIB_ERPRCDES_TRCOM3_INC
0014 *
0015 * Sequences of the EMC routines
0016 *
0017 * trcom3.inc
0018 *
0019 DOUBLE PRECISION A, B, S, TN, T, COSL, SINL, COSP, SINP, COSL1
0020 INTEGER NEW
0021 COMMON /TRCOM3/ A(5,5), B(5,5), S(15),
0022 + TN(3), T(5), COSL, SINL, COSP, SINP, COSL1, NEW
0023 *
0024 * trcom3.inc
0025 *
0026 #if defined(CERNLIB_INCLUDE)
0027 #include "geant321/incbeg.inc"
0028 + TRCOM3
0029 #include "geant321/incend.inc"
0030 #endif
0031
0032 #endif
