Fortran에서 C++ 구조체의 배열에 액세스 하시겠습니까?

Question

C++에서는 S의 배열을 할당합니다. Fortran에서이 배열의 요소에 액세스하려고합니다. 어떻게해야합니까?

C++ :

struct S {double a; double b;}; 
S *arrayOfS; 
arrayOfS = (S *)new S[123]; // allocate 

포트란 2003

USE ISO_C_Binding 
TYPE, BIND(C) :: SFortran 
REAL(c_double) :: a,b 
END TYPE SFortran 

S 및 SFortran 이제 상호 운용이 가능해야하지만, 나는 또한 C++에서 선언 된 배열의 요소에 액세스 할 수있는 방법이 필요합니다. Fortran에서 SC (5) % a를 C++의 arrayOfS [4] .a에 대응시키고 싶습니다. 이 액세스 권한을 가진 Fortran 어레이 SC에 적절한 값을 선언하고 설정하려면 어떻게합니까?

Answer 1

사용자 수 :

1)의 적절한 배열 인수를 포트란 BIND (C) 프로 시저 C++ 어레이를 통과한다. 당신은 또한에 걸쳐 배열의 크기를 전달하고 배열 인수 명시 적 모양을 할 수 있습니다이 방법

SUBROUTINE proc(array) BIND(C, NAME='proc') 
    ... 
    TYPE(SFortran) :: array(*) 

.

b) C++ 측에서 extern "C"전역으로 배열 포인터를 가져온 다음 BIND (C)와 Fortran 모듈 변수를 통해 상호 운용합니다.

MODULE some_module 
    USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_PTR, C_F_POINTER 
    ... 
    TYPE(C_PTR), BIND(C, NAME='arrayOfS') :: array_ptr 
    ... 
    ! In a procedure in the module... 
    TYPE(SFortran), POINTER :: array(:) 
    CALL C_F_POINTER(array_ptr, array, [123]) 

다시는 C_F_POINTER의 참조를 하드 코딩 피하기 위해 별도로 사용할 수있는 배열의 크기로 적합 할 수도 있습니다.

귀하의 요구 사항에 가장 적합한 접근 방법은 무엇입니까?