accuracy parameter in variable declaration missing

Signed-off-by: Marcel Müller <marcel.mueller@thch.uni-bonn.de>
grimme-lab · Oct 6, 2023 · 871d37d · 871d37d
1 parent 0813880
commit 871d37d
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)