Commit b9e3749b authored by Gregor Michalicek's avatar Gregor Michalicek

Introduced dropping of FleurInputSchema.xsd whenever inp.xml is read.

This is introduced to guarantee that inp.xml can always be validated
against the Schema file belonging to the right fleur version.
parent 0d8520bb
......@@ -40,7 +40,6 @@ SUBROUTINE r_inpXML(&
USE m_efield
USE m_writegw
USE m_apwsdim
USE m_setlomap
USE m_enpara, ONLY : r_enpara
......@@ -115,7 +114,7 @@ SUBROUTINE r_inpXML(&
INTEGER :: iType, iLO, iSpecies, lNumCount, nNumCount, iLLO, jsp, j, l
INTEGER :: numberNodes, nodeSum, numSpecies, n2spg, n1, n2, ikpt, iqpt
INTEGER :: atomicNumber, coreStates, gridPoints, lmax, lnonsphr, lmaxAPW
INTEGER :: latticeDef, symmetryDef, nop48, firstAtomOfType
INTEGER :: latticeDef, symmetryDef, nop48, firstAtomOfType, errorStatus
INTEGER :: loEDeriv, ntp1, ios, ntst, jrc, minNeigd, providedCoreStates, providedStates
INTEGER :: nv, nv2, kq1, kq2, kq3, nprncTemp, kappaTemp
INTEGER :: ldau_l
......@@ -154,6 +153,19 @@ SUBROUTINE r_inpXML(&
EXTERNAL prp_xcfft_box
function dropInputSchema() bind(C, name="dropInputSchema")
use iso_c_binding
INTEGER(c_int) dropInputSchema
end function dropInputSchema
end interface
errorStatus = 0
errorStatus = dropInputSchema()
IF(errorStatus.NE.0) THEN
STOP 'Error: Cannot print out FleurInputSchema.xsd'
schemaFilename = "FleurInputSchema.xsd"//C_NULL_CHAR
docFilename = "inp.xml"//C_NULL_CHAR
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment