From 6b0f495f86a07f2edbebb037951f4cae8e2a9140 Mon Sep 17 00:00:00 2001 From: Marcel Mueller <63649718+marcelmbn@users.noreply.github.com> Date: Fri, 6 Oct 2023 14:56:30 +0200 Subject: [PATCH] accuracy parameter in variable declaration missing (#882) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Marcel Müller Signed-off-by: Johannes Gorges <58849467+gorges97@users.noreply.github.com> --- 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)