ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small corrections in the DIFFRACTION package, mostly cosmetic

Browse Source
This commit is contained in:
Axel Kohlmeyer
2024-09-02 06:26:27 -04:00
parent 1b5413189d
commit 7c80b00f23
3 changed files with 15 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/DIFFRACTION/compute_saed.cpp
View File

@ -401,7 +401,7 @@ void ComputeSAED::compute_vector()
// Setting up OMP
#if defined(_OPENMP)
if (me == 0 && echo) utils::logmesg(lmp," using {}OMP threads\n",comm->nthreads);
if (me == 0 && echo) utils::logmesg(lmp," using {} OMP thread(s)\n",comm->nthreads);
#endif
if (me == 0 && echo) utils::logmesg(lmp,"\n");
@ -478,7 +478,7 @@ void ComputeSAED::compute_vector()
}
}
} // End of pragma omp for region
delete [] f;
delete[] f;
}
auto scratch = new double[2*nRows];
@ -499,10 +499,10 @@ void ComputeSAED::compute_vector()
utils::logmesg(lmp," 100% \nTime elapsed during compute_saed = {:.2f} sec "
"using {:.2f} Mbytes/processor\n-----\n", t2-t0, bytes/1024.0/1024.0);
delete [] xlocal;
delete [] typelocal;
delete [] scratch;
delete [] Fvec;
delete[] xlocal;
delete[] typelocal;
delete[] scratch;
delete[] Fvec;
}
/* ----------------------------------------------------------------------

12
src/DIFFRACTION/compute_xrd.cpp
View File

@ -332,7 +332,7 @@ void ComputeXRD::compute_array()
// Setting up OMP
#if defined(_OPENMP)
if ((me == 0) && echo) utils::logmesg(lmp," using {} OMP threads\n",comm->nthreads);
if ((me == 0) && echo) utils::logmesg(lmp," using {} OMP thread(s)\n",comm->nthreads);
#endif
if ((me == 0) && echo) {
@ -482,7 +482,7 @@ void ComputeXRD::compute_array()
}
} // End of pragma omp for region
} // End of if LP=1 check
delete [] f;
delete[] f;
} // End of pragma omp parallel region
auto scratch = new double[2*size_array_rows];
@ -503,10 +503,10 @@ void ComputeXRD::compute_array()
utils::logmesg(lmp," 100% \nTime elapsed during compute_xrd = {:.2f} sec "
"using {:.2f} Mbytes/processor\n-----\n", t2-t0, bytes/1024.0/1024.0);
delete [] scratch;
delete [] Fvec;
delete [] xlocal;
delete [] typelocal;
delete[] scratch;
delete[] Fvec;
delete[] xlocal;
delete[] typelocal;
}
/* ----------------------------------------------------------------------

5
src/DIFFRACTION/fix_saed_vtk.cpp
View File

@ -114,6 +114,7 @@ FixSAEDVTK::FixSAEDVTK(LAMMPS *lmp, int narg, char **arg) :
memory->create(vector_total,nrows,"saed/vtk:vector_total");
vector_flag = 1;
extvector = 0;
size_vector = nrows;
if (nOutput == 0) {
@ -248,8 +249,8 @@ FixSAEDVTK::FixSAEDVTK(LAMMPS *lmp, int narg, char **arg) :
FixSAEDVTK::~FixSAEDVTK()
{
delete [] filename;
delete [] ids;
delete[] filename;
delete[] ids;
memory->destroy(vector);
memory->destroy(vector_total);
if (fp && comm->me == 0) fclose(fp);