procedure dnn(d2: integer; var v,v1,v2: vector);
var
  i: integer;
  vt,vt1,vt2: vector;
begin { dnn }
  write('(dnn'); flush(output);
  vscale(beta2,v,vt);
  vscale(beta2,v1,vt1);
  vprod(tau,tau,vt,vt1,vt2);
  vconv(d2,cov,vkappa,vt2,v2);
  for i:=0 to d2 do ismult(2,v2[i]);
  for i:=d2+1 to vdim do szero(v2[i]);
  write(')'); flush(output);
end { dnn };

