procedure vder(var s: scalar; var v1,v2: vector);
begin { vder }
  pder(vdim-1,v1,v2);
  with v2[vdim-1] do begin
    l:=u;
    l.si:=-u.si;
  end;
  squot(v1[vdim],s,v2[vdim]);
end { vder };