DPMJET/flukapro/(UNRTSF)

   1 *$ CREATE UNRTSF.ADD
   2 *COPY UNRTSF
   3 *
   4 *=== Unrtsf ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     UNdo RoTation Statement Functions:                               *
   9 *                                                                      *
  10 *     Created on   31 january 1998 by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on  31-mar-98    by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *     Rotate ux,y,z to the frame where the original z                  *
  16 *     axis has components (csph0 x snth0, snph0 x snth0, csth0)        *
  17 *                                                                      *
  18 *----------------------------------------------------------------------*
  19 *
  20       UNDOXR ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
  21      &              UX * CSPH0 * CSTH0 - UY * SNPH0 + UZ * CSPH0 * SNTH0
  22       UNDOYR ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
  23      &              UX * SNPH0 * CSTH0 + UY * CSPH0 + UZ * SNPH0 * SNTH0
  24       UNDOZR ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
  25      &                 - UX * SNTH0 + UZ * CSTH0
  26