Changeset 371 for trunk/SRC/Utilities
- Timestamp:
- 08/07/08 11:32:02 (16 years ago)
- Location:
- trunk/SRC/Utilities
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Utilities/createfunc.pro
r327 r371 26 26 ; 27 27 ; @examples 28 ; IDL> print, createfunc('3*2', FILENAMEIN='test') 29 ; IDL> print, createfunc('3*two', FILENAMEIN='test' $ 30 ; IDL> , KWDLIST='two = two', TWO=2) 28 ; 29 ; IDL> print, createfunc('3*2', FILENAMEIN='test') 30 ; IDL> print, createfunc('3*two', FILENAMEIN='test' $ 31 ; IDL> , KWDLIST='two = two', TWO=2) 31 32 ; 32 33 ; @history -
trunk/SRC/Utilities/createpro.pro
r327 r371 29 29 ; 30 30 ; @examples 31 ; IDL> createpro, ['print,''OK'''], FILENAMEIN='test' 32 ; IDL> createpro, ['if keyword_set(ok) then print,''OK'' else print, ''No'''] $ 33 ; IDL> , FILENAMEIN='test', KWDLIST =', ok = ok' 34 ; IDL> createpro, ['if keyword_set(ok) then print,''OK'' else print, ''No'''] $ 35 ; IDL> , FILENAMEIN='test', KWDLIST= ', ok = ok', /ok 31 ; 32 ; IDL> createpro, ['print,''OK'''], FILENAMEIN='test' 33 ; IDL> createpro, ['if keyword_set(ok) then print,''OK'' else print, ''No'''] $ 34 ; IDL> , FILENAMEIN='test', KWDLIST =', ok = ok' 35 ; IDL> createpro, ['if keyword_set(ok) then print,''OK'' else print, ''No'''] $ 36 ; IDL> , FILENAMEIN='test', KWDLIST= ', ok = ok', /ok 36 37 ; 37 38 ; @history -
trunk/SRC/Utilities/def_myuniquetmpdir.pro
r325 r371 9 9 ; 10 10 ; @examples 11 ; IDL> def_myuniquetmpdir 11 ; 12 ; IDL> def_myuniquetmpdir 12 13 ; 13 14 ; @uses 14 ; cm_general15 ; <pro>cm_general</pro> 15 16 ; 16 17 ; @history -
trunk/SRC/Utilities/demomode_compatibility.pro
r325 r371 5 5 ; 6 6 ; @uses 7 ; cm_general7 ; <pro>cm_general</pro> 8 8 ; 9 9 ; @version -
trunk/SRC/Utilities/find.pro
r327 r371 72 72 ; 73 73 ; @examples 74 ; IDL> print, find('*loadct') 74 ; 75 ; IDL> print, find('*loadct') 75 76 ; /usr/local/rsi/idl_6.0/lib/utilities/xloadct.pro 76 77 ; /usr/local/rsi/idl_6.0/lib/loadct.pro 77 ; IDL> print, find('*loadct', iodir=!dir,/recursive)78 ; IDL> print, find('*loadct', iodir=!dir,/recursive) 78 79 ; /usr/local/rsi/idl_6.0/lib/loadct.pro 79 80 ; /usr/local/rsi/idl_6.0/lib/utilities/xloadct.pro 80 ; IDL> print, find('*loadct.pro')81 ; IDL> print, find('*loadct.pro') 81 82 ; /usr/local/rsi/idl_6.0/lib/utilities/xloadct.pro 82 83 ; /usr/local/rsi/idl_6.0/lib/loadct.pro 83 ; IDL> print, find('*loadct',/nopro)84 ; IDL> print, find('*loadct',/nopro) 84 85 ; NOT FOUND 85 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib')86 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib') 86 87 ; /usr/local/rsi/idl_6.0/lib/loadct.pro 87 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib', /test_write)88 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib', /test_write) 88 89 ; NOT FOUND 89 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib', /recursive)90 ; IDL> print, find('*loadct', iodir = '/usr/local/rsi/idl_6.0/lib', /recursive) 90 91 ; /usr/local/rsi/idl_6.0/lib/loadct.pro 91 92 ; /usr/local/rsi/idl_6.0/lib/utilities/xloadct.pro 92 ; IDL> print, find('mesh*', iodirectory = [iodir, !path])93 ; IDL> print, find('mesh*', iodirectory = [iodir, !path]) 93 94 ; /Users/sebastie/DATA/ORCA2/meshmaskORCA2closea.nc 94 95 ; /Users/sebastie/IDL/meshmaskclosesea.pro -
trunk/SRC/Utilities/fitintobox.pro
r327 r371 93 93 ; 94 94 ; @returns 95 ; an array with dimensions matching the domain 96 ; or -1 if there is an error... 95 ; an array with dimensions matching the domain or -1 if there is an error. 97 96 ; 98 97 ; @uses 99 ; cm_4mesh100 ; cm_4cal98 ; <pro>cm_4mesh</pro> 99 ; <pro>cm_4cal</pro> 101 100 ; 102 101 ; @examples 103 ; IDL> help, fitintobox(findgen(jpi,jpj)) 102 ; 103 ; IDL> help, fitintobox(findgen(jpi,jpj)) 104 104 ; <Expression> FLOAT = Array[41, 3] 105 ; IDL> help, fitintobox(findgen(jpi,jpj,78))105 ; IDL> help, fitintobox(findgen(jpi,jpj,78)) 106 106 ; Error: 107 107 ; the array dimensions [180,148,78] are incompatible -
trunk/SRC/Utilities/isadirectory.pro
r327 r371 27 27 ; @examples 28 28 ; 29 ; IDL> print, !dir29 ; IDL> print, !dir 30 30 ; /usr/local/rsi/idl_6.0 31 ; IDL> print, isadirectory(!dir)31 ; IDL> print, isadirectory(!dir) 32 32 ; /usr/local/rsi/idl_6.0/ 33 ; IDL> print, isadirectory(!dir+'notgood')33 ; IDL> print, isadirectory(!dir+'notgood') 34 34 ; 35 35 ; @history -
trunk/SRC/Utilities/isafile.pro
r327 r371 45 45 ; 46 46 ; @examples 47 ; IDL> print, isafile('/Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro') 47 ; 48 ; IDL> print, isafile('/Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro') 48 49 ; /Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro 49 ; IDL> print, isafile('cm_4mesh.pro', iodir = '/Users/sebastie/SAXO_RD/Commons')50 ; IDL> print, isafile('cm_4mesh.pro', iodir = '/Users/sebastie/SAXO_RD/Commons') 50 51 ; /Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro 51 ; IDL> print, isafile('cm_4mesh.pro', iodir = !path)52 ; IDL> print, isafile('cm_4mesh.pro', iodir = !path) 52 53 ; /Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro 53 ; IDL> print, isafile('cm_4mesh.pro', iodir = '/Users/sebastie/SAXO_RD', /recursive)54 ; IDL> print, isafile('cm_4mesh.pro', iodir = '/Users/sebastie/SAXO_RD', /recursive) 54 55 ; /Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro 55 ; IDL> print, isafile('cm_4mesh.pro', iodir = getenv('HOME'), /recursive)56 ; IDL> print, isafile('cm_4mesh.pro', iodir = getenv('HOME'), /recursive) 56 57 ; /Users/sebastie/SAXO_RD/Commons/cm_4mesh.pro 57 ; IDL> print, isafile('fake_file.pro')58 ; IDL> print, isafile('fake_file.pro') 58 59 ; 59 60 ; @history -
trunk/SRC/Utilities/linearequation.pro
r325 r371 28 28 ; 29 29 ; @examples 30 ; IDL> abc=linearequation(complex(1,2),[3,4]) 31 ; IDL> print, abc[0]*1+abc[1]*2+abc[2] 30 ; 31 ; IDL> abc=linearequation(complex(1,2),[3,4]) 32 ; IDL> print, abc[0]*1+abc[1]*2+abc[2] 32 33 ; 0.00000 33 34 ; -
trunk/SRC/Utilities/lineintersection.pro
r327 r371 39 39 ; 40 40 ; @examples 41 ; IDL> abc1=linearequation(complex(1,2),[3,4]) 42 ; IDL> abc2=linearequation(complex(1,2),[8,15]) 43 ; IDL> print, lineintersection(abc1, abc2) 41 ; 42 ; IDL> abc1=linearequation(complex(1,2),[3,4]) 43 ; IDL> abc2=linearequation(complex(1,2),[8,15]) 44 ; IDL> print, lineintersection(abc1, abc2) 44 45 ; ( 1.00000, 2.00000) 45 ; IDL> print, lineintersection(abc1, abc2,/float)46 ; IDL> print, lineintersection(abc1, abc2,/float) 46 47 ; 1.00000 2.00000 47 48 ; -
trunk/SRC/Utilities/protype.pro
r325 r371 18 18 ; @examples 19 19 ; 20 ; IDL> print, protype('protype')20 ; IDL> print, protype('protype') 21 21 ; func 22 ; IDL> print, protype('protype.pro')22 ; IDL> print, protype('protype.pro') 23 23 ; func 24 ; IDL> print, protype('init')24 ; IDL> print, protype('init') 25 25 ; batch 26 ; IDL> print, protype('plt')26 ; IDL> print, protype('plt') 27 27 ; proc 28 28 ; -
trunk/SRC/Utilities/report.pro
r327 r371 39 39 ; If there is not any widget activated: 40 40 ; 41 ; IDL> help, report('toto tata')41 ; IDL> help, report('toto tata') 42 42 ; % $MAIN$: toto tata 43 43 ; <Expression> INT = -1 44 ; IDL> help, report('does it works ?',/question)44 ; IDL> help, report('does it works ?',/question) 45 45 ; does it works ? y/n (default answer is y) 46 46 ; <Expression> BYTE = 1 47 ; IDL> help, report('question1: !C does it works ?',/question)47 ; IDL> help, report('question1: !C does it works ?',/question) 48 48 ; question1: 49 49 ; does it works ? y/n (default answer is y) -
trunk/SRC/Utilities/routine_name.pro
r325 r371 22 22 ; 23 23 ; @examples 24 ; IDL> print, routine_name() 24 ; 25 ; IDL> print, routine_name() 25 26 ; /usr1/com/smasson/IDL_RD/UTILITAIRE/report.pro 26 ; IDL> print, routine_name(1)27 ; IDL> print, routine_name(1) 27 28 ; /usr1/com/smasson/IDL_RD/PLOTS/DIVERS/determineminmax.pro 28 ; IDL> print, routine_name(2)29 ; IDL> print, routine_name(2) 29 30 ; /usr1/com/smasson/IDL_RD/PLOTS/DESSINE/plt.pro 30 ; IDL> print, routine_name(3)31 ; IDL> print, routine_name(3) 31 32 ; $MAIN$ 32 ; IDL> print, routine_name(4)33 ; IDL> print, routine_name(4) 33 34 ; $MAIN$ 34 35 ; -
trunk/SRC/Utilities/testvar.pro
r327 r371 15 15 ; 16 16 ; @examples 17 ; IDL> print, testvar(var=toto)17 ; IDL> print, testvar(var=toto) 18 18 ; 0 19 ; IDL> print, testvar(var='toto')19 ; IDL> print, testvar(var='toto') 20 20 ; toto 21 21 ; -
trunk/SRC/Utilities/undefine.pro
r325 r371 13 13 ; 14 14 ; @examples 15 ; IDL> a=116 ; IDL> undefine,a15 ; IDL> a=1 16 ; IDL> undefine,a 17 17 ; % Compiled module: UNDEFINE. 18 ; IDL> help, a18 ; IDL> help, a 19 19 ; A UNDEFINED = <Undefined> 20 20 ; -
trunk/SRC/Utilities/xfile.pro
r327 r371 23 23 ; 24 24 ; @examples 25 ; IDL> xfile,'plt' 25 ; 26 ; IDL> xfile,'plt' 26 27 ; 27 28 ; @history -
trunk/SRC/Utilities/xhelp.pro
r327 r371 20 20 ; 21 21 ; @examples 22 ; IDL> xhelp,'plt' 22 ; 23 ; IDL> xhelp,'plt' 23 24 ; 24 25 ; @history
Note: See TracChangeset
for help on using the changeset viewer.