accuracy parameter in variable declaration missing (grimme-lab#882)

Signed-off-by: Marcel Müller <marcel.mueller@thch.uni-bonn.de> Signed-off-by: Johannes Gorges <58849467+gorges97@users.noreply.github.com>
gorges97 · Mar 27, 2024 · 6b0f495 · 6b0f495
1 parent 6f0009f
commit 6b0f495
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/oniom.f90 b/src/oniom.f90
@@ -994,8 +994,8 @@ end subroutine new_atom
 subroutine new_coordinates(xyz)
 
    implicit none
-   real, allocatable :: xyz(:,:)
-   real, allocatable :: tmp1(:,:)
+   real(wp), allocatable :: xyz(:,:)
+   real(wp), allocatable :: tmp1(:,:)
    integer :: atom_num
 
    atom_num = size(xyz, 2)