SUBROUTINE CONCAT( LSTR , RSTR , OUTSTR ) C*********************************************************************** C C Description : Concatenates two strings and puts the result in another C string when given or else in the first string C C Arguments : LSTR = BYTE array containing left string C (and resultstring if OUTSTR is not given) C RSTR = BYTE array containing the right string C OUTSTR = (optionally) BYTE array receiving the concatenated C string C C Author : T.PIjl C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 14-dec-82 C C Module name : CONCAT.FTN C C Package : C C Compilation/ C taskbuilding : F4P CONCAT=CONCAT/TR:NONE C C Updates : name version C C description : C C************************************************************************ BYTE LSTR(1),RSTR(1),OUTSTR(1) C ILL=LEN(LSTR) ILR=LEN(RSTR) IF( LARG(3)) 11,12,12 C THEN 11 DO 10 I=1,ILL OUTSTR(I)=LSTR(I) 10 CONTINUE DO 15 I=1,ILR OUTSTR(I+ILL)=RSTR(I) 15 CONTINUE OUTSTR(ILL+ILR+1)=0 GOTO 90 C ELSE 12 DO 20 I=1,ILR LSTR(I+ILL)=RSTR(I) 20 CONTINUE C ENDIF LSTR(ILL+ILR+1)=0 90 RETURN END