From 871d37d9d2d962fa27cc7b2a96d503052ce670d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marcel=20M=C3=BCller?= <marcel.mueller@thch.uni-bonn.de>
Date: Fri, 6 Oct 2023 14:35:41 +0200
Subject: [PATCH] accuracy parameter in variable declaration missing
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Marcel Müller <marcel.mueller@thch.uni-bonn.de>
---
 src/oniom.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/oniom.f90 b/src/oniom.f90
index 53f1b5a4b..90d91a014 100644
--- 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)