SUBROUTINE INTSTR(INT,STR,FORMAT,LEN) C C Convert an integer (INT) to a string (STR) following format FORMAT C The string returned is of length LEN C C Both strings are null terminated (STR and FORMAT) C C FORMAT is of the form (Iww.dd) and can be passed as a literal C For example CALL INSTR(INTNUM,NUMSTR,'(2X,I10.3)',12) C IMPLICIT INTEGER(A-Z) BYTE FORMAT(1),STR(1) C ENCODE (LEN,FORMAT,STR) INT STR(LEN+1) = 0 RETURN END