Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90
- Timestamp:
- 03/27/09 18:02:59 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90
r17 r26 15 15 INCLUDE "vector_file_group_def.inc" 16 16 17 TYPE(vector_file_group),POINTER :: file_group_Ids18 TYPE(sorted_list),POINTER,PRIVATE :: Ids17 TYPE(vector_file_group),POINTER,SAVE :: file_group_Ids 18 TYPE(sorted_list),POINTER,PRIVATE,SAVE :: Ids 19 19 20 20 CONTAINS … … 22 22 INCLUDE "vector_file_group_contains.inc" 23 23 24 SUBROUTINE file_group__swap_context(saved_file_group_ids,saved_ids) 25 IMPLICIT NONE 26 TYPE(vector_file_group),POINTER :: saved_file_group_Ids 27 TYPE(sorted_list),POINTER :: saved_Ids 28 29 file_group_ids=>saved_file_group_ids 30 ids=>saved_ids 31 32 END SUBROUTINE file_group__swap_context 33 24 34 SUBROUTINE file_group__init 25 35 IMPLICIT NONE 26 27 ALLOCATE(file_group_Ids)28 ALLOCATE(Ids)29 36 30 37 CALL vector_file_group__new(file_group_Ids)
Note: See TracChangeset
for help on using the changeset viewer.