calling c functions from fortran, trouble with argc and argv

Question

I'm very new to Fortran. Currently I'm writing (or trying to write) a fortran application which calls a C-library.

I've got a few things working so far but I'm stuck with the init-function from the library which expects argc and argv just to get the program name which is calling the function.

The C-library expects pointers to argc and argv:

void init(gint argc, gchar ***argv);

I have no idea how to express that ***argv in fortran. The other functions only need integers so I had no trouble using this skeleton for them:

interface
    subroutine init( argc, argv)
        ??
    end subroutine ee_init
end interface

call init( , )

Answer 1

您可能需要在C，init_fortran或类似函数中编写自己的包装器函数，这些函数可以从Fortran调用，并以您可以在Fortran中表达的方式获取参数，然后将它们转换为C init函数所期望的内容。

Answer 2

我建议使用模块ISO_C_BINDING并将指针传递给指针数组，如果我理解正确的话。