| 1 | 
  | 
/* | 
| 2 | 
< | 
 * Copyright (c) 2005 The University of Notre Dame. All Rights Reserved. | 
| 2 | 
> | 
 * Copyright (c) 2009 The University of Notre Dame. All Rights Reserved. | 
| 3 | 
  | 
 * | 
| 4 | 
  | 
 * The University of Notre Dame grants you ("Licensee") a | 
| 5 | 
  | 
 * non-exclusive, royalty free, license to use, modify and | 
| 6 | 
  | 
 * redistribute this software in source and binary code form, provided | 
| 7 | 
  | 
 * that the following conditions are met: | 
| 8 | 
  | 
 * | 
| 9 | 
< | 
 * 1. Acknowledgement of the program authors must be made in any | 
| 10 | 
< | 
 *    publication of scientific results based in part on use of the | 
| 11 | 
< | 
 *    program.  An acceptable form of acknowledgement is citation of | 
| 12 | 
< | 
 *    the article in which the program was described (Matthew | 
| 13 | 
< | 
 *    A. Meineke, Charles F. Vardeman II, Teng Lin, Christopher | 
| 14 | 
< | 
 *    J. Fennell and J. Daniel Gezelter, "OOPSE: An Object-Oriented | 
| 15 | 
< | 
 *    Parallel Simulation Engine for Molecular Dynamics," | 
| 16 | 
< | 
 *    J. Comput. Chem. 26, pp. 252-271 (2005)) | 
| 17 | 
< | 
 * | 
| 18 | 
< | 
 * 2. Redistributions of source code must retain the above copyright | 
| 9 | 
> | 
 * 1. Redistributions of source code must retain the above copyright | 
| 10 | 
  | 
 *    notice, this list of conditions and the following disclaimer. | 
| 11 | 
  | 
 * | 
| 12 | 
< | 
 * 3. Redistributions in binary form must reproduce the above copyright | 
| 12 | 
> | 
 * 2. Redistributions in binary form must reproduce the above copyright | 
| 13 | 
  | 
 *    notice, this list of conditions and the following disclaimer in the | 
| 14 | 
  | 
 *    documentation and/or other materials provided with the | 
| 15 | 
  | 
 *    distribution. | 
| 28 | 
  | 
 * arising out of the use of or inability to use software, even if the | 
| 29 | 
  | 
 * University of Notre Dame has been advised of the possibility of | 
| 30 | 
  | 
 * such damages. | 
| 31 | 
+ | 
 * | 
| 32 | 
+ | 
 * SUPPORT OPEN SCIENCE!  If you use OpenMD or its source code in your | 
| 33 | 
+ | 
 * research, please cite the appropriate papers when you publish your | 
| 34 | 
+ | 
 * work.  Good starting points are: | 
| 35 | 
+ | 
 *                                                                       | 
| 36 | 
+ | 
 * [1]  Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).              | 
| 37 | 
+ | 
 * [2]  Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).           | 
| 38 | 
+ | 
 * [3]  Sun, Lin & Gezelter, J. Chem. Phys. 128, 24107 (2008).           | 
| 39 | 
+ | 
 * [4]  Vardeman & Gezelter, in progress (2009).                         | 
| 40 | 
  | 
 */ | 
| 41 | 
  | 
  | 
| 42 | 
  | 
#include "io/DumpWriter.hpp" | 
| 50 | 
  | 
#include <mpi.h> | 
| 51 | 
  | 
#endif //is_mpi | 
| 52 | 
  | 
 | 
