| 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.17 2009-10-20 20:36:56 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 | 
  | 
 | 
| 91 | 
  | 
  setT *vertices; | 
| 92 | 
  | 
  int curlong, totlong; | 
| 93 | 
  | 
   | 
| 94 | 
< | 
  std::vector<double> ptArray(numpoints*3); | 
| 98 | 
< | 
  std::vector<bool> isSurfaceID(numpoints);  | 
| 94 | 
> | 
  std::vector<double> ptArray(numpoints*dim_); | 
| 95 | 
  | 
 | 
| 96 | 
  | 
  // Copy the positon vector into a points vector for qhull. | 
| 97 | 
  | 
  std::vector<StuntDouble*>::iterator SD; | 
| 123 | 
  | 
  int nproc = MPI::COMM_WORLD.Get_size(); | 
| 124 | 
  | 
  int myrank = MPI::COMM_WORLD.Get_rank(); | 
| 125 | 
  | 
  int localHullSites = 0; | 
| 130 | 
– | 
  int* hullSitesOnProc = new int[nproc]; | 
| 131 | 
– | 
  int* coordsOnProc = new int[nproc]; | 
| 132 | 
– | 
  int* displacements = new int[nproc]; | 
| 133 | 
– | 
  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; | 
| 134 | 
< | 
  std::vector<int> objectIDs; | 
| 134 | 
> | 
  std::vector<int> indexMap; | 
| 135 | 
  | 
  std::vector<double> masses; | 
| 136 | 
  | 
 | 
| 137 | 
  | 
  FORALLvertices{ | 
| 138 | 
  | 
    localHullSites++; | 
| 139 | 
  | 
     | 
| 140 | 
  | 
    int idx = qh_pointid(vertex->point); | 
| 141 | 
+ | 
 | 
| 142 | 
+ | 
    indexMap.push_back(idx); | 
| 143 | 
+ | 
 | 
| 144 | 
  | 
    coords.push_back(ptArray[dim_  * idx]); | 
| 145 | 
  | 
    coords.push_back(ptArray[dim_  * idx + 1]); | 
| 146 | 
  | 
    coords.push_back(ptArray[dim_  * idx + 2]); | 
| 155 | 
  | 
    masses.push_back(sd->getMass()); | 
| 156 | 
  | 
  } | 
| 157 | 
  | 
 | 
| 158 | 
– | 
 | 
| 159 | 
– | 
 | 
| 158 | 
  | 
  MPI::COMM_WORLD.Allgather(&localHullSites, 1, MPI::INT, &hullSitesOnProc[0], | 
| 159 | 
  | 
                            1, MPI::INT); | 
| 160 | 
  | 
 | 
| 161 | 
  | 
  int globalHullSites = 0; | 
| 162 | 
  | 
  for (int iproc = 0; iproc < nproc; iproc++){ | 
| 165 | 
– | 
    std::cerr << "iproc = " << iproc << " sites = " << hullSitesOnProc[iproc] << "\n"; | 
| 163 | 
  | 
    globalHullSites += hullSitesOnProc[iproc]; | 
| 164 | 
  | 
    coordsOnProc[iproc] = dim_ * hullSitesOnProc[iproc]; | 
| 165 | 
  | 
  } | 
| 172 | 
  | 
    vectorDisplacements[iproc] = vectorDisplacements[iproc-1] + coordsOnProc[iproc-1];  | 
| 173 | 
  | 
  } | 
| 174 | 
  | 
 | 
| 175 | 
< | 
  std::vector<double> globalCoords(dim_*globalHullSites); | 
| 176 | 
< | 
  std::vector<double> globalVels(dim_*globalHullSites); | 
| 175 | 
> | 
  std::vector<double> globalCoords(dim_ * globalHullSites); | 
| 176 | 
> | 
  std::vector<double> globalVels(dim_ * globalHullSites); | 
| 177 | 
  | 
  std::vector<double> globalMasses(globalHullSites); | 
| 178 | 
+ | 
 | 
| 179 | 
  | 
  int count = coordsOnProc[myrank]; | 
| 180 | 
  | 
   | 
