1 |
< |
#include <cstdlib> |
2 |
< |
#include <cstdio> |
3 |
< |
#include <cstring> |
1 |
> |
#include <stdlib.h> |
2 |
> |
#include <stdio.h> |
3 |
> |
#include <string.h> |
4 |
|
|
5 |
|
#include <iostream> |
6 |
|
using namespace std; |
30 |
|
double mass; |
31 |
|
double lattice_constant; |
32 |
|
double eam_drho; // The distance between each of the points indexed by rho. |
33 |
+ |
double eam_rcut; // The cutoff radius for eam. |
34 |
|
double eam_dr; // The distance between each of the rho points. |
35 |
|
int eam_nrho; // Number of points indexed by rho |
36 |
|
int eam_nr; // The number of points based on r (Both Phi(r) and Rho(r)). |
36 |
– |
double eam_rcut; // The cutoff radius for eam. |
37 |
|
int eam_ident; // Atomic number |
38 |
|
int ident; |
39 |
|
int last; // 0 -> default |
76 |
|
void add( atomStruct &info, double *the_eam_rvals, |
77 |
|
double *the_eam_rhovals,double *the_eam_Frhovals ){ |
78 |
|
|
79 |
– |
int i; |
80 |
– |
|
79 |
|
// check for duplicates |
80 |
|
|
81 |
|
if( !strcmp( info.name, name ) ){ |
162 |
|
char* ffPath_env = "FORCE_PARAM_PATH"; |
163 |
|
char* ffPath; |
164 |
|
char temp[200]; |
167 |
– |
char errMsg[1000]; |
165 |
|
|
166 |
|
headAtomType = NULL; |
167 |
|
currentAtomType = NULL; |
179 |
|
// Init the atomStruct mpi type |
180 |
|
|
181 |
|
atomStruct atomProto; // mpiPrototype |
182 |
< |
int atomBC[3] = {15,4,6}; // block counts |
182 |
> |
int atomBC[3] = {15,5,5}; // block counts |
183 |
|
MPI_Aint atomDspls[3]; // displacements |
184 |
|
MPI_Datatype atomMbrTypes[3]; // member mpi types |
185 |
|
|
228 |
|
frcFile = fopen( fileName, "r" ); |
229 |
|
|
230 |
|
if( frcFile == NULL ){ |
231 |
< |
|
231 |
> |
|
232 |
|
sprintf( painCave.errMsg, |
233 |
< |
"Error opening the force field parameter file: %s\n" |
234 |
< |
"Have you tried setting the FORCE_PARAM_PATH environment " |
235 |
< |
"vairable?\n", |
233 |
> |
"Error opening the force field parameter file:\n" |
234 |
> |
"\t%s\n" |
235 |
> |
"\tHave you tried setting the FORCE_PARAM_PATH environment " |
236 |
> |
"variable?\n", |
237 |
|
fileName ); |
238 |
+ |
painCave.severity = OOPSE_ERROR; |
239 |
|
painCave.isFatal = 1; |
240 |
|
simError(); |
241 |
|
} |
269 |
|
|
270 |
|
void EAM_FF::calcRcut( void ){ |
271 |
|
|
272 |
< |
#ifdef IS_MPI |
272 |
> |
#ifdef IS_MPI |
273 |
|
double tempEamRcut = eamRcut; |
274 |
|
MPI_Allreduce( &tempEamRcut, &eamRcut, 1, MPI_DOUBLE, MPI_MAX, |
275 |
|
MPI_COMM_WORLD); |
276 |
|
#endif //is_mpi |
277 |
< |
entry_plug->setRcut(eamRcut); |
277 |
> |
entry_plug->setDefaultRcut(eamRcut); |
278 |
|
} |
279 |
|
|
280 |
|
|
304 |
|
info.last = 1; // initialize last to have the last set. |
305 |
|
// if things go well, last will be set to 0 |
306 |
|
|
308 |
– |
int i; |
307 |
|
int identNum; |
308 |
|
double *eam_rvals; // Z of r values |
309 |
|
double *eam_rhovals; // rho of r values |
409 |
|
MPIcheckPoint(); |
410 |
|
|
411 |
|
headAtomType = new LinkedAtomType; |
412 |
< |
recieveFrcStruct( &info, mpiAtomStructType ); |
412 |
> |
receiveFrcStruct( &info, mpiAtomStructType ); |
413 |
|
|
414 |
|
while( !info.last ){ |
415 |
|
|
435 |
|
|
436 |
|
MPIcheckPoint(); |
437 |
|
|
438 |
< |
recieveFrcStruct( &info, mpiAtomStructType ); |
438 |
> |
receiveFrcStruct( &info, mpiAtomStructType ); |
439 |
|
|
440 |
|
|
441 |
|
} |
451 |
|
int isDipole = 0; |
452 |
|
int isSSD = 0; |
453 |
|
int isGB = 0; |
454 |
< |
int isEAM= 1; |
454 |
> |
int isEAM = 1; |
455 |
> |
int isCharge = 0; |
456 |
|
double dipole = 0.0; |
457 |
+ |
double charge = 0.0; |
458 |
|
double eamSigma = 0.0; |
459 |
|
double eamEpslon = 0.0; |
460 |
|
|
469 |
|
&isDipole, |
470 |
|
&isGB, |
471 |
|
&isEAM, |
472 |
+ |
&isCharge, |
473 |
|
&eamEpslon, |
474 |
|
&eamSigma, |
475 |
+ |
&charge, |
476 |
|
&dipole, |
477 |
|
&isError ); |
478 |
|
if( isError ){ |
537 |
|
|
538 |
|
// initialize the atoms |
539 |
|
|
538 |
– |
|
539 |
– |
Atom* thisAtom; |
540 |
– |
|
540 |
|
for( i=0; i<nAtoms; i++ ){ |
541 |
|
|
542 |
|
currentAtomType = headAtomType->find( the_atoms[i]->getType() ); |
550 |
|
|
551 |
|
the_atoms[i]->setMass( currentAtomType->mass ); |
552 |
|
the_atoms[i]->setIdent( currentAtomType->ident ); |
554 |
– |
the_atoms[i]->setEAM(); |
555 |
– |
the_atoms[i]->setEamRcut( currentAtomType->eam_rcut); |
553 |
|
|
554 |
|
if (eamRcut < currentAtomType->eam_rcut) eamRcut = currentAtomType->eam_rcut; |
555 |
< |
|
555 |
> |
|
556 |
|
} |
557 |
|
} |
558 |
|
|
729 |
|
sprintf( painCave.errMsg, |
730 |
|
"Error opening the EAM force parameter file: %s\n" |
731 |
|
"Have you tried setting the FORCE_PARAM_PATH environment " |
732 |
< |
"vairable?\n", |
732 |
> |
"variable?\n", |
733 |
|
eamPotFile ); |
734 |
|
painCave.isFatal = 1; |
735 |
|
simError(); |
1020 |
|
myEam_rhovals[j+0] = atof( the_token ); |
1021 |
|
|
1022 |
|
// Value 2 |
1023 |
< |
if ( (the_token = strtok( eam_read_buffer, " \n\t,;")) == NULL){ |
1023 |
> |
if ( (the_token = strtok( NULL, " \n\t,;")) == NULL){ |
1024 |
|
sprintf( painCave.errMsg, |
1025 |
|
"Error parseing EAM nrho: line in %s\n", eamPotFile ); |
1026 |
|
painCave.isFatal = 1; |
1030 |
|
myEam_rhovals[j+1] = atof( the_token ); |
1031 |
|
|
1032 |
|
// Value 3 |
1033 |
< |
if ( (the_token = strtok( eam_read_buffer, " \n\t,;")) == NULL){ |
1033 |
> |
if ( (the_token = strtok( NULL, " \n\t,;")) == NULL){ |
1034 |
|
sprintf( painCave.errMsg, |
1035 |
|
"Error parseing EAM nrho: line in %s\n", eamPotFile ); |
1036 |
|
painCave.isFatal = 1; |
1040 |
|
myEam_rhovals[j+2] = atof( the_token ); |
1041 |
|
|
1042 |
|
// Value 4 |
1043 |
< |
if ( (the_token = strtok( eam_read_buffer, " \n\t,;")) == NULL){ |
1043 |
> |
if ( (the_token = strtok( NULL, " \n\t,;")) == NULL){ |
1044 |
|
sprintf( painCave.errMsg, |
1045 |
|
"Error parseing EAM nrho: line in %s\n", eamPotFile ); |
1046 |
|
painCave.isFatal = 1; |
1050 |
|
myEam_rhovals[j+3] = atof( the_token ); |
1051 |
|
|
1052 |
|
// Value 5 |
1053 |
< |
if ( (the_token = strtok( eam_read_buffer, " \n\t,;")) == NULL){ |
1053 |
> |
if ( (the_token = strtok( NULL, " \n\t,;")) == NULL){ |
1054 |
|
sprintf( painCave.errMsg, |
1055 |
|
"Error parseing EAM nrho: line in %s\n", eamPotFile ); |
1056 |
|
painCave.isFatal = 1; |
1058 |
|
} |
1059 |
|
|
1060 |
|
myEam_rhovals[j+4] = atof( the_token ); |
1061 |
< |
|
1061 |
> |
|
1062 |
|
} |
1063 |
|
*eam_rvals = myEam_rvals; |
1064 |
|
*eam_rhovals = myEam_rhovals; |