fix one more valgrind problems with uninitialised values, by specifying ALLOCATABLE arrays

svn-origin-rev: 18026
This commit is contained in:
Alfio Lazzaro 2017-08-25 09:54:42 +00:00
parent 5649837cad
commit 6514eb3d35

View file

@ -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