如何使用Fortran接口調用包含用戶定義類型的C函數

Question

實際上，我想從fortran中調用岩漿。所以，我添加magma.lib和創建一個接口使用岩漿的C-功用：

Interface 
     Integer function magma_dpotrf(uplo, n, a, lda, info) BIND (C, NAME="magma_dpotrf") 
     use iso_c_binding 
     Implicit none 
     !character (c_char), value :: uplo???? 
     integer (c_int), value ::n 
     real (c_double) ::a(*) 
     integer (c_int), value ::lda 
     integer (c_int)::info 
     end function 
    end Interface 

但參數uplo是一個用戶定義的類型 在C代碼（magma_uplo_t uplo）：

typedef enum { 
    MagmaUpper   = 121, 
    MagmaLower   = 122, 
    MagmaUpperLower = 123, 
    MagmaFull   = 123, /* lascl, laset */ 
    MagmaHessenberg = 124 /* lascl */ 
} magma_uplo_t; 

magma_int_t 
magma_dpotrf(
    magma_uplo_t uplo, magma_int_t n, 
    double *A, magma_int_t lda, 
    magma_int_t *info); 

magma_int_t = int，有誰知道如何爲它創建接口？ 在此先感謝

Answer 1

magma_uplo_t是一個枚舉。在Fortran 2003中對它們有一些支持，但是你可以很安全地假設它是一個integer(c_int)，它可以取值從121到124.在你的情況下，它是按值傳遞的。

integer(c_int), value :: uplo 

您可以使用Fortran 2003的枚舉

enum, bind(C) 
    enumerator :: MagmaUpper   = 121, & 
        MagmaLower   = 122, & 
        MagmaUpperLower = 123, & 
        MagmaFull   = 123, & 
        MagmaHessenberg = 124 
    end enum 

但變量實際上創建常量，然後你也可以嘗試integer(kind=kind(MagmaUpper))是完全安全的。這將繼續像海灣合作委員會的--short-enums選項。