SUBROUTINE  PLTKC (Z1,ZE,Z2,NZ,KX,NX,KY,NY,PL)

C     [CONTOUR A COMPLEX FUNCTION]
C     ZE(NX,NY)  ARRAY OF FUNCTION VALUES
C     Z1,Z2      RANGE OF ABSOLUTE VALUES
C     NZ         NUMBER OF CONTOURS OF ABSOLUTE VALUE
C     (THE ARGUMENT IS CONTOURED AT 30 DEGREE INTERVALS
C                FROM -180 DEGREES TO 180 DEGREES)
C     KX,KY      NUMBER OF BLOCKS IN X AND Y DIRECTIONS
C     PL         PEN MOVEMENT SUBROUTINE
C     [05-MAR-74]

      EXTERNAL    CABS,CARG,PL
      COMPLEX     ZE(1)
      DATA        PI,NA/3.14159,13/

      I0=MAX0(NX/(2*KX),1)
      J0=MAX0(NY/(2*KY),1)
      IX=2*I0
      IY=2*J0
      DZ=(Z2-Z1)/FLOAT(NZ-1)
      DA=PI/6.0

      II=I0+1
      JJ=J0+1
   10 JA=MAX0(JJ-J0,1)
      JB=MIN0(JJ+J0,NY)
   20 IA=MAX0(II-I0,1)
      IB=MIN0(II+I0,NX)
      Z=Z1
      DO 30 K=1,NZ
      CALL KONSK (Z,IA,IB,JA,JB,ZE,NX,NY,CABS,PL)
   30 Z=Z+DZ
      A=-PI
      DO 40 K=1,NA
      CALL KONSK (A,IA,IB,JA,JB,ZE,NX,NY,CARG,PL)
   40 A=A+DA
      II=II+IX
      IF ((II-I0.LT.NX).AND.(II+I0.GT.1)) GO TO 20
      IX=-IX
      II=II+IX
      JJ=JJ+IY
      IF (JJ-J0.LT.NY) GO TO 10
      RETURN

      END