将字符串数组从C返回到Fortran

void get_strings(char** strings, int num_strings) {
    // 分配内存来存储字符串数组
    char** c_strings = (char**)malloc(num_strings * sizeof(char*));
    for (int i = 0; i < num_strings; i++) {
        // 分配内存来存储每个字符串
        c_strings[i] = (char*)malloc(strlen(strings[i]) + 1);
        strcpy(c_strings[i], strings[i]);
    }
    
    // 调用Fortran子程序，将字符串数组传递给它
    fortran_subroutine(c_strings, num_strings);
    
    // 释放内存
    for (int i = 0; i < num_strings; i++) {
        free(c_strings[i]);
    }
    free(c_strings);
}

subroutine fortran_subroutine(strings, num_strings)
    character(len=*), dimension(:), intent(in) :: strings
    integer, intent(in) :: num_strings
    
    ! 在这里使用字符串数组
    do i = 1, num_strings
        print *, strings(i)
    end do
end subroutine