1      SUBROUTINE REPTCT(ICONST, IREPT, IERR)
2C
3C***  LOOK FOR REPEAT COUNT ON A CONSTANT.  DEFAULT IS 1.
4C
5      INTEGER BLANK,STAR
6C
7      DIMENSION ICONST(80),ITCON(80)
8C
9      DATA STAR  / 4H*    /
10      DATA BLANK / 4H     /
11C
12      IERR=0
13      IREPT=1
14C
15      DO 1000 I=1,80
16         ITCON(I)=BLANK
17 1000 CONTINUE
18C
19C***  LOOK FOR *
20C
21      ICOL=1
22      CALL FINDCH(ICONST, STAR, ICOL)
23C
24      IF(ICOL .LT. 81)GO TO 1010
25C
26      GO TO 1030
27C
28C***  BACKUP AND EXTRACT TO *
29C
30 1010 ICOL=ICOL-1
31      CALL EXTRST(ICONST, 1, ICOL, ITCON)
32C
33C***  CONVERT COUNT TO INTEGER
34C
35      CALL TOINT(ITCON, IRR, IERR)
36      IF(IRR .NE. 0)IREPT=IRR
37C
38C***  REMOVE REPEAT COUNT FROM STRING
39C
40      ICOL=ICOL+2
41      J=1
42      DO 1020 I=ICOL,80
43         ICONST(J)=ICONST(I)
44         J=J+1
45 1020 CONTINUE
46C
47 1030 CONTINUE
48C
49      RETURN
50      END
51