如何在fortran中读取.mat

! 声明MATLAB引擎库的函数和数据类型
interface
    subroutine engOpen(arg1) bind(C, name="engOpen")
        use iso_c_binding
        character(kind=c_char), dimension(*) :: arg1
    end subroutine engOpen

    subroutine engClose(ep) bind(C, name="engClose")
        use iso_c_binding
        type(c_ptr), value :: ep
    end subroutine engClose

    subroutine engGetVariable(ep, name, array) bind(C, name="engGetVariable")
        use iso_c_binding
        type(c_ptr), value :: ep
        character(kind=c_char), dimension(*) :: name
        type(c_ptr), value :: array
    end subroutine engGetVariable
end interface

program read_mat_file
    use iso_c_binding

    implicit none

    character(kind=c_char), dimension(1:100) :: mat_file = "example.mat"
    character(kind=c_char), dimension(1:100) :: var_name = "my_variable"
    type(c_ptr) :: ep
    type(c_ptr) :: array

    ! 打开MATLAB引擎
    call engOpen(mat_file)

    ! 读取.mat文件中的变量
    call engGetVariable(ep, var_name, array)

    ! 在这里可以对读取到的变量进行处理

    ! 关闭MATLAB引擎
    call engClose(ep)

end program read_mat_file