5 * Revision 1.1.1.1 1995/10/24 10:20:27 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
12 SUBROUTINE GDSARC(R,PHI1,PHI2,X,NP)
14 C. ******************************************************************
16 C. * Computes and store in X(1..2,1..NP) arc points *
17 C. * (only X and Y coordinates) for GDRWSC *
18 C. * of the circle of radius R centered on Z-axis, *
19 C. * from PHI1 to PHI2, *
20 C. * on a plane parallel to X-Y plane *
22 C. * ==>Called by : GDRWSC *
23 C. * Author : P.Zanarini ********* *
25 C. ******************************************************************
27 #include "geant321/gconsp.inc"
28 #include "geant321/gcdraw.inc"
29 #include "geant321/gcunit.inc"
34 C. ------------------------------------------------------------------
44 IF(ABS(PHIMAX-PHIMIN).LE.9.) GO TO 20
49 IF(NAS.LE.0) NAS=NAS+40
52 IF (NAS.GT.MAXNP-2) GO TO 30
58 IF (ICC.LE.0) ICC=40+ICC
74 WRITE (CHMAIL,1000) NP
77 1000 FORMAT (' GDSARC: INTERNAL ERROR !!! - NP =',I5)