Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdcirc.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:22 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 GDCIRC(R,Z0)
13C.
14C. ******************************************************************
15C. * *
16C. * Draw a circle of radius R centered on Z-axis, *
17C. * at a distance of Z0 from the origin, *
18C. * on a plane parallel to X-Y plane *
19C. * *
20C. * ==>Called by : GDRAWS *
21C. * Author : P.Zanarini ********* *
22C. * *
23C. ******************************************************************
24C.
25#include "geant321/gcdraw.inc"
26 DIMENSION X(3,41),U(41),V(41)
27C.
28C. ------------------------------------------------------------------
29C.
30 IF (R.LT.0.0001) GO TO 999
31C
32 DO 10 I=1,40
33 X(1,I)=R*GCOS(I)
34 X(2,I)=R*GSIN(I)
35 X(3,I)=Z0
36 10 CONTINUE
37C
38 CALL GDFR3D(X,40,U,V)
39C
40CM Short circuit in case of GMR
41C
42 IF ( IGMR .NE. 0 ) GO TO 999
43CM
44 U(41)=U(1)
45 V(41)=V(1)
46 CALL GDRAWV(U,V,41)
47C
48 999 RETURN
49 END