GEANT321/gdraw/gdline.F

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