Line data    Source code

       1             : module m_fleur_dropxmlschema
       2             :     implicit none
       3             :     private
       4             :     public fleur_dropxmlschema
       5             :   contains
       6          80 :     subroutine fleur_dropxmlschema()
       7             :       use m_juDFT
       8             :       use m_types_xml
       9             :       use iso_c_binding
      10             : 
      11             :       CHARACTER(LEN=200, KIND=c_char) :: versionString
      12             :       type(t_xml)::xml
      13             : 
      14          80 :       if (.NOT. judft_was_argument("-dropXMLSchema")) return
      15           0 :       write(versionString,'(a,i0)') '0.', xml%currentversionNumber
      16           0 :       call drop_schema_files(versionString, versionString)
      17             : 
      18           0 :       CALL juDFT_end("XML Schema files written")
      19          80 :     end subroutine
      20             : 
      21             : end module