GEANT321/fluka/drelab.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:00  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
  11 *-- Author :
  12 *$ CREATE DRELAB.FOR
  13 *COPY DRELAB
  14 *
  15 *=== drelab ===========================================================*
  16 *
  17       SUBROUTINE DRELAB(X,Y,Z,COTE,SITE,COPS,SIPS)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22       X1=COPS*X-SIPS*COTE*Y+SIPS*SITE*Z
  23       X2=SIPS*X+COPS*COTE*Y-COPS*SITE*Z
  24       X3=SITE*Y+COTE*Z
  25       X=X1
  26       Y=X2
  27       Z=X3
  28       RETURN
  29       END