Changeset 40 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

Timestamp:

09/17/09 10:02:37 (15 years ago)

Author:

ymipsl

Message:

• Les attributs XML peuvent désormais être passer dynamiquement à travers l'interface du server IO.
• ajout d'un attribut name_suffix pour les fichiers

YM

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

@@ -287 +287 @@
 
   
+  SUBROUTINE event__set_attribut(id,attrib)
+  USE iomanager
+  USE mod_attribut
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: id
+    TYPE(attribut),INTENT(IN)   :: attrib
+ 
+    IF (using_server) THEN
+      CALL create_request(event_id_set_attribut)
+      CALL pack(len(id))
+      CALL pack(id)
+      CALL pack(attrib)
+      CALL Finalize_request
+    ELSE
+      CALL iom__set_attribut(id,attrib)
+    ENDIF
+ 
+  END SUBROUTINE event__set_attribut  
+
   SUBROUTINE event__stop_ioserver
   USE iomanager