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

fix failing unit tests with OpenCL

Browse Source
This commit is contained in:
Axel Kohlmeyer
2023-02-06 18:40:59 -05:00
parent b501d4226a
commit acf7f9184d
2 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/gpu/lal_colloid.cu
View File

@ -123,10 +123,10 @@ __kernel void k_colloid(const __global numtyp4 *restrict x_,
K[6] = K[2]-r;
K[7] = ucl_recip(K[3]*K[4]);
K[8] = ucl_recip(K[5]*K[6]);
g[0] = ucl_powr(K[3],(numtyp)-7.0);
g[1] = -ucl_powr(-K[4],(numtyp)-7.0);
g[2] = ucl_powr(K[5],(numtyp)-7.0);
g[3] = -ucl_powr(-K[6],(numtyp)-7.0);
g[0] = (numtyp)1.0/(K[3]*K[3]*K[3]*K[3]*K[3]*K[3]*K[3]); // ucl_powr(K[3],(numtyp)-7.0);
g[1] = (numtyp)1.0/(K[4]*K[4]*K[4]*K[4]*K[4]*K[4]*K[4]); //-ucl_powr(-K[4],(numtyp)-7.0);
g[2] = (numtyp)1.0/(K[5]*K[5]*K[5]*K[5]*K[5]*K[5]*K[5]); // ucl_powr(K[5],(numtyp)-7.0);
g[3] = (numtyp)1.0/(K[6]*K[6]*K[6]*K[6]*K[6]*K[6]*K[6]); //-ucl_powr(-K[6],(numtyp)-7.0);
h[0] = ((K[3]+(numtyp)5.0*K[1])*K[3]+(numtyp)30.0*K[0])*g[0];
h[1] = ((K[4]+(numtyp)5.0*K[1])*K[4]+(numtyp)30.0*K[0])*g[1];
h[2] = ((K[5]+(numtyp)5.0*K[2])*K[5]-(numtyp)30.0*K[0])*g[2];
@ -290,10 +290,10 @@ __kernel void k_colloid_fast(const __global numtyp4 *restrict x_,
K[6] = K[2]-r;
K[7] = ucl_recip(K[3]*K[4]);
K[8] = ucl_recip(K[5]*K[6]);
g[0] = ucl_powr(K[3],(numtyp)-7.0);
g[1] = -ucl_powr(-K[4],(numtyp)-7.0);
g[2] = ucl_powr(K[5],(numtyp)-7.0);
g[3] = -ucl_powr(-K[6],(numtyp)-7.0);
g[0] = (numtyp)1.0/(K[3]*K[3]*K[3]*K[3]*K[3]*K[3]*K[3]); // ucl_powr(K[3],(numtyp)-7.0);
g[1] = (numtyp)1.0/(K[4]*K[4]*K[4]*K[4]*K[4]*K[4]*K[4]); //-ucl_powr(-K[4],(numtyp)-7.0);
g[2] = (numtyp)1.0/(K[5]*K[5]*K[5]*K[5]*K[5]*K[5]*K[5]); // ucl_powr(K[5],(numtyp)-7.0);
g[3] = (numtyp)1.0/(K[6]*K[6]*K[6]*K[6]*K[6]*K[6]*K[6]); //-ucl_powr(-K[6],(numtyp)-7.0);
h[0] = ((K[3]+(numtyp)5.0*K[1])*K[3]+(numtyp)30.0*K[0])*g[0];
h[1] = ((K[4]+(numtyp)5.0*K[1])*K[4]+(numtyp)30.0*K[0])*g[1];
h[2] = ((K[5]+(numtyp)5.0*K[2])*K[5]-(numtyp)30.0*K[0])*g[2];