DPMJET/flukapro/(RTDFCM)

   1 *$ CREATE RTDFCM.ADD
   2 *COPY RTDFCM
   3 *
   4 *=== rtdfcm ===========================================================*
   5 *
   6 *
   7 *----------------------------------------------------------------------*
   8 *                                                                      *
   9 *     RoTation DeFinition CoMmon:                                      *
  10 *                                                                      *
  11 *     Created on 12 february 1997  by    Alfredo Ferrari & Paola Sala  *
  12 *                                                   Infn - Milan       *
  13 *                                                                      *
  14 *     Last change on 13-feb-97     by    Alfredo Ferrari               *
  15 *                                                                      *
  16 *     Rtmtrx(i,j,k) = R_ij    rotation matrix for the k_th transfor-   *
  17 *                     mation                                           *
  18 *     Rimtrx(i,j,k) = R^-1_ij rotation matrix for the k_th transfor-   *
  19 *                     mation                                           *
  20 *     Rtofst(i,k)   = Traslation vector (i=1,2,3->x,y,z) for the k_th  *
  21 *                     transformation                                   *
  22 *     Thertn  (k)   = Polar     angle (degrees) for the k_th transfor- *
  23 *                     mation                                           *
  24 *     Phirtn  (k)   = Azimuthal angle (degrees) for the k_th transfor- *
  25 *                     mation                                           *
  26 *     Jaxrtn  (k)   = Axis used to define the angles for the k_th      *
  27 *                     transformation                                   *
  28 *                                                                      *
  29 *----------------------------------------------------------------------*
  30 *
  31       PARAMETER ( MXRTNS = 25 )
  32       COMMON / RTDFCM / RTMTRX (3,3,MXRTNS), RIMTRX (3,3,MXRTNS),
  33      &                  RTOFST (3,MXRTNS), THERTN (MXRTNS),
  34      &                  PHIRTN (MXRTNS), JAXRTN (MXRTNS)
  35