/home/eoseret/qaas_runs_CPU_9468/171-148-3214/intel/CoMD/build/CoMD/CoMD/src-openmp/timestep.c: 107 - 116
--------------------------------------------------------------------------------

107:    #pragma omp parallel for reduction(+:kenergy)
108:    for (int iBox=0; iBox<s->boxes->nLocalBoxes; iBox++)
109:    {
110:       for (int iOff=MAXATOMS*iBox,ii=0; ii<s->boxes->nAtoms[iBox]; ii++,iOff++)
111:       {
112:          int iSpecies = s->atoms->iSpecies[iOff];
113:          real_t invMass = 0.5/s->species[iSpecies].mass;
114:          kenergy += ( s->atoms->p[iOff][0] * s->atoms->p[iOff][0] +
115:          s->atoms->p[iOff][1] * s->atoms->p[iOff][1] +
116:          s->atoms->p[iOff][2] * s->atoms->p[iOff][2] )*invMass;
