procedure dkk(d1: integer; var u: ltuple; var vv: vtuple; var ve,vus,hi,ho: vector);
var
  vt1,vt2: vector;
begin { dkk }
  write('(dkk'); flush(output);
  dunpack1(d1,u,ve,hi,vt1);
  dunpack2(vv,vt1,vt2);
  vscale(beta2,vt2,vt1);
  vprod(tau,tau,vus,vt1,vt2);
  vconv(vdim,cov,vkappa,vt2,ho);
  write(')'); flush(output);
end { dkk };

