Something

Fortran:
    ALLOCATE (uadvt(ie,je,ke))
    ! fill uadvt
    CALL function_in_cxx(uadvt)

C++:
template<int Rank, typename T> class Matrix
{
    ...
private:
    T *m_data;
    size_t m_stride[Rank];
};

extern "C" void function_in_cxx(ArrayDescriptor &_x)
{
   Matrix<3, double> x(_x);
   // do work on x
}