c++ - C++类函数调用fortran子例程

好的，所以我试图使我的代码正常工作。它是一个简单的C++程序，带有“CArray”类。此类具有2个属性，即数组大小和值。我希望主C++程序创建类CArray的两个实例。在CArray类中，我有一个名为“AddArray(CArray)”的函数，该函数将另一个数组添加到当前数组。我遇到的问题是，我希望函数“AddArray”在fortran中添加两个数组。我知道，要复杂得多，但这就是我所需要的。我在类代码内部链接两者时遇到问题。

#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的功能，我将不胜感激!

谢谢，

乔什·德里克(Josh Derrick)

最佳答案

您必须意识到Val已经是一个指针。因此，要调用减法例程，您只需执行以下操作:

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

请注意，我不了解Fortran，因此无法评论代码的Fortran部分。

此外，您的代码中还有很多问题。

SetSize(int s)确实毫无意义。它分配每个s大小的s数组，并泄漏除最后一个之外的所有数组。您可能只是这个意思:

void CArray::SetSize( int s )
{
    Size = s;
    delete[] Val;
    Val = new int[Size];
}

您到处都有内存泄漏。您不应该手动管理内存，而只需使用std::vector:

class CArray
{
  public:
    CArray();

    void    SetSize( size_t newSize );
    void    SetValues();
    void    GetArray();

    void    AddArray( const CArray &a );
    void    SubtractArray( const CArray &a );
    void    MultiplyArray( const CArray &a );

  private:
    std::vector<int> Val;
    int Size;
};

extern "C"
{
void    Add( int*, int*, int*, int*);
void    Subtract( int*, int*, int*, int*);
void    Muliply( int*, int*, int *, int* );
}

通过这样的实现:

CArray::CArrary : Size(0)
{}


void CArray::SetSize( int newSize )
{
  Val.resize(newSize);
  Size = newSize;
}


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; ++)
    {
      cout << Val[i] << " ";
    }
}


void CArray::SubtractArray( const CArray &a )
{

    Subtract( &Val[0], &a.Val[0], &Size, &a.Size);
    GetArray();
}

最好将

GetArray()重命名为PrintArray()，并且理想情况下，应将流作为参数。 SetValues()最好命名为ReadValuesFromInput()或类似名称。

您应通过const引用而非值来获取CArray类型的参数。我已经在上面的代码中做到了这一点。

一种功能，一种责任。 SubtractArray()调用GetArray()是错误的。