SUBROUTINE CMINIT
NOLINEUP
C
C     INITIALIZE COMMAND PROCESSOR BY CLEARING ALL LISTS
C
INCLUDE (SCANLIB.PARAMS)
INCLUDE (SCANLIB.CMLIST)
C
      DO FOR I=1,LSTLEN
      DO FOR J=1,NILSTS
      ILIST(I,J) = 0
      END FOR
      DO FOR J=1,NNLSTS
      NLIST(I,J) = 0
      END FOR
      DO FOR J=1,NRLSTS
      RLIST(I,J) = 0.0
      END FOR
      DO FOR J=1,NSLSTS
      STLENG(I,J) = 0
      END FOR
      END FOR
      DO FOR I=1,CMTBSZ
      CMDFND(I) = 0
      END FOR
      DO FOR I=1,KWTBSZ
      KWDFND(I) = 0
      END FOR
      RETURN
      END