Changeset 249 for XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axis_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/axis_interface.f90 (modified) (6 diffs)

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

@@ -6 +6 @@
       SUBROUTINE xios_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)                   :: name_size
+         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
 
       SUBROUTINE xios_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)                   :: standard_name_size
+         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
 
@@ -21 +21 @@
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE       :: axis_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name
-         INTEGER  (kind = C_INT)                   :: long_name_size
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
+         INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
       END SUBROUTINE xios_set_axis_long_name
 
@@ -28 +28 @@
          USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T), VALUE       :: axis_hdl
-         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: unit
-         INTEGER  (kind = C_INT)                   :: unit_size
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
+         INTEGER  (kind = C_INT)     , VALUE        :: unit_size
       END SUBROUTINE xios_set_axis_unit
 
@@ -35 +35 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
-         INTEGER (kind = C_INT)             :: size
+         INTEGER (kind = C_INT)     , VALUE :: size
       END SUBROUTINE xios_set_axis_size
 
@@ -42 +42 @@
          INTEGER (kind = C_INTPTR_T), VALUE        :: axis_hdl
          REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: zvalue
-         INTEGER (kind = C_INT)                    :: zvalue_extent1
+         INTEGER (kind = C_INT)     , VALUE        :: zvalue_extent1
       END SUBROUTINE xios_set_axis_zvalue
       
@@ -51 +51 @@
          INTEGER  (kind = C_INT)     , VALUE        :: idt_size
       END SUBROUTINE xios_axis_handle_create
-     
+       
    END INTERFACE