SUBROUTINE STRPAD (PADSTR, ILEN) C***************************************************************************** C C Description : Pads a given string with rightmost blanks until that string C has the specified length C C Arguments : PADSTR - STRING to be padded C LEN - INTEGER containing the desired length C C Author : H.A.M. Fikke C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 07-jan-82 C C Module name : STRPAD.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE STRPAD C C Updates : name version C C description : C C***************************************************************************** C BYTE PADSTR(1) C ILST=LEN(PADSTR) IF (ILEN .GT. ILST) 5,15,15 C THEN 5 DO 10 I=ILST+1,ILEN PADSTR(I)=' ' 10 CONTINUE PADSTR(ILEN+1)=0 C ENDIF 15 RETURN END