Changeset 17 for XMLIO_SERVER/trunk/src/XMLIO/mod_field_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_field_group.f90
r8 r17 113 113 114 114 115 SUBROUTINE field_group__get_default_attrib ut(Pt_fg,Pt_f)115 SUBROUTINE field_group__get_default_attrib(Pt_fg,Pt_f) 116 116 IMPLICIT NONE 117 117 TYPE(field_group),POINTER :: Pt_fg … … 119 119 120 120 Pt_f=>Pt_fg%default_attribut 121 END SUBROUTINE field_group__get_default_attrib ut121 END SUBROUTINE field_group__get_default_attrib 122 122 123 123
Note: See TracChangeset
for help on using the changeset viewer.