Changeset 179 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran

Timestamp:

04/18/11 17:02:22 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ixmlioserver.f03.in (modified) (3 diffs)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ixmlioserver.f03.in

@@ -99 +99 @@
       END SUBROUTINE xios_context_create
 
-      SUBROUTINE xios_dtreatment_start(context_hdl, filetype) BIND(C)
+      SUBROUTINE xios_dtreatment_start(context_hdl, filetype, comm_client_server) BIND(C)
          import C_INTPTR_T, C_INT
          INTEGER  (kind = C_INTPTR_T), VALUE  :: context_hdl
-         INTEGER  (kind = C_INT), VALUE       :: filetype
+         INTEGER  (kind = C_INT), VALUE       :: filetype, comm_client_server
       END SUBROUTINE xios_dtreatment_start
 
@@ -233 +233 @@
    END SUBROUTINE context_create
 
-   SUBROUTINE dtreatment_start(context_hdl, filetype)
+   SUBROUTINE dtreatment_start(context_hdl, filetype, comm_client_server)
       TYPE(XHandle), INTENT(IN), VALUE :: context_hdl
-      INTEGER, INTENT(IN), OPTIONAL    :: filetype
-      INTEGER                          :: filetype_
+      INTEGER, INTENT(IN), OPTIONAL    :: filetype, comm_client_server
+      INTEGER                          :: filetype_, comm_client_server_
+      
       IF (PRESENT(filetype)) THEN
          filetype_ = filetype
@@ -242 +243 @@
          filetype_ = NETCDF4
       END IF
-         CALL context_set_current(context_hdl)
-         CALL xios_dtreatment_start(context_hdl%daddr, filetype_)
+      
+      IF (PRESENT(comm_client_server)) THEN
+         comm_client_server_ = comm_client_server
+      ELSE
+         comm_client_server_ = -1
+      END IF
+      
+      CALL context_set_current(context_hdl)
+      CALL xios_dtreatment_start(context_hdl%daddr, filetype_, comm_client_server_)
    END SUBROUTINE dtreatment_start