From 1f6142594d85c77e89357d554b916572c2960629 Mon Sep 17 00:00:00 2001
From: "Igor S. Gerasimov" <i.s.ger@ya.ru>
Date: Sat, 1 Feb 2025 03:59:19 +0100
Subject: [PATCH] Fix multiple open of xtbscreen.xyz in local.f90 (xtb/iff
 test)

Signed-off-by: Igor S. Gerasimov <i.s.ger@ya.ru>
---
 src/local.f90 | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/local.f90 b/src/local.f90
index 3b81dbdaa..733b9aa52 100644
--- a/src/local.f90
+++ b/src/local.f90
@@ -494,14 +494,12 @@ subroutine local(nat,at,nbf,nao,ihomo,xyz,z,focc,s,p,cmo,eig,q,etot,gbsa,basis,r
          enddo
       enddo
       new=k
-
-      if(set%pr_local) then 
-      call close_file(iscreen)
-      end if
       deallocate(wbo)
 
-
    endif
+
+   if(set%pr_local) call close_file(iscreen)
+
    !ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
    !> If the normal xtb mode is used with --lmo, set%pr_local is true and