Changeset 286 for XMLIO_V2/dev/common/src/xmlio/fortran/filegroup_interface.f90

Timestamp:

10/21/11 19:01:35 (13 years ago)

Author:

ymipsl

Message:

reprise en main de la version de H. Ozdoba. Correction de différentes erreurs de conception et bug.
Version NEMO operationnel en client/server, interoperabilita avec OASIS, reconstition de fichiers via netcdf4/HDF5

YM

File:

• XMLIO_V2/dev/common/src/xmlio/fortran/filegroup_interface.f90 (modified) (1 diff)

XMLIO_V2/dev/common/src/xmlio/fortran/filegroup_interface.f90

@@ -4 +4 @@
    INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
    
-      SUBROUTINE xios_set_filegroup_name(filegroup_hdl, name ,name_size) BIND(C)
+      SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name ,name_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
          INTEGER  (kind = C_INT)     , VALUE        :: name_size
-      END SUBROUTINE xios_set_filegroup_name
+      END SUBROUTINE cxios_set_filegroup_name
 
-      SUBROUTINE xios_set_filegroup_description(filegroup_hdl, description ,description_size) BIND(C)
+      SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description ,description_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
          INTEGER  (kind = C_INT)     , VALUE        :: description_size
-      END SUBROUTINE xios_set_filegroup_description
+      END SUBROUTINE cxios_set_filegroup_description
       
-      SUBROUTINE xios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C)
+      SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
          INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
-      END SUBROUTINE xios_set_filegroup_name_suffix
+      END SUBROUTINE cxios_set_filegroup_name_suffix
 
-      SUBROUTINE xios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)
+      SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
          INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
-      END SUBROUTINE xios_set_filegroup_output_freq
+      END SUBROUTINE cxios_set_filegroup_output_freq
 
-      SUBROUTINE xios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
+      SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
          INTEGER (kind = C_INT)     , VALUE :: output_level
-      END SUBROUTINE xios_set_filegroup_output_level
+      END SUBROUTINE cxios_set_filegroup_output_level
 
-      SUBROUTINE xios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
+      SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
          LOGICAL (kind = C_BOOL)    , VALUE :: enabled
-      END SUBROUTINE xios_set_filegroup_enabled
+      END SUBROUTINE cxios_set_filegroup_enabled
       
-      SUBROUTINE xios_filegroup_handle_create(ret, idt, idt_size) BIND(C)
+      SUBROUTINE cxios_filegroup_handle_create(ret, idt, idt_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T)               :: ret
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
          INTEGER  (kind = C_INT)     , VALUE        :: idt_size
-      END SUBROUTINE xios_filegroup_handle_create
+      END SUBROUTINE cxios_filegroup_handle_create
 
-      SUBROUTINE xios_filegroup_valid_id(ret, idt, idt_size) BIND(C)
+      SUBROUTINE cxios_filegroup_valid_id(ret, idt, idt_size) BIND(C)
          USE ISO_C_BINDING
          LOGICAL  (kind = C_BOOL)                   :: ret
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
          INTEGER  (kind = C_INT)     , VALUE        :: idt_size
-      END SUBROUTINE xios_filegroup_valid_id
+      END SUBROUTINE cxios_filegroup_valid_id
 
    END INTERFACE