REAL*4 XSMALL(101),XLARGE(101),YSMALL(101,2),YLARGE(101,2)
      DO 1010 I=1,101
      XSMALL(I)=(I-51)/50.0
      YSMALL(I,2)=SQRT(1.000001-XSMALL(I)*XSMALL(I))
      YSMALL(I,1)=-YSMALL(I,2)
      XLARGE(I)=(I-51)/25.0
      YLARGE(I,2)=SQRT(4.000001-XLARGE(I)*XLARGE(I))
      YLARGE(I,1)=-YLARGE(I,2)
1010  CONTINUE
      CALL VATT
      CALL PAGE
      CALL XAXIS(-2.0,2.0,1.0,1.5)
      CALL YAXIS(-2.0,2.0,1.0,1.0,7.0)
      CALL GRID(5,5)
      CALL PLTARR(101,4,4,XLARGE,YLARGE(1,1),0,1,0.0)
      CALL PLTARR(101,4,4,XLARGE,YLARGE(1,2),0,1,0.0)
      CALL PLTARR(101,4,4,XSMALL,YSMALL(1,1),0,1,0.0)
      CALL PLTARR(101,4,4,XSMALL,YSMALL(1,2),0,1,0.0)
      CALL ENDPLT
      CALL VDET
      STOP
      END