Как значение вектора передать из одной функции в другую?

#include <iostream>
#include <cmath>
 
using namespace std;
 
double vector_( double arr[4][4])
{
    int n;
    cout<<"Vvedi nomer stolbca"<<endl;
    cin>>n;
 double *a=new double[4];
    for(int i=0;i<4;i++){
            a[i]=arr[i][n];
 
    }
    cout<<"Vector:"<<endl;
    for(int i=0;i<4;i++){
        cout<<a[i]<<endl;
    }
}
double geometric( double a[4])
{
    double res=1.0;
    double S;
    for(int i=0; i<4; i++){
        res*=a[i];
    }
    cout<<pow(res,1.0/4)<<endl;
    return pow(res,1.0/4);
 
}
 
 
int main()
{
    double a[4];
  double arr[4][4];
  for (int i = 0; i < 4; i++)
  {
    for (int j = 0; j < 4; j++)
    {
      arr[i][j] = pow(-1.7 / (3 * j - 1), i) + pow(M_PI, sin(j));
    }
  }
  cout << "matrica" << endl;
  for (int i = 0; i < 4; i++)
  {
    for (int j = 0; j < 4; j++)
    {
      cout << arr[i][j] << "  ";
    }
    cout << endl;
  }
  vector_(arr);
  geometric(a);
}

#include <iostream>
#include <cmath>
using namespace std;
 
double *Create (double **a, int n, int K)
{
    double *b = new double[n];
    for (int i = 0; i < n; i++)
        b[i]=a[i][K-1];
    return b;
} 
 
double Geometric_mean (double *b, int n)
{
    double gm=1.;
    for (int i = 0; i < n; i++)
        gm*=b[i];       
    return pow(gm,1./n);
} 
    
int main()
{
    int n, m, K;
    cout << "n="; cin >> n;
    cout << "m="; cin >> m;    
    
        double **a = new double*[n]; 
      for (int i = 0; i < n; i++)
        a[i] = new double[m];    
 
    for (int i = 0; i < n; i++)
    {
        for (int j = 0; j < m; j++)
        {
        a[i][j]=pow(-1.7/(3*j-1),i)+exp(sin(j));
        cout << a[i][j] << " ";
        }
    cout << "\n";
    }
    
    cout << "Col="; cin >> K;
    
    double* b = Create(a,n,K);
    
    cout << "Array :\n";
    for (int i = 0; i < n; i++)
        cout << b[i] << " ";
        cout << "\n";    
    
    cout << "geometric mean of column " << K << " : " << Geometric_mean(b,n) << "\n";
        
    for (int i = 0; i < n; i++)
    delete[]a[i];
    delete[]a;
    delete[]b;
system("pause");
return 0;
}