Changeset 41 for XMLIO_SERVER


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90

    r26 r41  
    149149  END SUBROUTINE file_group__apply_default 
    150150 
    151   SUBROUTINE file_group__solve_field_ref(pt_fg) 
    152   IMPLICIT NONE 
    153     TYPE(file_group),POINTER  :: Pt_fg 
    154  
    155     INTEGER :: i 
     151  RECURSIVE SUBROUTINE file_group__solve_field_ref(pt_fg) 
     152  IMPLICIT NONE 
     153    TYPE(file_group),POINTER  :: Pt_fg 
     154 
     155    INTEGER :: i 
     156 
     157    DO i=1,Pt_fg%groups%size 
     158      CALL file_group__solve_field_ref(Pt_fg%groups%at(i)%pt) 
     159    ENDDO 
    156160     
    157161    DO i=1,Pt_fg%files%size 
Note: See TracChangeset for help on using the changeset viewer.