From 91be8820e6fcfd99820cc9fd6f7e56c8d4270ded Mon Sep 17 00:00:00 2001
From: eginer <giner.emmanuel@gmail.com>
Date: Mon, 25 Nov 2024 17:55:27 +0100
Subject: [PATCH] moved the use_pw in ao_one_e_ints

---
 src/ao_one_e_ints/aos_cgtos.irp.f             | 20 +++++++++++++++++++
 .../two_e_coul_integrals_cgtos.irp.f          | 20 -------------------
 2 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/src/ao_one_e_ints/aos_cgtos.irp.f b/src/ao_one_e_ints/aos_cgtos.irp.f
index 62c312f8..7b2dde7f 100644
--- a/src/ao_one_e_ints/aos_cgtos.irp.f
+++ b/src/ao_one_e_ints/aos_cgtos.irp.f
@@ -282,3 +282,23 @@ END_PROVIDER
 
 
 
+! ---
+
+BEGIN_PROVIDER [logical, use_pw]
+
+  implicit none
+
+  logical :: exist
+
+  use_pw = .false.
+
+  call ezfio_has_ao_basis_ao_expo_pw(exist)
+  if(exist) then
+    PROVIDE ao_expo_pw_ord_transp
+    if(maxval(dabs(ao_expo_pw_ord_transp(4,:,:))) .gt. 1d-15) use_pw = .true.
+  endif
+
+END_PROVIDER
+
+! ---
+
diff --git a/src/ao_two_e_ints/two_e_coul_integrals_cgtos.irp.f b/src/ao_two_e_ints/two_e_coul_integrals_cgtos.irp.f
index a7521b78..30e4824a 100644
--- a/src/ao_two_e_ints/two_e_coul_integrals_cgtos.irp.f
+++ b/src/ao_two_e_ints/two_e_coul_integrals_cgtos.irp.f
@@ -1672,23 +1672,3 @@ recursive subroutine I_x2_pol_mult_cgtos(c, B_10, B_01, B_00, C_00, D_00, d, nd,
 
 end
 
-! ---
-
-BEGIN_PROVIDER [logical, use_pw]
-
-  implicit none
-
-  logical :: exist
-
-  use_pw = .false.
-
-  call ezfio_has_ao_basis_ao_expo_pw(exist)
-  if(exist) then
-    PROVIDE ao_expo_pw_ord_transp
-    if(maxval(dabs(ao_expo_pw_ord_transp(4,:,:))) .gt. 1d-15) use_pw = .true.
-  endif
-
-END_PROVIDER
-
-! ---
-