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 GDLINE(P1,P2)
14 C. ******************************************************************
16 C. * Draw a line between points P1 and P2 *
18 C. * ==>Called by : GDLCYL, GDRAWS *
19 C. * Author : P.Zanarini ********* *
21 C. ******************************************************************
24 #include "geant321/gcdraw.inc"
26 DIMENSION P1(3),P2(3),U(2),V(2),X(3,2)
28 EQUIVALENCE (Q1(1),X(1,1)),(Q2(1),X(1,2))
30 C. ------------------------------------------------------------------
39 CM Short circuit in case of GMR
41 IF ( IGMR .EQ. 0 ) CALL GDRAWV(U,V,2)