with: Erik Oosterwal
Custom Search
|
C ******************************************
C
C ROUTINE TO CONVERT INTEGER VALUES TO HEX
C
C WRITTEN BY: ERIK PETER OOSTERWAL
C WRITTEN: SEP 12, 1988
C
C ******************************************
SUBROUTINE DTOH(INUM,ARRY)
C
CHARACTER*1 ARRY(4),HEX(16)
INTEGER*2 INUM
DATA HEX/'0','1','2','3','4','5','6','7','8',
* '9','A','B','C','D','E','F'/
C
DO 10 I = 4,1,-1
ARRY(I)=HEX(MOD(INUM,16)+1)
10 INUM = INUM/16
C
RETURN
END
For a more generalized routine that can convert between any two numeric bases,
see the Numeric Base Conversion article from
the main Computer Science 101 page.