Changeset 286 for XMLIO_V2/dev/common/src/xmlio/fortran/axis_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/axis_interface.f90 (modified) (1 diff)

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

@@ -4 +4 @@
    INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
      
-      SUBROUTINE xios_set_axis_name(axis_hdl, name, name_size) BIND(C)
+      SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: axis_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
          INTEGER  (kind = C_INT)     , VALUE        :: name_size
-      END SUBROUTINE xios_set_axis_name
+      END SUBROUTINE cxios_set_axis_name
 
-      SUBROUTINE xios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
+      SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE        :: axis_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
          INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
-      END SUBROUTINE xios_set_axis_standard_name
+      END SUBROUTINE cxios_set_axis_standard_name
 
-      SUBROUTINE xios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
+      SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE       :: axis_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
          INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
-      END SUBROUTINE xios_set_axis_long_name
+      END SUBROUTINE cxios_set_axis_long_name
 
-      SUBROUTINE xios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
+      SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE       :: axis_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
          INTEGER  (kind = C_INT)     , VALUE        :: unit_size
-      END SUBROUTINE xios_set_axis_unit
+      END SUBROUTINE cxios_set_axis_unit
 
-      SUBROUTINE xios_set_axis_size(axis_hdl, size) BIND(C)
+      SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C)
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
          INTEGER (kind = C_INT)     , VALUE :: size
-      END SUBROUTINE xios_set_axis_size
+      END SUBROUTINE cxios_set_axis_size
 
-      SUBROUTINE xios_set_axis_zvalue(axis_hdl, zvalue, zvalue_extent1) BIND(C)
+      SUBROUTINE cxios_set_axis_zvalue(axis_hdl, zvalue, zvalue_extent1) BIND(C)
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE        :: axis_hdl
          REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: zvalue
          INTEGER (kind = C_INT)     , VALUE        :: zvalue_extent1
-      END SUBROUTINE xios_set_axis_zvalue
+      END SUBROUTINE cxios_set_axis_zvalue
       
-      SUBROUTINE xios_axis_handle_create(ret, idt, idt_size) BIND(C)
+      SUBROUTINE cxios_axis_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_axis_handle_create
+      END SUBROUTINE cxios_axis_handle_create
 
-      SUBROUTINE xios_axis_valid_id(ret, idt, idt_size) BIND(C)
+      SUBROUTINE cxios_axis_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_axis_valid_id
+      END SUBROUTINE cxios_axis_valid_id
 
    END INTERFACE