| 68 | 
  | 
namespace oopse { | 
| 69 | 
  | 
   | 
| 70 | 
  | 
  RestReader::RestReader( SimInfo* info ) : info_(info){ | 
| 71 | 
< | 
         | 
| 71 | 
> | 
     | 
| 72 | 
  | 
    idealName = "idealCrystal.in"; | 
| 73 | 
  | 
     | 
| 74 | 
  | 
    isScanned = false; | 
| 92 | 
  | 
            "File \"idealCrystal.in\" opened successfully for reading." ); | 
| 93 | 
  | 
    MPIcheckPoint(); | 
| 94 | 
  | 
#endif | 
| 95 | 
+ | 
 | 
| 96 | 
  | 
    return;   | 
| 97 | 
  | 
  } | 
| 98 | 
  | 
   | 
| 226 | 
  | 
 | 
| 227 | 
  | 
    nTotObjs = info_->getNGlobalIntegrableObjects(); | 
| 228 | 
  | 
    haveError = 0; | 
| 229 | 
< | 
     | 
| 229 | 
> | 
 | 
| 230 | 
  | 
    if (worldRank == masterNode) { | 
| 231 | 
  | 
      eof_test = fgets(read_buffer, sizeof(read_buffer), inIdealFile); | 
| 232 | 
  | 
      if( eof_test == NULL ){ | 
| 259 | 
  | 
        painCave.isFatal = 1; | 
| 260 | 
  | 
        simError(); | 
| 261 | 
  | 
      } | 
| 262 | 
< | 
       | 
| 262 | 
> | 
 | 
| 263 | 
  | 
      for (i=0 ; i < info_->getNGlobalMolecules(); i++) { | 
| 264 | 
  | 
        int which_node = info_->getMolToProc(i); | 
| 265 | 
  | 
         | 
| 270 | 
  | 
           | 
| 271 | 
  | 
          if(mol == NULL) { | 
| 272 | 
  | 
            sprintf(painCave.errMsg,  | 
| 273 | 
< | 
                   "RestReader Error: Molecule not found on node %d!\n", | 
| 274 | 
< | 
                   worldRank); | 
| 273 | 
> | 
                    "RestReader Error: Molecule not found on node %d!\n", | 
| 274 | 
> | 
                    worldRank); | 
| 275 | 
  | 
            painCave.isFatal = 1; | 
| 276 | 
  | 
            simError(); | 
| 277 | 
  | 
          } | 
| 291 | 
  | 
              painCave.isFatal = 1; | 
| 292 | 
  | 
              simError(); | 
| 293 | 
  | 
            } | 
| 294 | 
< | 
             | 
| 295 | 
< | 
            parseIdealLine(read_buffer, integrableObjects[j]); | 
| 294 | 
> | 
         | 
| 295 | 
> | 
            parseIdealLine(read_buffer, integrableObject); | 
| 296 | 
> | 
         | 
| 297 | 
  | 
          } | 
