我想从 Fortran 调用 C 函数并接收 C 函数中定义的字符串。我进行了搜索,但到目前为止我找不到有效的、直接的答案。
实际上我找到了一个解决方法:接收字符数组,然后使用内部函数transfer
将结果放入 Fortran 字符串中。
这是我的工作代码。
Fortran主程序:
program pr
implicit none
character(200) :: stringa
call strfromc(stringa)
write (6,*) 'FPR stringa: "', trim(stringa),'"'
stop
end program pr
Fortran 子程序:
subroutine strfromc(stringa)
use iso_c_binding
implicit none
character(200) :: stringa
interface
subroutine getstrfromc(ld,d) bind(c,name='getString')
import :: c_int, c_ptr
integer(c_int) :: ld
type(c_ptr), value :: d
end subroutine getstrfromc
end interface
! declare a character array of type c_char and sufficient length:
character(c_char), dimension(200), target :: d1
integer :: ld1 ! will contain the string length
integer :: i
! the C pointer of character array d1 is passed:
call getstrfromc(ld1, c_loc(d1))
! read the first ld1 elements of array d1 as a character string, which will be returned:
stringa= transfer(d1(1:ld1), stringa)
write (6,*) 'SF d1: ', (d1(i),i=1,ld1)
write (6,*) 'SF stringa: "', trim(stringa),'"'
write (6,*) ''
return
end subroutine
C函数:
#include <stdio.h>
#include <string.h>
void getString(int * lw, char * w) {
printf("Enter a string:\n");
scanf("%[^\n]", w); //scanning the whole string, including the white spaces
*lw= strlen(w);
printf("C: w: %s\n", w);
printf("C: lw: %d\n", *lw);
printf("\n");
return;
}
谁能建议一个更直接的方法?