Dear Jian,
I recommend using this interface from the hemi.usr file.
hth,
Paul
c-----------------------------------------------------------------------
subroutine interp_v(uvw,xyz,n)
c
c evaluate velocity for list of points xyz
c
include 'SIZE'
include 'TOTAL'
real uvw(ldim,n),xyz(ldim,n)