Changeset 213
- Timestamp:
- 02/16/07 12:29:17 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Grid/computegrid.pro
r209 r213 1068 1068 , PLAIN = plain, SHIFT = shift, STRIDE = stride $ 1069 1069 , FULLCGRID = fullcgrid, XYINDEX = xyindex $ 1070 , UBASE2TBASE = ubase2tbase, VBASE2TBASE = vbase2tbase $ 1070 1071 , FBASE2TBASE = fbase2tbase, STRCALLING = strcalling $ 1071 1072 , ROMSH = romsh, _extra = ex -
trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro
r163 r213 29 29 ; @keyword INVERT 30 30 ; Invert the logic. Clear all unselected variables. 31 ; Therefore " clearplt,/all,/invert" does nothing.31 ; Therefore "reinitplt,/all,/invert" does nothing. 32 32 ; 33 33 ; @uses -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro
r192 r213 34 34 ; 35 35 ;- 36 PRO loadgrid, meshfilein, _extra = ex 37 ; 36 PRO loadgrid, meshfiletxtin, _extra = ex 38 37 ; 38 meshfilein = strsed(meshfiletxtin,'@@@', '''') 39 39 ; 40 40 compile_opt idl2, strictarrsubs … … 63 63 ENDELSE 64 64 ; add the arguments and keywords if necessary 65 IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN BEGIN 66 FOR i = 1, n_elements(meshfile)-1 DO BEGIN 67 IF strpos(meshfile[i], '.') NE -1 THEN str = isnumber(meshfile[i]) ELSE str = createfunc('n_elements('+meshfile[i]+')') 68 IF str EQ 0 THEN listing = listing + ', ''' + meshfile[i] + '''' ELSE listing = listing + ', ' + meshfile[i] 69 ENDFOR 70 ENDIF 65 IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $ 66 listing = listing + strmid(meshfilein, strpos(meshfilein, ',')) 71 67 68 meshfilein = strsed(meshfilein, '''', '@@@') 72 69 IF strmid(listing, 0, 1) NE '@' THEN listing = listing + ', strcalling = ''' + meshfilein + ''', _extra = ex' 73 70 -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro
r202 r213 172 172 widget_control, event.handler, /destroy 173 173 END 174 174 ELSE: 175 175 endcase 176 176 return
Note: See TracChangeset
for help on using the changeset viewer.