Changeset 226 for trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro
r163 r226 13 13 ; 14 14 ; @param LISTE {in}{required}{type=vector} 15 ; A vector of string including names of STRU to be deleted 15 ; A vector of string including names of STRU to be deleted 16 16 ; (by default) or to be kept (if KEEP is activated). 17 17 ; … … 48 48 ; @version 49 49 ; $Id$ 50 ; 50 ; 51 51 ;- 52 52 ;------------------------------------------------------------ … … 59 59 if size(stru, /type) NE 8 then return, -1 60 60 if size(liste, /type) NE 7 then return, -1 61 ; che king for keep and vire keywords61 ; checking for keep and vire keywords 62 62 keep = keyword_set(keep)*(1-keyword_set(delete)) 63 63 delete = keyword_set(delete)*(1-keyword_set(keep)) +(keyword_set(delete) EQ keep) … … 80 80 if n_elements(index) GT 1 then for i = 1, n_elements(index)-1 do $ 81 81 res = create_struct(res, tname[index[i]], stru.(index[i])) 82 ENDELSE 82 ENDELSE 83 83 84 84 return, res
Note: See TracChangeset
for help on using the changeset viewer.