accuracy parameter in variable declaration missing (#882)

Signed-off-by: Marcel Müller <[email protected]>
grimme-lab · Oct 6, 2023 · 82e5569 · 82e5569
1 parent 0813880
commit 82e5569
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)