Changed after reviews of .cpp files

Author: roseane-reis

src/empole_chgpen_acc.cpp

@@ -13,7 +13,6 @@ namespace tinker {
 #define DEVICE_PTRS                                                            \
    x, y, z, demx, demy, demz, rpole, pcore, pval, palpha, pot, nem, em,        \
       vir_em, trqx, trqy, trqz
-// TODO: HIPPO not reviewed
 template <class Ver, class ETYP, bool CFLX>
 void empole_chgpen_acc1()
 {
@@ -414,7 +413,6 @@ void empole_generic_ewald_recip_acc()
 }
 
 
-// TODO: HIPPO not reviewed
 void empole_chgpen_nonewald_acc(int vers, int use_cf)
 {
    if (use_cf) {
@@ -451,7 +449,6 @@ void empole_chgpen_nonewald_acc(int vers, int use_cf)
 }
 
 
-// TODO: HIPPO not reviewed
 void empole_chgpen_ewald_real_self_acc(int vers, int use_cf)
 {
    if (use_cf) {

src/epolar_chgpen_acc.cpp

@@ -14,7 +14,6 @@ namespace tinker {
 #define POLAR_DPTRS                                                            \
    x, y, z, depx, depy, depz, rpole, pcore, pval, palpha, pot, uind, nep, ep,  \
       vir_ep, ufld, dufld
-// TODO: HIPPO not reviewed
 template <class Ver, class ETYP, bool CFLX>
 void epolar_chgpen_acc1(const real (*uind)[3])
 {
@@ -667,7 +666,6 @@ void epolar_chgpen_ewald_recip_self_acc1(const real (*gpu_uind)[3])
 }
 
 
-// TODO: HIPPO not reviewed
 void epolar_chgpen_nonewald_acc(int vers, int use_cf, const real (*uind)[3])
 {
    if (use_cf) {

src/field_chgpen_acc.cpp

@@ -13,7 +13,6 @@
 namespace tinker {
 // see also subroutine udirect2b / dfield_chgpen0c in induce.f
 #define DFIELD_DPTRS x, y, z, pcore, pval, palpha, field, rpole
-// TODO: HIPPO not reviewed
 template <class ETYP>
 void dfield_chgpen_acc1(real (*field)[3])
 {
@@ -198,7 +197,6 @@ void ufield_chgpen_ewald_recip_self_acc(const real (*uind)[3], real (*field)[3])
 }
 
 #define UFIELD_DPTRS x, y, z, pcore, pval, palpha, field, uind
-// TODO: HIPPO not reviewed
 template <class ETYP>
 void ufield_chgpen_acc1(const real (*uind)[3], real (*field)[3])
 {

src/induce_donly_acc.cpp

@@ -18,7 +18,6 @@
 #include <tinker/detail/units.hh>
 
 namespace tinker {
-// TODO: HIPPO not reviewed
 void diag_precond2(const real (*rsd)[3], real (*zrsd)[3])
 {
    #pragma acc parallel loop independent async\
@@ -32,7 +31,6 @@ void diag_precond2(const real (*rsd)[3], real (*zrsd)[3])
 }
 
 #define APPLY_DPTRS rsd, zrsd, x, y, z, polarity, palpha
-// TODO: HIPPO not reviewed
 void sparse_precond_apply2_acc(const real (*rsd)[3], real (*zrsd)[3])
 {
    #pragma acc parallel loop independent async\
@@ -183,7 +181,6 @@ void sparse_precond_apply2_acc(const real (*rsd)[3], real (*zrsd)[3])
  * conj = p
  * vec = T P
  */
-// TODO: HIPPO not reviewed
 void induce_mutual_pcg2_acc(real (*uind)[3])
 {
    auto* field = work01_;
@@ -340,7 +337,7 @@ void induce_mutual_pcg2_acc(real (*uind)[3])
 
       // calculate/update p
       #pragma acc parallel loop independent async\
-                  deviceptr(conj,zrsd,rsd)
+                  deviceptr(conj,zrsd)
       for (int i = 0; i < n; ++i) {
          #pragma acc loop seq
          for (int j = 0; j < 3; ++j)