Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_file.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.f90
r8 r26 30 30 INCLUDE 'vector_file_contains.inc' 31 31 32 SUBROUTINE file__swap_context(saved_file_ids,saved_ids) 33 IMPLICIT NONE 34 TYPE(vector_file),POINTER :: saved_file_Ids 35 TYPE(sorted_list),POINTER :: saved_Ids 36 37 file_ids=>saved_file_ids 38 ids=>saved_ids 39 40 END SUBROUTINE file__swap_context 41 42 32 43 SUBROUTINE file__init 33 44 IMPLICIT NONE 34 35 ALLOCATE(file_Ids)36 ALLOCATE(Ids)37 45 38 46 CALL vector_file__new(file_Ids)
Note: See TracChangeset
for help on using the changeset viewer.