Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_grid_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_grid_group.f90
r17 r26 15 15 INCLUDE "vector_grid_group_def.inc" 16 16 17 TYPE(vector_grid_group),POINTER :: grid_group_Ids18 TYPE(sorted_list),POINTER, PRIVATE :: Ids17 TYPE(vector_grid_group),POINTER,SAVE :: grid_group_Ids 18 TYPE(sorted_list),POINTER,SAVE,PRIVATE :: Ids 19 19 20 20 CONTAINS … … 22 22 INCLUDE "vector_grid_group_contains.inc" 23 23 24 SUBROUTINE grid_group__swap_context(saved_grid_group_Ids,saved_ids) 25 IMPLICIT NONE 26 TYPE(vector_grid_group),POINTER :: saved_grid_group_Ids 27 TYPE(sorted_list),POINTER :: saved_Ids 28 29 grid_group_ids=>saved_grid_group_ids 30 ids=>saved_ids 31 32 END SUBROUTINE grid_group__swap_context 33 24 34 SUBROUTINE grid_group__init 25 35 IMPLICIT NONE 26 27 ALLOCATE(grid_group_Ids)28 ALLOCATE(Ids)29 36 30 37 CALL vector_grid_group__new(grid_group_Ids)
Note: See TracChangeset
for help on using the changeset viewer.