From 0ce9bb042a2eebb5e1b50453c02bac89b53d7282 Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi <p.giannozzi@gmail.com>
Date: Thu, 24 Mar 2022 14:57:58 +0100
Subject: [PATCH] Temporary fix for "-D__outfoxed" option. NOTE: 1) some
 routines in this module are redundant, should be replaced by existing ones 2)
 module input_parameters should never be used after data are read

---
 PP/src/globalmod.f90 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/PP/src/globalmod.f90 b/PP/src/globalmod.f90
index c13bf9203..ea169134e 100644
--- a/PP/src/globalmod.f90
+++ b/PP/src/globalmod.f90
@@ -44,7 +44,13 @@ subroutine read_xml_input ()
 ! 
 use qes_read_module,  ONLY : qes_read 
 use qes_types_module, ONLY : band_structure_type, atomic_structure_type, symmetries_type, basis_set_type
-use fox_dom 
+#if defined (__outfoxed)
+  USE     dom,   ONLY : parseFile, item, getElementsByTagname, &
+                        destroy
+#else
+  USE FoX_dom,   ONLY : parseFile, item, getElementsByTagname, &
+                        destroy
+#endif
 use input_parameters, ONLY : nkstot 
 implicit none
   integer :: iq