无论如何,我可以在FORTRAN程序中使用Boost Graph Library(BGL)来使用图形数据结构.
任何人都可以帮助我或给我一个提示.我想在我的MPI-FORTRAN代码中的几个处理器上进行并行图结构.是否可以使用Boost Graph Library(BGL)来达到此目的!
亲切的问候,
谢夫
解决方法:
你必须构造一个用C语言编写的中间层,它在一些特殊情况下对你有用,然后从Fortran调用它. bind(C)和iso_c_binding模块是你的朋友.我使用这种方法成功地在Fortran中使用基于Boost的库CGAL.
有点像:
my_bgl.cc:
#include <boost/graph/graph_traits.hpp>
#include <boost/graph/adjacency_list.hpp>
using namespace boost;
extern "C"{
void* make_graph(int num_vertices, int num_edges, int *edge_array)
{
// create a typedef for the Graph type
typedef adjacency_list<vecS, vecS, bidirectionalS> Graph;
Graph *g = new Graph(num_vertices);
// add the edges to the graph object
for (int i = 0; i < num_edges; ++i)
add_edge(edge_array[2*i], edge_array[2*i+1], *g);
return g;
}
}
my_bgl.f90:
module my_bgl
use iso_c_binding
interface
type(c_ptr) function make_graph(num_vertices, num_edges, edge_array) bind(C,name="make_graph")
import
integer(c_int), value :: num_vertices
integer(c_int), value :: num_edges
integer(c_int) :: edge_array(2, num_edges)
end function
end interface
end module
函数make_graph从输入的点返回一个指向Graph的不透明指针.