!	Hex output of n integers in vec.
	subroutine in4vex(text,n,vec)
	implicit none
        integer, intent(in):: vec(*)
        integer, intent(in):: n
        integer len,i,j,hk,hj
	character*(*), intent(in):: text
        character*16 hh, out*200
        character*1,save:: h(0:15)=['0','1','2','3','4','5','6','7', &
             '8','9','a','b','c','d','e','f']

        out=trim(text)   ; len=len_trim(text)

        do i=1,n
         hh=' ' ; hk=vec(i)
         do j=16,1,-1
           hj=iand(hk, 15)
           if(hk.ne.0) then
            hh(j:j)=h(hj)  ; hk=ishft(hk,-4)   !logical shift 4 bits 
           else 
            out=trim(out)//' '//hh(j:16) ; goto 111 
           endif 
         enddo
111      continue
        enddo 

        PRINT *,trim(out)
	return
	end