202 |
|
|
203 |
|
void DumpWriter::writeCommentLine(std::ostream& os, Snapshot* s) { |
204 |
|
|
205 |
< |
double currentTime; |
205 |
> |
RealType currentTime; |
206 |
|
Mat3x3d hmat; |
207 |
< |
double chi; |
208 |
< |
double integralOfChiDt; |
207 |
> |
RealType chi; |
208 |
> |
RealType integralOfChiDt; |
209 |
|
Mat3x3d eta; |
210 |
|
|
211 |
|
currentTime = s->getTime(); |
347 |
|
int myPotato; |
348 |
|
int nProc; |
349 |
|
int which_node; |
350 |
< |
double atomData[19]; |
350 |
> |
RealType atomData[19]; |
351 |
|
int isDirectional; |
352 |
|
char MPIatomTypeString[MINIBUFFERSIZE]; |
353 |
|
int msgLen; // the length of message actually recieved at master nodes |
422 |
|
|
423 |
|
myPotato++; |
424 |
|
|
425 |
< |
MPI_Recv(atomData, 19, MPI_DOUBLE, which_node, myPotato, |
425 |
> |
MPI_Recv(atomData, 19, MPI_REALTYPE, which_node, myPotato, |
426 |
|
MPI_COMM_WORLD, &istatus); |
427 |
|
myPotato++; |
428 |
|
|
429 |
< |
MPI_Get_count(&istatus, MPI_DOUBLE, &msgLen); |
429 |
> |
MPI_Get_count(&istatus, MPI_REALTYPE, &msgLen); |
430 |
|
|
431 |
|
if (msgLen == 13 || msgLen == 19) |
432 |
|
isDirectional = 1; |
483 |
|
} |
484 |
|
} |
485 |
|
|
486 |
< |
sprintf(writeLine, "\n"); |
487 |
< |
os << writeLine; |
486 |
> |
os << writeLine << "\n"; |
487 |
|
|
488 |
|
} // end for(int l =0) |
489 |
|
|
605 |
|
} |
606 |
|
} |
607 |
|
|
608 |
< |
sprintf(writeLine, "\n"); |
610 |
< |
os << writeLine; |
608 |
> |
os << writeLine << "\n"; |
609 |
|
|
610 |
|
} //end for(iter = integrableObject.begin()) |
611 |
|
} |
724 |
|
myPotato++; |
725 |
|
|
726 |
|
if (isDirectional && needForceVector_) { |
727 |
< |
MPI_Send(atomData, 19, MPI_DOUBLE, 0, myPotato, |
727 |
> |
MPI_Send(atomData, 19, MPI_REALTYPE, 0, myPotato, |
728 |
|
MPI_COMM_WORLD); |
729 |
|
} else if (isDirectional) { |
730 |
< |
MPI_Send(atomData, 13, MPI_DOUBLE, 0, myPotato, |
730 |
> |
MPI_Send(atomData, 13, MPI_REALTYPE, 0, myPotato, |
731 |
|
MPI_COMM_WORLD); |
732 |
|
} else if (needForceVector_) { |
733 |
< |
MPI_Send(atomData, 12, MPI_DOUBLE, 0, myPotato, |
733 |
> |
MPI_Send(atomData, 12, MPI_REALTYPE, 0, myPotato, |
734 |
|
MPI_COMM_WORLD); |
735 |
|
} else { |
736 |
< |
MPI_Send(atomData, 6, MPI_DOUBLE, 0, myPotato, |
736 |
> |
MPI_Send(atomData, 6, MPI_REALTYPE, 0, myPotato, |
737 |
|
MPI_COMM_WORLD); |
738 |
|
} |
739 |
|
|