Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / GEANT321 / fluka / ttrans.F

diff --git a/GEANT321/fluka/ttrans.F b/GEANT321/fluka/ttrans.F
deleted file mode 100644 (file)
index 78cb003..0000000
--- a/GEANT321/fluka/ttrans.F
+++ /dev/null
@@ -1,58 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1995/10/24 10:20:04  cernlib
-* Geant
-*
-*
-#include "geant321/pilot.h"
-*CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
-*-- Author :
-*$ CREATE TTRANS.FOR
-*COPY TTRANS
-      SUBROUTINE TTRANS(XO,YO,ZO,CDE,SDE,SFE,CFE,X,Y,Z)
- 
-#include "geant321/dblprc.inc"
-#include "geant321/dimpar.inc"
-#include "geant321/iounit.inc"
-C********************************************************************
-C     VERSION BY                     J. RANFT
-C                                    LEIPZIG
-C
-C     THIS IS A SUBROUTINE OF FLUKA TO GIVE NEW DIRECTION COSINES
-C
-C     INPUT VARIABLES:
-C        XO,YO,ZO = ORIGINAL DIRECTION COSINES
-C        CDE,SDE  = COSINE AND SINE OF THE POLAR (THETA)
-C                   ANGLE OF "SCATTERING"
-C        SDE      = SINE OF THE POLAR (THETA) ANGLE OF "SCATTERING"
-C        SFE,CFE  = SINE AND COSINE OF THE AZIMUTHAL (PHI) ANGLE
-C                   OF "SCATTERING"
-C
-C     OUTPUT VARIABLES:
-C        X,Y,Z     = NEW DIRECTION COSINES
-C
-C     ROTATION OF COORDINATE SYSTEM (SEE CERN 64-47 )
-C********************************************************************
-C
-*
-*  Changed by A. Ferrari
-*
-      A = XO**2 + YO**2
-      IF ( A .LT. ANGLSQ ) THEN
-         X=SDE*CFE
-         Y=SDE*SFE
-C     Z=CDE CORRECTED AUGUST 88 PA
-         Z=CDE*ZO
-      ELSE
-         XI=SDE*CFE
-         YI=SDE*SFE
-         ZI=CDE
-         A=SQRT(A)
-         X=-YO*XI/A-ZO*XO*YI/A+XO*ZI
-         Y=XO*XI/A-ZO*YO*YI/A+YO*ZI
-         Z=A*YI+ZO*ZI
-      END IF
-      RETURN
-      END