Changeset 269 for XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/ixml_tree.f90

Timestamp:

09/13/11 12:04:39 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/ixml_tree.f90 (modified) (10 diffs)

XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/ixml_tree.f90

@@ -10 +10 @@
      
       SUBROUTINE xios_xml_tree_add_field(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -18 +18 @@
       
       SUBROUTINE xios_xml_tree_add_grid(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -26 +26 @@
       
       SUBROUTINE xios_xml_tree_add_file(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -34 +34 @@
       
       SUBROUTINE xios_xml_tree_add_axis(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -42 +42 @@
       
       SUBROUTINE xios_xml_tree_add_domain(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -50 +50 @@
       
       SUBROUTINE xios_xml_tree_add_fieldtofile(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -58 +58 @@
       
       SUBROUTINE xios_xml_tree_add_fieldgrouptofile(parent_, child_, child_id, child_id_size) BIND(C)
-         import C_CHAR, C_INT, C_INTPTR_T
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_
          INTEGER  (kind = C_INTPTR_T)               :: child_
@@ -66 +66 @@
 
       SUBROUTINE xios_xml_tree_show(filename, filename_size) BIND(C)
-         import C_CHAR, C_INT
+         USE ISO_C_BINDING
          CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename
          INTEGER  (kind = C_INT) , VALUE        :: filename_size
@@ -72 +72 @@
 
       SUBROUTINE xios_xml_parse_file(filename, filename_size) BIND(C)
-         import C_CHAR, C_INT
+         USE ISO_C_BINDING
          CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename
          INTEGER  (kind = C_INT) , VALUE        :: filename_size
@@ -78 +78 @@
 
       SUBROUTINE xios_xml_parse_string(xmlcontent, xmlcontent_size) BIND(C)
-         import C_CHAR, C_INT
+         USE ISO_C_BINDING
          CHARACTER(kind = C_CHAR), DIMENSION(*) :: xmlcontent
          INTEGER  (kind = C_INT) , VALUE        :: xmlcontent_size