Changeset 17 for XMLIO_SERVER/trunk/src/XMLIO/mod_grid_group.f90
- Timestamp:
- 02/16/09 14:24:05 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/XMLIO/mod_grid_group.f90
r8 r17 113 113 114 114 115 SUBROUTINE grid_group__get_default_attrib ut(Pt_gg,Pt_g)115 SUBROUTINE grid_group__get_default_attrib(Pt_gg,Pt_g) 116 116 IMPLICIT NONE 117 117 TYPE(grid_group),POINTER :: Pt_gg … … 119 119 120 120 Pt_g=>Pt_gg%default_attribut 121 END SUBROUTINE grid_group__get_default_attrib ut121 END SUBROUTINE grid_group__get_default_attrib 122 122 123 123 RECURSIVE SUBROUTINE grid_group__apply_default(Pt_gg,default)
Note: See TracChangeset
for help on using the changeset viewer.