!  call in4hex('message ',i1,i2,i3..) !to typeout variable # of int*4 vars
! in hexadecimal
!  call with variable # of int*4 variables (not vectors).
!  requires "use fio"
subroutine in4hex(string,i1,i2,i3,i4,i5,i6,i7,i8,i9)
use fio, dummy => in4hex
implicit none
character*(*), intent(in)::  string
integer, intent(in), optional:: i1,i2,i3,i4,i5,i6,i7,i8,i9
integer::  v(10),nar

nar=0   

if(present(i1)) then ; nar=1 ; v(1)=i1 ; endif
if(present(i2)) then ; nar=2 ; v(2)=i2 ; endif
if(present(i3)) then ; nar=3 ; v(3)=i3 ; endif
if(present(i4)) then ; nar=4 ; v(4)=i4 ; endif
if(present(i5)) then ; nar=5 ; v(5)=i5 ; endif
if(present(i6)) then ; nar=6 ; v(6)=i6 ; endif
if(present(i7)) then ; nar=7 ; v(7)=i7 ; endif
if(present(i8)) then ; nar=8 ; v(8)=i8 ; endif
if(present(i9)) then ; nar=9 ; v(9)=i9 ; endif

if(nar.gt.0) call in4vex(string,nar,v)
return
end