*COMDECK ALHEXCNVT
      SUBROUTINE HEXCNVT(VALUE,HEXOUT,COUNT)
C 
C 
C 
C        THIS ROUTINE CONVERTS VALUE TO ALPHA HEX, PLACING IT IN HEXOUT.
C        IT IS "COUNT" CHARACTERS LONG, LEFT JUSTIFIED AND BLANK FILLED.
C 
C 
C 
*CALL ALCOMMON
      ENCODE (COUNT,5,HEXOUT) COUNT,VALUE 
    5 FORMAT (Z=) 
      RETURN
      END 
C 
C 
