SUBROUTINE RSWRIT (IUNIT, CC, NR, STRING) C***************************************************************************** C C Description : This is a repeated string write. It writes a concatenation C of NR times STRING to unit IUNIT with the given Fortran C control characters C C Arguments : IUNIT = unit number to write to (default terminal) C CC = control characters (default ' ') C NR = repeat count C STRING = the string to be written C C Author : R. Beetz C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 16-dec-82 C C Module name : RSWRIT.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE RSWRIT C C Updates : name version C C description : C C***************************************************************************** C BYTE CC(1),STRING(1),HC(3),C1,C2 C IU = 5 IF (LARG(1)) IU=IUNIT C1 = ' ' C2 = 0 HC(3) = 0 IF (.NOT. LARG(2)) GOTO 10 IF (CC(1) .EQ. 0) GOTO 10 IF (CC(1) .EQ. '$') C2 = '$' C1 = CC(1) IF (CC(2) .EQ. 0) GOTO 10 C2 = CC(2) 10 DO 20 I=1,NR IF (NR .LE. 0) GOTO 20 IF (NR .EQ. 1) 11,12,12 C THEN 11 HC(1) = C1 HC(2) = C2 GOTO 19 C ENDIF 12 IF (I .EQ. 1) 13,14,14 C THEN 13 HC(1) = C1 HC(2) = '$' GOTO 19 C ENDIF 14 IF (I .LT. NR) 15,16,16 C THEN 15 HC(1)= '+' HC(2)= '$' GOTO 19 C ENDIF 16 HC(1) = '+' HC(2) = C2 19 CALL SWRITS(IU,HC,STRING) 20 CONTINUE RETURN END