| 298 | 
  | 
        } else { | 
| 299 | 
  | 
          //molecule belongs to slave nodes | 
| 366 | 
  | 
     | 
| 367 | 
  | 
    char *foo; // the pointer to the current string token | 
| 368 | 
  | 
     | 
| 369 | 
< | 
    double pos[3];        // position place holders | 
| 370 | 
< | 
    double q[4];          // the quaternions | 
| 371 | 
< | 
    double RfromQ[3][3];  // the rotation matrix  | 
| 372 | 
< | 
    double normalize;     // to normalize the reference unit vector | 
| 373 | 
< | 
    double uX, uY, uZ;    // reference unit vector place holders | 
| 374 | 
< | 
    double uselessToken; | 
| 369 | 
> | 
    RealType pos[3];        // position place holders | 
| 370 | 
> | 
    RealType q[4];          // the quaternions | 
| 371 | 
> | 
    RealType RfromQ[3][3];  // the rotation matrix  | 
| 372 | 
> | 
    RealType normalize;     // to normalize the reference unit vector | 
| 373 | 
> | 
    RealType uX, uY, uZ;    // reference unit vector place holders | 
| 374 | 
> | 
    RealType uselessToken; | 
| 375 | 
  | 
    StringTokenizer tokenizer(readLine); | 
| 376 | 
  | 
    int nTokens; | 
| 377 | 
  | 
     | 
| 378 | 
  | 
    nTokens = tokenizer.countTokens(); | 
| 379 | 
< | 
     | 
| 379 | 
> | 
 | 
| 380 | 
  | 
    if (nTokens < 14) { | 
| 381 | 
  | 
      sprintf(painCave.errMsg, | 
| 382 | 
  | 
              "RestReader Error: Not enough Tokens.\n"); | 
| 385 | 
  | 
    } | 
| 386 | 
  | 
     | 
| 387 | 
  | 
    std::string name = tokenizer.nextToken(); | 
| 388 | 
< | 
     | 
| 388 | 
> | 
 | 
| 389 | 
  | 
    if (name != sd->getType()) { | 
| 390 | 
  | 
       | 
| 391 | 
  | 
      sprintf(painCave.errMsg, | 
| 400 | 
  | 
    pos[0] = tokenizer.nextTokenAsDouble(); | 
| 401 | 
  | 
    pos[1] = tokenizer.nextTokenAsDouble(); | 
| 402 | 
  | 
    pos[2] = tokenizer.nextTokenAsDouble(); | 
| 403 | 
< | 
     | 
| 403 | 
> | 
 | 
| 404 | 
  | 
    // store the positions in the stuntdouble as generic data doubles | 
| 405 | 
  | 
    DoubleGenericData* refPosX = new DoubleGenericData(); | 
| 406 | 
  | 
    refPosX->setID("refPosX"); | 
| 407 | 
  | 
    refPosX->setData(pos[0]); | 
| 408 | 
  | 
    sd->addProperty(refPosX); | 
| 409 | 
< | 
     | 
| 409 | 
> | 
 | 
| 410 | 
  | 
    DoubleGenericData* refPosY = new DoubleGenericData(); | 
| 411 | 
  | 
    refPosY->setID("refPosY"); | 
| 412 | 
  | 
    refPosY->setData(pos[1]); | 
| 416 | 
  | 
    refPosZ->setID("refPosZ"); | 
| 417 | 
  | 
    refPosZ->setData(pos[2]); | 
| 418 | 
  | 
    sd->addProperty(refPosZ); | 
| 419 | 
< | 
     | 
| 419 | 
> | 
 | 
| 420 | 
  | 
    // we don't need the velocities | 
| 421 | 
  | 
    uselessToken = tokenizer.nextTokenAsDouble(); | 
| 422 | 
  | 
    uselessToken = tokenizer.nextTokenAsDouble(); | 
| 492 | 
  | 
    char *parseErr; | 
| 493 | 
  | 
     | 
| 494 | 
  | 
    std::vector<StuntDouble*> vecParticles; | 
| 495 | 
< | 
    std::vector<double> tempZangs; | 
| 495 | 
> | 
    std::vector<RealType> tempZangs; | 
| 496 | 
  | 
       | 
| 497 | 
  | 
    inAngFileName = info_->getRestFileName(); | 
| 498 | 
  | 
     | 
| 600 | 
  | 
    int index;     | 
| 601 | 
  | 
 | 
| 602 | 
  | 
    int nCurObj; | 
| 603 | 
< | 
    double angleTranfer; | 
| 603 | 
> | 
    RealType angleTranfer; | 
| 604 | 
  | 
     | 
| 605 | 
  | 
    nTotObjs = info_->getNGlobalIntegrableObjects(); | 
| 606 | 
  | 
    haveError = 0; | 
| 644 | 
  | 
        // Get the Node number which has this atom | 
| 645 | 
  | 
        which_node = info_->getMolToProc(i); | 
| 646 | 
  | 
         | 
| 647 | 
< | 
        if (worldRank == masterNode) { | 
| 647 | 
> | 
        if (which_node == masterNode) { | 
| 648 | 
  | 
          mol = info_->getMoleculeByGlobalIndex(i); | 
| 649 | 
< | 
           | 
| 649 | 
> | 
 | 
| 650 | 
  | 
          if(mol == NULL) { | 
| 651 | 
  | 
            strcpy(painCave.errMsg, "Molecule not found on node 0!"); | 
| 652 | 
  | 
            haveError = 1; | 
| 653 | 
  | 
            simError(); | 
| 654 | 
  | 
          } | 
| 655 | 
< | 
           | 
| 655 | 
> | 
 | 
| 656 | 
  | 
          for (integrableObject = mol->beginIntegrableObject(ii);  | 
| 657 | 
  | 
               integrableObject != NULL;  | 
| 658 | 
  | 
               integrableObject = mol->nextIntegrableObject(ii)){ | 
| 669 | 
  | 
           | 
| 670 | 
  | 
          for(j=0; j < nCurObj; j++){             | 
| 671 | 
  | 
            angleTransfer = tempZangs[index]; | 
| 672 | 
< | 
            MPI_Send(&angleTransfer, 1, MPI_DOUBLE, which_node,  | 
| 672 | 
> | 
            MPI_Send(&angleTransfer, 1, MPI_REALTYPE, which_node,  | 
| 673 | 
  | 
                     TAKE_THIS_TAG_DOUBLE, MPI_COMM_WORLD);                | 
| 674 | 
  | 
            index++; | 
| 675 | 
  | 
          } | 
| 704 | 
  | 
               integrableObject != NULL;  | 
| 705 | 
  | 
               integrableObject = mol->nextIntegrableObject(ii)){ | 
| 706 | 
  | 
             | 
| 707 | 
< | 
            MPI_Recv(&angleTransfer, 1, MPI_DOUBLE, 0, | 
| 707 | 
> | 
            MPI_Recv(&angleTransfer, 1, MPI_REALTYPE, 0, | 
| 708 | 
  | 
                     TAKE_THIS_TAG_DOUBLE, MPI_COMM_WORLD, &istatus); | 
| 709 | 
  | 
 | 
| 710 | 
  | 
            integrableObject->setZangle(angleTransfer); | 
| 753 | 
  | 
    MPI_Status istatus; | 
| 754 | 
  | 
     | 
| 755 | 
  | 
    int nCurObj; | 
| 756 | 
< | 
    double angleTranfer; | 
| 756 | 
> | 
    RealType angleTranfer; | 
| 757 | 
  | 
     | 
| 758 | 
  | 
    nTotObjs = info_->getNGlobalIntegrableObjects(); | 
| 759 | 
  | 
    haveError = 0; | 
| 789 | 
  | 
           | 
| 790 | 
  | 
          for(j=0; j < nCurObj; j++){             | 
| 791 | 
  | 
            angleTransfer = 0.0; | 
| 792 | 
< | 
            MPI_Send(&angleTransfer, 1, MPI_DOUBLE, which_node,  | 
| 792 | 
> | 
            MPI_Send(&angleTransfer, 1, MPI_REALTYPE, which_node,  | 
| 793 | 
  | 
                     TAKE_THIS_TAG_DOUBLE, MPI_COMM_WORLD);                | 
| 794 | 
  | 
             | 
| 795 | 
  | 
          } | 
| 822 | 
  | 
               integrableObject != NULL;  | 
| 823 | 
  | 
               integrableObject = mol->nextIntegrableObject(ii)){ | 
| 824 | 
  | 
             | 
| 825 | 
< | 
            MPI_Recv(&angleTransfer, 1, MPI_DOUBLE, 0, | 
| 825 | 
> | 
            MPI_Recv(&angleTransfer, 1, MPI_REALTYPE, 0, | 
| 826 | 
  | 
                     TAKE_THIS_TAG_DOUBLE, MPI_COMM_WORLD, &istatus); | 
| 827 | 
  | 
            vecParticles[j]->setZangle(angleTransfer); | 
| 828 | 
  | 
          }      |