jianmu
/
lammps
forked from lijiext/lammps
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@8351 f3b2605a-c512-4ea7-a41b-209d697bcdaa

This commit is contained in:
sjplimp 2012-06-20 14:08:33 +00:00
parent e2d32549ab
commit f55e618e9e
4 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/USER-OMP/fix_shear_history_omp.cpp
View File

@ -147,5 +147,6 @@ void FixShearHistoryOMP::pre_exchange()
int flag_all;
MPI_Allreduce(&flag,&flag_all,1,MPI_INT,MPI_SUM,world);
if (flag_all) error->all(FLERR,"Too many touching neighbors - boost MAXTOUCH");
if (flag_all)
error->all(FLERR,"Too many touching neighbors - boost MAXTOUCH");
}

8
src/USER-OMP/fix_wall_gran_omp.cpp
View File

@ -23,8 +23,7 @@
using namespace LAMMPS_NS;
using namespace FixConst;
enum{XPLANE,YPLANE,ZPLANE,ZCYLINDER}; // XYZ PLANE need to be 0,1,2
enum{XPLANE=0,YPLANE=1,ZPLANE=2,ZCYLINDER}; // XYZ PLANE need to be 0,1,2
enum{HOOKE,HOOKE_HISTORY,HERTZ_HISTORY};
#define BIG 1.0e20
@ -75,8 +74,7 @@ void FixWallGranOMP::post_force(int vflag)
const int * const mask = atom->mask;
const int nlocal = atom->nlocal;
if (update->ntimestep > laststep) shearupdate = 1;
else shearupdate = 0;
shearupdate = (update->setupflag) ? 0 : 1;
int i;
#if defined(_OPENMP)
@ -140,8 +138,6 @@ void FixWallGranOMP::post_force(int vflag)
}
}
}
laststep = update->ntimestep;
}
/* ---------------------------------------------------------------------- */

6
src/USER-OMP/pair_gran_hertz_history_omp.cpp
View File

@ -41,12 +41,13 @@ void PairGranHertzHistoryOMP::compute(int eflag, int vflag)
ev_setup(eflag,vflag);
} else evflag = vflag_fdotr = 0;
const int shearupdate = (update->ntimestep > laststep) ? 1 : 0;
const int nall = atom->nlocal + atom->nghost;
const int nthreads = comm->nthreads;
const int inum = list->inum;
computeflag = 1;
const int shearupdate = (update->setupflag) ? 0 : 1;
#if defined(_OPENMP)
#pragma omp parallel default(none) shared(eflag,vflag)
#endif
@ -66,7 +67,6 @@ void PairGranHertzHistoryOMP::compute(int eflag, int vflag)
reduce_thr(this, eflag, vflag, thr);
} // end of omp parallel region
laststep = update->ntimestep;
}
template <int EVFLAG, int SHEARUPDATE>

6
src/USER-OMP/pair_gran_hooke_history_omp.cpp
View File

@ -46,7 +46,8 @@ void PairGranHookeHistoryOMP::compute(int eflag, int vflag)
ev_setup(eflag,vflag);
} else evflag = vflag_fdotr = 0;
const int shearupdate = (update->ntimestep > laststep) ? 1 : 0;
computeflag = 1;
const int shearupdate = (update->setupflag) ? 0 : 1;
const int nall = atom->nlocal + atom->nghost;
const int nthreads = comm->nthreads;
@ -71,7 +72,6 @@ void PairGranHookeHistoryOMP::compute(int eflag, int vflag)
reduce_thr(this, eflag, vflag, thr);
} // end of omp parallel region
laststep = update->ntimestep;
}
template <int EVFLAG, int SHEARUPDATE>
@ -89,7 +89,7 @@ void PairGranHookeHistoryOMP::eval(int iifrom, int iito, ThrData * const thr)
double shrmag,rsht;
int *ilist,*jlist,*numneigh,**firstneigh;
int *touch,**firsttouch;
double *shear,*allshear,**firstshear;
double *allshear,**firstshear;
const double * const * const x = atom->x;
const double * const * const v = atom->v;