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
This commit is contained in:
Paolo Giannozzi 2022-03-24 14:57:58 +01:00
parent 6028a6a018
commit 0ce9bb042a
1 changed files with 7 additions and 1 deletions

View File

@ -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