Changeset 41
- Timestamp:
- 10/29/09 19:59:55 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90
r26 r41 149 149 END SUBROUTINE file_group__apply_default 150 150 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 156 160 157 161 DO i=1,Pt_fg%files%size
Note: See TracChangeset
for help on using the changeset viewer.