From 6514eb3d356c29b0bd32b98b089d3281358aa4e8 Mon Sep 17 00:00:00 2001 From: Alfio Lazzaro Date: Fri, 25 Aug 2017 09:54:42 +0000 Subject: [PATCH] fix one more valgrind problems with uninitialised values, by specifying ALLOCATABLE arrays svn-origin-rev: 18026 --- src/generic_os_integrals.F | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/generic_os_integrals.F b/src/generic_os_integrals.F index c6f62ca45f..786db87210 100644 --- a/src/generic_os_integrals.F +++ b/src/generic_os_integrals.F @@ -255,9 +255,10 @@ CONTAINS ! ************************************************************************************************** SUBROUTINE int_overlap_ab_os(sab, dsab, rab, fba, fbb, calculate_forces, debug, dmax) - REAL(KIND=dp), DIMENSION(:, :), INTENT(INOUT) :: sab - REAL(KIND=dp), DIMENSION(:, :, :), INTENT(INOUT), & - OPTIONAL :: dsab + REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :), & + INTENT(INOUT) :: sab + REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :, :), & + INTENT(INOUT), OPTIONAL :: dsab REAL(KIND=dp), DIMENSION(3), INTENT(IN) :: rab TYPE(gto_basis_set_type), POINTER :: fba, fbb LOGICAL, INTENT(IN) :: calculate_forces, debug