Умножить одномерный массив (вектор-строка) на главную диагональ (вектор столбец)

//---------------------------------------------------------------------------
 
#pragma hdrstop
#include <stdio.h>
#include <math.h>
#include <conio.h>
#define N 3
 
//---------------------------------------------------------------------------
 
#pragma argsused
void vvod(double** A)
{
for(int j=0;j<N;j++)
{
for(int i=0;i<N;i++)
{
printf("A[%d][%d]=",j,i);
scanf("%lf",&A[j][i]);
}}
}
void vvod2(double** L)
        {
for (int k=0;k<N;k++)
{
printf("\nvvedite vektor-stroku\n",k);
scanf("%lf",&L[k]);
}
        }
 
 
void mat(double** A,double** L)
        {
for (int i=0;i<N;i++)
{
for (int k=0;k<N;k++)
{
double sum;
 
A[i][i]=*L[k];
sum+=A[i][i];
printf("%lf",sum);
}
        }
 
getch();
/*return sum;*/
 
int main (void);
int i,j,k;
double sum=0, c[N];
 
double** a=new double*[N];
for(int i=0;i<N;i++) a[i]=new double [N];
vvod(a);
 
double** l=new double*[N];
for(int t=0;t<N;t++) l[t]=new double [N];
vvod2(l);
 
 
double** p=new double*[N];
for (int q=0;q<N;q++) p[q]=new double[N];
mat(a,l);
getch();
}
 
 
 
//---------------------------------------------------------------------------