[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdlcyl.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:23  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
*-- Author :
      SUBROUTINE GDLCYL(R1,PHI1,Z1,R2,PHI2,Z2)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Draw a line between points (R1,PHI1,Z1) and (R2,PHI2,Z2) *
C.    *       given in cylindrical coordinates                         *
C.    *                                                                *
C.    *    ==>Called by : GDRAWS                                       *
C.    *       Author : A.McPherson   *********                         *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gconsp.inc"
      DIMENSION P1(3),P2(3)
C.
C.    ------------------------------------------------------------------
C
      IF (R1.LT.0.0001.AND.R2.LT.0.0001) GO TO 999
C
      PH=PHI1*DEGRAD
      P1(1)=R1*COS(PH)
      P1(2)=R1*SIN(PH)
      P1(3)=Z1
      PH=PHI2*DEGRAD
      P2(1)=R2*COS(PH)
      P2(2)=R2*SIN(PH)
      P2(3)=Z2
C
      CALL GDLINE(P1,P2)
C
  999 RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:23 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GDLCYL(R1,PHI1,Z1,R2,PHI2,Z2)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Draw a line between points (R1,PHI1,Z1) and (R2,PHI2,Z2) *
	17	C. * given in cylindrical coordinates *
	18	C. * *
	19	C. * ==>Called by : GDRAWS *
	20	C. * Author : A.McPherson ********* *
	21	C. * *
	22	C. ******************************************************************
	23	C.
	24	#include "geant321/gconsp.inc"
	25	DIMENSION P1(3),P2(3)
	26	C.
	27	C. ------------------------------------------------------------------
	28	C
	29	IF (R1.LT.0.0001.AND.R2.LT.0.0001) GO TO 999
	30	C
	31	PH=PHI1*DEGRAD
	32	P1(1)=R1*COS(PH)
	33	P1(2)=R1*SIN(PH)
	34	P1(3)=Z1
	35	PH=PHI2*DEGRAD
	36	P2(1)=R2*COS(PH)
	37	P2(2)=R2*SIN(PH)
	38	P2(3)=Z2
	39	C
	40	CALL GDLINE(P1,P2)
	41	C
	42	999 RETURN
	43	END