5 * Revision 1.1.1.1 1995/10/24 10:20:23 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani
12 SUBROUTINE GDLCYL(R1,PHI1,Z1,R2,PHI2,Z2)
14 C. ******************************************************************
16 C. * Draw a line between points (R1,PHI1,Z1) and (R2,PHI2,Z2) *
17 C. * given in cylindrical coordinates *
19 C. * ==>Called by : GDRAWS *
20 C. * Author : A.McPherson ********* *
22 C. ******************************************************************
24 #include "geant321/gconsp.inc"
27 C. ------------------------------------------------------------------
29 IF (R1.LT.0.0001.AND.R2.LT.0.0001) GO TO 999