| 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 |
|
|
| 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 |
|
} |