Changeset 249 for XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axisgroup_interface.f90

Timestamp:

07/06/11 13:55:03 (13 years ago)

Author:

hozdoba

Message:

Ajout d'une partie d'Interface fortran pour la version 4
Ajout des sorties netcdf4 pour la version 4

File:

• XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axisgroup_interface.f90 (modified) (3 diffs)

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

@@ -7 +7 @@
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name
-         INTEGER  (kind = C_INT)                   :: name_size
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
+         INTEGER  (kind = C_INT)     , VALUE       :: name_size
       END SUBROUTINE xios_set_axisgroup_name
 
       SUBROUTINE xios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
          USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: standard_name
-         INTEGER  (kind = C_INT)                   :: standard_name_size
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
+         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
       END SUBROUTINE xios_set_axisgroup_standard_name
 
       SUBROUTINE xios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
          USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name
-         INTEGER  (kind = C_INT)                   :: long_name_size
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
+         INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
       END SUBROUTINE xios_set_axisgroup_long_name
 
       SUBROUTINE xios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
          USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: unit
-         INTEGER  (kind = C_INT)                   :: unit_size
+         INTEGER  (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
+         INTEGER  (kind = C_INT)     , VALUE        :: unit_size
       END SUBROUTINE xios_set_axisgroup_unit
 
@@ -35 +35 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
-         INTEGER (kind = C_INT)             :: size
+         INTEGER (kind = C_INT)     , VALUE :: size
       END SUBROUTINE xios_set_axisgroup_size
 
@@ -42 +42 @@
          INTEGER (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl
          REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: zvalue
-         INTEGER (kind = C_INT)                    :: zvalue_extent1
+         INTEGER (kind = C_INT)     , VALUE        :: zvalue_extent1
       END SUBROUTINE xios_set_axisgroup_zvalue