Changeset 231 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro
- Timestamp:
- 03/19/07 18:15:51 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro
r213 r231 1 1 ;+ 2 ; 2 3 ; @file_comments 3 ;4 4 ; 5 5 ; @categories 6 6 ; 7 ;8 7 ; @param MESHFILEIN 9 8 ; 10 ;11 9 ; @keyword _EXTRA 12 ; Used to pass yourkeywords13 ; 10 ; Used to pass keywords 11 ; 14 12 ; @returns 15 ; 16 ; 13 ; 17 14 ; @uses 18 ; 19 ; 15 ; 20 16 ; @restrictions 21 ; 22 ; 17 ; 23 18 ; @examples 24 ; 25 ; 19 ; 26 20 ; @history 27 ; 28 ; 29 ; @version 21 ; 22 ; @version 30 23 ; $Id$ 31 24 ; … … 34 27 ; 35 28 ;- 29 ; 36 30 PRO loadgrid, meshfiletxtin, _extra = ex 37 ; 31 ; 38 32 meshfilein = strsed(meshfiletxtin,'@@@', '''') 39 33 ; … … 47 41 ; try to find a .pro file with this name... 48 42 filepro = (find(meshfile[0], /firstfound, /onlypro))[0] 49 ; if this is an idl batch file or a procedure 43 ; if this is an idl batch file or a procedure 50 44 if filepro NE 'NOT FOUND' THEN BEGIN 51 45 CASE protype(filepro) OF … … 63 57 ENDELSE 64 58 ; add the arguments and keywords if necessary 65 IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $ 59 IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $ 66 60 listing = listing + strmid(meshfilein, strpos(meshfilein, ',')) 67 61 … … 72 66 73 67 return 74 END 68 END
Note: See TracChangeset
for help on using the changeset viewer.