Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_axis.f90
- Timestamp:
- 03/27/09 18:02:59 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/XMLIO/mod_axis.f90
r8 r26 31 31 INCLUDE 'vector_axis_contains.inc' 32 32 33 SUBROUTINE axis__swap_context(saved_axis_Ids,saved_Ids) 34 IMPLICIT NONE 35 TYPE(vector_axis),POINTER :: saved_axis_Ids 36 TYPE(sorted_list),POINTER :: saved_Ids 37 38 axis_ids=>saved_axis_ids 39 ids=>saved_ids 40 41 END SUBROUTINE axis__swap_context 42 33 43 SUBROUTINE axis__init 34 44 IMPLICIT NONE 35 36 ALLOCATE(axis_Ids)37 ALLOCATE(Ids)38 45 39 46 CALL vector_axis__new(axis_Ids)
Note: See TracChangeset
for help on using the changeset viewer.