C =============================================== C HEX C PUTS THE LOWEST 8 BITS OF A VALUE IN ARRAY C PARAMETERS C BUFF THE ARRAY TO PUT IT IN C J WHERE TO START C I4 THE VALUE C C ================================================ SUBROUTINE HEX (BUFF,J,I4) BYTE BUFF(80) INTEGER J INTEGER*4 I4 BUFF(J)=1H0+(JMOD(I4,256)/16) IF (BUFF(J).GT.1H9) BUFF(J)=BUFF(J)+7 BUFF(J+1)=1H0+JMOD(I4,16) IF (BUFF(J+1).GT.1H9) BUFF(J+1)=BUFF(J+1)+7 RETURN END