Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdline.F
CommitLineData
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 GDLINE(P1,P2)
13C.
14C. ******************************************************************
15C. * *
16C. * Draw a line between points P1 and P2 *
17C. * *
18C. * ==>Called by : GDLCYL, GDRAWS *
19C. * Author : P.Zanarini ********* *
20C. * *
21C. ******************************************************************
22C.
23CM
24#include "geant321/gcdraw.inc"
25CM
26 DIMENSION P1(3),P2(3),U(2),V(2),X(3,2)
27 DIMENSION Q1(3),Q2(3)
28 EQUIVALENCE (Q1(1),X(1,1)),(Q2(1),X(1,2))
29C.
30C. ------------------------------------------------------------------
31C.
32 DO 10 I=1,3
33 Q1(I)=P1(I)
34 Q2(I)=P2(I)
35 10 CONTINUE
36C
37 CALL GDFR3D(X,2,U,V)
38C
39CM Short circuit in case of GMR
40C
41 IF ( IGMR .EQ. 0 ) CALL GDRAWV(U,V,2)
42CM
43 END