Changeset 179 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran
- Timestamp:
- 04/18/11 17:02:22 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ixmlioserver.f03.in
r158 r179 99 99 END SUBROUTINE xios_context_create 100 100 101 SUBROUTINE xios_dtreatment_start(context_hdl, filetype ) BIND(C)101 SUBROUTINE xios_dtreatment_start(context_hdl, filetype, comm_client_server) BIND(C) 102 102 import C_INTPTR_T, C_INT 103 103 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 104 INTEGER (kind = C_INT), VALUE :: filetype 104 INTEGER (kind = C_INT), VALUE :: filetype, comm_client_server 105 105 END SUBROUTINE xios_dtreatment_start 106 106 … … 233 233 END SUBROUTINE context_create 234 234 235 SUBROUTINE dtreatment_start(context_hdl, filetype )235 SUBROUTINE dtreatment_start(context_hdl, filetype, comm_client_server) 236 236 TYPE(XHandle), INTENT(IN), VALUE :: context_hdl 237 INTEGER, INTENT(IN), OPTIONAL :: filetype 238 INTEGER :: filetype_ 237 INTEGER, INTENT(IN), OPTIONAL :: filetype, comm_client_server 238 INTEGER :: filetype_, comm_client_server_ 239 239 240 IF (PRESENT(filetype)) THEN 240 241 filetype_ = filetype … … 242 243 filetype_ = NETCDF4 243 244 END IF 244 CALL context_set_current(context_hdl) 245 CALL xios_dtreatment_start(context_hdl%daddr, filetype_) 245 246 IF (PRESENT(comm_client_server)) THEN 247 comm_client_server_ = comm_client_server 248 ELSE 249 comm_client_server_ = -1 250 END IF 251 252 CALL context_set_current(context_hdl) 253 CALL xios_dtreatment_start(context_hdl%daddr, filetype_, comm_client_server_) 246 254 END SUBROUTINE dtreatment_start 247 255
Note: See TracChangeset
for help on using the changeset viewer.