Changes in XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90 [26:17]

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90

@@ -15 +15 @@
   INCLUDE "vector_file_group_def.inc"  
 
-  TYPE(vector_file_group),POINTER,SAVE       :: file_group_Ids
-  TYPE(sorted_list),POINTER,PRIVATE,SAVE     :: Ids 
+  TYPE(vector_file_group),POINTER       :: file_group_Ids
+  TYPE(sorted_list),POINTER,PRIVATE     :: Ids 
 
 CONTAINS
@@ -22 +22 @@
   INCLUDE "vector_file_group_contains.inc"
 
-  SUBROUTINE file_group__swap_context(saved_file_group_ids,saved_ids)
-  IMPLICIT NONE
-    TYPE(vector_file_group),POINTER      :: saved_file_group_Ids
-    TYPE(sorted_list),POINTER            :: saved_Ids
-    
-    file_group_ids=>saved_file_group_ids
-    ids=>saved_ids 
- 
-  END SUBROUTINE file_group__swap_context
-
   SUBROUTINE file_group__init
   IMPLICIT NONE
+    
+    ALLOCATE(file_group_Ids)
+    ALLOCATE(Ids)
     
     CALL vector_file_group__new(file_group_Ids)