Changeset 42 for XMLIO_SERVER/trunk/src/XMLIO/mod_zoom.f90

Timestamp:

10/30/09 16:29:39 (15 years ago)

Author:

ymipsl

Message:

Correction bug sur les ids des file_group
+ possibilité de fixer les attributs des groupes à partir de l'ioserver

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_zoom.f90 (modified) (3 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_zoom.f90

@@ -30 +30 @@
   TYPE(vector_zoom),POINTER,SAVE             :: zoom_Ids
   TYPE(sorted_list),POINTER,SAVE,PRIVATE     :: Ids 
+
+  INTERFACE zoom__set_attribut
+    MODULE PROCEDURE zoom__set_attribut_id,zoom__set_attribut_pt
+  END INTERFACE
   
 CONTAINS
@@ -120 +124 @@
    END SUBROUTINE zoom__set   
 
- SUBROUTINE zoom__set_attribut(id,attrib)
+  SUBROUTINE zoom__set_attribut_id(id,attrib,ok)
+  USE mod_attribut
+  USE error_msg
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN)   :: id
+    TYPE(attribut),INTENT(IN)     :: attrib
+    LOGICAL,OPTIONAL,INTENT(OUT)  :: ok
+    
+    TYPE(zoom),POINTER              :: Pt_zoom
+    INTEGER                         :: Pos
+    LOGICAL                         :: success
+    
+    CALL sorted_list__find(Ids,hash(Id),Pos,success)
+    IF (success) THEN
+      Pt_zoom=>zoom_ids%at(Pos)%Pt
+      CALL zoom__set_attribut_pt(Pt_zoom,attrib)
+      IF (PRESENT(OK)) OK=.TRUE.
+    ELSE
+      IF (.NOT.PRESENT(OK)) THEN
+        WRITE(message,*) 'zoom id :',id,'is undefined'
+        CALL error('mod_zoom::zoom__set_attribut')
+      ELSE
+        OK=.FALSE.
+      ENDIF
+    ENDIF  
+  
+  END SUBROUTINE zoom__set_attribut_id
+      
+  SUBROUTINE zoom__set_attribut_pt(Pt_zoom,attrib)
   USE mod_attribut
   USE mod_zoom_attribut
   USE error_msg
   IMPLICIT NONE
-    CHARACTER(LEN=*),INTENT(IN) :: id
+    TYPE(zoom),POINTER        :: Pt_zoom
     TYPE(attribut),INTENT(IN) :: attrib
-
-    TYPE(zoom),POINTER             :: Pt_zoom
-    INTEGER                         :: Pos
-    LOGICAL                         :: success
-    
-    CALL sorted_list__find(Ids,hash(Id),Pos,success)
-    IF (success) THEN
-      Pt_zoom=>zoom_ids%at(Pos)%Pt
-    ELSE
-      WRITE(message,*) 'zoom id :',id,'is undefined'
-      CALL error('mod_zoom::zoom__set_attribut')
-    ENDIF  
     
     SELECT CASE(attrib%name)
@@ -155 +175 @@
      END SELECT
 
-     WRITE(message,*) 'zoom id ',id,' : Attribute type is incompatible with the provided value'
+     WRITE(message,*) 'zoom attribut ',attrib%name,' : type :',attrib%type,' : Attribute type is incompatible with the provided value'
      CALL error('mod_zoom::zoom__set_attribut')
     
-  END SUBROUTINE zoom__set_attribut
+  END SUBROUTINE zoom__set_attribut_pt
 
   SUBROUTINE zoom__get(Id,pt_zoom)