[混编] 求助：关于iso_c_binding中C端多重指针参数接口的写法

int get_table(char ***Results );

interface
  function get_table(Results) bind(c)
    use iso_c_binding, only: c_int, c_char
    character(kind=c_char),dimension(*)::Results
    integer(c_int):: get_table
  end function
end interface

character(8) :: Results(3,10)
i =  get_table(Results)

use ISO_C_Binding
implicit none
interface
  integer(c_int) function get_table(val) bind(c)
    import
    type(c_ptr) :: val
  end function
end interface
character(8) ,target :: Results(3,10)
type(c_ptr) , target :: val
integer :: i
val = c_loc(Results)
i =  get_table(c_loc(val))
write(*,*) Results(1,1)
end

#include <stdio.h>

int get_table(char ***Results){
  (**Results)[0] = 'f';
  (**Results)[1] = 'c';
  (**Results)[2] = 'o';
  (**Results)[3] = 'd';
  (**Results)[4] = 'e';
}

use ISO_C_Binding
implicit none
interface
  integer(c_int) function get_table(val) bind(c)
    import
    type(c_ptr) :: val
  end function
end interface
character(8) ,target :: Results(3,10)
type(c_ptr) , target :: val
integer :: i
val = c_loc(Results)
i =  get_table(c_loc(val))
write(*,*) Results(1,1)
end

#include <stdio.h>

int get_table(char ***Results){
  Results[0][0][0] = 'f';
  Results[0][0][1] = 'c';
  Results[0][0][2] = 'o';
  Results[0][0][3] = 'd';
  Results[0][0][4] = 'e';
  Results[3][5][0] = 'f'; 
  Results[3][5][1] = 'c'; 
  Results[3][5][2] = 'o'; 
  Results[3][5][3] = 'd'; 
  Results[3][5][4] = 'e';
  return 1;
}

Program Main
  use ISO_C_Binding
  use CLangMultiDimensionArrayLink2D
  implicit none

  interface
    integer(c_int) function get_table(val) bind(c)
      import
      type(c_ptr) , value :: val
    end function
  end interface

  Integer , parameter :: M = 6 , N = 4
  character(8) ,target :: Results(M,N)
  integer :: i
  type(CLang2DArrayLink) :: linkResults
  i =  get_table( linkResults%Set(Results) )
  write(*,"(2(a8,1x))") Results(1,1),Results(M,N)
End Program Main

Module CLangMultiDimensionArrayLink2D

  use , Intrinsic :: ISO_C_Binding
  Implicit None
  private

  Type , public :: CLang2DArrayLink
    type(c_ptr) , pointer :: p1(:) , p2(:,:)
  contains
    Procedure :: Set
    Final :: Release
  End Type CLang2DArrayLink

contains

  Type(c_ptr) Function Set( this , datas ) result ( cptr )
    class(CLang2DArrayLink) :: this
    class(*) , intent(IN) :: datas(1:,1:)
    integer :: sizes(2) , i , j
    sizes = shape(datas)
    if( associated(this%p1) ) deallocate(this%p1,this%p2)
    Allocate(this%p1(sizes(2)),this%p2(sizes(1),sizes(2)))
    Do i = 1 , sizes(2)
      Do j = 1 , sizes(1)
        this%p2(j,i) = c_loc(datas(j,i))
      End Do
      this%p1(i) = c_loc(this%p2(1,i))
    End Do
    cptr = c_loc(this%p1(1))
  End Function Set

  Subroutine Release( this )
    type(CLang2DArrayLink) :: this
    if( associated(this%p1) ) deallocate(this%p1,this%p2)
  End Subroutine Release  

End Module CLangMultiDimensionArrayLink2D

type(c_ptr),target :: val
type(c_ptr),pointer:: p1(:)
istat = sqlite3_get_table(db,"select * from MY_TABLE",val,nRow,nColumn,ErrMsg)
  call c_f_pointer(val,p1,[nRow*nColumn])
  Do i = 1 , nRow
    Do j = 1 , nColumn
      call c_f_pointer( p1( (i-1)*nColumn + j ),cRes)
      k = index(cRes,c_null_char)
      Results(j,i) = cRes(:k-1)
    End Do
  End Do

character(kind=c_char,len=256),pointer :: cRes