      SUBROUTINE CHRHOL(C,IS,NC,IC,JS)
C
C     CONVERT FROM CHARACTER VARIABLE "C" TO AN ALPHANUMERIC
C     VARIABLE IC (A3) AND COUNT "NC"
C     BEGIN AT "IS" AND "JS" RESPECTIVELY.
C
      CHARACTER C*(*)
      INTEGER IC(*)
C
C
C     MAKE SURE IWORDS IS INITIALIZED
C     IF (I.LT.0) CALL BKDATW                                           HM
C
C     MOVE EACH CHARACTER FROM C TO IC
C
      I=IS-1
      DO 10 J=JS,JS+NC-1
      I=I+1
      CALL PUTHOL(IC,J,ICHAR(C(I:I)))
10    CONTINUE
      RETURN
      END
