//
#include "GHS3DPRLPlugin_GHS3DPRL.hxx"
#include "GHS3DPRLPlugin_Hypothesis.hxx"
+#include "MG_TetraHPC_API.hxx"
#include <SMESHDS_Mesh.hxx>
#include <SMESH_Gen.hxx>
+#include <SMESH_TypeDefs.hxx>
#include <SMESH_subMesh.hxx>
-#include <TopExp_Explorer.hxx>
-#include <OSD_File.hxx>
-
#include "utilities.h"
-#ifndef WIN32
-#include <sys/sysinfo.h>
-#endif
-
-#ifdef _DEBUG_
-#define DUMP(txt) \
-// cout << txt
-#else
-#define DUMP(txt)
-#endif
-
#include <list>
#include <BRepGProp.hxx>
#include <GProp_GProps.hxx>
+#include <OSD_File.hxx>
#include <Standard_ProgramError.hxx>
#include <TCollection_AsciiString.hxx>
+#include <TopExp_Explorer.hxx>
#include <TopTools_MapOfShape.hxx>
#include <TopoDS.hxx>
#include <TopoDS_Edge.hxx>
#include <TopoDS_Face.hxx>
+#define GMFVERSION GmfDouble
+#define GMFDIMENSION 3
+
using namespace std;
static void removeFile( const TCollection_AsciiString& fileName )
MESSAGE("GHS3DPRLPlugin_GHS3DPRL::GHS3DPRLPlugin_GHS3DPRL");
_name = "MG-Tetra Parallel";
_shapeType = (1 << TopAbs_SHELL) | (1 << TopAbs_SOLID);// 1 bit /shape type
+ _onlyUnaryInput = false; // Compute() will be called on a compound of solids
_countSubMesh=0;
_nodeRefNumber=0;
_compatibleHypothesis.push_back(GHS3DPRLPlugin_Hypothesis::GetHypType());
int nbHyp = hyps.size();
if (!nbHyp)
{
- aStatus = SMESH_Hypothesis::HYP_OK;
- return true; // can work with no hypothesis
+ aStatus = SMESH_Hypothesis::HYP_MISSING;
+ return false; // can't work with no hypothesis
}
itl = hyps.begin();
return aStatus == SMESH_Hypothesis::HYP_OK;
}
-//=======================================================================
-// static bool writeGHS3DPRLFiles (const TCollection_AsciiString & GHS3DPRL_In,
-// SMESHDS_Mesh * theMesh,
-// map <int,int> & theSmdsToGHS3DPRLIdMap,
-// map <int,const SMDS_MeshNode*> & theGHS3DPRLIdToNodeMap)
-// {
-// bool Ok;
-// int ifam=0;
-// TCollection_AsciiString namefile(GHS3DPRL_In);
-// namefile+=".points";
-// removeFile(namefile);
-// ofstream theFile;
-// theFile.open(namefile.ToCString(),ios::out);
-// #ifdef WIN32
-// Ok = theFile.is_open();
-// #else
-// Ok=theFile.rdbuf()->is_open();
-// #endif
-// if (!Ok)
-// {
-// INFOS("Can't write into "<<namefile.ToCString());
-// return false;
-// }
-// cout<<endl<<"writeGHS3DPRLFiles version tetra_hpc v2.1.11 "<<endl;
-// cout<<endl<<"Creating GHS3DPRL processed mesh file : "<<namefile<<endl;
-
-// int nbVertices=theMesh->NbNodes();
-// int nbFaces=theMesh->NbFaces(); //triangles or quadrangles
-// const char* space=" ";
-// //const int dummyint=1; //nrs,nsd,refnum=1 (for wrap)
-
-// // Writing SMESH points into GHS3DPRL File.points
-// theFile<<nbVertices<<endl;
-
-// int aSmdsNodeID=1;
-// const SMDS_MeshNode* node_2;
-// SMDS_NodeIteratorPtr itOnNode=theMesh->nodesIterator();
-// //int ifam=100;//test famille
-// theFile.precision(15); theFile.setf(ios::scientific,ios::floatfield);
-// //cout<<"set precision 15 on float\n";
-// while (itOnNode->more())
-// {
-// node_2 = itOnNode->next();
-// theSmdsToGHS3DPRLIdMap.insert(map <int,int>::value_type(node_2->GetID(),aSmdsNodeID));
-// theGHS3DPRLIdToNodeMap.insert(map <int,const SMDS_MeshNode*>::value_type(aSmdsNodeID,node_2));
-// theFile<<node_2->X()<<space<<node_2->Y()<<space<<node_2->Z()<<space<<ifam<<endl;
-// aSmdsNodeID++;
-// //if (aSmdsNodeID==11) ifam++;
-// }
-// //no specified points;
-// theFile.close();
-
-// namefile=GHS3DPRL_In+".faces";
-// removeFile(namefile);
-// theFile.open(namefile.ToCString(),ios::out);
-// #ifdef WIN32
-// Ok=theFile.is_open();
-// #else
-// Ok=theFile.rdbuf()->is_open();
-// #endif
-// if (!Ok)
-// {
-// INFOS("Can't write into "<<namefile.ToCString());
-// return false;
-// }
-// cout<<endl<<"Creating GHS3DPRL processed mesh file : "<<namefile<<endl;
-
-// // Writing SMESH faces into GHS3DPRL File.faces
-// theFile<<nbFaces<<" 0"<<endl; //NB_ELEMS DUMMY_INT
-// //" 0" is a reserved parameter
-
-// const SMDS_MeshElement* aFace;
-// map<int,int>::const_iterator itOnSmdsNode;
-// SMDS_ElemIteratorPtr itOnFaceNode;
-// SMDS_FaceIteratorPtr itOnSmdsFace = theMesh->facesIterator();
-// long nbNoTriangles=0;
-// int ifaces=0;
-// //ifam=300;
-// while (itOnSmdsFace->more())
-// {
-// aFace=itOnSmdsFace->next();
-// itOnFaceNode=aFace->nodesIterator();
-// const int nbNodes=aFace->NbNodes();
-// if (nbNodes!=3) nbNoTriangles++;
-// ifaces++;
-// theFile<<nbNodes<<space; // NB_NODES
-// while (itOnFaceNode->more())
-// {
-// aSmdsNodeID=itOnFaceNode->next()->GetID();
-// itOnSmdsNode=theSmdsToGHS3DPRLIdMap.find(aSmdsNodeID);
-// ASSERT(itOnSmdsNode!=theSmdsToGHS3DPRLIdMap.end());
-// theFile<<space<<(*itOnSmdsNode).second; //NODE_1 NODE_2 ...
-// }
-// //(NB_NODES+1) times: DUMMY_INT
-// //if (ifaces==11) ifam++;
-// theFile<<space<<ifam;
-// for ( int i=1; i<=nbNodes; i++) theFile<<space<<200+i;
-// theFile<<endl;
-// }
-// theFile.close();
-
-// cout<<"Processed mesh files created, they contains :\n";
-// cout<<" "<<nbVertices<<" vertices\n";
-// if (nbNoTriangles==0)
-// cout<<" "<<nbFaces<<" faces\n\n";
-// else
-// cout<<" "<<nbFaces<<" faces with "<<nbNoTriangles<<"faces no triangles\n\n";
-// return true;
-// }
-
-
-//=======================================================================
-
-#define GHS3DPRLPlugin_BUFLENGTH 256
-#define GHS3DPRLPlugin_ReadLine(aPtr,aBuf,aFile,aLineNb) \
-{ aPtr = fgets( aBuf, GHS3DPRLPlugin_BUFLENGTH - 2, aFile ); aLineNb++; DUMP(endl); }
-
-
//=============================================================================
// Pass parameters to GHS3DPRL
void GHS3DPRLPlugin_GHS3DPRL::SetParameters(const GHS3DPRLPlugin_Hypothesis* hyp)
return aTmpDir;
}
+//=============================================================================
+// Write a skin mesh into a GMF file or pass it to MG-TetraHPC API
+static void exportGMF(MG_TetraHPC_API* theTetraInput,
+ const char* theFile,
+ const SMESHDS_Mesh* theMeshDS)
+{
+ int meshID = theTetraInput->GmfOpenMesh( theFile, GmfWrite, GMFVERSION, GMFDIMENSION);
+
+ // nodes
+ int iN = 0, nbNodes = theMeshDS->NbNodes();
+ theTetraInput->GmfSetKwd( meshID, GmfVertices, nbNodes );
+ std::map< const SMDS_MeshNode*, int, TIDCompare > node2IdMap;
+ SMDS_NodeIteratorPtr nodeIt = theMeshDS->nodesIterator();
+ SMESH_TNodeXYZ n;
+ while ( nodeIt->more() )
+ {
+ n.Set( nodeIt->next() );
+ theTetraInput->GmfSetLin( meshID, GmfVertices, n.X(), n.Y(), n.Z(), n._node->getshapeId() );
+ node2IdMap.insert( node2IdMap.end(), std::make_pair( n._node, ++iN ));
+ }
+
+ // triangles
+ SMDS_ElemIteratorPtr elemIt = theMeshDS->elementGeomIterator( SMDSGeom_TRIANGLE );
+ if ( elemIt->more() )
+ {
+ int nbTria = theMeshDS->GetMeshInfo().NbElements( SMDSGeom_TRIANGLE );
+ theTetraInput->GmfSetKwd(meshID, GmfTriangles, nbTria );
+ for ( int gmfID = 1; elemIt->more(); ++gmfID )
+ {
+ const SMDS_MeshElement* tria = elemIt->next();
+ theTetraInput->GmfSetLin(meshID, GmfTriangles,
+ node2IdMap[ tria->GetNode( 0 )],
+ node2IdMap[ tria->GetNode( 1 )],
+ node2IdMap[ tria->GetNode( 2 )],
+ tria->getshapeId() );
+ }
+ }
+ theTetraInput->GmfCloseMesh( meshID );
+}
+
//=============================================================================
// Here we are going to use the GHS3DPRL mesher for tetra-hpc (formerly tepal in v3 (2014))
-bool GHS3DPRLPlugin_GHS3DPRL::Compute(SMESH_Mesh& theMesh,
+bool GHS3DPRLPlugin_GHS3DPRL::Compute(SMESH_Mesh& theMesh,
const TopoDS_Shape& theShape)
{
bool Ok=false;
TCollection_AsciiString pluginerror("ghs3dprl: ");
SMESHDS_Mesh* meshDS = theMesh.GetMeshDS();
- //cout<<"GetMeshDS done\n";
- if (_countSubMesh==0){
- MESSAGE("GHS3DPRLPlugin_GHS3DPRL::Compute for tetra-hpc");
- _countTotal=0;
- TopExp_Explorer expf(meshDS->ShapeToMesh(), TopAbs_SOLID);
- for ( ; expf.More(); expf.Next() ) _countTotal++;
- }
- _countSubMesh++;
- //cout<<"Compute _countSubMesh "<<_countSubMesh<<endl;
- //no stuff if multiples submesh, multiple call compute
- //mesh all in one pass tepal (the last)
- if (_countSubMesh != _countTotal ) return true;
- //stuff on last call
if (_hypothesis==NULL){
pluginerror += "No existing parameters/hypothesis for GHS3DPRL";
cout <<"\n"<<pluginerror<<"\n\n";
cout << " multithread = " << _Multithread << "\n\n";
cout << " adv. options = '" << _AdvOptions << "'\n\n";
- //string tmpDir=getTmpDir_new();
TCollection_AsciiString
tmpDir=getTmpDir(),
GHS3DPRL_In,
GHS3DPRL_Out,
+ GHS3DPRL_Out_Mesh,
GHS3DPRL_Outxml,
+ logFileName,
run_GHS3DPRL("tetrahpc2med "),
rm("rm -f "),
run_nokeep_files,
casenamemed=casenamemed.SubString(1,20);
cerr<<"MEDName truncated (no more 20 characters) = "<<casenamemed<<endl;
}
- //cout<<"path="<<path<<endl;
- //cout<<"casenamemed="<<casenamemed<<endl;
map <int,int> aSmdsToGHS3DPRLIdMap;
map <int,const SMDS_MeshNode*> aGHS3DPRLIdToNodeMap;
GHS3DPRL_In = path + "GHS3DPRL";
GHS3DPRL_Out = path + casenamemed;
+ GHS3DPRL_Out_Mesh = path + casenamemed + "_out.mesh";
GHS3DPRL_Outxml = path + casenamemed + ".xml"; //master file
+ logFileName = path + casenamemed + ".log"; // MG library output
NbPart=_NbPart;
Gradation=_Gradation;
MinSize=_MinSize;
system( run_nokeep_files.ToCString() ); //clean files
run_nokeep_files = rm + GHS3DPRL_In + "* ";
- cout<<"GHS3DPRL command :\n "<<run_GHS3DPRL.ToCString()<<endl;
fileskinmesh=path + "GHS3DPRL.mesh";
- cout<<" Write input file for tetra_hpc.exe "<<fileskinmesh<<"...";
GHS3DPRL_Out = path + casenamemed;
removeFile( GHS3DPRL_Outxml ); //only the master xml file
- //Ok=writeGHS3DPRLFiles(GHS3DPRL_In, meshDS, aSmdsToGHS3DPRLIdMap, aGHS3DPRLIdToNodeMap);
- bool toCreateGroups = false;
- theMesh.ExportGMF(fileskinmesh.ToCString(), meshDS, toCreateGroups );
- cout<<" ...done\n";
- //else {
- // cout<<" ...NOT done\n";
- // pluginerror = pluginerror + "problem writing input tepal files " + GHS3DPRL_In + ".mesh";
-
- //Ecriture dans un fichier MED ?v2.? meme si not Ok
- //create empty file -> avoid warning message
- //med_idt fid=MEDouvrir((const char *)fileskinmed.ToCString(),MED_CREATION);
- //med_err ret=MEDfermer(fid);
- //fileskinmed=fileskinmed + "cp /home/wambeke/empty.med "+ path + "GHS3DPRL_skin.med";
- //system( fileskinmed.ToCString() );
+
+ MG_TetraHPC_API mgTetraHPC( _computeCanceled, _progress );
+ bool useLib = ( mgTetraHPC.IsLibrary() && !_Background && _Multithread );
+ if ( !useLib )
+ mgTetraHPC.SetUseExecutable();
+
+ exportGMF( &mgTetraHPC, fileskinmesh.ToCString(), meshDS );
+
+ if ( useLib )
+ {
+ TCollection_AsciiString cmd = TCollection_AsciiString("mg-tetra_hpc.exe") +
+ " --number_of_subdomains=" + NbPart +
+ " --gradation=" + Gradation +
+ " --min_size=" + MinSize +
+ " --max_size=" + MaxSize +
+ " --verbose=3" +
+ " --out=" + GHS3DPRL_Out_Mesh +
+ " " + _AdvOptions.c_str();
+
+ cout << endl
+ << " Run mg-tetra_hpc as library. Creating a mesh file " << GHS3DPRL_Out_Mesh << endl
+ << " Creating a log file : " << logFileName << endl << endl;
+ mgTetraHPC.SetLogFile( logFileName.ToCString() );
+
+ mgTetraHPC.Compute( cmd.ToCString() );
+
+ std::string log = mgTetraHPC.GetLog();
+ if ( log.find(" Dlim " ) != std::string::npos ||
+ log.find(" license ") != std::string::npos )
+ return error("License problem");
+
+ // set --launchtetra=no
+ int yesPos = run_GHS3DPRL.Search("launchtetra") + sizeof("launchtetra");
+ run_GHS3DPRL.SetValue( yesPos+0, 'n' );
+ run_GHS3DPRL.SetValue( yesPos+1, 'o' );
+ run_GHS3DPRL.SetValue( yesPos+2, ' ' );
+ }
+ else
+ {
+ cout<<" Write input file for mg-tetra_hpc "<<fileskinmesh<<"...";
+ cout<<" ...done\n";
+ }
fileskinmed=path + "GHS3DPRL_skin.med";
cout<<" Write file "<<fileskinmed<<"...";
theMesh.ExportMED(fileskinmed.ToCString(),"SKIN_INITIAL",true,1);
cout<<" ...done\n\n";
-
+ cout<<"GHS3DPRL command :\n "<<run_GHS3DPRL.ToCString()<<endl;
//sometimes it is better to wait flushing files on slow filesystem...
system( "sleep 3" );
//launch tetrahpc2med which launch mg-tetra_hpc.py which launch mg-tetra_hpc(_mpi?).exe
// read a result, GHS3DPRL_Out is the name of master file (previous xml format)
FILE * aResultFile = fopen( GHS3DPRL_Outxml.ToCString(), "r" );
if (aResultFile){
- //Ok = readResult( aResultFile, meshDS, theShape, aGHS3DPRLIdToNodeMap, GHS3DPRL_Out, _nodeRefNumber );
- Ok = true;
Ok = false; //but it is not a problem but if true my message is overwritten
fclose(aResultFile);
cout<<"GHS3DPRL OK output master file "<<casenamemed<<".xml exist !\n\n";
system( run_list_files.ToCString() );
cout<<endl;
}
- _countSubMesh=0;
-
return Ok;
}
--- /dev/null
+// Copyright (C) 2004-2016 CEA/DEN, EDF R&D
+//
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+// Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+//
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+//
+
+#include "MG_TetraHPC_API.hxx"
+
+#include <SMESH_Comment.hxx>
+#include <SMESH_File.hxx>
+#include <Utils_SALOME_Exception.hxx>
+
+#include <vector>
+#include <iterator>
+#include <cstring>
+
+#ifdef USE_MG_LIBS
+
+extern "C"{
+#include <meshgems/meshgems.h>
+#include <meshgems/tetra_hpc.h>
+}
+
+struct MG_TetraHPC_API::LibData
+{
+ // MG objects
+ context_t * _context;
+ tetra_hpc_session_t * _session;
+ mesh_t * _tria_mesh;
+ sizemap_t * _sizemap;
+ mesh_t * _tetra_mesh;
+
+ // data to pass to MG
+ std::vector<double> _xyz;
+ std::vector<double> _nodeSize; // required nodes
+ std::vector<int> _edgeNodes;
+ int _nbRequiredEdges;
+ std::vector<int> _triaNodes;
+ int _nbRequiredTria;
+
+ int _count;
+ volatile bool& _cancelled_flag;
+ std::string _errorStr;
+ double& _progress;
+
+ LibData( volatile bool & cancelled_flag, double& progress )
+ : _context(0), _session(0), _tria_mesh(0), _sizemap(0), _tetra_mesh(0),
+ _nbRequiredEdges(0), _nbRequiredTria(0),
+ _cancelled_flag( cancelled_flag ), _progress( progress )
+ {
+ }
+ // methods setting callbacks implemented after callback definitions
+ void Init();
+ bool Compute( const std::string& outFile );
+
+ ~LibData()
+ {
+ if ( _tetra_mesh )
+ tetra_hpc_regain_mesh( _session, _tetra_mesh );
+ if ( _session )
+ tetra_hpc_session_delete( _session );
+ if ( _tria_mesh )
+ mesh_delete( _tria_mesh );
+ if ( _sizemap )
+ sizemap_delete( _sizemap );
+ if ( _context )
+ context_delete( _context );
+
+ _tetra_mesh = 0;
+ _session = 0;
+ _tria_mesh = 0;
+ _sizemap = 0;
+ _context = 0;
+ }
+
+ void AddError( const char *txt )
+ {
+ if ( txt )
+ _errorStr += txt;
+ }
+
+ const std::string& GetErrors()
+ {
+ return _errorStr;
+ }
+
+ void MG_Error(const char* txt="")
+ {
+ SMESH_Comment msg("\nMeshGems error. ");
+ msg << txt << "\n";
+ AddError( msg.c_str() );
+ }
+
+ bool SetParam( const std::string& param, const std::string& value )
+ {
+ status_t ret = tetra_hpc_set_param( _session, param.c_str(), value.c_str() );
+#ifdef _DEBUG_
+ //std::cout << param << " = " << value << std::endl;
+#endif
+ return ( ret == STATUS_OK );
+ }
+
+ bool Cancelled()
+ {
+ return _cancelled_flag;
+ }
+
+ int ReadNbSubDomains()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_subdomain_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_subdomain_count problem");
+ return nb;
+ }
+
+ int ReadNbNodes()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_vertex_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_vertex_count problem");
+ return nb;
+ }
+
+ int ReadNbEdges()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_edge_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_edge_count problem");
+ return nb;
+ }
+
+ int ReadNbTria()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_triangle_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_triangle_count problem");
+ return nb;
+ }
+
+ int ReadNbQuads()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_quadrangle_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_quadrangle_count problem");
+ return nb;
+ }
+
+ int ReadNbTetra()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_tetrahedron_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_tetrahedron_count problem");
+ return nb;
+ }
+
+ int ReadNbHexa()
+ {
+ integer nb = 0;
+ status_t ret = mesh_get_hexahedron_count( _tetra_mesh, & nb );
+
+ if ( ret != STATUS_OK ) MG_Error("mesh_get_hexahedron_count problem");
+ return nb;
+ }
+
+ void ResetCounter()
+ {
+ _count = 1;
+ }
+
+ void ReadSubDomain( int* nbNodes, int* faceInd, int* ori, int* domain )
+ {
+ integer tag, seed_type, seed_idx, seed_orientation;
+ status_t ret = mesh_get_subdomain_description( _tetra_mesh, _count,
+ &tag, &seed_type, &seed_idx, &seed_orientation);
+
+ if ( ret != STATUS_OK ) MG_Error( "unable to get a sub-domain description");
+
+ *nbNodes = 3;
+ *faceInd = seed_idx;
+ *domain = tag;
+ *ori = seed_orientation;
+
+ ++_count;
+ }
+ void ReadNodeXYZ( double* x, double* y, double *z, int* /*domain*/ )
+ {
+ real coo[3];
+ status_t ret = mesh_get_vertex_coordinates( _tetra_mesh, _count, coo );
+ if ( ret != STATUS_OK ) MG_Error( "unable to get resulting vertices" );
+
+ *x = coo[0];
+ *y = coo[1];
+ *z = coo[2];
+
+ ++_count;
+ }
+
+ void ReadEdgeNodes( int* node1, int* node2, int* domain )
+ {
+ integer vtx[2], tag;
+ status_t ret = mesh_get_edge_vertices( _tetra_mesh, _count, vtx);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting edge" );
+
+ *node1 = vtx[0];
+ *node2 = vtx[1];
+
+ ret = mesh_get_edge_tag( _tetra_mesh, _count, &tag );
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting edge tag" );
+
+ *domain = tag;
+
+ ++_count;
+ }
+
+ void ReadTriaNodes( int* node1, int* node2, int* node3, int* domain )
+ {
+ integer vtx[3], tag;
+ status_t ret = mesh_get_triangle_vertices( _tetra_mesh, _count, vtx);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting triangle" );
+
+ *node1 = vtx[0];
+ *node2 = vtx[1];
+ *node3 = vtx[2];
+
+ ret = mesh_get_triangle_tag( _tetra_mesh, _count, &tag );
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting triangle tag" );
+
+ *domain = tag;
+
+ ++_count;
+ }
+
+ void ReadQuadNodes( int* node1, int* node2, int* node3, int* node4, int* domain )
+ {
+ integer vtx[4], tag;
+ status_t ret = mesh_get_quadrangle_vertices( _tetra_mesh, _count, vtx);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting quadrangle" );
+
+ *node1 = vtx[0];
+ *node2 = vtx[1];
+ *node3 = vtx[2];
+ *node4 = vtx[3];
+
+ ret = mesh_get_quadrangle_tag( _tetra_mesh, _count, &tag );
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting quadrangle tag" );
+
+ *domain = tag;
+
+ ++_count;
+ }
+
+ void ReadTetraNodes( int* node1, int* node2, int* node3, int* node4, int* domain )
+ {
+ integer vtx[4], tag;
+ status_t ret = mesh_get_tetrahedron_vertices( _tetra_mesh, _count, vtx);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting tetrahedron" );
+
+ *node1 = vtx[0];
+ *node2 = vtx[1];
+ *node3 = vtx[2];
+ *node4 = vtx[3];
+
+ ret = mesh_get_tetrahedron_tag( _tetra_mesh, _count, &tag );
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting tetrahedron tag" );
+
+ *domain = tag;
+
+ ++_count;
+ }
+
+ void ReadHexaNodes( int* node1, int* node2, int* node3, int* node4,
+ int* node5, int* node6, int* node7, int* node8, int* domain )
+ {
+ integer vtx[8], tag;
+ status_t ret = mesh_get_hexahedron_vertices( _tetra_mesh, _count, vtx);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting hexahedron" );
+
+ *node1 = vtx[0];
+ *node2 = vtx[1];
+ *node3 = vtx[2];
+ *node4 = vtx[3];
+ *node5 = vtx[4];
+ *node6 = vtx[5];
+ *node7 = vtx[6];
+ *node8 = vtx[7];
+
+ ret = mesh_get_hexahedron_tag( _tetra_mesh, _count, &tag );
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting hexahedron tag" );
+
+ *domain = tag;
+
+ ++_count;
+ }
+
+ void SetNbVertices( int nb )
+ {
+ _xyz.reserve( _xyz.capacity() + nb );
+ }
+
+ void SetNbEdges( int nb )
+ {
+ _edgeNodes.reserve( nb * 2 );
+ }
+
+ void SetNbTria( int nb )
+ {
+ _triaNodes.reserve( nb * 3 );
+ }
+
+ void SetNbReqVertices( int nb )
+ {
+ _nodeSize.reserve( nb );
+ }
+
+ void SetNbReqEdges( int nb )
+ {
+ _nbRequiredEdges = nb;
+ }
+
+ void SetNbReqTria( int nb )
+ {
+ _nbRequiredTria = nb;
+ }
+
+ void AddNode( double x, double y, double z, int domain )
+ {
+ _xyz.push_back( x );
+ _xyz.push_back( y );
+ _xyz.push_back( z );
+ }
+
+ void AddSizeAtNode( double size )
+ {
+ _nodeSize.push_back( size );
+ }
+
+ void AddEdgeNodes( int node1, int node2, int domain )
+ {
+ _edgeNodes.push_back( node1 );
+ _edgeNodes.push_back( node2 );
+ }
+
+ void AddTriaNodes( int node1, int node2, int node3, int domain )
+ {
+ _triaNodes.push_back( node1 );
+ _triaNodes.push_back( node2 );
+ _triaNodes.push_back( node3 );
+ }
+
+ int NbNodes()
+ {
+ return _xyz.size() / 3;
+ }
+
+ double* NodeCoord( int iNode )
+ {
+ return & _xyz[ iNode * 3 ];
+ }
+
+ int NbEdges()
+ {
+ return _edgeNodes.size() / 2;
+ }
+
+ int* GetEdgeNodes( int iEdge )
+ {
+ return & _edgeNodes[ iEdge * 2 ];
+ }
+
+ int NbTriangles()
+ {
+ return _triaNodes.size() / 3;
+ }
+
+ int * GetTriaNodes( int iTria )
+ {
+ return & _triaNodes[ iTria * 3 ];
+ }
+
+ int IsVertexRequired( int iNode )
+ {
+ return ! ( iNode < int( _xyz.size() - _nodeSize.size() ));
+ }
+
+ double GetSizeAtVertex( int iNode )
+ {
+ return IsVertexRequired( iNode ) ? _nodeSize[ iNode - _xyz.size() + _nodeSize.size() ] : 0.;
+ }
+};
+
+namespace // functions called by MG library to exchange with the application
+{
+ status_t get_vertex_count(integer * nbvtx, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ *nbvtx = data->NbNodes();
+
+ return STATUS_OK;
+ }
+
+ status_t get_vertex_coordinates(integer ivtx, real * xyz, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ double* coord = data->NodeCoord( ivtx-1 );
+ for (int j = 0; j < 3; j++)
+ xyz[j] = coord[j];
+
+ return STATUS_OK;
+ }
+ status_t get_edge_count(integer * nbedge, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ *nbedge = data->NbEdges();
+
+ return STATUS_OK;
+ }
+
+ status_t get_edge_vertices(integer iedge, integer * vedge, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ int* nodes = data->GetEdgeNodes( iedge-1 );
+ vedge[0] = nodes[0];
+ vedge[1] = nodes[1];
+
+ return STATUS_OK;
+ }
+
+ status_t get_triangle_count(integer * nbtri, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ *nbtri = data->NbTriangles();
+
+ return STATUS_OK;
+ }
+
+ status_t get_triangle_vertices(integer itri, integer * vtri, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ int* nodes = data->GetTriaNodes( itri-1 );
+ vtri[0] = nodes[0];
+ vtri[1] = nodes[1];
+ vtri[2] = nodes[2];
+
+ return STATUS_OK;
+ }
+
+ // status_t get_triangle_extra_vertices(integer itri, integer * typetri,
+ // integer * evtri, void *user_data)
+ // {
+ // int j;
+ // MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+
+ // if (1) {
+ // /* We want to describe a linear "3 nodes" triangle */
+ // *typetri = MESHGEMS_MESH_ELEMENT_TYPE_TRIA3;
+ // } else {
+ // /* We want to describe a quadratic "6 nodes" triangle */
+ // *typetri = MESHGEMS_MESH_ELEMENT_TYPE_TRIA6;
+ // for (j = 0; j < 3; j++)
+ // evtri[j] = 0; /* the j'th quadratic vertex index of the itri'th triangle */
+ // }
+
+ // return STATUS_OK;
+ // }
+
+ // status_t get_tetrahedron_count(integer * nbtetra, void *user_data)
+ // {
+ // MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+
+ // *nbtetra = 0; /* the number of tetra in your input mesh (0 if you describe a surface mesh) */
+
+ // return STATUS_OK;
+ // }
+
+ // status_t get_tetrahedron_vertices(integer itetra, integer * vtetra,
+ // void *user_data)
+ // {
+ // int j;
+ // MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+
+ // for (j = 0; j < 4; j++)
+ // vtetra[j] = 0; /* the j'th vertex index of the itetra'th tetrahedron */
+
+ // return STATUS_OK;
+ // }
+
+ status_t get_vertex_required_property(integer ivtx, integer * rvtx, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ *rvtx = data->IsVertexRequired( ivtx - 1 );
+
+ return STATUS_OK;
+ }
+
+ // status_t get_vertex_weight(integer ivtx, real * wvtx, void *user_data)
+ // {
+ // MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ // *wvtx = data->GetSizeAtVertex( ivtx - 1 );
+
+ // return STATUS_OK;
+ // }
+
+ status_t my_message_cb(message_t * msg, void *user_data)
+ {
+ char *desc;
+ message_get_description(msg, &desc);
+
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ data->AddError( desc );
+
+#ifdef _DEBUG_
+ //std::cout << desc << std::endl;
+#endif
+
+ return STATUS_OK;
+ }
+
+ status_t my_interrupt_callback(integer *interrupt_status, void *user_data)
+ {
+ MG_TetraHPC_API::LibData* data = (MG_TetraHPC_API::LibData *) user_data;
+ *interrupt_status = ( data->Cancelled() ? INTERRUPT_STOP : INTERRUPT_CONTINUE );
+
+ //std::cout << "INTERRUPT_STOP" << std::endl;
+
+
+ return STATUS_OK;
+ }
+
+} // end namespace
+
+
+void MG_TetraHPC_API::LibData::Init()
+{
+ status_t ret;
+
+ // Create the meshgems working context
+ _context = context_new();
+ if ( !_context ) MG_Error( "unable to create a new context" );
+
+ // Set the message callback for the _context.
+ ret = context_set_message_callback( _context, my_message_cb, this );
+ if ( ret != STATUS_OK ) MG_Error("in context_set_message_callback");
+
+ // Create the structure holding the callbacks giving access to triangle mesh
+ _tria_mesh = mesh_new( _context );
+ if ( !_tria_mesh ) MG_Error("unable to create a new mesh");
+
+ // Set callbacks to provide triangle mesh data
+ mesh_set_get_vertex_count( _tria_mesh, get_vertex_count, this );
+ mesh_set_get_vertex_coordinates( _tria_mesh, get_vertex_coordinates, this );
+ mesh_set_get_vertex_required_property( _tria_mesh, get_vertex_required_property, this );
+ mesh_set_get_edge_count( _tria_mesh, get_edge_count, this);
+ mesh_set_get_edge_vertices( _tria_mesh, get_edge_vertices, this );
+ mesh_set_get_triangle_count( _tria_mesh, get_triangle_count, this );
+ mesh_set_get_triangle_vertices( _tria_mesh, get_triangle_vertices, this );
+
+ // Create a tetra session
+ _session = tetra_hpc_session_new( _context );
+ if ( !_session ) MG_Error( "unable to create a new tetra_hpc session");
+
+ ret = tetra_hpc_set_interrupt_callback( _session, my_interrupt_callback, this );
+ if ( ret != STATUS_OK ) MG_Error("in tetra_set_interrupt_callback");
+
+}
+
+bool MG_TetraHPC_API::LibData::Compute( const std::string& outFile )
+{
+ // Set surface mesh
+ status_t ret = tetra_hpc_set_input_mesh( _session, _tria_mesh );
+ if ( ret != STATUS_OK ) MG_Error( "unable to set surface mesh");
+
+ // // Set a sizemap
+ // if ( !_nodeSize.empty() )
+ // {
+ // _sizemap = meshgems_sizemap_new( _tria_mesh, meshgems_sizemap_type_iso_mesh_vertex,
+ // (void*) &get_vertex_weight, this );
+ // if ( !_sizemap ) MG_Error("unable to create a new sizemap");
+
+ // ret = tetra_hpc_set_sizemap( _session, _sizemap );
+ // if ( ret != STATUS_OK ) MG_Error( "unable to set sizemap");
+ // }
+
+ //////////////////////////////////////////////////////////////////////////////////////////
+ // const char* file = "/tmp/ghs3d_IN.mesh";
+ // mesh_write_mesh( _tria_mesh,file);
+ // std::cout << std::endl << std::endl << "Write " << file << std::endl << std::endl << std::endl;
+
+ ret = tetra_hpc_mesh( _session );
+ if ( ret != STATUS_OK ) return false;
+
+ ret = tetra_hpc_get_mesh( _session, &_tetra_mesh);
+ if (ret != STATUS_OK) MG_Error( "unable to get resulting mesh");
+
+ mesh_write_mesh( _tetra_mesh, outFile.c_str() );
+
+ return true;
+}
+
+
+#endif // ifdef USE_MG_LIBS
+
+
+//================================================================================
+/*!
+ * \brief Constructor
+ */
+//================================================================================
+
+MG_TetraHPC_API::MG_TetraHPC_API(volatile bool& cancelled_flag, double& progress)
+{
+#ifdef USE_MG_LIBS
+ _useLib = true;
+ _libData = new LibData( cancelled_flag, progress );
+ _libData->Init();
+#endif
+ if ( getenv("MG_TetraHPC_USE_EXE"))
+ _useLib = false;
+}
+
+//================================================================================
+/*!
+ * \brief Destructor
+ */
+//================================================================================
+
+MG_TetraHPC_API::~MG_TetraHPC_API()
+{
+#ifdef USE_MG_LIBS
+ delete _libData;
+ _libData = 0;
+#endif
+ std::set<int>::iterator id = _openFiles.begin();
+ for ( ; id != _openFiles.end(); ++id )
+ ::GmfCloseMesh( *id );
+ _openFiles.clear();
+}
+
+//================================================================================
+/*!
+ * \brief Return the way of MG usage
+ */
+//================================================================================
+
+bool MG_TetraHPC_API::IsLibrary()
+{
+ return _useLib;
+}
+
+//================================================================================
+/*!
+ * \brief Switch to usage of MG-Tetra executable
+ */
+//================================================================================
+
+void MG_TetraHPC_API::SetUseExecutable()
+{
+ _useLib = false;
+}
+
+//================================================================================
+/*!
+ * \brief Compute the tetra mesh
+ * \param [in] cmdLine - a command to run mg_tetra.exe
+ * \return bool - Ok or not
+ */
+//================================================================================
+
+bool MG_TetraHPC_API::Compute( const std::string& cmdLine )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+
+ // split cmdLine
+ std::istringstream strm( cmdLine );
+ std::istream_iterator<std::string> sIt( strm ), sEnd;
+ std::vector< std::string > args( sIt, sEnd );
+
+ std::string outFile;
+
+ // set parameters
+ std::string arg, param, value;
+ for ( size_t i = 1; i < args.size(); ++i )
+ {
+ // look for a param name; it starts from "-"
+ arg = args[i];
+ if ( arg.size() < 2 || arg[0] != '-')
+ continue;
+ while ( arg[0] == '-')
+ arg = arg.substr( 1 );
+
+ size_t eqPos = arg.find('=');
+ if ( eqPos != std::string::npos )
+ {
+ param = arg.substr( 0, eqPos );
+ value = arg.substr( eqPos+1 );
+ }
+ else
+ {
+ param = arg;
+ value = "";
+ }
+ if ( param == "out" )
+ {
+ outFile = value;
+ continue;
+ }
+ while ( i+1 < args.size() && args[i+1][0] != '-' )
+ {
+ if ( !value.empty() ) value += " ";
+ value += args[++i];
+ }
+ if ( !_libData->SetParam( param, value ))
+ std::cout << "Warning: wrong param: '" << param <<"' = '" << value << "'" << std::endl;
+ }
+
+ // compute
+ return _libData->Compute( outFile );
+#endif
+ }
+
+ // Run library ONLY
+
+ // int err = system( cmdLine.c_str() ); // run
+
+ // if ( err )
+ // errStr = SMESH_Comment("system(mg-tetra.exe ...) command failed with error: ")
+ // << strerror( errno );
+
+ // GetLog(); // write a log file
+ // _logFile = ""; // not to write it again
+
+ return false;
+}
+
+//================================================================================
+/*!
+ * \brief Prepare for reading a mesh data
+ */
+//================================================================================
+
+int MG_TetraHPC_API::GmfOpenMesh(const char* theFile, int rdOrWr, int * ver, int * dim)
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ return 1;
+#endif
+ }
+ int id = ::GmfOpenMesh(theFile, rdOrWr, ver, dim );
+ _openFiles.insert( id );
+ return id;
+}
+
+//================================================================================
+/*!
+ * \brief Return nb of entities
+ */
+//================================================================================
+
+int MG_TetraHPC_API::GmfStatKwd( int iMesh, GmfKwdCod what )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ switch ( what )
+ {
+ case GmfSubDomainFromGeom: return _libData->ReadNbSubDomains();
+ case GmfVertices: return _libData->ReadNbNodes();
+ case GmfEdges: return _libData->ReadNbEdges();
+ case GmfTriangles: return _libData->ReadNbTria();
+ case GmfQuadrilaterals: return _libData->ReadNbQuads();
+ case GmfTetrahedra: return _libData->ReadNbTetra();
+ case GmfHexahedra: return _libData->ReadNbHexa();
+ default: return 0;
+ }
+ return 0;
+#endif
+ }
+ return ::GmfStatKwd( iMesh, what );
+}
+
+//================================================================================
+/*!
+ * \brief Prepare for reading some data
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGotoKwd( int iMesh, GmfKwdCod what )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ResetCounter();
+ return;
+#endif
+ }
+ ::GmfGotoKwd( iMesh, what );
+}
+
+//================================================================================
+/*!
+ * \brief Return index of a domain identified by a triangle normal
+ * \param [in] iMesh - mesh file index
+ * \param [in] what - must be GmfSubDomainFromGeom
+ * \param [out] nbNodes - nb nodes in a face
+ * \param [out] faceInd - face index
+ * \param [out] ori - face orientation
+ * \param [out] domain - domain index
+ * \param [in] dummy - an artificial param used to discriminate from GmfGetLin() reading
+ * a triangle
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin( int iMesh, GmfKwdCod what, int* nbNodes, int* faceInd, int* ori, int* domain, int dummy )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ReadSubDomain( nbNodes, faceInd, ori, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin( iMesh, what, nbNodes, faceInd, ori, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return coordinates of a next node
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what,
+ double* x, double* y, double *z, int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ReadNodeXYZ( x, y, z, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, x, y, z, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return coordinates of a next node
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what,
+ float* x, float* y, float *z, int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ double X,Y,Z;
+ _libData->ReadNodeXYZ( &X, &Y, &Z, domain );
+ *x = X;
+ *y = Y;
+ *z = Z;
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, x, y, z, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return node index of a next corner
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what, int* node )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ node = 0;
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, node );
+}
+
+//================================================================================
+/*!
+ * \brief Return node indices of a next edge
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what, int* node1, int* node2, int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ReadEdgeNodes( node1, node2, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin( iMesh, what, node1, node2, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return node indices of a next triangle
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what,
+ int* node1, int* node2, int* node3, int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ReadTriaNodes( node1, node2, node3, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, node1, node2, node3, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return node indices of a next tetrahedron or quadrangle
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what,
+ int* node1, int* node2, int* node3, int* node4, int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ if ( what == GmfQuadrilaterals )
+ _libData->ReadQuadNodes( node1, node2, node3, node4, domain );
+ else
+ _libData->ReadTetraNodes( node1, node2, node3, node4, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, node1, node2, node3, node4, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Return node indices of a next hexahedron
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfGetLin(int iMesh, GmfKwdCod what,
+ int* node1, int* node2, int* node3, int* node4,
+ int* node5, int* node6, int* node7, int* node8,
+ int* domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->ReadHexaNodes( node1, node2, node3, node4,
+ node5, node6, node7, node8, domain );
+ return;
+#endif
+ }
+ ::GmfGetLin(iMesh, what, node1, node2, node3, node4, node5, node6, node7, node8, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Prepare for passing data to MeshGems
+ */
+//================================================================================
+
+int MG_TetraHPC_API::GmfOpenMesh(const char* theFile, int rdOrWr, int ver, int dim)
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ return 1;
+#endif
+ }
+ int id = ::GmfOpenMesh(theFile, rdOrWr, ver, dim);
+ _openFiles.insert( id );
+ return id;
+}
+
+//================================================================================
+/*!
+ * \brief Set number of entities
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetKwd(int iMesh, GmfKwdCod what, int nb )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ switch ( what ) {
+ case GmfVertices: _libData->SetNbVertices( nb ); break;
+ case GmfEdges: _libData->SetNbEdges ( nb ); break;
+ case GmfRequiredEdges: _libData->SetNbReqEdges( nb ); break;
+ case GmfTriangles: _libData->SetNbTria ( nb ); break;
+ case GmfRequiredTriangles: _libData->SetNbReqTria ( nb ); break;
+ default:;
+ }
+ return;
+#endif
+ }
+ ::GmfSetKwd(iMesh, what, nb );
+}
+
+//================================================================================
+/*!
+ * \brief Add coordinates of a node
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetLin(int iMesh, GmfKwdCod what, double x, double y, double z, int domain)
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->AddNode( x, y, z, domain );
+ return;
+#endif
+ }
+ ::GmfSetLin(iMesh, what, x, y, z, domain);
+}
+
+//================================================================================
+/*!
+ * \brief Set number of field entities
+ * \param [in] iMesh - solution file index
+ * \param [in] what - solution type
+ * \param [in] nbNodes - nb of entities
+ * \param [in] nbTypes - nb of data entries in each entity
+ * \param [in] type - types of the data entries
+ *
+ * Used to prepare to storing size at nodes
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetKwd(int iMesh, GmfKwdCod what, int nbNodes, int dummy, int type[] )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ if ( what == GmfSolAtVertices ) _libData->SetNbReqVertices( nbNodes );
+ return;
+#endif
+ }
+ ::GmfSetKwd(iMesh, what, nbNodes, dummy, type );
+}
+
+//================================================================================
+/*!
+ * \brief Add solution data
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetLin(int iMesh, GmfKwdCod what, double vals[])
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->AddSizeAtNode( vals[0] );
+ return;
+#endif
+ }
+ ::GmfSetLin(iMesh, what, vals);
+}
+
+//================================================================================
+/*!
+ * \brief Add edge nodes
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetLin(int iMesh, GmfKwdCod what, int node1, int node2, int domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->AddEdgeNodes( node1, node2, domain );
+ return;
+#endif
+ }
+ ::GmfSetLin(iMesh, what, node1, node2, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Add a 'required' flag
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetLin(int iMesh, GmfKwdCod what, int id )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ return;
+#endif
+ }
+ ::GmfSetLin(iMesh, what, id );
+}
+
+//================================================================================
+/*!
+ * \brief Add triangle nodes
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfSetLin(int iMesh, GmfKwdCod what, int node1, int node2, int node3, int domain )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ _libData->AddTriaNodes( node1, node2, node3, domain );
+ return;
+#endif
+ }
+ ::GmfSetLin(iMesh, what, node1, node2, node3, domain );
+}
+
+//================================================================================
+/*!
+ * \brief Close a file
+ */
+//================================================================================
+
+void MG_TetraHPC_API::GmfCloseMesh( int iMesh )
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ return;
+#endif
+ }
+ ::GmfCloseMesh( iMesh );
+ _openFiles.erase( iMesh );
+}
+
+//================================================================================
+/*!
+ * \brief Return true if the log is not empty
+ */
+//================================================================================
+
+bool MG_TetraHPC_API::HasLog()
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ return !_libData->GetErrors().empty();
+#endif
+ }
+ SMESH_File file( _logFile );
+ return file.size() > 0;
+}
+
+//================================================================================
+/*!
+ * \brief Return log contents
+ */
+//================================================================================
+
+std::string MG_TetraHPC_API::GetLog()
+{
+ if ( _useLib ) {
+#ifdef USE_MG_LIBS
+ const std::string& err = _libData->GetErrors();
+ if ( !_logFile.empty() && !err.empty() )
+ {
+ SMESH_File file( _logFile, /*openForReading=*/false );
+ file.openForWriting();
+ file.write( err.c_str(), err.size() );
+ }
+ return err;
+#endif
+ }
+ SMESH_File file( _logFile );
+ return file.getPos();
+}
