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

