*
*=== Dortsf ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     DO RoTation Statement Functions:                                 *
*                                                                      *
*     Created on   31 January 1998 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Rotate ux,y,z from the original frame to a frame where the z     *
*     axis has components (csph0 x snth0, snph0 x snth0, csth0)        *
*                                                                      *
*----------------------------------------------------------------------*
*
      DOXROT ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
     &              UX * CSPH0 * CSTH0 + UY * SNPH0 * CSTH0 - UZ * SNTH0
      DOYROT ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
     &                 - UX * SNPH0 + UY * CSPH0
      DOZROT ( UX, UY, UZ, SNPH0, CSPH0, SNTH0, CSTH0 ) =
     &              UX * CSPH0 * SNTH0 + UY * SNPH0 * SNTH0 + UZ * CSTH0