| 53 | 
< | 
namespace oopse { | 
| 53 | 
> | 
namespace OpenMD { | 
| 54 | 
  | 
 | 
| 55 | 
  | 
  DumpWriter::DumpWriter(SimInfo* info)  | 
| 56 | 
  | 
    : info_(info), filename_(info->getDumpFileName()), eorFilename_(info->getFinalConfigFileName()){ | 
| 194 | 
  | 
    os << "    <FrameData>\n"; | 
| 195 | 
  | 
 | 
| 196 | 
  | 
    RealType currentTime = s->getTime(); | 
| 197 | 
< | 
    sprintf(buffer, "        Time: %.10g\n", time); | 
| 197 | 
> | 
    sprintf(buffer, "        Time: %.10g\n", currentTime); | 
| 198 | 
  | 
    os << buffer; | 
| 199 | 
  | 
 | 
| 200 | 
  | 
    Mat3x3d hmat; | 
| 234 | 
  | 
 | 
| 235 | 
  | 
#ifndef IS_MPI | 
| 236 | 
  | 
    os << "  <Snapshot>\n"; | 
| 237 | 
< | 
 | 
| 237 | 
> | 
  | 
| 238 | 
  | 
    writeFrameProperties(os, info_->getSnapshotManager()->getCurrentSnapshot()); | 
| 239 | 
  | 
 | 
| 240 | 
  | 
    os << "    <StuntDoubles>\n"; | 
| 241 | 
  | 
    for (mol = info_->beginMolecule(mi); mol != NULL; mol = info_->nextMolecule(mi)) { | 
| 242 | 
  | 
 | 
| 243 | 
< | 
      for (integrableObject = mol->beginIntegrableObject(ii); integrableObject != NULL;  | 
| 243 | 
> | 
       | 
| 244 | 
> | 
      for (integrableObject = mol->beginIntegrableObject(ii); integrableObject != NULL;   | 
| 245 | 
  | 
           integrableObject = mol->nextIntegrableObject(ii)) {   | 
| 246 | 
< | 
        os << prepareDumpLine(integrableObject); | 
| 247 | 
< | 
 | 
| 246 | 
> | 
          os << prepareDumpLine(integrableObject); | 
| 247 | 
> | 
           | 
| 248 | 
  | 
      } | 
| 249 | 
  | 
    }     | 
| 250 | 
  | 
    os << "    </StuntDoubles>\n"; | 
| 251 | 
< | 
 | 
| 251 | 
> | 
     | 
| 252 | 
  | 
    os << "  </Snapshot>\n"; | 
| 253 | 
  | 
 | 
| 254 | 
  | 
    os.flush(); | 
| 256 | 
  | 
    //every node prepares the dump lines for integrable objects belong to itself | 
| 257 | 
  | 
    std::string buffer; | 
| 258 | 
  | 
    for (mol = info_->beginMolecule(mi); mol != NULL; mol = info_->nextMolecule(mi)) { | 
| 259 | 
< | 
       | 
| 259 | 
> | 
 | 
| 260 | 
> | 
 | 
| 261 | 
  | 
      for (integrableObject = mol->beginIntegrableObject(ii); integrableObject != NULL;  | 
| 262 | 
  | 
           integrableObject = mol->nextIntegrableObject(ii)) {   | 
| 263 | 
< | 
        buffer += prepareDumpLine(integrableObject); | 
| 263 | 
> | 
          buffer += prepareDumpLine(integrableObject); | 
| 264 | 
  | 
      } | 
| 265 | 
  | 
    } | 
| 266 | 
  | 
     | 
| 269 | 
  | 
    if (worldRank == masterNode) {       | 
| 270 | 
  | 
      os << "  <Snapshot>\n";    | 
| 271 | 
  | 
      writeFrameProperties(os, info_->getSnapshotManager()->getCurrentSnapshot()); | 
| 270 | 
– | 
      os << buffer;      | 
| 272 | 
  | 
      os << "    <StuntDoubles>\n"; | 
| 273 | 
  | 
         | 
| 274 | 
+ | 
      os << buffer; | 
| 275 | 
+ | 
 | 
| 276 | 
  | 
      int nProc; | 
| 277 | 
  | 
      MPI_Comm_size(MPI_COMM_WORLD, &nProc); | 
| 278 | 
  | 
      for (int i = 1; i < nProc; ++i) { | 
| 284 | 
  | 
        MPI_Recv(&recvLength, 1, MPI_INT, i, 0, MPI_COMM_WORLD, &istatus); | 
| 285 | 
  | 
        char* recvBuffer = new char[recvLength]; | 
| 286 | 
  | 
        if (recvBuffer == NULL) { | 
| 284 | 
– | 
                         | 
| 287 | 
  | 
        } else { | 
| 288 | 
< | 
          MPI_Recv(&recvBuffer, recvLength, MPI_CHAR, i, 0, MPI_COMM_WORLD, &istatus); | 
| 288 | 
> | 
          MPI_Recv(recvBuffer, recvLength, MPI_CHAR, i, 0, MPI_COMM_WORLD, &istatus); | 
| 289 | 
  | 
          os << recvBuffer; | 
| 290 | 
< | 
          delete recvBuffer; | 
| 290 | 
> | 
          delete [] recvBuffer; | 
| 291 | 
  | 
        } | 
| 290 | 
– | 
             | 
| 292 | 
  | 
      }  | 
| 293 | 
  | 
      os << "    </StuntDoubles>\n"; | 
| 294 | 
  | 
       | 
| 295 | 
  | 
      os << "  </Snapshot>\n"; | 
| 296 | 
  | 
      os.flush(); | 
| 297 | 
  | 
    } else { | 
| 298 | 
< | 
      int sendBufferLength = buffer.size(); | 
| 298 | 
> | 
      int sendBufferLength = buffer.size() + 1; | 
| 299 | 
  | 
      MPI_Send(&sendBufferLength, 1, MPI_INT, masterNode, 0, MPI_COMM_WORLD); | 
| 300 | 
< | 
      MPI_Send((void *)buffer.c_str(), sendBufferLength, MPI_CHAR, masterNode, 0, MPI_COMM_WORLD);                               | 
| 300 | 
> | 
      MPI_Send((void *)buffer.c_str(), sendBufferLength, MPI_CHAR, masterNode, 0, MPI_COMM_WORLD); | 
| 301 | 
  | 
    } | 
| 302 | 
  | 
 | 
| 303 | 
  | 
#endif // is_mpi | 
| 315 | 
  | 
    Vector3d vel; | 
| 316 | 
  | 
    pos = integrableObject->getPos(); | 
| 317 | 
  | 
    vel = integrableObject->getVel();            | 
| 318 | 
< | 
    sprintf(tempBuffer, "%18.10g\t%18.10g\t%18.10g\t%14.10g\t%14.10g\t%14.10g",  | 
| 318 | 
> | 
    sprintf(tempBuffer, "%18.10g %18.10g %18.10g %13e %13e %13e",  | 
| 319 | 
  | 
            pos[0], pos[1], pos[2], | 
| 320 | 
  | 
            vel[0], vel[1], vel[2]);                     | 
| 321 | 
  | 
    line += tempBuffer; | 
| 326 | 
  | 
      Vector3d ji; | 
| 327 | 
  | 
      q = integrableObject->getQ(); | 
| 328 | 
  | 
      ji = integrableObject->getJ(); | 
| 329 | 
< | 
      sprintf(tempBuffer, "\t%14.10g\t%14.10g\t%14.10g\t%14.10g\t%14.10g\t%14.10g\t%14.10g", | 
| 329 | 
> | 
      sprintf(tempBuffer, " %13e %13e %13e %13e %13e %13e %13e", | 
| 330 | 
  | 
              q[0], q[1], q[2], q[3], | 
| 331 | 
  | 
              ji[0], ji[1], ji[2]); | 
| 332 | 
  | 
      line += tempBuffer; | 
| 339 | 
  | 
      frc = integrableObject->getFrc(); | 
| 340 | 
  | 
      trq = integrableObject->getTrq(); | 
| 341 | 
  | 
               | 
| 342 | 
< | 
      sprintf(tempBuffer, "\t%14.10g\t%14.10g\t%14.10g\t%14.10g\t%14.10g\t%14.10g", | 
| 342 | 
> | 
      sprintf(tempBuffer, " %13e %13e %13e %13e %13e %13e", | 
| 343 | 
  | 
              frc[0], frc[1], frc[2], | 
| 344 | 
  | 
              trq[0], trq[1], trq[2]); | 
| 345 | 
  | 
      line += tempBuffer; | 
| 346 | 
  | 
    } | 
| 347 | 
  | 
         | 
| 348 | 
< | 
    sprintf(tempBuffer, "%d\t%s\t%s\n", index, type.c_str(), line.c_str()); | 
| 348 | 
> | 
    sprintf(tempBuffer, "%10d %7s %s\n", index, type.c_str(), line.c_str()); | 
| 349 | 
  | 
    return std::string(tempBuffer); | 
| 350 | 
  | 
  } | 
| 351 | 
  | 
 | 
| 426 | 
  | 
    newOStream = new std::ofstream(filename.c_str()); | 
| 427 | 
  | 
#endif | 
| 428 | 
  | 
    //write out MetaData first | 
| 429 | 
< | 
    (*newOStream) << "<OOPSE version=4>" << std::endl; | 
| 429 | 
> | 
    (*newOStream) << "<OpenMD version=1>" << std::endl; | 
| 430 | 
  | 
    (*newOStream) << "  <MetaData>" << std::endl; | 
| 431 | 
  | 
    (*newOStream) << info_->getRawMetaData(); | 
| 432 | 
  | 
    (*newOStream) << "  </MetaData>" << std::endl; | 
| 435 | 
  | 
 | 
| 436 | 
  | 
  void DumpWriter::writeClosing(std::ostream& os) { | 
| 437 | 
  | 
 | 
| 438 | 
< | 
    os << "</OOPSE>\n"; | 
| 438 | 
> | 
    os << "</OpenMD>\n"; | 
| 439 | 
  | 
    os.flush(); | 
| 440 | 
  | 
  } | 
| 441 | 
  | 
 | 
| 442 | 
< | 
}//end namespace oopse | 
| 442 | 
> | 
}//end namespace OpenMD |