1 // Copyright (C) 2007-2012 CEA/DEN, EDF R&D
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License.
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 // Lesser General Public License for more details.
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 #include "MEDPARTITIONER_Graph.hxx"
21 #include "MEDPARTITIONER_ScotchGraph.hxx"
22 #include "MEDPARTITIONER_Utils.hxx"
26 #ifdef MED_ENABLE_SCOTCH
34 using namespace MEDPARTITIONER;
36 SCOTCHGraph::SCOTCHGraph():Graph()
40 SCOTCHGraph::SCOTCHGraph(MEDPARTITIONER::SkyLineArray* graph, int* edgeweight):Graph(graph,edgeweight)
44 SCOTCHGraph::~SCOTCHGraph()
48 void SCOTCHGraph::partGraph(int ndomain, const std::string& options_string, ParaDomainSelector* sel)
50 if (MyGlobals::_Verbose>10)
51 std::cout << "proc " << MyGlobals::_Rank << " : SCOTCHGraph::partGraph" << std::endl;
53 //number of graph vertices
54 int n = _graph->getNumberOf();
56 int * xadj=const_cast<int*>(_graph->getIndex());
57 int * adjncy=const_cast<int*>(_graph->getValue());
61 #if !defined(MED_ENABLE_SCOTCH)
62 throw INTERP_KERNEL::Exception("SCOTCHGraph::partGraph : SCOTCH is not available. Check your products, please.");
65 int* partition = new int[n+1];
67 SCOTCH_Graph scotch_graph;
68 SCOTCH_graphInit(&scotch_graph);
69 SCOTCH_graphBuild(&scotch_graph,
70 0, //base first indice 0
71 n, //nb of graph nodes
74 _cell_weight, //graph vertices loads
76 xadj[n], //number of edges
79 SCOTCH_Strat scotch_strategy;
80 SCOTCH_stratInit(&scotch_strategy);
82 //!user-defined options for the strategy
83 if (options_string!="")
84 SCOTCH_stratGraphMap(&scotch_strategy,options_string.c_str());
88 if (MyGlobals::_Verbose>10) std::cout << "SCOTCHGraph::graphPart SCOTCH_graphPart" << std::endl;
89 SCOTCH_graphPart(&scotch_graph,nparts,&scotch_strategy,partition);
91 else //partition for 1 subdomain
93 for (int i=0; i<n+1; i++)
97 SCOTCH_stratExit(&scotch_strategy);
98 SCOTCH_graphExit(&scotch_graph);
100 std::vector<int> index(n+1);
101 std::vector<int> value(n);
103 for (int i=0; i<n; i++)
105 index[i+1]=index[i]+1;
106 value[i]=partition[i];
110 //creating a skylinearray with no copy of the index and partition array
111 //the fifth argument true specifies that only the pointers are passed
113 _partition = new MEDPARTITIONER::SkyLineArray(index,value);