は、私は、ポインタ（8 *実際のポインタデータ型）を含む大量のデータが含まれているFortranで構造化された型を持つC++

Question

へのFortranから構造化データ・タイプを渡します。

私はいくつかのFortranルーチンのC++ APIを開発しています。私はFortranルーチンへの呼び出しの間に構造の内容を保持する必要があります。

私はC++側にアドレスをLOCを使用して渡す構造体のアドレスを取得する方法について考えていました。 FortranのルーチンがC++から再び呼び出され、アドレスはバックのFortranへ渡される

は、何とか元の構造にそれを型キャストして、計算のためにそれを使用します。

これを達成するために私はどのようなアプローチをとることができますか？

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

EDIT：私のコードのコメント/提案に基づきます。 C_LOCが呼び出されるとプログラムがクラッシュします（C_LOCへの呼び出しをコメントアウトするとプログラムがクラッシュしません）。

subroutine TEST(a,b,c,d,e,mystruct,ier) BIND(C, NAME='TEST') 
use mymodule 
USE, INTRINSIC :: ISO_C_BINDING 

implicit none 
TYPE(C_PTR)     :: mystruct 
TYPE(mymodule), TARGET  :: origstruct 
INTEGER      :: a, b, c 
DOUBLE PRECISION   :: d(*), e(*) 
INTEGER      :: ier 

!Do something with origstruct and other arguments 

print *, 'here 1' 
mystruct= C_LOC(origstruct) 
print *, 'here 2' 

end 

Answer 1

Fortran 2003（現在のほとんどのコンパイラでサポートされています）では、標準のISO_C_BINDINGモジュールを使用できます。あなたはその後、いくつかのCプロシージャにこのポインタを渡すことができ

use, intrinsic :: ISO_C_BINDING 
type(your_struct_t), target :: your_obj 
type(C_PTR) :: p 

p = C_LOC(your_obj) 

：あなたが取得したCのポインタが（それはあなただけvoid*をしたい、である）「不透明」であることに満足している場合は、C_LOC機能を使用することができます

interface 
    subroutine mycproc(x, n, userdata) bind(C) 
     use, intrinsic :: iso_c_binding 
     integer(c_int), intent(in), value :: n 
     real(c_double), intent(in) :: x(n) 
     type(c_ptr), intent(in), value :: userdata 
    end subroutine 
end interface 

call mycproc(x, size(x), p)