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

