Changeset 133 for XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90

Timestamp:

10/14/10 15:40:26 (14 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90 (modified) (3 diffs)

XMLIO_V2/dev/dev_rv/src/XMLIO/main.f90

@@ -65 +65 @@
 END MODULE IXML
 
+MODULE ICONTEXT
+   IMPLICIT NONE
+   INTERFACE
+
+      SUBROUTINE xios_context_set_current(context, withswap)
+         USE XTYPE
+         TYPE(XHandle),     INTENT(IN)  :: context
+         LOGICAL, OPTIONAL, INTENT(IN)  :: withswap
+      END SUBROUTINE xios_context_set_current
+
+   END INTERFACE
+
+END MODULE ICONTEXT
+
 MODULE IDATATREATMENT
    IMPLICIT NONE
@@ -88 +102 @@
    USE IXHANDLE
    USE IXML
+   USE ICONTEXT
    USE IDATATREATMENT
 
@@ -107 +122 @@
    ! ----------- Début du traitement ----------- !
 
+   CALL xios_context_set_current(context1, .TRUE.)
+
    ! Création et initialisation d'une instance de traitement des données dans 'context1'.
    CALL xios_dtreatment_new(dtreat, context1)