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