Mảng chuỗi trong cầu Fortran-C sử dụng iso_c_binding

Question

Tôi đang viết mã sẽ gọi hàm C từ Fortran sử dụng cơ chế tương tác C của Fortran (được giới thiệu trong Fortran 2003 và được triển khai trong các phiên bản mới hơn của gfortran và ifort).

This answer là gần như những gì tôi cần, nhưng tôi không thể khá được đầu của tôi xung quanh những gì tuyên bố giao diện tôi nên sử dụng trong Fortran cho một hàm C trông như thế này:

int use_array(int n, char * array[]){ 
    int i; 
    for(i=0; i<n; i++){ 
     printf("Item %d = %s\n",i,array[i]); 
    } 
    return n; 
} 

Tôi không rõ ràng những gì tuyên bố nên được cho giao diện trên đầu Fortran:

interface 
    function use_array(n, x) bind(C) 
     use iso_c_binding 
     integer (c_int) use_array 
     integer (c_int), value :: n 
     character(c_char) WHAT_SHOULD_GO_HERE? :: x 
    end function use_array 
end interface 

Tôi biết rằng tôi sẽ phải đối phó với vấn đề vô hiệu hóa quá.

Answer 1

Cách chúng tôi làm là sử dụng mảng C_PTR để trỏ đến chuỗi. Ví dụ:

CHARACTER(LEN=100), DIMENSION(numStrings), TARGET :: stringArray 
TYPE(C_PTR), DIMENSION(numStrings) :: stringPtrs 

sau đó chúng tôi thiết lập chuỗi của chúng tôi trong stringArray, nhớ để null-chấm dứt chúng như:

DO ns = 1, numStrings 
    stringArray(ns) = "My String"//C_NULL_CHAR 
    stringPtrs(ns) = C_LOC(stringArray(ns)) 
END DO 

và vượt qua stringPtrs đến chức năng C.

Chức năng C có giao diện:

void stringFunc(int *numStrings, char **stringArray) { 
    int i; 
    for(i=0;i<*numStrings;++i) { 
     printf("%s\n",stringArray[i]); 
    } 
}