1

Fortran 77 で使用する C++ オブジェクトを渡す方法はありますか? 例えば：

C23456
      program main
      write (*,*) 'Hello from FORTRAN 77!'
      call readstep('cube.stp'//CHAR(0),myshape)
      stop
      end

次に、myshape を C++ オブジェクトとして使用します。このオブジェクトは、Fortran によって使用されるメモリに保持され、実際に使用する他の C++ 関数に渡すだけですか?

編集: C++ コードは次のとおりです。

extern"C" {
    void readstep_(char*,void*);
}

void readstep_(char* inputFile, void* outShape){

    STEPControl_Reader reader;
    reader = STEPControl_Reader();

    int succeed = reader.ReadFile(inputFile);

    if(!succeed){
        std::cout << "There was an error with the input file" << std::endl;
        return;
    }

    reader.NbRootsForTransfer();
    reader.TransferRoots();

    TopoDS_Shape myShape = reader.OneShape();
    TopoDS_Shape* myShapePtr = new TopoDS_Shape();
    (*myShapePtr) = myShape;

    outShape = myShapePtr;

    return;
}
4

1 に答える 1

5

より良いオプションについては、タグhttps://stackoverflow.com/questions/tagged/fortran-iso-c-bindingのタグの説明をお読みください。そして、そこには多くの質問と回答があります。

共通の拡張機能としてスター表記を使用します。

C++:

class Obj{

};

extern "C" {
  void hello_();


  void readstep_(char* name, Obj** ptr){
    *ptr = new Obj(); //use name in the actual process
  }
  void pass_it_(Obj** ptr){
    hello_();
    delete *ptr; //some usage of the object
  }

}

参照渡しのため、ポインターからポインターを使用します。

フォートラン:

  program main

    integer*8 myshape

    call readstep('cube.stp'//CHAR(0),myshape)

    call pass_it(myshape)

  end

  subroutine hello
    write (*,*) 'Hello from FORTRAN 77!'
  end subroutine

integer*432 ビット プラットフォームで使用します。(STOP ステートメントには理由がないことに注意してください)

コンパイル：

g++ f77c++.f f77c++.C -lgfortran

また

gfortran f77c++.f f77c++.C -lstdc++

> ./a.out 
 Hello from FORTRAN 77!
于 2014-07-15T15:34:12.803 に答える