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

C     [CONTOUR PLOT FROM FUNCTION ARRAY]
C     ZE(NX,NY)  ARRAY TO BE CONTOURED
C     (Z1,Z2)    CONTOURING INTERVAL
C     NZ         NUMBER OF CONTOUR LEVELS
C     (KX,KY)    NUMBER OF X- AND Y- SUBDIVISIONS
C     [03-JAN-75]

      EXTERNAL    PLTCA
      DIMENSION   ZE(1)

      CALL PLTBO
      CALL PLTIR
      CALL PLTKB (Z1,ZE,Z2,NZ,NX,NY)
      CALL PLTKP (Z1,ZE,Z2,NZ,KX,NX,KY,NY,PLTCA)
      CALL PLTEJ
      RETURN

      END