pro norp_mkint,mint,mvd,tim,fi,fv,mvdav,timav,fiav,fvav

  nx=n_elements(tim)

 if (nx ge mint) then begin
  nxav=nx/mint
  list_take=mint*lindgen(nxav)
  timav=tim(list_take)
  tmp=fi & for m=1,mint-1 do tmp=tmp+shift(fi,0,m)
  fiav=tmp(*,list_take)/mint
  tmp=fv & for m=1,mint-1 do tmp=tmp+shift(fv,0,m)
  fvav=tmp(*,list_take)/mint
  tmp=fix(mvd) & for m=1,mint-1 do tmp=tmp+shift(mvd,0,m)
  mvdav=byte(tmp(*,list_take)/mint)
 endif else begin
  timav=tim(0)
  fiav=total(fi)/nx
  fvav=total(fv)/nx
  mvdav=byte(total(fix(mvd))/nx)
 endelse

return
end