procedure vexp(var s: scalar; var v: vector);
var
  st: scalar;
begin { vexp }
  pexp(vdim,s,v);
  sabs0(v[vdim],st);
  v[vdim]:=st;
end { vexp };