Fix INTENT attribute

cp2k · Aug 16, 2022 · 2174242 · 2174242
1 parent 58f0607
commit 2174242
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mp2_optimize_ri_basis.F b/src/mp2_optimize_ri_basis.F
@@ -586,7 +586,7 @@ SUBROUTINE calc_energy_func_der(Emp2, Emp2_AA, Emp2_BB, Emp2_AB, DI_ref, &
                                    p, lower_B, max_dev, &
                                    deriv)
       REAL(KIND=dp), INTENT(IN)                          :: Emp2
-      REAL(KIND=dp), INTENT(OUT)                         :: Emp2_AA, Emp2_BB, Emp2_AB
+      REAL(KIND=dp), INTENT(INOUT)                       :: Emp2_AA, Emp2_BB, Emp2_AB
       REAL(KIND=dp), INTENT(IN)                          :: DI_ref
       REAL(KIND=dp), DIMENSION(:, :, :, :), INTENT(IN)   :: Integ_MP2, Integ_MP2_AA, Integ_MP2_BB, &
                                                             Integ_MP2_AB