Changeset 269
- Timestamp:
- 09/13/11 12:04:39 (12 years ago)
- Location:
- XMLIO_V2/dev/dev_rv
- Files:
-
- 10 added
- 4 deleted
- 18 edited
-
Makefile.wk (modified) (4 diffs)
-
src/xmlio/fake_client (deleted)
-
src/xmlio/fortran (deleted)
-
src/xmlio/iface (deleted)
-
src/xmlio/main_server.cpp (modified) (2 diffs)
-
src/xmlio/manager/xios_manager.cpp (modified) (1 diff)
-
src4/xmlio/fortran/axisgroup_interface.f90 (modified) (2 diffs)
-
src4/xmlio/fortran/context_interface.f90 (modified) (3 diffs)
-
src4/xmlio/fortran/domain_interface.f90 (modified) (31 diffs)
-
src4/xmlio/fortran/domaingroup_interface.f90 (modified) (31 diffs)
-
src4/xmlio/fortran/field_interface.f90 (modified) (14 diffs)
-
src4/xmlio/fortran/fieldgroup_interface.f90 (modified) (14 diffs)
-
src4/xmlio/fortran/file_interface.f90 (modified) (4 diffs)
-
src4/xmlio/fortran/filegroup_interface.f90 (modified) (5 diffs)
-
src4/xmlio/fortran/grid_interface.f90 (modified) (4 diffs)
-
src4/xmlio/fortran/gridgroup_interface.f90 (modified) (4 diffs)
-
src4/xmlio/fortran/iaxis.cpp (deleted)
-
src4/xmlio/fortran/icaxis.cpp (added)
-
src4/xmlio/fortran/iccontext.cpp (added)
-
src4/xmlio/fortran/icdata.cpp (added)
-
src4/xmlio/fortran/icdate.cpp (added)
-
src4/xmlio/fortran/icdomain.cpp (added)
-
src4/xmlio/fortran/icfield.cpp (added)
-
src4/xmlio/fortran/icfile.cpp (added)
-
src4/xmlio/fortran/icgrid.cpp (added)
-
src4/xmlio/fortran/icutil.hpp (added)
-
src4/xmlio/fortran/icxml_tree.cpp (added)
-
src4/xmlio/fortran/idata.f90 (modified) (7 diffs)
-
src4/xmlio/fortran/idate.f90 (modified) (1 diff)
-
src4/xmlio/fortran/ixml_tree.f90 (modified) (10 diffs)
-
src4/xmlio/mpi/mpi_interface.cpp (modified) (2 diffs)
-
src4/xmlio/mpi/mpi_interface.hpp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/Makefile.wk
r267 r269 325 325 326 326 # Source de l'interface C (contenue dans dans le dossier src/iface) 327 ICSOURCE = i nterface327 ICSOURCE = icaxis iccontext icgrid icfield icdomain icfile icdata icdate icxml_tree 328 328 329 329 # Sources de l'interface fortran (contenues dans le dossier src/fortran) 330 IFSOURCE = ixmlioserver 330 IFSOURCE = 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 331 338 332 339 # Sources de la bibliothÚque (contenues dans le dossier src) … … 370 377 371 378 # Source des faux clients 372 TSOURCE = fake_nemo fake_lmdz fake_orchidee379 TSOURCE = #fake_nemo fake_lmdz fake_orchidee 373 380 374 381 # Nom du fichier contenant les points d'entrée des programmes … … 411 418 ifeq ($(VERSION), 4) 412 419 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 \ 414 422 415 423 endif … … 456 464 457 465 .PHONY: preproc 458 preproc : $(PREPROC) 466 preproc : 467 # $(PREPROC) 459 468 460 469 .PHONY: clean-depend -
XMLIO_V2/dev/dev_rv/src/xmlio/main_server.cpp
r267 r269 7 7 #include "client.hpp" 8 8 #include "server.hpp" 9 10 #include "fake.hpp"11 9 12 10 // Point d'entrée du programme principal … … 26 24 CXIOSManager::Initialise (CXIOSManager::CLIENT_SERVER, &argc, &argv); 27 25 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 33 27 CMPIManager::DispatchClient(true, comm_client, comm_client_server, comm_server); 34 28 CXIOSManager::RunServer("Nemo", comm_client_server, comm_server); -
XMLIO_V2/dev/dev_rv/src/xmlio/manager/xios_manager.cpp
r265 r269 93 93 94 94 StdOStringStream oss; 95 oss << StdString("d ata/def/def_server_end.")95 oss << StdString("def_server_end.") 96 96 << CMPIManager::GetCommRank(CMPIManager::GetCommWorld()); 97 97 CTreeManager::PrintTreeToFile(oss.str()); -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/axisgroup_interface.f90
r249 r269 6 6 SUBROUTINE xios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 7 7 USE ISO_C_BINDING 8 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl8 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) , VALUE :: name_size10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_axisgroup_name 12 12 … … 46 46 47 47 SUBROUTINE xios_axisgroup_handle_create(ret, idt, idt_size) BIND(C) 48 import C_CHAR, C_INTPTR_T, C_INT48 USE ISO_C_BINDING 49 49 INTEGER (kind = C_INTPTR_T) :: ret 50 50 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/context_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: calendar_type 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: calendar_type_size 11 11 END SUBROUTINE xios_set_context_calendar_type 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: start_date 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: start_date_size 18 18 END SUBROUTINE xios_set_context_start_date 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: output_dir 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: output_dir_size 25 25 END SUBROUTINE xios_set_context_output_dir 26 26 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/domain_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_domain_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: standard_name_size 18 18 END SUBROUTINE xios_set_domain_standard_name 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: long_name_size 25 25 END SUBROUTINE xios_set_domain_long_name 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 32 32 END SUBROUTINE xios_set_domain_domain_group_ref 33 33 … … 35 35 USE ISO_C_BINDING 36 36 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 37 INTEGER (kind = C_INT) 37 INTEGER (kind = C_INT) , VALUE :: ni_glo 38 38 END SUBROUTINE xios_set_domain_ni_glo 39 39 … … 41 41 USE ISO_C_BINDING 42 42 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 43 INTEGER (kind = C_INT) 43 INTEGER (kind = C_INT) , VALUE :: nj_glo 44 44 END SUBROUTINE xios_set_domain_nj_glo 45 45 … … 47 47 USE ISO_C_BINDING 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 49 INTEGER (kind = C_INT) 49 INTEGER (kind = C_INT) , VALUE :: ibegin 50 50 END SUBROUTINE xios_set_domain_ibegin 51 51 … … 53 53 USE ISO_C_BINDING 54 54 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 55 INTEGER (kind = C_INT) 55 INTEGER (kind = C_INT) , VALUE :: iend 56 56 END SUBROUTINE xios_set_domain_iend 57 57 … … 59 59 USE ISO_C_BINDING 60 60 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 61 INTEGER (kind = C_INT) 61 INTEGER (kind = C_INT) , VALUE :: ni 62 62 END SUBROUTINE xios_set_domain_ni 63 63 … … 65 65 USE ISO_C_BINDING 66 66 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 67 INTEGER (kind = C_INT) 67 INTEGER (kind = C_INT) , VALUE :: jbegin 68 68 END SUBROUTINE xios_set_domain_jbegin 69 69 … … 71 71 USE ISO_C_BINDING 72 72 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 73 INTEGER (kind = C_INT) 73 INTEGER (kind = C_INT) , VALUE :: jend 74 74 END SUBROUTINE xios_set_domain_jend 75 75 … … 77 77 USE ISO_C_BINDING 78 78 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 79 INTEGER (kind = C_INT) 79 INTEGER (kind = C_INT) , VALUE :: nj 80 80 END SUBROUTINE xios_set_domain_nj 81 81 … … 84 84 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 85 85 LOGICAL(kind = C_BOOL) , DIMENSION(*) :: mask 86 INTEGER (kind = C_INT) 87 INTEGER (kind = C_INT) 86 INTEGER (kind = C_INT) , VALUE :: mask_extent1 87 INTEGER (kind = C_INT) , VALUE :: mask_extent2 88 88 END SUBROUTINE xios_set_domain_mask 89 89 … … 91 91 USE ISO_C_BINDING 92 92 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 93 INTEGER (kind = C_INT) 93 INTEGER (kind = C_INT) , VALUE :: data_dim 94 94 END SUBROUTINE xios_set_domain_data_dim 95 95 … … 97 97 USE ISO_C_BINDING 98 98 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 99 INTEGER (kind = C_INT) 99 INTEGER (kind = C_INT) , VALUE :: data_ni 100 100 END SUBROUTINE xios_set_domain_data_ni 101 101 … … 103 103 USE ISO_C_BINDING 104 104 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 105 INTEGER (kind = C_INT) 105 INTEGER (kind = C_INT) , VALUE :: data_nj 106 106 END SUBROUTINE xios_set_domain_data_nj 107 107 … … 109 109 USE ISO_C_BINDING 110 110 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 111 INTEGER (kind = C_INT) 111 INTEGER (kind = C_INT) , VALUE :: data_ibegin 112 112 END SUBROUTINE xios_set_domain_data_ibegin 113 113 … … 115 115 USE ISO_C_BINDING 116 116 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 117 INTEGER (kind = C_INT) 117 INTEGER (kind = C_INT) , VALUE :: data_jbegin 118 118 END SUBROUTINE xios_set_domain_data_jbegin 119 119 … … 121 121 USE ISO_C_BINDING 122 122 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 123 INTEGER (kind = C_INT) 123 INTEGER (kind = C_INT) , VALUE :: zoom_ni 124 124 END SUBROUTINE xios_set_domain_zoom_ni 125 125 … … 127 127 USE ISO_C_BINDING 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 129 INTEGER (kind = C_INT) 129 INTEGER (kind = C_INT) , VALUE :: zoom_nj 130 130 END SUBROUTINE xios_set_domain_zoom_nj 131 131 … … 133 133 USE ISO_C_BINDING 134 134 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 135 INTEGER (kind = C_INT) 135 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin 136 136 END SUBROUTINE xios_set_domain_zoom_ibegin 137 137 … … 139 139 USE ISO_C_BINDING 140 140 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 141 INTEGER (kind = C_INT) 141 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin 142 142 END SUBROUTINE xios_set_domain_zoom_jbegin 143 143 … … 145 145 USE ISO_C_BINDING 146 146 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 147 INTEGER (kind = C_INT) 147 INTEGER (kind = C_INT) , VALUE :: zoom_ni_loc 148 148 END SUBROUTINE xios_set_domain_zoom_ni_loc 149 149 … … 151 151 USE ISO_C_BINDING 152 152 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 153 INTEGER (kind = C_INT) 153 INTEGER (kind = C_INT) , VALUE :: zoom_nj_loc 154 154 END SUBROUTINE xios_set_domain_zoom_nj_loc 155 155 … … 157 157 USE ISO_C_BINDING 158 158 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 159 INTEGER (kind = C_INT) 159 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin_loc 160 160 END SUBROUTINE xios_set_domain_zoom_ibegin_loc 161 161 … … 163 163 USE ISO_C_BINDING 164 164 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 165 INTEGER (kind = C_INT) 165 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin_loc 166 166 END SUBROUTINE xios_set_domain_zoom_jbegin_loc 167 167 … … 169 169 USE ISO_C_BINDING 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 171 INTEGER (kind = C_INT) 171 INTEGER (kind = C_INT) , VALUE :: data_n_index 172 172 END SUBROUTINE xios_set_domain_data_n_index 173 173 … … 176 176 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 177 177 INTEGER (kind = C_INT) , DIMENSION(*) :: data_i_index 178 INTEGER (kind = C_INT) 178 INTEGER (kind = C_INT) , VALUE :: data_i_index_extent1 179 179 END SUBROUTINE xios_set_domain_data_i_index 180 180 … … 183 183 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 184 184 INTEGER (kind = C_INT) , DIMENSION(*) :: data_j_index 185 INTEGER (kind = C_INT) 185 INTEGER (kind = C_INT) , VALUE :: data_j_index_extent1 186 186 END SUBROUTINE xios_set_domain_data_j_index 187 187 … … 190 190 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 191 191 REAL (kind = C_DOUBLE) , DIMENSION(*) :: lonvalue 192 INTEGER (kind = C_INT) 192 INTEGER (kind = C_INT) , VALUE :: lonvalue_extent1 193 193 END SUBROUTINE xios_set_domain_lonvalue 194 194 … … 197 197 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 198 198 REAL (kind = C_DOUBLE) , DIMENSION(*) :: latvalue 199 INTEGER (kind = C_INT) 199 INTEGER (kind = C_INT) , VALUE :: latvalue_extent1 200 200 END SUBROUTINE xios_set_domain_latvalue 201 201 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/domaingroup_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_domaingroup_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: standard_name_size 18 18 END SUBROUTINE xios_set_domaingroup_standard_name 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: long_name_size 25 25 END SUBROUTINE xios_set_domaingroup_long_name 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_group_ref 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: domain_group_ref_size 32 32 END SUBROUTINE xios_set_domaingroup_domain_group_ref 33 33 … … 35 35 USE ISO_C_BINDING 36 36 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 37 INTEGER (kind = C_INT) 37 INTEGER (kind = C_INT) , VALUE :: ni_glo 38 38 END SUBROUTINE xios_set_domaingroup_ni_glo 39 39 … … 41 41 USE ISO_C_BINDING 42 42 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 43 INTEGER (kind = C_INT) 43 INTEGER (kind = C_INT) , VALUE :: nj_glo 44 44 END SUBROUTINE xios_set_domaingroup_nj_glo 45 45 … … 47 47 USE ISO_C_BINDING 48 48 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 49 INTEGER (kind = C_INT) 49 INTEGER (kind = C_INT) , VALUE :: ibegin 50 50 END SUBROUTINE xios_set_domaingroup_ibegin 51 51 … … 53 53 USE ISO_C_BINDING 54 54 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 55 INTEGER (kind = C_INT) 55 INTEGER (kind = C_INT) , VALUE :: iend 56 56 END SUBROUTINE xios_set_domaingroup_iend 57 57 … … 59 59 USE ISO_C_BINDING 60 60 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 61 INTEGER (kind = C_INT) 61 INTEGER (kind = C_INT) , VALUE :: ni 62 62 END SUBROUTINE xios_set_domaingroup_ni 63 63 … … 65 65 USE ISO_C_BINDING 66 66 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 67 INTEGER (kind = C_INT) 67 INTEGER (kind = C_INT) , VALUE :: jbegin 68 68 END SUBROUTINE xios_set_domaingroup_jbegin 69 69 … … 71 71 USE ISO_C_BINDING 72 72 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 73 INTEGER (kind = C_INT) 73 INTEGER (kind = C_INT) , VALUE :: jend 74 74 END SUBROUTINE xios_set_domaingroup_jend 75 75 … … 77 77 USE ISO_C_BINDING 78 78 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 79 INTEGER (kind = C_INT) 79 INTEGER (kind = C_INT) , VALUE :: nj 80 80 END SUBROUTINE xios_set_domaingroup_nj 81 81 … … 84 84 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 85 85 LOGICAL(kind = C_BOOL) , DIMENSION(*) :: mask 86 INTEGER (kind = C_INT) 87 INTEGER (kind = C_INT) 86 INTEGER (kind = C_INT) , VALUE :: mask_extent1 87 INTEGER (kind = C_INT) , VALUE :: mask_extent2 88 88 END SUBROUTINE xios_set_domaingroup_mask 89 89 … … 91 91 USE ISO_C_BINDING 92 92 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 93 INTEGER (kind = C_INT) 93 INTEGER (kind = C_INT) , VALUE :: data_dim 94 94 END SUBROUTINE xios_set_domaingroup_data_dim 95 95 … … 97 97 USE ISO_C_BINDING 98 98 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 99 INTEGER (kind = C_INT) 99 INTEGER (kind = C_INT) , VALUE :: data_ni 100 100 END SUBROUTINE xios_set_domaingroup_data_ni 101 101 … … 103 103 USE ISO_C_BINDING 104 104 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 105 INTEGER (kind = C_INT) 105 INTEGER (kind = C_INT) , VALUE :: data_nj 106 106 END SUBROUTINE xios_set_domaingroup_data_nj 107 107 … … 109 109 USE ISO_C_BINDING 110 110 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 111 INTEGER (kind = C_INT) 111 INTEGER (kind = C_INT) , VALUE :: data_ibegin 112 112 END SUBROUTINE xios_set_domaingroup_data_ibegin 113 113 … … 115 115 USE ISO_C_BINDING 116 116 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 117 INTEGER (kind = C_INT) 117 INTEGER (kind = C_INT) , VALUE :: data_jbegin 118 118 END SUBROUTINE xios_set_domaingroup_data_jbegin 119 119 … … 121 121 USE ISO_C_BINDING 122 122 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 123 INTEGER (kind = C_INT) 123 INTEGER (kind = C_INT) , VALUE :: zoom_ni 124 124 END SUBROUTINE xios_set_domaingroup_zoom_ni 125 125 … … 127 127 USE ISO_C_BINDING 128 128 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 129 INTEGER (kind = C_INT) 129 INTEGER (kind = C_INT) , VALUE :: zoom_nj 130 130 END SUBROUTINE xios_set_domaingroup_zoom_nj 131 131 … … 133 133 USE ISO_C_BINDING 134 134 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 135 INTEGER (kind = C_INT) 135 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin 136 136 END SUBROUTINE xios_set_domaingroup_zoom_ibegin 137 137 … … 139 139 USE ISO_C_BINDING 140 140 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 141 INTEGER (kind = C_INT) 141 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin 142 142 END SUBROUTINE xios_set_domaingroup_zoom_jbegin 143 143 … … 145 145 USE ISO_C_BINDING 146 146 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 147 INTEGER (kind = C_INT) 147 INTEGER (kind = C_INT) , VALUE :: zoom_ni_loc 148 148 END SUBROUTINE xios_set_domaingroup_zoom_ni_loc 149 149 … … 151 151 USE ISO_C_BINDING 152 152 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 153 INTEGER (kind = C_INT) 153 INTEGER (kind = C_INT) , VALUE :: zoom_nj_loc 154 154 END SUBROUTINE xios_set_domaingroup_zoom_nj_loc 155 155 … … 157 157 USE ISO_C_BINDING 158 158 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 159 INTEGER (kind = C_INT) 159 INTEGER (kind = C_INT) , VALUE :: zoom_ibegin_loc 160 160 END SUBROUTINE xios_set_domaingroup_zoom_ibegin_loc 161 161 … … 163 163 USE ISO_C_BINDING 164 164 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 165 INTEGER (kind = C_INT) 165 INTEGER (kind = C_INT) , VALUE :: zoom_jbegin_loc 166 166 END SUBROUTINE xios_set_domaingroup_zoom_jbegin_loc 167 167 … … 169 169 USE ISO_C_BINDING 170 170 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 171 INTEGER (kind = C_INT) 171 INTEGER (kind = C_INT) , VALUE :: data_n_index 172 172 END SUBROUTINE xios_set_domaingroup_data_n_index 173 173 … … 176 176 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 177 177 INTEGER (kind = C_INT) , DIMENSION(*) :: data_i_index 178 INTEGER (kind = C_INT) 178 INTEGER (kind = C_INT) , VALUE :: data_i_index_extent1 179 179 END SUBROUTINE xios_set_domaingroup_data_i_index 180 180 … … 183 183 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 184 184 INTEGER (kind = C_INT) , DIMENSION(*) :: data_j_index 185 INTEGER (kind = C_INT) 185 INTEGER (kind = C_INT) , VALUE :: data_j_index_extent1 186 186 END SUBROUTINE xios_set_domaingroup_data_j_index 187 187 … … 190 190 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 191 191 REAL (kind = C_DOUBLE) , DIMENSION(*) :: lonvalue 192 INTEGER (kind = C_INT) 192 INTEGER (kind = C_INT) , VALUE :: lonvalue_extent1 193 193 END SUBROUTINE xios_set_domaingroup_lonvalue 194 194 … … 197 197 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 198 198 REAL (kind = C_DOUBLE) , DIMENSION(*) :: latvalue 199 INTEGER (kind = C_INT) 199 INTEGER (kind = C_INT) , VALUE :: latvalue_extent1 200 200 END SUBROUTINE xios_set_domaingroup_latvalue 201 201 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/field_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_field_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: standard_name_size 18 18 END SUBROUTINE xios_set_field_standard_name 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: long_name_size 25 25 END SUBROUTINE xios_set_field_long_name 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: unit_size 32 32 END SUBROUTINE xios_set_field_unit 33 33 … … 36 36 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 37 37 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: operation 38 INTEGER (kind = C_INT) 38 INTEGER (kind = C_INT) , VALUE :: operation_size 39 39 END SUBROUTINE xios_set_field_operation 40 40 … … 43 43 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 44 44 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: freq_op 45 INTEGER (kind = C_INT) 45 INTEGER (kind = C_INT) , VALUE :: freq_op_size 46 46 END SUBROUTINE xios_set_field_freq_op 47 47 … … 49 49 USE ISO_C_BINDING 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 51 INTEGER (kind = C_INT) 51 INTEGER (kind = C_INT) , VALUE :: level 52 52 END SUBROUTINE xios_set_field_level 53 53 … … 55 55 USE ISO_C_BINDING 56 56 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 57 INTEGER (kind = C_INT) 57 INTEGER (kind = C_INT) , VALUE :: prec 58 58 END SUBROUTINE xios_set_field_prec 59 59 … … 61 61 USE ISO_C_BINDING 62 62 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 63 LOGICAL (kind = C_BOOL) 63 LOGICAL (kind = C_BOOL) , VALUE :: enabled 64 64 END SUBROUTINE xios_set_field_enabled 65 65 … … 68 68 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 69 69 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 70 INTEGER (kind = C_INT) 70 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 71 71 END SUBROUTINE xios_set_field_domain_ref 72 72 … … 75 75 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 76 76 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 77 INTEGER (kind = C_INT) 77 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 78 78 END SUBROUTINE xios_set_field_axis_ref 79 79 … … 82 82 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 83 83 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: grid_ref 84 INTEGER (kind = C_INT) 84 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 85 85 END SUBROUTINE xios_set_field_grid_ref 86 86 … … 89 89 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 90 90 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: field_ref 91 INTEGER (kind = C_INT) 91 INTEGER (kind = C_INT) , VALUE :: field_ref_size 92 92 END SUBROUTINE xios_set_field_field_ref 93 93 … … 95 95 USE ISO_C_BINDING 96 96 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 97 REAL (kind = C_DOUBLE) 97 REAL (kind = C_DOUBLE) , VALUE :: default_value 98 98 END SUBROUTINE xios_set_field_default_value 99 99 100 100 SUBROUTINE xios_field_handle_create(ret, idt, idt_size) BIND(C) 101 import C_CHAR, C_INTPTR_T, C_INT101 USE ISO_C_BINDING 102 102 INTEGER (kind = C_INTPTR_T) :: ret 103 103 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/fieldgroup_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_fieldgroup_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: standard_name_size 18 18 END SUBROUTINE xios_set_fieldgroup_standard_name 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: long_name_size 25 25 END SUBROUTINE xios_set_fieldgroup_long_name 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: unit_size 32 32 END SUBROUTINE xios_set_fieldgroup_unit 33 33 … … 36 36 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 37 37 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: operation 38 INTEGER (kind = C_INT) 38 INTEGER (kind = C_INT) , VALUE :: operation_size 39 39 END SUBROUTINE xios_set_fieldgroup_operation 40 40 … … 43 43 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 44 44 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: freq_op 45 INTEGER (kind = C_INT) 45 INTEGER (kind = C_INT) , VALUE :: freq_op_size 46 46 END SUBROUTINE xios_set_fieldgroup_freq_op 47 47 … … 49 49 USE ISO_C_BINDING 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 51 INTEGER (kind = C_INT) 51 INTEGER (kind = C_INT) , VALUE :: level 52 52 END SUBROUTINE xios_set_fieldgroup_level 53 53 … … 55 55 USE ISO_C_BINDING 56 56 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 57 INTEGER (kind = C_INT) 57 INTEGER (kind = C_INT) , VALUE :: prec 58 58 END SUBROUTINE xios_set_fieldgroup_prec 59 59 … … 61 61 USE ISO_C_BINDING 62 62 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 63 LOGICAL (kind = C_BOOL) 63 LOGICAL (kind = C_BOOL) , VALUE :: enabled 64 64 END SUBROUTINE xios_set_fieldgroup_enabled 65 65 … … 68 68 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 69 69 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 70 INTEGER (kind = C_INT) 70 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 71 71 END SUBROUTINE xios_set_fieldgroup_domain_ref 72 72 … … 75 75 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 76 76 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 77 INTEGER (kind = C_INT) 77 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 78 78 END SUBROUTINE xios_set_fieldgroup_axis_ref 79 79 … … 82 82 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 83 83 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: grid_ref 84 INTEGER (kind = C_INT) 84 INTEGER (kind = C_INT) , VALUE :: grid_ref_size 85 85 END SUBROUTINE xios_set_fieldgroup_grid_ref 86 86 … … 89 89 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 90 90 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: field_ref 91 INTEGER (kind = C_INT) 91 INTEGER (kind = C_INT) , VALUE :: field_ref_size 92 92 END SUBROUTINE xios_set_fieldgroup_field_ref 93 93 … … 95 95 USE ISO_C_BINDING 96 96 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 97 REAL (kind = C_DOUBLE) 97 REAL (kind = C_DOUBLE) , VALUE :: default_value 98 98 END SUBROUTINE xios_set_fieldgroup_default_value 99 99 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/file_interface.f90
r249 r269 6 6 SUBROUTINE xios_set_file_name(file_hdl, name, name_size) BIND(C) 7 7 USE ISO_C_BINDING 8 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name10 INTEGER (kind = C_INT) 8 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_file_name 12 12 13 13 SUBROUTINE xios_set_file_description(file_hdl, description, description_size) BIND(C) 14 14 USE ISO_C_BINDING 15 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description17 INTEGER (kind = C_INT) 15 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description 17 INTEGER (kind = C_INT) , VALUE :: description_size 18 18 END SUBROUTINE xios_set_file_description 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: output_freq 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: output_freq_size 25 25 END SUBROUTINE xios_set_file_output_freq 26 26 … … 28 28 USE ISO_C_BINDING 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 30 INTEGER (kind = C_INT) 30 INTEGER (kind = C_INT) , VALUE :: output_level 31 31 END SUBROUTINE xios_set_file_output_level 32 32 … … 34 34 USE ISO_C_BINDING 35 35 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 36 LOGICAL (kind = C_BOOL) 36 LOGICAL (kind = C_BOOL) , VALUE :: enabled 37 37 END SUBROUTINE xios_set_file_enabled 38 38 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/filegroup_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_filegroup_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: description_size 18 18 END SUBROUTINE xios_set_filegroup_description 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: output_freq 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: output_freq_size 25 25 END SUBROUTINE xios_set_filegroup_output_freq 26 26 … … 28 28 USE ISO_C_BINDING 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 30 INTEGER (kind = C_INT) 30 INTEGER (kind = C_INT) , VALUE :: output_level 31 31 END SUBROUTINE xios_set_filegroup_output_level 32 32 … … 34 34 USE ISO_C_BINDING 35 35 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 36 LOGICAL (kind = C_BOOL) 36 LOGICAL (kind = C_BOOL) , VALUE :: enabled 37 37 END SUBROUTINE xios_set_filegroup_enabled 38 38 39 39 SUBROUTINE xios_filegroup_handle_create(ret, idt, idt_size) BIND(C) 40 import C_CHAR, C_INTPTR_T, C_INT40 USE ISO_C_BINDING 41 41 INTEGER (kind = C_INTPTR_T) :: ret 42 42 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/grid_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_grid_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: description_size 18 18 END SUBROUTINE xios_set_grid_description 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 25 25 END SUBROUTINE xios_set_grid_domain_ref 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 32 32 END SUBROUTINE xios_set_grid_axis_ref 33 33 34 34 SUBROUTINE xios_grid_handle_create(ret, idt, idt_size) BIND(C) 35 import C_CHAR, C_INTPTR_T, C_INT35 USE ISO_C_BINDING 36 36 INTEGER (kind = C_INTPTR_T) :: ret 37 37 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/gridgroup_interface.f90
r249 r269 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 INTEGER (kind = C_INT) 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 11 END SUBROUTINE xios_set_gridgroup_name 12 12 … … 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description 17 INTEGER (kind = C_INT) 17 INTEGER (kind = C_INT) , VALUE :: description_size 18 18 END SUBROUTINE xios_set_gridgroup_description 19 19 … … 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref 24 INTEGER (kind = C_INT) 24 INTEGER (kind = C_INT) , VALUE :: domain_ref_size 25 25 END SUBROUTINE xios_set_gridgroup_domain_ref 26 26 … … 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref 31 INTEGER (kind = C_INT) 31 INTEGER (kind = C_INT) , VALUE :: axis_ref_size 32 32 END SUBROUTINE xios_set_gridgroup_axis_ref 33 33 34 34 SUBROUTINE xios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 35 import C_CHAR, C_INTPTR_T, C_INT35 USE ISO_C_BINDING 36 36 INTEGER (kind = C_INTPTR_T) :: ret 37 37 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/idata.f90
r249 r269 6 6 7 7 SUBROUTINE xios_dtreatment_start(context_hdl, filetype, comm_client_server, comm_server) BIND(C) 8 IMPORT C_INTPTR_T, C_INT8 USE ISO_C_BINDING 9 9 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 10 10 INTEGER (kind = C_INT) , VALUE :: filetype, comm_client_server, comm_server … … 16 16 17 17 SUBROUTINE xios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 18 IMPORT C_INT, C_CHAR, C_DOUBLE18 USE ISO_C_BINDING 19 19 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 20 20 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 … … 24 24 25 25 SUBROUTINE xios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C) 26 IMPORT C_INT, C_CHAR, C_DOUBLE26 USE ISO_C_BINDING 27 27 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 28 28 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 … … 32 32 33 33 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_DOUBLE34 USE ISO_C_BINDING 35 35 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 36 36 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 … … 40 40 41 41 SUBROUTINE xios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 42 IMPORT C_INT, C_CHAR, C_FLOAT42 USE ISO_C_BINDING 43 43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 44 44 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 … … 48 48 49 49 SUBROUTINE xios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C) 50 IMPORT C_INT, C_CHAR, C_FLOAT50 USE ISO_C_BINDING 51 51 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 52 52 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 … … 56 56 57 57 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_FLOAT58 USE ISO_C_BINDING 59 59 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 60 60 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/idate.f90
r249 r269 17 17 SUBROUTINE xios_set_timestep(ts_year, ts_month, ts_day, ts_hour, ts_minute, ts_second) BIND(C) 18 18 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 , & 20 20 ts_hour, ts_minute, ts_second 21 21 END SUBROUTINE xios_set_timestep -
XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/ixml_tree.f90
r249 r269 10 10 11 11 SUBROUTINE xios_xml_tree_add_field(parent_, child_, child_id, child_id_size) BIND(C) 12 import C_CHAR, C_INT, C_INTPTR_T12 USE ISO_C_BINDING 13 13 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 14 14 INTEGER (kind = C_INTPTR_T) :: child_ … … 18 18 19 19 SUBROUTINE xios_xml_tree_add_grid(parent_, child_, child_id, child_id_size) BIND(C) 20 import C_CHAR, C_INT, C_INTPTR_T20 USE ISO_C_BINDING 21 21 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 22 22 INTEGER (kind = C_INTPTR_T) :: child_ … … 26 26 27 27 SUBROUTINE xios_xml_tree_add_file(parent_, child_, child_id, child_id_size) BIND(C) 28 import C_CHAR, C_INT, C_INTPTR_T28 USE ISO_C_BINDING 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 30 30 INTEGER (kind = C_INTPTR_T) :: child_ … … 34 34 35 35 SUBROUTINE xios_xml_tree_add_axis(parent_, child_, child_id, child_id_size) BIND(C) 36 import C_CHAR, C_INT, C_INTPTR_T36 USE ISO_C_BINDING 37 37 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 38 38 INTEGER (kind = C_INTPTR_T) :: child_ … … 42 42 43 43 SUBROUTINE xios_xml_tree_add_domain(parent_, child_, child_id, child_id_size) BIND(C) 44 import C_CHAR, C_INT, C_INTPTR_T44 USE ISO_C_BINDING 45 45 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 46 46 INTEGER (kind = C_INTPTR_T) :: child_ … … 50 50 51 51 SUBROUTINE xios_xml_tree_add_fieldtofile(parent_, child_, child_id, child_id_size) BIND(C) 52 import C_CHAR, C_INT, C_INTPTR_T52 USE ISO_C_BINDING 53 53 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 54 54 INTEGER (kind = C_INTPTR_T) :: child_ … … 58 58 59 59 SUBROUTINE xios_xml_tree_add_fieldgrouptofile(parent_, child_, child_id, child_id_size) BIND(C) 60 import C_CHAR, C_INT, C_INTPTR_T60 USE ISO_C_BINDING 61 61 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 62 62 INTEGER (kind = C_INTPTR_T) :: child_ … … 66 66 67 67 SUBROUTINE xios_xml_tree_show(filename, filename_size) BIND(C) 68 import C_CHAR, C_INT68 USE ISO_C_BINDING 69 69 CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename 70 70 INTEGER (kind = C_INT) , VALUE :: filename_size … … 72 72 73 73 SUBROUTINE xios_xml_parse_file(filename, filename_size) BIND(C) 74 import C_CHAR, C_INT74 USE ISO_C_BINDING 75 75 CHARACTER(kind = C_CHAR), DIMENSION(*) :: filename 76 76 INTEGER (kind = C_INT) , VALUE :: filename_size … … 78 78 79 79 SUBROUTINE xios_xml_parse_string(xmlcontent, xmlcontent_size) BIND(C) 80 import C_CHAR, C_INT80 USE ISO_C_BINDING 81 81 CHARACTER(kind = C_CHAR), DIMENSION(*) :: xmlcontent 82 82 INTEGER (kind = C_INT) , VALUE :: xmlcontent_size -
XMLIO_V2/dev/dev_rv/src4/xmlio/mpi/mpi_interface.cpp
r267 r269 253 253 // ------------------------- Communication 'complexe' ----------------------- 254 254 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) 256 256 { 257 257 CMPIManager::Send(_comm, _dest_rank, _lbuffer, _lbuffer.getUsedSize(), _request); … … 279 279 CMPIManager::Receive(comm, src_rank, buff.getData(data_begin)); 280 280 _cbuffer.updateNbRequests(data_begin, data_begin + data_size); 281 } 281 }*/ 282 282 283 283 // ---------------------- Mémoire (non fonctionnel ....) -------------------- -
XMLIO_V2/dev/dev_rv/src4/xmlio/mpi/mpi_interface.hpp
r267 r269 100 100 public : // Communication 'complexe' 101 101 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); 103 103 static void ReceiveLinearBuffer(MPI_Comm _comm, int _src_rank, CLinearBuffer & _lbuffer); 104 104 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);*/ 106 106 107 107 public : // Mémoire (non fonctionnel ....)
Note: See TracChangeset
for help on using the changeset viewer.
