c++ - fortran サブルーチンを呼び出す C++ クラス関数

Question

さて、コードを機能させようとしています。クラス「CArray」を持つ単純な C++ プログラムです。このクラスには、配列サイズと値の 2 つのプロパティがあります。メインの C++ プログラムでクラス CArray の 2 つのインスタンスを作成する必要があります。クラス CArray には、現在の配列に別の配列を追加する「AddArray( CArray )」という関数があります。私が立ち往生している問題は、関数「AddArray」で2つの配列をfortranに追加したいということです。もっと複雑なことはわかっていますが、それが私が必要としているものです。クラスコード内で2つをリンクする際に問題があります。

#include <iostream>
using namespace std;

class CArray
{
    public:
    CArray();
    ~CArray();
    int Size;
    int*    Val;

    void    SetSize( int );
    void    SetValues();
    void    GetArray();


    extern "C" 
    {
    void    Add( int*, int*, int*, int*);
    void    Subtract( int*, int*, int*, int*);
    void    Muliply( int*, int*, int *, int* );
    }
    void    AddArray( CArray );
    void    SubtractArray( CArray );
    void    MultiplyArray( CArray );
};

CArray 関数ファイルもここにあります。

#include "Array.h"

#include <iostream>
using namespace std;

CArray::CArray()
{
}


CArray::~CArray()
{
}


void CArray::SetSize( int s )
{
    Size = s;
    for ( int i=0; i<s; i++ )
    {
    Val = new int[Size];
    }
}


void CArray::SetValues()
{
    for ( int i=0; i<Size; i++ )
    {
    cout << "Element " << i+1 << ": ";
    cin >> Val[i];
    }
}


void CArray::GetArray()
{
    for ( int i=0; i<Size; i++ )
    {
    cout << Val[i] << " ";
    }
}


void CArray::AddArray( CArray a )
{
    if ( Size == a.Size )
    {
    Add(&Val, &a.Val);
    }
    else
    {
    cout << "Array dimensions do not agree!" << endl;
    }
}


void CArray::SubtractArray( CArray a )
{
    Subtract( &Val, &a, &Size, &a.Size);
    GetArray();
}

これが私のFortranコードです。

module SubtractArrays
    use ico_c_binding
    implicit none

    contains

    subroutine Subtract(a,b,s1,s2) bind(c,name='Subtract')
    integer s1,s2
    integer a(s1),b(s2)

    if ( s1.eq.s2 )
        do i=1,s1
        a(i) = a(i) - b(i)
        end
    return 
    end
end

誰かが整数の配列を C++ クラスから fortran に送信するように設定するのを手伝ってくれたら、とてもありがたいです!

ありがとうございました、

ジョシュ・デリック