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

Timestamp:

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

Author:

hozdoba

Message:

 

File:

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

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

@@ -8 +8 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: calendar_type
-         INTEGER  (kind = C_INT)                    :: calendar_type_size
+         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type_size
       END SUBROUTINE xios_set_context_calendar_type
 
@@ -15 +15 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date
-         INTEGER  (kind = C_INT)                    :: start_date_size
+         INTEGER  (kind = C_INT)     , VALUE        :: start_date_size
       END SUBROUTINE xios_set_context_start_date
 
@@ -22 +22 @@
          INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir
-         INTEGER  (kind = C_INT)                    :: output_dir_size
+         INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size
       END SUBROUTINE xios_set_context_output_dir