[u/mrichter/AliRoot.git] / GEANT321 / geant321 / trcom3.inc

*
* $Id$
*
* $Log$
* Revision 1.2  1996/07/25 15:01:26  ravndal
* CMZ to CVS conversion artefact removed
*
* Revision 1.1  1996/03/06 15:32:35  mclareni
* Add geane321 includes
*
*
#ifndef CERNLIB_ERPRCDES_TRCOM3_INC
#define CERNLIB_ERPRCDES_TRCOM3_INC
*
*      Sequences of the EMC routines
*
* trcom3.inc
*
      DOUBLE PRECISION A, B, S, TN, T, COSL, SINL, COSP, SINP, COSL1
      INTEGER          NEW
      COMMON /TRCOM3/ A(5,5), B(5,5), S(15),
     +                TN(3), T(5), COSL, SINL, COSP, SINP, COSL1, NEW
*
* trcom3.inc
*
#if defined(CERNLIB_INCLUDE)
#include "geant321/incbeg.inc"
     +    TRCOM3
#include "geant321/incend.inc"
#endif

#endif
Commit	Line	Data
fe4da5cc	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