procedure lvconvert(var s: scalar; var l: ltuple; var v: vector);
{ convert vector from dimension lmax to vdim }
var
  i: integer;
begin { lvconvert }
  for i:=0 to lmax-1 do v[i]:=l[i];
  lvho(lmax,s,l[lmax],v);
end { lvconvert };