Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_field_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_field_group.f90
r17 r26 16 16 INCLUDE "vector_field_group_def.inc" 17 17 18 TYPE(vector_field_group), POINTER :: field_group_Ids19 TYPE(sorted_list),POINTER, PRIVATE :: Ids18 TYPE(vector_field_group),SAVE,POINTER :: field_group_Ids 19 TYPE(sorted_list),POINTER,SAVE,PRIVATE :: Ids 20 20 21 21 CONTAINS … … 23 23 INCLUDE "vector_field_group_contains.inc" 24 24 25 26 SUBROUTINE field_group__swap_context(saved_field_group_ids, saved_ids) 27 IMPLICIT NONE 28 TYPE(vector_field_group),POINTER :: saved_field_group_Ids 29 TYPE(sorted_list),POINTER :: saved_Ids 30 31 field_group_ids=>saved_field_group_ids 32 ids=>saved_ids 33 34 END SUBROUTINE field_group__swap_context 35 25 36 SUBROUTINE field_group__init 26 37 IMPLICIT NONE 27 28 ALLOCATE(field_group_Ids)29 ALLOCATE(Ids)30 38 31 39 CALL vector_field_group__new(field_group_Ids)
Note: See TracChangeset
for help on using the changeset viewer.