CTITLEVCIRCL -- DRAW A CIRCLE ON THE VARIAN/CALCOMP                     00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                S.SVATEK                                    00000020
CA    DESIGNER              G.W.ARCENEAUX                               00000030
CA    LANGUAGE              S/370 FORTRAN                               00000040
CA    WRITTEN               08-06-80                                    00000050
CA                                                                      00000060
CA    CALL VCIRCL (X,Y,RADIUS)                                          00000070
CA                                                                      00000080
CA                                                                      00000090
CA          INPUT  X         X COORDINATE OF CENTER OF CIRCLE.         R00000100
CA          INPUT  Y         Y COORDINATE OF CENTER OF CIRCLE.         R00000110
CA          INPUT  RADIUS    DESIRED RADIUS OF CIRCLE.                 R00000120
CA                                                                      00000130
CA     GIVEN AN X AND Y COORDINATE, THIS SUBROUTINE WILL DRAW           00000140
CA     A CIRCLE WITH THE DESIRED RADIUS BY CONNECTING A SERIES          00000150
CA     A SMALL VECTORS.                                                 00000160
CA                                                                      00000170
CAEND                                                                   00000180
C                                                                       00000190
C                                                                       00000200
      SUBROUTINE VCIRCL(X,Y,RADIUS)                                     00000210
C                                                                       00000220
      DR=57.29577951                                                    00000230
C                                                                       00000240
      CALL PLOT(X+RADIUS,Y,3)                                           00000250
C                                                                       00000260
      DO 20 I=30,360,30                                                 00000270
      XP=X+RADIUS*COS(I/DR)                                             00000280
      YP=Y+RADIUS*SIN(I/DR)                                             00000290
C                                                                       00000300
      CALL PLOT(XP,YP,2)                                                00000310
C                                                                       00000320
20    CONTINUE                                                          00000330
      RETURN                                                            00000340
      END                                                               00000350