Changeset 131 for XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90

Timestamp:

10/13/10 15:25:55 (14 years ago)

Author:

hozdoba

Message:

Début Interface c<->fortran

File:

• XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90

@@ -1 @@
-PROGRAM main
+! --------------------------------------------------- !
+! ------------- 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
 
-   CALL main_c
+   CHARACTER(LEN = 100):: filename
 
-END PROGRAM main
+   filename = "/local/XMLIOSERVER_DEV/dev_rv/test/iodef_simple_test.xml"
+
+   CALL xios_xml_Parse_File(filename)
+
+END PROGRAM MAIN