procedure dmm3(var v,v1,v2: vector);
var
  i: integer;
  vt,vt1,vt2: vector;
begin { dmm3 }
  write('(dmm3'); flush(output);
  vt:=v;
  for i:=0 to pdeg do szero(vt[i]);
  vzero(vt1);
  for i:=0 to lmax do vt1[i]:=v1[i];
  dnn(lmax,vt,vt1,vt2);
  vmprod(m,vt2,v2);
  write(')'); flush(output);
end { dmm3 };

