5 * Revision 1.1.1.1 1995/10/24 10:20:19 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 SUBROUTINE GDARC(R,Z0,PHI1,PHI2)
14 C. ******************************************************************
16 C. * Draw an arc, from PHI1 to PHI2, *
17 C. * of the circle of radius R centered on Z-axis, *
18 C. * at a distance of Z0 from the origin, *
19 C. * on a plane parallel to X-Y plane *
21 C. * ==>Called by : GDRAWS *
22 C. * Authors : A.McPherson, P.Zanarini ********* *
24 C. ******************************************************************
26 #include "geant321/gconsp.inc"
27 #include "geant321/gcdraw.inc"
28 DIMENSION X(3,45),U(45),V(45)
30 C. ------------------------------------------------------------------
41 IF(ABS(PHIMAX-PHIMIN).LE.9.) GO TO 20
46 IF(NAS.LE.0) NAS=NAS+40
53 IF (ICC.LE.0) ICC=40+ICC
70 CM Short circuit in case of GMR
72 IF ( IGMR .EQ. 0 ) CALL GDRAWV(U,V,NP)