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

