From 9da477df4a564a35881f83d4acd7ba09cf700abd Mon Sep 17 00:00:00 2001 From: Thomas3R <39367840+Thomas3R@users.noreply.github.com> Date: Thu, 19 Sep 2024 12:48:35 +0200 Subject: [PATCH] Update src/set_module.f90 Co-authored-by: Marcel Mueller --- src/set_module.f90 | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/src/set_module.f90 b/src/set_module.f90 index d91a47ef5..dd5f93ca2 100644 --- a/src/set_module.f90 +++ b/src/set_module.f90 @@ -1510,15 +1510,11 @@ subroutine alloc_ffnb(env, fname) character(len=*),intent(in) :: fname character(len=*), parameter :: source = 'alloc_ffnb' character(len=:),allocatable :: line - integer :: copy, err - integer :: id, ie - logical :: is_ffnb_block - ! character,private,parameter :: flag = '$' ! is defined for this module - integer :: n_changes ! number of atoms that neigh%nb should be adjusted for - - copy=-1 ! do not copy the control file - n_changes = 0 - is_ffnb_block = .false. + + integer :: id, ie, err + logical :: is_ffnb_block = .false. + integer :: copy = -1 + integer :: n_changes = 0 ! number of atoms that neigh%nb should be adjusted for call open_file(id,fname,'r') if (id.eq.-1) then