SUBROUTINE CHRCAT(INLENG,INSTRG,OUTLEN,  OUTSTR)
C
C     CONVERT AN ARRAY OF CHARACTERS TO A CHARACTER STRING
C
C     INPUTS:  INLENG - INTEGER - LENGTH OF INPUT ARRAY
C              INSTRG - CHAR*1(INLENG) - CHARACTER ARRAY
C              OUTLEN - INTEGER - LENGTH OF OUTPUT STRING
C
C     OUTPUT:  OUTSTR - CHAR*(OUTLEN) - OUTPUT CHARACTER STRING
C
C     .  NOTE - PAD WITH BLANKS IF OUTLEN GT INLENG
C
      INTEGER INLENG, OUTLEN
      CHARACTER*1 INSTRG(1)
      CHARACTER*(*) OUTSTR
      CHARACTER*1 BLANK
      DATA BLANK / ' ' /
C
      OUTSTR = BLANK
      DO 10 I=1,MIN(INLENG,OUTLEN)
         OUTSTR(I:I) = INSTRG(I)
   10 CONTINUE
      RETURN
      END