| 44 | 
  | 
 * | 
| 45 | 
  | 
 *  Created by Charles F. Vardeman II on 11 Dec 2006. | 
| 46 | 
  | 
 *  @author  Charles F. Vardeman II | 
| 47 | 
< | 
 *  @version $Id: ConvexHull.cpp,v 1.19 2009-10-21 15:48:12 gezelter Exp $ | 
| 47 | 
> | 
 *  @version $Id: ConvexHull.cpp,v 1.20 2009-10-22 19:43:10 gezelter Exp $ | 
| 48 | 
  | 
 * | 
| 49 | 
  | 
 */ | 
| 50 | 
  | 
 | 
| 77 | 
  | 
#include <qhull/stat.h> | 
| 78 | 
  | 
} | 
| 79 | 
  | 
 | 
| 80 | 
– | 
/* Old options Qt Qu Qg QG0 FA */ | 
| 81 | 
– | 
/* More old opts Qc Qi Pp*/ | 
| 82 | 
– | 
 | 
| 80 | 
  | 
ConvexHull::ConvexHull() : Hull(), dim_(3), options_("qhull Qt Pp") { | 
| 81 | 
  | 
} | 
| 82 | 
  | 
 | 
| 123 | 
  | 
  int nproc = MPI::COMM_WORLD.Get_size(); | 
| 124 | 
  | 
  int myrank = MPI::COMM_WORLD.Get_rank(); | 
| 125 | 
  | 
  int localHullSites = 0; | 
| 126 | 
< | 
  int* hullSitesOnProc = new int[nproc]; | 
| 127 | 
< | 
  int* coordsOnProc = new int[nproc]; | 
| 128 | 
< | 
  int* displacements = new int[nproc]; | 
| 129 | 
< | 
  int* vectorDisplacements = new int[nproc]; | 
| 126 | 
> | 
 | 
| 127 | 
> | 
  std::vector<int> hullSitesOnProc(nproc, 0); | 
| 128 | 
> | 
  std::vector<int> coordsOnProc(nproc, 0); | 
| 129 | 
> | 
  std::vector<int> displacements(nproc, 0); | 
| 130 | 
> | 
  std::vector<int> vectorDisplacements(nproc, 0); | 
| 131 | 
  | 
 | 
| 132 | 
  | 
  std::vector<double> coords; | 
| 133 | 
  | 
  std::vector<double> vels; | 
| 275 | 
  | 
  volume_ = qh totvol; | 
| 276 | 
  | 
  area_ = qh totarea; | 
| 277 | 
  | 
 | 
| 280 | 
– | 
#ifdef IS_MPI | 
| 281 | 
– | 
  delete [] hullSitesOnProc; | 
| 282 | 
– | 
  delete [] coordsOnProc; | 
| 283 | 
– | 
  delete [] displacements; | 
| 284 | 
– | 
  delete [] vectorDisplacements; | 
| 285 | 
– | 
#endif | 
| 286 | 
– | 
   | 
| 278 | 
  | 
  qh_freeqhull(!qh_ALL); | 
| 279 | 
  | 
  qh_memfreeshort(&curlong, &totlong); | 
| 280 | 
  | 
  if (curlong || totlong) | 
| 283 | 
  | 
} | 
| 284 | 
  | 
 | 
| 285 | 
  | 
void ConvexHull::printHull(const std::string& geomFileName) { | 
| 286 | 
+ | 
 | 
| 287 | 
+ | 
#ifdef IS_MPI | 
| 288 | 
+ | 
  if (worldRank == 0)  { | 
| 289 | 
+ | 
#endif | 
| 290 | 
  | 
  FILE *newGeomFile; | 
| 291 | 
  | 
   | 
| 292 | 
  | 
  //create new .md file based on old .md file | 
| 296 | 
  | 
    qh_printfacets(newGeomFile, qh PRINTout[i], qh facet_list, NULL, !qh_ALL); | 
| 297 | 
  | 
   | 
| 298 | 
  | 
  fclose(newGeomFile); | 
| 299 | 
+ | 
#ifdef IS_MPI | 
| 300 | 
+ | 
  } | 
| 301 | 
+ | 
#endif | 
| 302 | 
  | 
} | 
| 303 | 
  | 
#endif //QHULL |