我正在写一个iso_c_绑定在 Fortran 中调用具有以下原型的 C 函数
int zmat_run(
const size_t inputsize,
unsigned char *inputstr,
size_t *outputsize,
unsigned char **outputbuf,
const int zipid,
int *ret,
const int iscompress
);
我的问题是如何声明unsigned char **outputbuf
,在这个接口中,在 c 函数内部用于分配输出缓冲区的指针?
另外,我应该在 Fortran 中使用什么数据类型作为传递给这个的实际参数outputbuf
范围?它应该是可分配的吗? (如果它是在 c 函数内部分配的)?
我目前起草了这个模块,但尚未测试它(我怀疑它会起作用)。
module zmatlib
use iso_c_binding, only: c_char, c_size_t, c_ptr, C_NULL_CHAR
interface
integer(c_int) function zmat_run(inputsize, inputbuf, outputsize, outputbuf, zipid, ret, level) bind(C, name="zmat_run")
use iso_c_binding
integer(c_size_t), value :: inputsize
integer(c_int), value :: zipid, level
integer(c_size_t), intent(out) :: outputsize
integer(c_int), intent(out) :: ret
character(kind=c_char), intent(in) :: inputbuf(*)
character pointer(c_ptr),intent(out) :: outputbuf
end function zmat_run
end interface
end module