| 181 | 
< | 
  MPI::COMM_WORLD.Allgatherv(&coords[0], count, MPI::DOUBLE, | 
| 182 | 
< | 
                             &globalCoords[0], &coordsOnProc[0], &vectorDisplacements[0], | 
| 181 | 
> | 
  MPI::COMM_WORLD.Allgatherv(&coords[0], count, MPI::DOUBLE, &globalCoords[0], | 
| 182 | 
> | 
                             &coordsOnProc[0], &vectorDisplacements[0],  | 
| 183 | 
  | 
                             MPI::DOUBLE); | 
| 184 | 
  | 
 | 
| 185 | 
< | 
  MPI::COMM_WORLD.Allgatherv(&vels[0], count, MPI::DOUBLE, | 
| 186 | 
< | 
                             &globalVels[0], &coordsOnProc[0], &vectorDisplacements[0], | 
| 185 | 
> | 
  MPI::COMM_WORLD.Allgatherv(&vels[0], count, MPI::DOUBLE, &globalVels[0],  | 
| 186 | 
> | 
                             &coordsOnProc[0], &vectorDisplacements[0], | 
| 187 | 
  | 
                             MPI::DOUBLE); | 
| 188 | 
  | 
 | 
| 189 | 
  | 
  MPI::COMM_WORLD.Allgatherv(&masses[0], localHullSites, MPI::DOUBLE, | 
| 190 | 
< | 
                             &globalMasses[0], &hullSitesOnProc[0], &displacements[0], | 
| 191 | 
< | 
                             MPI::DOUBLE); | 
| 190 | 
> | 
                             &globalMasses[0], &hullSitesOnProc[0],  | 
| 191 | 
> | 
                             &displacements[0], MPI::DOUBLE); | 
| 192 | 
  | 
 | 
| 193 | 
  | 
  // Free previous hull | 
| 194 | 
  | 
  qh_freeqhull(!qh_ALL); | 
| 226 | 
  | 
    Vector3d faceVel = V3Zero; | 
| 227 | 
  | 
    Vector3d p[3]; | 
| 228 | 
  | 
    RealType faceMass = 0.0; | 
| 229 | 
+ | 
 | 
| 230 | 
  | 
    int ver = 0; | 
| 231 | 
  | 
 | 
| 232 | 
  | 
    FOREACHvertex_(vertices){ | 
| 244 | 
  | 
                     globalVels[dim_ * id + 2]); | 
| 245 | 
  | 
      mass = globalMasses[id]; | 
| 246 | 
  | 
 | 
| 247 | 
< | 
      // localID will be between 0 and hullSitesOnProc[myrank] if we own this guy. | 
| 247 | 
> | 
      // localID will be between 0 and hullSitesOnProc[myrank] if we | 
| 248 | 
> | 
      // own this guy. | 
| 249 | 
> | 
 | 
| 250 | 
  | 
      int localID = id - displacements[myrank]; | 
| 251 | 
< | 
      if (id >= 0 && id < hullSitesOnProc[myrank]) | 
| 252 | 
< | 
        face.addVertexSD(bodydoubles[localID]); | 
| 253 | 
< | 
      else | 
| 254 | 
< | 
        face.addVertexSD(NULL); | 
| 251 | 
> | 
 | 
| 252 | 
> | 
      if (localID >= 0 && localID < hullSitesOnProc[myrank]) | 
| 253 | 
> | 
        face.addVertexSD(bodydoubles[indexMap[localID]]); | 
| 254 | 
> | 
       | 
| 255 | 
  | 
#else | 
| 256 | 
  | 
      vel = bodydoubles[id]->getVel(); | 
| 257 | 
  | 
      mass = bodydoubles[id]->getMass(); | 
| 275 | 
  | 
  volume_ = qh totvol; | 
| 276 | 
  | 
  area_ = qh totarea; | 
| 277 | 
  | 
 | 
| 277 | 
– | 
#ifdef IS_MPI | 
| 278 | 
– | 
  delete [] hullSitesOnProc; | 
| 279 | 
– | 
  delete [] coordsOnProc; | 
| 280 | 
– | 
  delete [] displacements; | 
| 281 | 
– | 
  delete [] vectorDisplacements; | 
| 282 | 
– | 
#endif | 
| 283 | 
– | 
   | 
| 278 | 
  | 
  qh_freeqhull(!qh_ALL); | 
| 279 | 
  | 
  qh_memfreeshort(&curlong, &totlong); | 
| 280 | 
  | 
  if (curlong || totlong) | 
| 282 | 
  | 
              << totlong << curlong << std::endl;     | 
| 283 | 
  | 
} | 
| 284 | 
  | 
 | 
| 291 | 
– | 
 | 
| 292 | 
– | 
 | 
| 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 |