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

Timestamp:

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

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/field_interface.f90 (modified) (14 diffs)

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

@@ -8 +8 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
-         INTEGER  (kind = C_INT)                    :: name_size
+         INTEGER  (kind = C_INT)     , VALUE        :: name_size
       END SUBROUTINE xios_set_field_name
 
@@ -15 +15 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
-         INTEGER  (kind = C_INT)                    :: standard_name_size
+         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
       END SUBROUTINE xios_set_field_standard_name
 
@@ -22 +22 @@
          INTEGER (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name
-         INTEGER (kind = C_INT)                    :: long_name_size
+         INTEGER (kind = C_INT)     , VALUE        :: long_name_size
       END SUBROUTINE xios_set_field_long_name
 
@@ -29 +29 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
-         INTEGER  (kind = C_INT)                    :: unit_size
+         INTEGER  (kind = C_INT)     , VALUE        :: unit_size
       END SUBROUTINE xios_set_field_unit
 
@@ -36 +36 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
-         INTEGER  (kind = C_INT)                    :: operation_size
+         INTEGER  (kind = C_INT)     , VALUE        :: operation_size
       END SUBROUTINE xios_set_field_operation
 
@@ -43 +43 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
-         INTEGER  (kind = C_INT)                    :: freq_op_size
+         INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
       END SUBROUTINE xios_set_field_freq_op
 
@@ -49 +49 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-         INTEGER (kind = C_INT)             :: level
+         INTEGER (kind = C_INT)     , VALUE :: level
       END SUBROUTINE xios_set_field_level
 
@@ -55 +55 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-         INTEGER (kind = C_INT)             :: prec
+         INTEGER (kind = C_INT)     , VALUE :: prec
       END SUBROUTINE xios_set_field_prec
 
@@ -61 +61 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-         LOGICAL (kind = C_BOOL)            :: enabled
+         LOGICAL (kind = C_BOOL)    , VALUE :: enabled
          END SUBROUTINE xios_set_field_enabled
 
@@ -68 +68 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
-         INTEGER  (kind = C_INT)                    :: domain_ref_size
+         INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
       END SUBROUTINE xios_set_field_domain_ref
 
@@ -75 +75 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
-         INTEGER  (kind = C_INT)                    :: axis_ref_size
+         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
       END SUBROUTINE xios_set_field_axis_ref
 
@@ -82 +82 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
-         INTEGER  (kind = C_INT)                    :: grid_ref_size
+         INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
       END SUBROUTINE xios_set_field_grid_ref
 
@@ -89 +89 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
-         INTEGER  (kind = C_INT)                    :: field_ref_size
+         INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
       END SUBROUTINE xios_set_field_field_ref
 
@@ -95 +95 @@
          USE ISO_C_BINDING
          INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-         REAL    (kind = C_DOUBLE)          :: default_value
+         REAL    (kind = C_DOUBLE)  , VALUE :: default_value
       END SUBROUTINE xios_set_field_default_value
    
       SUBROUTINE xios_field_handle_create(ret, idt, idt_size) BIND(C)
-         import C_CHAR, C_INTPTR_T, C_INT
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T)               :: ret
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt