Changeset 41

Timestamp:

10/29/09 19:59:55 (15 years ago)

Author:

ymipsl

Message:

Les groupes de fichiers n'effectuaient pas correctement l'héritahe

YM

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90

@@ -149 +149 @@
   END SUBROUTINE file_group__apply_default
 
-  SUBROUTINE file_group__solve_field_ref(pt_fg)
-  IMPLICIT NONE
-    TYPE(file_group),POINTER  :: Pt_fg
-
-    INTEGER :: i
+  RECURSIVE SUBROUTINE file_group__solve_field_ref(pt_fg)
+  IMPLICIT NONE
+    TYPE(file_group),POINTER  :: Pt_fg
+
+    INTEGER :: i
+
+    DO i=1,Pt_fg%groups%size
+      CALL file_group__solve_field_ref(Pt_fg%groups%at(i)%pt)
+    ENDDO
     
     DO i=1,Pt_fg%files%size