source: XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90 @ 131

! --------------------------------------------------- !
! ------------- XMLIO SERVER MAIN TEST  ------------- !
! --------------------------------------------------- !

MODULE XML
   INTERFACE

      SUBROUTINE xios_xml_Parse_File(filename)
         CHARACTER*(*), INTENT(IN) :: filename
      END SUBROUTINE xios_xml_Parse_File

      SUBROUTINE xios_xml_Parse_String(xmlcontent)
         CHARACTER*(*), INTENT(IN) :: xmlcontent
      END SUBROUTINE xios_xml_Parse_String

   END INTERFACE
END MODULE XML

PROGRAM MAIN
   USE XML
   IMPLICIT NONE

   CHARACTER(LEN = 100):: filename

   filename = "/local/XMLIOSERVER_DEV/dev_rv/test/iodef_simple_test.xml"

   CALL xios_xml_Parse_File(filename)

END PROGRAM MAIN