Changeset 269


Ignore:
Timestamp:
09/13/11 12:04:39 (13 years ago)
Author:
hozdoba
Message:
 
Location:
XMLIO_V2/dev/dev_rv
Files:
10 added
4 deleted
18 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_V2/dev/dev_rv/Makefile.wk

    r267 r269  
    325325 
    326326# Source de l'interface C (contenue dans dans le dossier src/iface) 
    327 ICSOURCE = interface 
     327ICSOURCE = icaxis iccontext icgrid icfield icdomain icfile icdata icdate icxml_tree  
    328328 
    329329# Sources de l'interface fortran (contenues dans le dossier src/fortran) 
    330 IFSOURCE = ixmlioserver 
     330IFSOURCE = idate                                            \ 
     331           domain_interface  domaingroup_interface idomain  \ 
     332           field_interface   fieldgroup_interface  ifield   \ 
     333           file_interface    filegroup_interface   ifile    \ 
     334           axis_interface    axisgroup_interface   iaxis    \ 
     335           grid_interface    gridgroup_interface   igrid    \ 
     336           context_interface                       icontext \ 
     337           ixml_tree idata                            
    331338 
    332339# Sources de la bibliothÚque (contenues dans le dossier src) 
     
    370377 
    371378# Source des faux clients 
    372 TSOURCE = fake_nemo fake_lmdz fake_orchidee 
     379TSOURCE = #fake_nemo fake_lmdz fake_orchidee 
    373380 
    374381# Nom du fichier contenant les points d'entrée des programmes 
     
    411418ifeq ($(VERSION), 4) 
    412419        ELEMS_CPP = object exception xml_node xml_parser inetcdf4 inetcdf4_adv onetcdf4  mpi_interface\ 
    413         attribute attribute_template attribute_map buffer circular_buffer 
     420        attribute attribute_template attribute_map buffer circular_buffer \ 
     421        icaxis iccontext icgrid icfield icdomain icfile icdata icdate icxml_tree \ 
    414422                
    415423endif 
     
    456464 
    457465.PHONY: preproc 
    458 preproc : $(PREPROC) 
     466preproc :  
     467# $(PREPROC) 
    459468 
    460469.PHONY: clean-depend 
  • XMLIO_V2/dev/dev_rv/src/xmlio/main_server.cpp

    r267 r269  
    77#include "client.hpp" 
    88#include "server.hpp" 
    9  
    10 #include "fake.hpp" 
    119 
    1210// Point d'entrée du programme principal 
     
    2624      CXIOSManager::Initialise (CXIOSManager::CLIENT_SERVER, &argc, &argv); 
    2725       
    28       //---------------------------------------------------------------------- 
    29       //CXIOSManager::AddClient("nemo"    , 4, 2, &nemo_fake_entry); 
    30       //CXIOSManager::AddClient("orchidee", 1, 1, &orchidee_fake_entry); 
    31       //CXIOSManager::AddClient("lmdz"    , 4, 2, &lmdz_fake_entry); 
    32        
     26      
    3327      CMPIManager::DispatchClient(true, comm_client, comm_client_server,  comm_server); 
    3428      CXIOSManager::RunServer("Nemo", comm_client_server, comm_server); 
  • XMLIO_V2/dev/dev_rv/src/xmlio/manager/xios_manager.cpp

    r265 r269  
    9393         
    9494         StdOStringStream oss; 
    95          oss << StdString("data/def/def_server_end.") 
     95         oss << StdString("def_server_end.") 
    9696             << CMPIManager::GetCommRank(CMPIManager::GetCommWorld()); 
    9797         CTreeManager::PrintTreeToFile(oss.str());       
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axisgroup_interface.f90

    r249 r269  
    66      SUBROUTINE xios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 
    77         USE ISO_C_BINDING 
    8          INTEGER  (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl 
     8         INTEGER  (kind = C_INTPTR_T), VALUE        :: axisgroup_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)     , VALUE       :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_axisgroup_name 
    1212 
     
    4646   
    4747      SUBROUTINE xios_axisgroup_handle_create(ret, idt, idt_size) BIND(C) 
    48          import C_CHAR, C_INTPTR_T, C_INT 
     48         USE ISO_C_BINDING 
    4949         INTEGER  (kind = C_INTPTR_T)               :: ret 
    5050         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/context_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: calendar_type 
    10          INTEGER  (kind = C_INT)                    :: calendar_type_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type_size 
    1111      END SUBROUTINE xios_set_context_calendar_type 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: start_date 
    17          INTEGER  (kind = C_INT)                    :: start_date_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: start_date_size 
    1818      END SUBROUTINE xios_set_context_start_date 
    1919 
     
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: context_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_dir 
    24          INTEGER  (kind = C_INT)                    :: output_dir_size 
     24         INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size 
    2525      END SUBROUTINE xios_set_context_output_dir 
    2626       
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/domain_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                    :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_domain_name 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    17          INTEGER  (kind = C_INT)                    :: standard_name_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    1818      END SUBROUTINE xios_set_domain_standard_name 
    1919 
     
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name 
    24          INTEGER  (kind = C_INT)                    :: long_name_size 
     24         INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    2525      END SUBROUTINE xios_set_domain_long_name 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    31          INTEGER  (kind = C_INT)                    :: domain_group_ref_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    3232      END SUBROUTINE xios_set_domain_domain_group_ref 
    3333 
     
    3535         USE ISO_C_BINDING 
    3636         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    37          INTEGER (kind = C_INT)             :: ni_glo 
     37         INTEGER (kind = C_INT)     , VALUE :: ni_glo 
    3838      END SUBROUTINE xios_set_domain_ni_glo 
    3939 
     
    4141         USE ISO_C_BINDING 
    4242         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    43          INTEGER (kind = C_INT)             :: nj_glo 
     43         INTEGER (kind = C_INT)     , VALUE :: nj_glo 
    4444      END SUBROUTINE xios_set_domain_nj_glo 
    4545 
     
    4747         USE ISO_C_BINDING 
    4848         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    49          INTEGER (kind = C_INT)             :: ibegin 
     49         INTEGER (kind = C_INT)     , VALUE :: ibegin 
    5050      END SUBROUTINE xios_set_domain_ibegin 
    5151 
     
    5353         USE ISO_C_BINDING 
    5454         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    55          INTEGER (kind = C_INT)             :: iend 
     55         INTEGER (kind = C_INT)     , VALUE :: iend 
    5656      END SUBROUTINE xios_set_domain_iend 
    5757 
     
    5959         USE ISO_C_BINDING 
    6060         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    61          INTEGER (kind = C_INT)             :: ni 
     61         INTEGER (kind = C_INT)     , VALUE :: ni 
    6262      END SUBROUTINE xios_set_domain_ni 
    6363 
     
    6565         USE ISO_C_BINDING 
    6666         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    67          INTEGER (kind = C_INT)             :: jbegin 
     67         INTEGER (kind = C_INT)     , VALUE :: jbegin 
    6868      END SUBROUTINE xios_set_domain_jbegin 
    6969 
     
    7171         USE ISO_C_BINDING 
    7272         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    73          INTEGER (kind = C_INT)             :: jend 
     73         INTEGER (kind = C_INT)     , VALUE :: jend 
    7474      END SUBROUTINE xios_set_domain_jend 
    7575 
     
    7777         USE ISO_C_BINDING 
    7878         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    79          INTEGER (kind = C_INT)             :: nj 
     79         INTEGER (kind = C_INT)     , VALUE :: nj 
    8080      END SUBROUTINE xios_set_domain_nj 
    8181 
     
    8484         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    8585         LOGICAL(kind = C_BOOL)     , DIMENSION(*) :: mask 
    86          INTEGER (kind = C_INT)                    :: mask_extent1 
    87          INTEGER (kind = C_INT)                    :: mask_extent2 
     86         INTEGER (kind = C_INT)     , VALUE        :: mask_extent1 
     87         INTEGER (kind = C_INT)     , VALUE        :: mask_extent2 
    8888      END SUBROUTINE xios_set_domain_mask 
    8989 
     
    9191         USE ISO_C_BINDING 
    9292         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    93          INTEGER (kind = C_INT)             :: data_dim 
     93         INTEGER (kind = C_INT)     , VALUE :: data_dim 
    9494      END SUBROUTINE xios_set_domain_data_dim 
    9595 
     
    9797         USE ISO_C_BINDING 
    9898         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    99          INTEGER (kind = C_INT)             :: data_ni 
     99         INTEGER (kind = C_INT)     , VALUE :: data_ni 
    100100      END SUBROUTINE xios_set_domain_data_ni 
    101101 
     
    103103         USE ISO_C_BINDING 
    104104         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    105          INTEGER (kind = C_INT)             :: data_nj 
     105         INTEGER (kind = C_INT)     , VALUE :: data_nj 
    106106      END SUBROUTINE xios_set_domain_data_nj 
    107107 
     
    109109         USE ISO_C_BINDING 
    110110         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    111          INTEGER (kind = C_INT)             :: data_ibegin 
     111         INTEGER (kind = C_INT)     , VALUE :: data_ibegin 
    112112      END SUBROUTINE xios_set_domain_data_ibegin 
    113113 
     
    115115         USE ISO_C_BINDING 
    116116         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    117          INTEGER (kind = C_INT)             :: data_jbegin 
     117         INTEGER (kind = C_INT)     , VALUE :: data_jbegin 
    118118      END SUBROUTINE xios_set_domain_data_jbegin 
    119119 
     
    121121         USE ISO_C_BINDING 
    122122         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    123          INTEGER (kind = C_INT)             :: zoom_ni 
     123         INTEGER (kind = C_INT)     , VALUE :: zoom_ni 
    124124      END SUBROUTINE xios_set_domain_zoom_ni 
    125125 
     
    127127         USE ISO_C_BINDING 
    128128         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    129          INTEGER (kind = C_INT)             :: zoom_nj 
     129         INTEGER (kind = C_INT)     , VALUE :: zoom_nj 
    130130      END SUBROUTINE xios_set_domain_zoom_nj 
    131131 
     
    133133         USE ISO_C_BINDING 
    134134         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    135          INTEGER (kind = C_INT)             :: zoom_ibegin 
     135         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin 
    136136      END SUBROUTINE xios_set_domain_zoom_ibegin 
    137137 
     
    139139         USE ISO_C_BINDING 
    140140         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    141          INTEGER (kind = C_INT)             :: zoom_jbegin 
     141         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin 
    142142      END SUBROUTINE xios_set_domain_zoom_jbegin 
    143143 
     
    145145         USE ISO_C_BINDING 
    146146         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    147          INTEGER (kind = C_INT)             :: zoom_ni_loc 
     147         INTEGER (kind = C_INT)     , VALUE :: zoom_ni_loc 
    148148      END SUBROUTINE xios_set_domain_zoom_ni_loc 
    149149 
     
    151151         USE ISO_C_BINDING 
    152152         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    153          INTEGER (kind = C_INT)             :: zoom_nj_loc 
     153         INTEGER (kind = C_INT)     , VALUE :: zoom_nj_loc 
    154154      END SUBROUTINE xios_set_domain_zoom_nj_loc 
    155155 
     
    157157         USE ISO_C_BINDING 
    158158         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    159          INTEGER (kind = C_INT)             :: zoom_ibegin_loc 
     159         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin_loc 
    160160      END SUBROUTINE xios_set_domain_zoom_ibegin_loc 
    161161 
     
    163163         USE ISO_C_BINDING 
    164164         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    165          INTEGER (kind = C_INT)             :: zoom_jbegin_loc 
     165         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin_loc 
    166166      END SUBROUTINE xios_set_domain_zoom_jbegin_loc 
    167167 
     
    169169         USE ISO_C_BINDING 
    170170         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    171          INTEGER (kind = C_INT)             :: data_n_index 
     171         INTEGER (kind = C_INT)     , VALUE :: data_n_index 
    172172      END SUBROUTINE xios_set_domain_data_n_index 
    173173 
     
    176176         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    177177         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_i_index 
    178          INTEGER (kind = C_INT)                     :: data_i_index_extent1 
     178         INTEGER (kind = C_INT)     , VALUE        :: data_i_index_extent1 
    179179      END SUBROUTINE xios_set_domain_data_i_index 
    180180 
     
    183183         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    184184         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_j_index 
    185          INTEGER (kind = C_INT)                    :: data_j_index_extent1 
     185         INTEGER (kind = C_INT)     , VALUE        :: data_j_index_extent1 
    186186      END SUBROUTINE xios_set_domain_data_j_index 
    187187 
     
    190190         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    191191         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: lonvalue 
    192          INTEGER (kind = C_INT)                    :: lonvalue_extent1 
     192         INTEGER (kind = C_INT)     , VALUE        :: lonvalue_extent1 
    193193      END SUBROUTINE xios_set_domain_lonvalue 
    194194 
     
    197197         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    198198         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: latvalue 
    199          INTEGER (kind = C_INT)                    :: latvalue_extent1 
     199         INTEGER (kind = C_INT)     , VALUE        :: latvalue_extent1 
    200200      END SUBROUTINE xios_set_domain_latvalue 
    201201        
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/domaingroup_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                    :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_domaingroup_name 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    17          INTEGER  (kind = C_INT)                    :: standard_name_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    1818      END SUBROUTINE xios_set_domaingroup_standard_name 
    1919 
     
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name 
    24          INTEGER  (kind = C_INT)                    :: long_name_size 
     24         INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    2525      END SUBROUTINE xios_set_domaingroup_long_name 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    31          INTEGER  (kind = C_INT)                    :: domain_group_ref_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    3232      END SUBROUTINE xios_set_domaingroup_domain_group_ref 
    3333 
     
    3535         USE ISO_C_BINDING 
    3636         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    37          INTEGER (kind = C_INT)             :: ni_glo 
     37         INTEGER (kind = C_INT)     , VALUE :: ni_glo 
    3838      END SUBROUTINE xios_set_domaingroup_ni_glo 
    3939 
     
    4141         USE ISO_C_BINDING 
    4242         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    43          INTEGER (kind = C_INT)             :: nj_glo 
     43         INTEGER (kind = C_INT)     , VALUE :: nj_glo 
    4444      END SUBROUTINE xios_set_domaingroup_nj_glo 
    4545 
     
    4747         USE ISO_C_BINDING 
    4848         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    49          INTEGER (kind = C_INT)             :: ibegin 
     49         INTEGER (kind = C_INT)     , VALUE :: ibegin 
    5050      END SUBROUTINE xios_set_domaingroup_ibegin 
    5151 
     
    5353         USE ISO_C_BINDING 
    5454         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    55          INTEGER (kind = C_INT)             :: iend 
     55         INTEGER (kind = C_INT)     , VALUE :: iend 
    5656      END SUBROUTINE xios_set_domaingroup_iend 
    5757 
     
    5959         USE ISO_C_BINDING 
    6060         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    61          INTEGER (kind = C_INT)             :: ni 
     61         INTEGER (kind = C_INT)     , VALUE :: ni 
    6262      END SUBROUTINE xios_set_domaingroup_ni 
    6363 
     
    6565         USE ISO_C_BINDING 
    6666         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    67          INTEGER (kind = C_INT)             :: jbegin 
     67         INTEGER (kind = C_INT)     , VALUE :: jbegin 
    6868      END SUBROUTINE xios_set_domaingroup_jbegin 
    6969 
     
    7171         USE ISO_C_BINDING 
    7272         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    73          INTEGER (kind = C_INT)             :: jend 
     73         INTEGER (kind = C_INT)     , VALUE :: jend 
    7474      END SUBROUTINE xios_set_domaingroup_jend 
    7575 
     
    7777         USE ISO_C_BINDING 
    7878         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    79          INTEGER (kind = C_INT)             :: nj 
     79         INTEGER (kind = C_INT)     , VALUE :: nj 
    8080      END SUBROUTINE xios_set_domaingroup_nj 
    8181 
     
    8484         INTEGER (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    8585         LOGICAL(kind = C_BOOL)     , DIMENSION(*) :: mask 
    86          INTEGER (kind = C_INT)                    :: mask_extent1 
    87          INTEGER (kind = C_INT)                    :: mask_extent2 
     86         INTEGER (kind = C_INT)     , VALUE        :: mask_extent1 
     87         INTEGER (kind = C_INT)     , VALUE        :: mask_extent2 
    8888      END SUBROUTINE xios_set_domaingroup_mask 
    8989 
     
    9191         USE ISO_C_BINDING 
    9292         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    93          INTEGER (kind = C_INT)             :: data_dim 
     93         INTEGER (kind = C_INT)     , VALUE :: data_dim 
    9494      END SUBROUTINE xios_set_domaingroup_data_dim 
    9595 
     
    9797         USE ISO_C_BINDING 
    9898         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    99          INTEGER (kind = C_INT)             :: data_ni 
     99         INTEGER (kind = C_INT)     , VALUE :: data_ni 
    100100      END SUBROUTINE xios_set_domaingroup_data_ni 
    101101 
     
    103103         USE ISO_C_BINDING 
    104104         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    105          INTEGER (kind = C_INT)             :: data_nj 
     105         INTEGER (kind = C_INT)     , VALUE :: data_nj 
    106106      END SUBROUTINE xios_set_domaingroup_data_nj 
    107107 
     
    109109         USE ISO_C_BINDING 
    110110         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    111          INTEGER (kind = C_INT)             :: data_ibegin 
     111         INTEGER (kind = C_INT)     , VALUE :: data_ibegin 
    112112      END SUBROUTINE xios_set_domaingroup_data_ibegin 
    113113 
     
    115115         USE ISO_C_BINDING 
    116116         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    117          INTEGER (kind = C_INT)             :: data_jbegin 
     117         INTEGER (kind = C_INT)     , VALUE  :: data_jbegin 
    118118      END SUBROUTINE xios_set_domaingroup_data_jbegin 
    119119 
     
    121121         USE ISO_C_BINDING 
    122122         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    123          INTEGER (kind = C_INT)             :: zoom_ni 
     123         INTEGER (kind = C_INT)     , VALUE :: zoom_ni 
    124124      END SUBROUTINE xios_set_domaingroup_zoom_ni 
    125125 
     
    127127         USE ISO_C_BINDING 
    128128         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    129          INTEGER (kind = C_INT)             :: zoom_nj 
     129         INTEGER (kind = C_INT)     , VALUE :: zoom_nj 
    130130      END SUBROUTINE xios_set_domaingroup_zoom_nj 
    131131 
     
    133133         USE ISO_C_BINDING 
    134134         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    135          INTEGER (kind = C_INT)             :: zoom_ibegin 
     135         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin 
    136136      END SUBROUTINE xios_set_domaingroup_zoom_ibegin 
    137137 
     
    139139         USE ISO_C_BINDING 
    140140         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    141          INTEGER (kind = C_INT)             :: zoom_jbegin 
     141         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin 
    142142      END SUBROUTINE xios_set_domaingroup_zoom_jbegin 
    143143 
     
    145145         USE ISO_C_BINDING 
    146146         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    147          INTEGER (kind = C_INT)             :: zoom_ni_loc 
     147         INTEGER (kind = C_INT)     , VALUE :: zoom_ni_loc 
    148148      END SUBROUTINE xios_set_domaingroup_zoom_ni_loc 
    149149 
     
    151151         USE ISO_C_BINDING 
    152152         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    153          INTEGER (kind = C_INT)             :: zoom_nj_loc 
     153         INTEGER (kind = C_INT)     , VALUE :: zoom_nj_loc 
    154154      END SUBROUTINE xios_set_domaingroup_zoom_nj_loc 
    155155 
     
    157157         USE ISO_C_BINDING 
    158158         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    159          INTEGER (kind = C_INT)             :: zoom_ibegin_loc 
     159         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin_loc 
    160160      END SUBROUTINE xios_set_domaingroup_zoom_ibegin_loc 
    161161 
     
    163163         USE ISO_C_BINDING 
    164164         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    165          INTEGER (kind = C_INT)             :: zoom_jbegin_loc 
     165         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin_loc 
    166166      END SUBROUTINE xios_set_domaingroup_zoom_jbegin_loc 
    167167 
     
    169169         USE ISO_C_BINDING 
    170170         INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    171          INTEGER (kind = C_INT)             :: data_n_index 
     171         INTEGER (kind = C_INT)     , VALUE :: data_n_index 
    172172      END SUBROUTINE xios_set_domaingroup_data_n_index 
    173173 
     
    176176         INTEGER (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    177177         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_i_index 
    178          INTEGER (kind = C_INT)                     :: data_i_index_extent1 
     178         INTEGER (kind = C_INT)     , VALUE        :: data_i_index_extent1 
    179179      END SUBROUTINE xios_set_domaingroup_data_i_index 
    180180 
     
    183183         INTEGER (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    184184         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_j_index 
    185          INTEGER (kind = C_INT)                    :: data_j_index_extent1 
     185         INTEGER (kind = C_INT)     , VALUE        :: data_j_index_extent1 
    186186      END SUBROUTINE xios_set_domaingroup_data_j_index 
    187187 
     
    190190         INTEGER (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    191191         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: lonvalue 
    192          INTEGER (kind = C_INT)                    :: lonvalue_extent1 
     192         INTEGER (kind = C_INT)     , VALUE        :: lonvalue_extent1 
    193193      END SUBROUTINE xios_set_domaingroup_lonvalue 
    194194 
     
    197197         INTEGER (kind = C_INTPTR_T), VALUE        :: domaingroup_hdl 
    198198         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: latvalue 
    199          INTEGER (kind = C_INT)                    :: latvalue_extent1 
     199         INTEGER (kind = C_INT)     , VALUE        :: latvalue_extent1 
    200200      END SUBROUTINE xios_set_domaingroup_latvalue 
    201201       
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/field_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                    :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_field_name 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    17          INTEGER  (kind = C_INT)                    :: standard_name_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    1818      END SUBROUTINE xios_set_field_standard_name 
    1919 
     
    2222         INTEGER (kind = C_INTPTR_T), VALUE        :: field_hdl 
    2323         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name 
    24          INTEGER (kind = C_INT)                    :: long_name_size 
     24         INTEGER (kind = C_INT)     , VALUE        :: long_name_size 
    2525      END SUBROUTINE xios_set_field_long_name 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit 
    31          INTEGER  (kind = C_INT)                    :: unit_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    3232      END SUBROUTINE xios_set_field_unit 
    3333 
     
    3636         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    3737         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation 
    38          INTEGER  (kind = C_INT)                    :: operation_size 
     38         INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    3939      END SUBROUTINE xios_set_field_operation 
    4040 
     
    4343         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    4444         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op 
    45          INTEGER  (kind = C_INT)                    :: freq_op_size 
     45         INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size 
    4646      END SUBROUTINE xios_set_field_freq_op 
    4747 
     
    4949         USE ISO_C_BINDING 
    5050         INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    51          INTEGER (kind = C_INT)             :: level 
     51         INTEGER (kind = C_INT)     , VALUE :: level 
    5252      END SUBROUTINE xios_set_field_level 
    5353 
     
    5555         USE ISO_C_BINDING 
    5656         INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    57          INTEGER (kind = C_INT)             :: prec 
     57         INTEGER (kind = C_INT)     , VALUE :: prec 
    5858      END SUBROUTINE xios_set_field_prec 
    5959 
     
    6161         USE ISO_C_BINDING 
    6262         INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    63          LOGICAL (kind = C_BOOL)            :: enabled 
     63         LOGICAL (kind = C_BOOL)    , VALUE :: enabled 
    6464         END SUBROUTINE xios_set_field_enabled 
    6565 
     
    6868         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    6969         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref 
    70          INTEGER  (kind = C_INT)                    :: domain_ref_size 
     70         INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    7171      END SUBROUTINE xios_set_field_domain_ref 
    7272 
     
    7575         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    7676         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    77          INTEGER  (kind = C_INT)                    :: axis_ref_size 
     77         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    7878      END SUBROUTINE xios_set_field_axis_ref 
    7979 
     
    8282         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    8383         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref 
    84          INTEGER  (kind = C_INT)                    :: grid_ref_size 
     84         INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size 
    8585      END SUBROUTINE xios_set_field_grid_ref 
    8686 
     
    8989         INTEGER  (kind = C_INTPTR_T), VALUE        :: field_hdl 
    9090         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref 
    91          INTEGER  (kind = C_INT)                    :: field_ref_size 
     91         INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size 
    9292      END SUBROUTINE xios_set_field_field_ref 
    9393 
     
    9595         USE ISO_C_BINDING 
    9696         INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
    97          REAL    (kind = C_DOUBLE)          :: default_value 
     97         REAL    (kind = C_DOUBLE)  , VALUE :: default_value 
    9898      END SUBROUTINE xios_set_field_default_value 
    9999    
    100100      SUBROUTINE xios_field_handle_create(ret, idt, idt_size) BIND(C) 
    101          import C_CHAR, C_INTPTR_T, C_INT 
     101         USE ISO_C_BINDING 
    102102         INTEGER  (kind = C_INTPTR_T)               :: ret 
    103103         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/fieldgroup_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                    :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_fieldgroup_name 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    17          INTEGER  (kind = C_INT)                    :: standard_name_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    1818      END SUBROUTINE xios_set_fieldgroup_standard_name 
    1919 
     
    2222         INTEGER (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    2323         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name 
    24          INTEGER (kind = C_INT)                    :: long_name_size 
     24         INTEGER (kind = C_INT)     , VALUE        :: long_name_size 
    2525      END SUBROUTINE xios_set_fieldgroup_long_name 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit 
    31          INTEGER  (kind = C_INT)                    :: unit_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    3232      END SUBROUTINE xios_set_fieldgroup_unit 
    3333 
     
    3636         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    3737         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation 
    38          INTEGER  (kind = C_INT)                    :: operation_size 
     38         INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    3939      END SUBROUTINE xios_set_fieldgroup_operation 
    4040 
     
    4343         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    4444         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op 
    45          INTEGER  (kind = C_INT)                    :: freq_op_size 
     45         INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size 
    4646      END SUBROUTINE xios_set_fieldgroup_freq_op 
    4747 
     
    4949         USE ISO_C_BINDING 
    5050         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    51          INTEGER (kind = C_INT)             :: level 
     51         INTEGER (kind = C_INT)     , VALUE :: level 
    5252      END SUBROUTINE xios_set_fieldgroup_level 
    5353 
     
    5555         USE ISO_C_BINDING 
    5656         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    57          INTEGER (kind = C_INT)             :: prec 
     57         INTEGER (kind = C_INT)     , VALUE :: prec 
    5858      END SUBROUTINE xios_set_fieldgroup_prec 
    5959 
     
    6161         USE ISO_C_BINDING 
    6262         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    63          LOGICAL (kind = C_BOOL)            :: enabled 
     63         LOGICAL (kind = C_BOOL)    , VALUE :: enabled 
    6464         END SUBROUTINE xios_set_fieldgroup_enabled 
    6565 
     
    6868         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    6969         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref 
    70          INTEGER  (kind = C_INT)                    :: domain_ref_size 
     70         INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    7171      END SUBROUTINE xios_set_fieldgroup_domain_ref 
    7272 
     
    7575         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    7676         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    77          INTEGER  (kind = C_INT)                    :: axis_ref_size 
     77         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    7878      END SUBROUTINE xios_set_fieldgroup_axis_ref 
    7979 
     
    8282         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    8383         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref 
    84          INTEGER  (kind = C_INT)                    :: grid_ref_size 
     84         INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size 
    8585      END SUBROUTINE xios_set_fieldgroup_grid_ref 
    8686 
     
    8989         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    9090         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref 
    91          INTEGER  (kind = C_INT)                    :: field_ref_size 
     91         INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size 
    9292      END SUBROUTINE xios_set_fieldgroup_field_ref 
    9393 
     
    9595         USE ISO_C_BINDING 
    9696         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    97          REAL    (kind = C_DOUBLE)          :: default_value 
     97         REAL    (kind = C_DOUBLE)  , VALUE :: default_value 
    9898      END SUBROUTINE xios_set_fieldgroup_default_value 
    9999       
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/file_interface.f90

    r249 r269  
    66      SUBROUTINE xios_set_file_name(file_hdl, name, name_size) BIND(C) 
    77         USE ISO_C_BINDING 
    8          INTEGER  (kind = C_INTPTR_T), VALUE       :: file_hdl 
    9          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                   :: name_size 
     8         INTEGER  (kind = C_INTPTR_T), VALUE        :: file_hdl 
     9         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_file_name 
    1212 
    1313      SUBROUTINE xios_set_file_description(file_hdl, description, description_size) BIND(C) 
    1414         USE ISO_C_BINDING 
    15          INTEGER  (kind = C_INTPTR_T), VALUE       :: file_hdl 
    16          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description 
    17          INTEGER  (kind = C_INT)                   :: description_size 
     15         INTEGER  (kind = C_INTPTR_T), VALUE        :: file_hdl 
     16         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description 
     17         INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_file_description 
    1919 
     
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: file_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq 
    24          INTEGER  (kind = C_INT)                    :: output_freq_size 
     24         INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size 
    2525      END SUBROUTINE xios_set_file_output_freq 
    2626 
     
    2828         USE ISO_C_BINDING 
    2929         INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
    30          INTEGER (kind = C_INT)             :: output_level 
     30         INTEGER (kind = C_INT)     , VALUE :: output_level 
    3131      END SUBROUTINE xios_set_file_output_level 
    3232 
     
    3434         USE ISO_C_BINDING 
    3535         INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
    36          LOGICAL (kind = C_BOOL)            :: enabled 
     36         LOGICAL (kind = C_BOOL)    , VALUE :: enabled 
    3737      END SUBROUTINE xios_set_file_enabled 
    3838    
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/filegroup_interface.f90

    r249 r269  
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    10          INTEGER  (kind = C_INT)                    :: name_size 
     10         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_filegroup_name 
    1212 
     
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description 
    17          INTEGER  (kind = C_INT)                    :: description_size 
     17         INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_filegroup_description 
    1919 
     
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq 
    24          INTEGER  (kind = C_INT)                    :: output_freq_size 
     24         INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size 
    2525      END SUBROUTINE xios_set_filegroup_output_freq 
    2626 
     
    2828         USE ISO_C_BINDING 
    2929         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    30          INTEGER (kind = C_INT)             :: output_level 
     30         INTEGER (kind = C_INT)     , VALUE :: output_level 
    3131      END SUBROUTINE xios_set_filegroup_output_level 
    3232 
     
    3434         USE ISO_C_BINDING 
    3535         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
    36          LOGICAL (kind = C_BOOL)            :: enabled 
     36         LOGICAL (kind = C_BOOL)    , VALUE :: enabled 
    3737      END SUBROUTINE xios_set_filegroup_enabled 
    3838       
    3939      SUBROUTINE xios_filegroup_handle_create(ret, idt, idt_size) BIND(C) 
    40          import C_CHAR, C_INTPTR_T, C_INT 
     40         USE ISO_C_BINDING 
    4141         INTEGER  (kind = C_INTPTR_T)               :: ret 
    4242         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/grid_interface.f90

    r249 r269  
    88         INTEGER (kind = C_INTPTR_T), VALUE        :: grid_hdl 
    99         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name 
    10          INTEGER (kind = C_INT)                    :: name_size 
     10         INTEGER (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_grid_name 
    1212 
     
    1515         INTEGER (kind = C_INTPTR_T), VALUE        :: grid_hdl 
    1616         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description 
    17          INTEGER (kind = C_INT)                    :: description_size 
     17         INTEGER (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_grid_description 
    1919 
     
    2222         INTEGER (kind = C_INTPTR_T), VALUE        :: grid_hdl 
    2323         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: domain_ref 
    24          INTEGER (kind = C_INT)                    :: domain_ref_size 
     24         INTEGER (kind = C_INT)     , VALUE        :: domain_ref_size 
    2525      END SUBROUTINE xios_set_grid_domain_ref 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: grid_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    31          INTEGER  (kind = C_INT)                    :: axis_ref_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    3232      END SUBROUTINE xios_set_grid_axis_ref 
    3333       
    3434      SUBROUTINE xios_grid_handle_create(ret, idt, idt_size) BIND(C) 
    35          import C_CHAR, C_INTPTR_T, C_INT 
     35         USE ISO_C_BINDING 
    3636         INTEGER  (kind = C_INTPTR_T)               :: ret 
    3737         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/gridgroup_interface.f90

    r249 r269  
    88         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    99         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name 
    10          INTEGER (kind = C_INT)                    :: name_size 
     10         INTEGER (kind = C_INT)     , VALUE        :: name_size 
    1111      END SUBROUTINE xios_set_gridgroup_name 
    1212 
     
    1515         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    1616         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description 
    17          INTEGER (kind = C_INT)                    :: description_size 
     17         INTEGER (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_gridgroup_description 
    1919 
     
    2222         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    2323         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: domain_ref 
    24          INTEGER (kind = C_INT)                    :: domain_ref_size 
     24         INTEGER (kind = C_INT)     , VALUE        :: domain_ref_size 
    2525      END SUBROUTINE xios_set_gridgroup_domain_ref 
    2626 
     
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    31          INTEGER  (kind = C_INT)                    :: axis_ref_size 
     31         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    3232      END SUBROUTINE xios_set_gridgroup_axis_ref 
    3333       
    3434      SUBROUTINE xios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 
    35          import C_CHAR, C_INTPTR_T, C_INT 
     35         USE ISO_C_BINDING 
    3636         INTEGER  (kind = C_INTPTR_T)               :: ret 
    3737         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/idata.f90

    r249 r269  
    66    
    77      SUBROUTINE xios_dtreatment_start(context_hdl, filetype, comm_client_server, comm_server) BIND(C) 
    8          IMPORT C_INTPTR_T, C_INT 
     8         USE ISO_C_BINDING 
    99         INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
    1010         INTEGER (kind = C_INT)     , VALUE :: filetype, comm_client_server, comm_server 
     
    1616 
    1717      SUBROUTINE xios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 
    18          IMPORT C_INT, C_CHAR, C_DOUBLE 
     18         USE ISO_C_BINDING 
    1919         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    2020         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8 
     
    2424       
    2525      SUBROUTINE xios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C) 
    26          IMPORT C_INT, C_CHAR, C_DOUBLE 
     26         USE ISO_C_BINDING 
    2727         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    2828         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8 
     
    3232       
    3333      SUBROUTINE xios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C) 
    34          IMPORT C_INT, C_CHAR, C_DOUBLE 
     34         USE ISO_C_BINDING 
    3535         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    3636         REAL     (kind = C_DOUBLE), DIMENSION(*) :: data_k8 
     
    4040       
    4141      SUBROUTINE xios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 
    42          IMPORT C_INT, C_CHAR, C_FLOAT 
     42         USE ISO_C_BINDING 
    4343         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    4444         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4 
     
    4848       
    4949      SUBROUTINE xios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C) 
    50          IMPORT C_INT, C_CHAR, C_FLOAT 
     50         USE ISO_C_BINDING 
    5151         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    5252         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4 
     
    5656       
    5757      SUBROUTINE xios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C) 
    58          IMPORT C_INT, C_CHAR, C_FLOAT 
     58         USE ISO_C_BINDING 
    5959         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    6060         REAL     (kind = C_FLOAT) , DIMENSION(*) :: data_k4 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/idate.f90

    r249 r269  
    1717      SUBROUTINE xios_set_timestep(ts_year, ts_month, ts_day, ts_hour, ts_minute, ts_second) BIND(C) 
    1818         IMPORT C_DOUBLE 
    19          REAL (kind = C_DOUBLE), VALUE :: ts_year, ts_month, ts_day, & 
     19         REAL (kind = C_DOUBLE), VALUE :: ts_year, ts_month , ts_day   , & 
    2020                                          ts_hour, ts_minute, ts_second 
    2121      END SUBROUTINE xios_set_timestep 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/ixml_tree.f90

    r249 r269  
    1010      
    1111      SUBROUTINE xios_xml_tree_add_field(parent_, child_, child_id, child_id_size) BIND(C) 
    12          import C_CHAR, C_INT, C_INTPTR_T 
     12         USE ISO_C_BINDING 
    1313         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    1414         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    1818       
    1919      SUBROUTINE xios_xml_tree_add_grid(parent_, child_, child_id, child_id_size) BIND(C) 
    20          import C_CHAR, C_INT, C_INTPTR_T 
     20         USE ISO_C_BINDING 
    2121         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    2222         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    2626       
    2727      SUBROUTINE xios_xml_tree_add_file(parent_, child_, child_id, child_id_size) BIND(C) 
    28          import C_CHAR, C_INT, C_INTPTR_T 
     28         USE ISO_C_BINDING 
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    3030         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    3434       
    3535      SUBROUTINE xios_xml_tree_add_axis(parent_, child_, child_id, child_id_size) BIND(C) 
    36          import C_CHAR, C_INT, C_INTPTR_T 
     36         USE ISO_C_BINDING 
    3737         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    3838         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    4242       
    4343      SUBROUTINE xios_xml_tree_add_domain(parent_, child_, child_id, child_id_size) BIND(C) 
    44          import C_CHAR, C_INT, C_INTPTR_T 
     44         USE ISO_C_BINDING 
    4545         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    4646         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    5050       
    5151      SUBROUTINE xios_xml_tree_add_fieldtofile(parent_, child_, child_id, child_id_size) BIND(C) 
    52          import C_CHAR, C_INT, C_INTPTR_T 
     52         USE ISO_C_BINDING 
    5353         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    5454         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    5858       
    5959      SUBROUTINE xios_xml_tree_add_fieldgrouptofile(parent_, child_, child_id, child_id_size) BIND(C) 
    60          import C_CHAR, C_INT, C_INTPTR_T 
     60         USE ISO_C_BINDING 
    6161         INTEGER  (kind = C_INTPTR_T), VALUE        :: parent_ 
    6262         INTEGER  (kind = C_INTPTR_T)               :: child_ 
     
    6666 
    6767      SUBROUTINE xios_xml_tree_show(filename, filename_size) BIND(C) 
    68          import C_CHAR, C_INT 
     68         USE ISO_C_BINDING 
    6969         CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename 
    7070         INTEGER  (kind = C_INT) , VALUE        :: filename_size 
     
    7272 
    7373      SUBROUTINE xios_xml_parse_file(filename, filename_size) BIND(C) 
    74          import C_CHAR, C_INT 
     74         USE ISO_C_BINDING 
    7575         CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename 
    7676         INTEGER  (kind = C_INT) , VALUE        :: filename_size 
     
    7878 
    7979      SUBROUTINE xios_xml_parse_string(xmlcontent, xmlcontent_size) BIND(C) 
    80          import C_CHAR, C_INT 
     80         USE ISO_C_BINDING 
    8181         CHARACTER(kind = C_CHAR), DIMENSION(*) :: xmlcontent 
    8282         INTEGER  (kind = C_INT) , VALUE        :: xmlcontent_size 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/mpi/mpi_interface.cpp

    r267 r269  
    253253   // ------------------------- Communication 'complexe' ----------------------- 
    254254          
    255    void CMPIManager::SendLinearBuffer(MPI_Comm _comm, int _dest_rank, CLinearBuffer & _lbuffer, MPI_Request & _request) 
     255   /*void CMPIManager::SendLinearBuffer(MPI_Comm _comm, int _dest_rank, CLinearBuffer & _lbuffer, MPI_Request & _request) 
    256256   { 
    257257      CMPIManager::Send(_comm, _dest_rank, _lbuffer, _lbuffer.getUsedSize(), _request); 
     
    279279      CMPIManager::Receive(comm, src_rank, buff.getData(data_begin)); 
    280280      _cbuffer.updateNbRequests(data_begin, data_begin + data_size); 
    281    } 
     281   }*/ 
    282282 
    283283   // ---------------------- Mémoire (non fonctionnel ....) -------------------- 
  • XMLIO_V2/dev/dev_rv/src4/xmlio/mpi/mpi_interface.hpp

    r267 r269  
    100100         public : // Communication 'complexe' 
    101101          
    102             static void SendLinearBuffer(MPI_Comm _comm, int _dest_rank, CLinearBuffer & _lbuffer, MPI_Request & _request); 
     102            /*static void SendLinearBuffer(MPI_Comm _comm, int _dest_rank, CLinearBuffer & _lbuffer, MPI_Request & _request); 
    103103            static void ReceiveLinearBuffer(MPI_Comm _comm, int _src_rank, CLinearBuffer & _lbuffer); 
    104104            static boost::shared_ptr<CLinearBuffer> ReceiveLinearBuffer(MPI_Comm _comm, int _src_rank); 
    105             static void ReceiveCircularBuffer(MPI_Comm _comm, int _src_rank, CCircularBuffer & _cbuffer); 
     105            static void ReceiveCircularBuffer(MPI_Comm _comm, int _src_rank, CCircularBuffer & _cbuffer);*/ 
    106106 
    107107         public : // Mémoire (non fonctionnel ....) 
Note: See TracChangeset for help on using the changeset viewer.