      SUBROUTINE COUNT (FIELD,NC,NCT)
C     
C     THIS ROUTINE COUNTS THE NUMBER OF NON BLANK CHARACTERS
C     IN FIELD AFTER PACKING THEM LEFT ADJUSTED IN THE SAME.
C     NCT IS THE LIMIT OF THE SEARCH
C     NC IS THE COUNT RETURNED
C     20 IS THE MAXIMUM LENGTH HANDLED
      LOGICAL*1 FIELD(20),BBLANK
      DATA BBLANK/"40/
      IF(DEBUG) TYPE 1000,NCT
 1000 FORMAT(' COUNT. NCT = ',I2)
      N=0
      DO 10 I=1,NCT
      IF (FIELD(I).EQ.BBLANK) GO TO 10
      N=N+1
      FIELD (N)=FIELD(I)
   10 CONTINUE
      NC=N
      RETURN
      END
