Changeset 327
- Timestamp:
- 12/13/07 17:22:35 (16 years ago)
- Location:
- trunk/SRC
- Files:
-
- 210 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Calendar/caldat.pro
r325 r327 10 10 ; Calendar 11 11 ; 12 ; @param JULIAN{in}{required} {type=long integer or double-precision floating-point}12 ; @param julian {in}{required} {type=long integer or double-precision floating-point} 13 13 ; contains the Julian Day Number (which begins at noon) of the 14 14 ; specified calendar date. 15 15 ; 16 ; @param MONTH{out} {type=longword integer}16 ; @param month {out} {type=longword integer} 17 17 ; Number of the desired month (1 = January, ..., 12 = December). 18 18 ; 19 ; @param DAY{out} {type=longword integer}19 ; @param day {out} {type=longword integer} 20 20 ; Number of day of the month. 21 21 ; 22 ; @param YEAR{out} {type=longword integer}22 ; @param year {out} {type=longword integer} 23 23 ; Number of the desired year. 24 24 ; 25 ; @param HOUR{out} {type=longword integer}25 ; @param hour {out} {type=longword integer} 26 26 ; Hour of the day 27 27 ; 28 ; @param MINUTE{out} {type=longword integer}28 ; @param minute {out} {type=longword integer} 29 29 ; Minute of the day 30 30 ; 31 ; @param SECOND{out} {type=double-precision floating-point}31 ; @param second {out} {type=double-precision floating-point} 32 32 ; Second (and fractions) of the day. 33 33 ; … … 64 64 ; 65 65 ;- 66 PRO caldat, julian, month, day, year, hour, minute, second, NDAYSPM =ndayspm66 PRO caldat, julian, month, day, year, hour, minute, second, NDAYSPM=ndayspm 67 67 ; 68 68 compile_opt idl2, strictarrsubs -
trunk/SRC/Calendar/date2jul.pro
r325 r327 73 73 ; 74 74 ;- 75 function date2jul, date, GRADS = grads, MONTH = month, DAY = day, YEAR =year $76 , HOUR = hour, MINUTE = minute, SECOND =second75 FUNCTION date2jul, date, GRADS=grads, MONTH=month, DAY=day, YEAR=year $ 76 , HOUR=hour, MINUTE=minute, SECOND=second 77 77 ; 78 78 compile_opt idl2, strictarrsubs 79 79 ; 80 usage="res=date2jul, date, GRADS = grads, MONTH = month, DAY = day, YEAR = year , HOUR = hour, MINUTE = minute, SECOND =second"80 usage="res=date2jul, date, GRADS=grads, MONTH=month, DAY=day, YEAR=year , HOUR=hour, MINUTE=minute, SECOND=second" 81 81 ; 82 82 ; check parameters -
trunk/SRC/Calendar/date2string.pro
r325 r327 33 33 ; 34 34 ;- 35 FUNCTION date2string, yyyymmdd, _EXTRA =ex35 FUNCTION date2string, yyyymmdd, _EXTRA=ex 36 36 ; 37 37 compile_opt idl2, strictarrsubs -
trunk/SRC/Calendar/jul2date.pro
r325 r327 69 69 ; 70 70 ;- 71 function jul2date, jday, MONTH = month, DAY = day, YEAR =year $72 , HOUR = hour, MINUTE = minute, SECOND =second71 function jul2date, jday, MONTH=month, DAY=day, YEAR=year $ 72 , HOUR=hour, MINUTE=minute, SECOND=second 73 73 ; 74 74 compile_opt idl2, strictarrsubs -
trunk/SRC/Calendar/julday.pro
r325 r327 10 10 ; Calendar 11 11 ; 12 ; @param MONTH{in}{optional} {type=scalar (integer or double) or array of scalars}12 ; @param month {in}{optional} {type=scalar (integer or double) or array of scalars} 13 13 ; Number of the desired month (1 = January, ..., 12 = December). 14 14 ; 15 ; @param DAY{in}{optional} {type=scalar (integer or double) or array of scalars}15 ; @param day {in}{optional} {type=scalar (integer or double) or array of scalars} 16 16 ; Number of day of the month. 17 17 ; 18 ; @param YEARin {in}{optional} {type=scalar (integer or double) or array of scalars}18 ; @param yearin {in}{optional} {type=scalar (integer or double) or array of scalars} 19 19 ; Number of the desired year.Year parameters must be valid 20 20 ; values from the civil calendar. Years B.C.E. are represented … … 27 27 ; <pro>caldat</pro> so caldat, julday(1,1,0) gives you back Jan 1st of year 0) 28 28 ; 29 ; @param HOUR{in}{optional} {type=scalar (integer or double) or array of scalars} {default=12}29 ; @param hour {in}{optional} {type=scalar (integer or double) or array of scalars} {default=12} 30 30 ; Number of the hour of the day. 31 31 ; 32 ; @param MINUTE{in}{optional} {type=scalar (integer or double) or array of scalars} {default=0}32 ; @param minute {in}{optional} {type=scalar (integer or double) or array of scalars} {default=0} 33 33 ; Number of the minute of the hour. 34 34 ; 35 ; @param SECOND{in}{optional} {type=scalar (integer or double) or array of scalars} {default=0}35 ; @param second {in}{optional} {type=scalar (integer or double) or array of scalars} {default=0} 36 36 ; Number of the second of the minute. 37 37 ; … … 81 81 ; $Id$ 82 82 ;- 83 FUNCTION julday, month, day, yearin, hour, minute, second, NDAYSPM =ndayspm83 FUNCTION julday, month, day, yearin, hour, minute, second, NDAYSPM=ndayspm 84 84 ; 85 85 compile_opt idl2, strictarrsubs -
trunk/SRC/Calendar/leapyr.pro
r325 r327 43 43 ; 44 44 ;- 45 functionleapyr, year45 FUNCTION leapyr, year 46 46 ; 47 47 compile_opt idl2, strictarrsubs -
trunk/SRC/Calendar/monthname.pro
r325 r327 32 32 ; 33 33 ;- 34 FUNCTION monthname, month, _EXTRA =ex34 FUNCTION monthname, month, _EXTRA=ex 35 35 ; 36 36 compile_opt idl2, strictarrsubs -
trunk/SRC/Colors/color24.pro
r325 r327 36 36 ;- 37 37 FUNCTION color24, rgb_triple 38 ; 38 39 compile_opt idl2, strictarrsubs 39 40 ; -
trunk/SRC/Colors/colorbar.pro
r325 r327 117 117 ; 118 118 ;- 119 PRO colorbar, BOTTOM=bottom, CB_CHARSIZE=cb_charsize, CB_CHARTHICK=cb_charthick $ 120 , CB_COLOR=cb_color, DIVISIONS=divisions, DISCRETE=discrete $ 121 , CB_LABEL = cb_label, FORMAT=format, POSITION=position $ 122 , MAX = max, MIN = min, NCOLORS = ncolors, PSCOLOR=pscolor $ 123 , CB_TITLE = cb_title, VERTICAL = vertical, TOP = top, RIGHT = right $ 124 , CB_LOG = CB_log, NOTITLE = notitle, _EXTRA = ex 119 PRO colorbar, BOTTOM=bottom, CB_CHARSIZE=cb_charsize $ 120 , CB_CHARTHICK=cb_charthick $ 121 , CB_COLOR=cb_color, DIVISIONS=divisions, DISCRETE=discrete $ 122 , CB_LABEL=cb_label, FORMAT=format, POSITION=position $ 123 , MAX=max, MIN=min, NCOLORS=ncolors, PSCOLOR=pscolor $ 124 , CB_TITLE=cb_title, VERTICAL=vertical, TOP=top, RIGHT=right $ 125 , CB_LOG=CB_log, NOTITLE=notitle, _EXTRA=ex 125 126 ; 126 127 compile_opt idl2, strictarrsubs -
trunk/SRC/Colors/getcolor.pro
r325 r327 18 18 ; Graphics, Color 19 19 ; 20 ; @param this Color {in}{optional}20 ; @param thiscolor {in}{optional} 21 21 ; A string with the "name" of the color. Valid names are: 22 22 ; black … … 189 189 ; @version 190 190 ; $Id$ 191 ; 191 192 ;- 192 FUNCTION getcolor, this Color, index, TRUE=truecolor,$193 NAMES=colornames, LOAD=load, START=start193 FUNCTION getcolor, thiscolor, index, TRUE=truecolor $ 194 , NAMES=colornames, LOAD=load, START=start 194 195 ; 195 196 compile_opt idl2, strictarrsubs -
trunk/SRC/Colors/lct.pro
r325 r327 36 36 ; 37 37 ;- 38 PRO lct, numpal, FILE = file, GET_NAME = get_name, LIGHTNESS = Lightness, _EXTRA =ex38 PRO lct, numpal, FILE=file, GET_NAME=get_name, LIGHTNESS=lightness, _EXTRA=ex 39 39 ; 40 40 compile_opt idl2, strictarrsubs -
trunk/SRC/Colors/newpalette.pro
r325 r327 30 30 ; 31 31 ;- 32 pro newpalette, namepal, FILE = file, OVER = over, _EXTRA =ex32 PRO newpalette, namepal, FILE=file, OVER=over, _EXTRA=ex 33 33 ; 34 34 compile_opt idl2, strictarrsubs -
trunk/SRC/Colors/xlct.pro
r325 r327 4 4 ; 5 5 ;- 6 PRO xlct_psave ;Save/Restore our plotting state. 7 ; Swaps our state with the current state each time its called. 6 PRO xlct_psave 7 ; Save/Restore our plotting state. 8 ; Swaps our state with the current state each time its called. 8 9 ; 9 10 compile_opt idl2, strictarrsubs … … 470 471 ;- 471 472 PRO xlct, SILENT=silent_f, GROUP=group, FILE=file, $ 472 USE_CURRENT=use_current, NCOLORS =nc, BOTTOM=bottom, $473 USE_CURRENT=use_current, NCOLORS=nc, BOTTOM=bottom, $ 473 474 MODAL=modal, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 474 475 UPDATECBDATA=updt_cb_data -
trunk/SRC/Computation/curl.pro
r325 r327 72 72 ; 73 73 ;- 74 FUNCTION curl, uu, vv, DIREC = direc, MILLION = million, _EXTRA =ex74 FUNCTION curl, uu, vv, DIREC=direc, MILLION=million, _EXTRA=ex 75 75 ; 76 76 compile_opt idl2, strictarrsubs -
trunk/SRC/Computation/div.pro
r325 r327 70 70 ; 71 71 ;- 72 FUNCTION div, uu, vv, DIREC = direc, MILLION = million, _EXTRA =ex72 FUNCTION div, uu, vv, DIREC=direc, MILLION=million, _EXTRA=ex 73 73 ; 74 74 compile_opt idl2, strictarrsubs -
trunk/SRC/Computation/grad.pro
r325 r327 52 52 ; 53 53 ;- 54 FUNCTION grad, field, direc, MILLION = million, _EXTRA =ex54 FUNCTION grad, field, direc, MILLION=million, _EXTRA=ex 55 55 ; 56 56 compile_opt idl2, strictarrsubs -
trunk/SRC/Computation/norm.pro
r325 r327 63 63 ; 64 64 ;- 65 FUNCTION norm, uu, vv, DIREC = direc, _EXTRA =ex65 FUNCTION norm, uu, vv, DIREC=direc, _EXTRA=ex 66 66 ; 67 67 compile_opt idl2, strictarrsubs -
trunk/SRC/Documentation/xmldoc/doidldoc.sh
r325 r327 6 6 # update : 7 7 # $Id$ 8 # fplod 2007-12-12T09:47:04Z aedon.locean-ipsl.upmc.fr (Darwin) 9 # version 10 # http://michaelgalloy.com/wp-content/uploads/2007/12/idldoc-3.0b4.zip 11 # fplod 2007-12-11T09:14:04Z aedon.locean-ipsl.upmc.fr (Darwin) 12 # version 13 # http://michaelgalloy.com/wp-content/uploads/2007/12/idldoc-3.0b4-src.zip 14 # ++ pb path 15 # beginning of docbook templates writing (from html 3.0b3 tt files) 16 # fplod 2007-12-10T09:28:11Z aedon.locean-ipsl.upmc.fr (Darwin) 17 # test with gdl : pas possible car compatibility < 6.1 8 18 # fplod 2007-12-04T09:21:18Z aedon.locean-ipsl.upmc.fr (Darwin) 9 19 # version … … 25 35 set -x 26 36 set -u 37 # ++ test si idl (car gdl inutilisable) 38 application=idl 27 39 assistant=0 28 40 transform=0 29 41 title="SAXO Documentation" # ++ parametre 30 root="../../mglib/" # overriding root for test ++31 42 root="../../" 43 root="/Users/fplod/SAXO_DIR_ws/SRC/" #++ à cause du cd pour éviter expand_path 44 #root="/usr/home/fplod/src/mglib/" # overriding root for test ++ 45 # 32 46 # 33 47 idldoc_dir="../idldoc/" # 34 idldoc_dir="/Users/fplod/Desktop/idldoc-3.0b3" # overriding idldoc_dir for test ++ 48 idldoc_dir="/usr/home/fplod/src/idldoc-3.0b3/" # overriding idldoc_dir for ctest ++ 49 #idldoc_dir="/usr/home/fplod/src/idldoc-3.0b4-src/" # overriding idldoc_dir for test ++ 50 idldoc_dir="/usr/home/fplod/src/idldoc-3.0b4/" # overriding idldoc_dir for test ++ 51 template_location=${idldoc_dir}/templates/ 52 #++ pas fini 53 #template_location=${idldoc_dir}/templates_dbk/ # overriding TEMPLATE_LOCATION++ 35 54 # 36 55 # memorize current directory … … 44 63 log="/tmp/idldochtml_${$}.log" 45 64 pro="/tmp/idldochtml_${$}.pro" 65 66 #+++ a remettre pour dbk template_location="${template_location}", $ 67 # !path = expand_path('+' + '${idldoc_dir}') 68 cd ${idldoc_dir} 69 pwd 70 read a 46 71 cat <<EOF > ${pro} 47 !path = expand_path('+' + '${idldoc_dir}')48 72 idldoc,root="${root}",title="${title}", $ 49 73 LOG_FILE="${log}", $ 50 74 output="${outputtmp}", $ 75 template_location="${template_location}", $ 76 COMMENT_STYLE="latex", $ 51 77 overview="../../overview", /statistics 52 78 exit 53 79 EOF 80 more ${pro} 81 read a 54 82 # launch idl with the file built above 55 IDL_STARTUP=${pro};${ IDL_DIR}/bin/idl83 IDL_STARTUP=${pro};${application} 56 84 /bin/rm ${pro} 57 85 # -
trunk/SRC/Documentation/xmldoc/mini_notice.xml
r255 r327 123 123 <sect3 id="initmethodtxt"><title>Grid initialization method</title> 124 124 <para> 125 For visualising grilled data, you need to <ulink url="./firststeps.html#load_grid">define the grid</ulink> on which are located the data. By default, "automatic grid construction with initncdf.pro" is checked. This means that the grid will be defined by using the informations contained in the data file (through the IDL prodecure <command>initncdf</command>) without needing any other auxil lary file. If you checked "grid construction with other IDL batch or procedure", this means that you don't want to use the default <command>initncdf</command> procedure to define the grid and you will provide your own IDL procedure or the so-called IDL batch file (a file which is called by using @, see IDL documentation).125 For visualising grilled data, you need to <ulink url="./firststeps.html#load_grid">define the grid</ulink> on which are located the data. By default, "automatic grid construction with initncdf.pro" is checked. This means that the grid will be defined by using the informations contained in the data file (through the IDL prodecure <command>initncdf</command>) without needing any other auxiliary file. If you checked "grid construction with other IDL batch or procedure", this means that you don't want to use the default <command>initncdf</command> procedure to define the grid and you will provide your own IDL procedure or the so-called IDL batch file (a file which is called by using @, see IDL documentation). 126 126 </para> 127 127 </sect3> -
trunk/SRC/Documentation/xmldoc/savesaxo.sh
r325 r327 101 101 set -u 102 102 # 103 docompileall= 0103 docompileall=1 104 104 dohtml=0 105 105 dooldtest=0 106 106 doidlwavedoc=0 107 doidldoc= 1107 doidldoc=0 108 108 doTARsrc=0 109 109 doTARdata=0 -
trunk/SRC/ForOldVersion/oldcm_empty.pro
r325 r327 1 1 ;+ 2 ; 2 3 ; @file_comments 3 4 ; For internal use of SAXO … … 18 19 ; IDLDOC: unknown tag "file_comments" in file oldcm_empty.pro 19 20 ; IDLDOC: unknown tag "categories" in file oldcm_empty.pro 21 ; 20 22 ;- 21 23 ; -
trunk/SRC/ForOldVersion/updatenew.pro
r325 r327 15 15 ; @version 16 16 ; $Id$ 17 ; 17 18 ;- 18 19 IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility -
trunk/SRC/Grid/changemsk.pro
r325 r327 30 30 ; 31 31 ;- 32 FUNCTION changemsk,tab, CELLSIZE =cellsize32 FUNCTION changemsk,tab, CELLSIZE=cellsize 33 33 ; 34 34 compile_opt idl2, strictarrsubs -
trunk/SRC/Grid/computegrid.pro
r325 r327 93 93 ; the labels 'longitude', 'latitude' in plots). 94 94 ; The resulting value will be stored in the common (cm_4mesh) variable key_onearth 95 ; ONEARTH = 0 forces PERIODIC = 0, SHIFT =0 and is cancelling GLAMBOUNDARY95 ; ONEARTH=0 forces PERIODIC=0, SHIFT=0 and is cancelling GLAMBOUNDARY 96 96 ; 97 97 ; @keyword PERIODIC {default=computed by using the first line of glamt}{type=scalar: 0 or 1} 98 98 ; Force the manual definition of the grid zonal periodicity. 99 99 ; The resulting value will be stored in the common (cm_4mesh) variable key_periodic 100 ; PERIODIC = 0 forces SHIFT =0100 ; PERIODIC=0 forces SHIFT=0 101 101 ; 102 102 ; @keyword PLAIN {default=0}{type=scalar: 0 or 1} 103 ; Force YREVERSE = 0, ZREVERSE = 0, PERIODIC = 0, SHIFT = 0, STRIDE =[1, 1, 1] and103 ; Force YREVERSE=0, ZREVERSE=0, PERIODIC=0, SHIFT=0, STRIDE=[1, 1, 1] and 104 104 ; suppress the automatic redefinition of the domain in case of x periodicity overlap, 105 105 ; y periodicity overlap (ORCA type only) and mask border to 0. … … 108 108 ; Force the manual definition of the zonal shift that must be apply to the data. 109 109 ; The resulting value will be stored in the common (cm_4mesh) variable key_shift 110 ; Note that if key_periodic=0 then in any case key_shift =0.110 ; Note that if key_periodic=0 then in any case key_shift=0. 111 111 ; 112 112 ; @keyword STRCALLING {type=string} … … 249 249 ;- 250 250 PRO computegrid, startx, starty, stepxin, stepyin, nxin, nyin $ 251 , XAXIS = xaxis, YAXIS = yaxis, ZAXIS =zaxis $252 , MASK = mask, GLAMBOUNDARY =glamboundary $253 , XMINMESH = xminmesh, XMAXMESH =xmaxmesh $254 , YMINMESH = yminmesh, YMAXMESH =ymaxmesh $255 , ZMINMESH = zminmesh, ZMAXMESH =zmaxmesh $256 , ONEARTH = onearth, PERIODIC =periodic $257 , PLAIN = plain, SHIFT = shift, STRIDE =stride $258 , YREVERSE = yreverse, ZREVERSE =zreverse $259 , FULLCGRID = fullcgrid, XYINDEX =xyindex $260 , UBASE2TBASE = ubase2tbase, VBASE2TBASE =vbase2tbase $261 , FBASE2TBASE =fbase2tbase $262 , STRCALLING = strcalling, ROMSH = romsh, _EXTRA =ex251 , XAXIS=xaxis, YAXIS=yaxis, ZAXIS=zaxis $ 252 , MASK=mask, GLAMBOUNDARY=glamboundary $ 253 , XMINMESH=xminmesh, XMAXMESH=xmaxmesh $ 254 , YMINMESH=yminmesh, YMAXMESH=ymaxmesh $ 255 , ZMINMESH=zminmesh, ZMAXMESH=zmaxmesh $ 256 , ONEARTH=onearth, PERIODIC=periodic $ 257 , PLAIN=plain, SHIFT=shift, STRIDE=stride $ 258 , YREVERSE=yreverse, ZREVERSE=zreverse $ 259 , FULLCGRID=fullcgrid, XYINDEX=xyindex $ 260 , UBASE2TBASE=ubase2tbase, VBASE2TBASE=vbase2tbase $ 261 , FBASE2TBASE=fbase2tbase $ 262 , STRCALLING=strcalling, ROMSH=romsh, _EXTRA=ex 263 263 ; 264 264 compile_opt idl2, strictarrsubs -
trunk/SRC/Grid/micromeshmask.pro
r325 r327 56 56 ; 57 57 ;- 58 PRO micromeshmask, ncfilein, ncfileout, IODIR =iodir58 PRO micromeshmask, ncfilein, ncfileout, IODIR=iodir 59 59 ; 60 60 compile_opt idl2, strictarrsubs -
trunk/SRC/Grid/ncdf_meshread.pro
r325 r327 31 31 ; the labels 'longitude', 'latitude' in plots). 32 32 ; The resulting value will be stored in the common (cm_4mesh) variable key_onearth 33 ; ONEARTH = 0 forces PERIODIC = 0, SHIFT =0 and is cancelling GLAMBOUNDARY33 ; ONEARTH=0 forces PERIODIC=0, SHIFT=0 and is cancelling GLAMBOUNDARY 34 34 ; 35 35 ; @keyword GETDIMENSIONS {default=0}{type=scalar: 0 or 1} … … 41 41 ; Force the manual definition of the grid zonal periodicity. 42 42 ; The resulting value will be stored in the common (cm_4mesh) variable key_periodic 43 ; PERIODIC = 0 forces SHIFT =043 ; PERIODIC=0 forces SHIFT=0 44 44 ; 45 45 ; @keyword SHIFT {default=computed according to glamboundary}{type=scalar} … … 81 81 ; 82 82 ;- 83 PRO ncdf_meshread, filename, GLAMBOUNDARY = glamboundary, CHECKDAT =checkdat $84 , ONEARTH = onearth, GETDIMENSIONS =getdimensions $85 , PERIODIC = periodic, SHIFT = shift, STRIDE =stride $86 , STRCALLING = strcalling, _EXTRA =ex83 PRO ncdf_meshread, filename, GLAMBOUNDARY=glamboundary, CHECKDAT=checkdat $ 84 , ONEARTH=onearth, GETDIMENSIONS=getdimensions $ 85 , PERIODIC=periodic, SHIFT=shift, STRIDE=stride $ 86 , STRCALLING=strcalling, _EXTRA=ex 87 87 ; 88 88 compile_opt idl2, strictarrsubs -
trunk/SRC/Grid/ncdf_meshroms.pro
r325 r327 28 28 ; the labels 'longitude', 'latitude' in plots). 29 29 ; The resulting value will be stored in the common (cm_4mesh) variable key_onearth 30 ; ONEARTH = 0 forces PERIODIC = 0, SHIFT =0 and is cancelling GLAMBOUNDARY30 ; ONEARTH=0 forces PERIODIC=0, SHIFT=0 and is cancelling GLAMBOUNDARY 31 31 ; 32 32 ; @keyword GETDIMENSIONS {default=0}{type=scalar: 0 or 1} … … 38 38 ; Force the manual definition of the grid zonal periodicity. 39 39 ; The resulting value will be stored in the common (cm_4mesh) variable key_periodic 40 ; PERIODIC = 0 forces SHIFT =040 ; PERIODIC=0 forces SHIFT=0 41 41 ; 42 42 ; @keyword NRHO {default=1}{type=scalar} … … 47 47 ; Force the manual definition of the zonal shift that must be apply to the data. 48 48 ; The resulting value will be stored in the common (cm_4mesh) variable key_shift 49 ; Note that if key_periodic=0 then in any case key_shift =0.49 ; Note that if key_periodic=0 then in any case key_shift=0. 50 50 ; 51 51 ; @keyword STRCALLING {type=scalar string} … … 87 87 ; 88 88 ;- 89 PRO ncdf_meshroms, filename, NRHO = nrho, GLAMBOUNDARY =glamboundary $90 , ONEARTH = onearth, GETDIMENSIONS =getdimensions $91 , PERIODIC = periodic, SHIFT = shift, STRIDE =stride $92 , STRCALLING = strcalling, _EXTRA =ex89 PRO ncdf_meshroms, filename, NRHO=nrho, GLAMBOUNDARY=glamboundary $ 90 , ONEARTH=onearth, GETDIMENSIONS=getdimensions $ 91 , PERIODIC=periodic, SHIFT=shift, STRIDE=stride $ 92 , STRCALLING=strcalling, _EXTRA=ex 93 93 ; 94 94 compile_opt idl2, strictarrsubs -
trunk/SRC/Grid/smallmeshmask.pro
r325 r327 65 65 ; 66 66 ;- 67 PRO smallmeshmask, ncfilein, ncfileout, IODIR =iodir67 PRO smallmeshmask, ncfilein, ncfileout, IODIR=iodir 68 68 ; 69 69 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/angle.pro
r325 r327 23 23 ; 24 24 ;- 25 FUNCTION fsnspp, plam, pphi, DOUBLE =double25 FUNCTION fsnspp, plam, pphi, DOUBLE=double 26 26 ; 27 27 compile_opt idl2, strictarrsubs … … 103 103 ;- 104 104 PRO angle, fileocemesh, gcosu, gsinu, gcosv, gsinv, gcost, gsint, gcosf, gsinf $ 105 , IODIRECTORY = iodirectory, DOUBLE =double105 , IODIRECTORY=iodirectory, DOUBLE=double 106 106 ; 107 107 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/clickincell.pro
r325 r327 59 59 ; 60 60 ;- 61 FUNCTION clickincell, CELLTYPE = celltype, DRAWCELL = drawcell, COLOR = color, ORIGINAL = original, IJ = ij, _EXTRA = extra 61 FUNCTION clickincell, CELLTYPE=celltype, DRAWCELL=drawcell, COLOR=color $ 62 , ORIGINAL=original, IJ=ij, _EXTRA=extra 62 63 ; 63 64 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro
r325 r327 55 55 PRO compute_fromreg_bilinear_weigaddr, alonin, alatin, olonin, olat $ 56 56 , weig , addr $ 57 , NONORTHERNLINE =nonorthernline $58 , NOSOUTHERNLINE =nosouthernline57 , NONORTHERNLINE=nonorthernline $ 58 , NOSOUTHERNLINE=nosouthernline 59 59 ; 60 60 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro
r325 r327 58 58 ;- 59 59 PRO compute_fromreg_imoms3_weigaddr, alonin, alatin, olonin, olat, weig, addr $ 60 , NONORTHERNLINE =nonorthernline, $61 NOSOUTHERNLINE =nosouthernline60 , NONORTHERNLINE=nonorthernline, $ 61 NOSOUTHERNLINE=nosouthernline 62 62 ; 63 63 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/cutpar.pro
r325 r327 64 64 ; 65 65 ;- 66 FUNCTION cutpar, x0, y0, x1, y1, x2, y2, x3, y3, n, ENDPOINTS = endpoints, ONSPHERE = onsphere 66 FUNCTION cutpar, x0, y0, x1, y1, x2, y2, x3, y3, n $ 67 , ENDPOINTS=endpoints, ONSPHERE=onsphere 67 68 ; 68 69 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/cutsegment.pro
r325 r327 49 49 ; 50 50 ;- 51 FUNCTION cutsegment, x0, y0, x1, y1, n, ENDPOINTS = endpoints, ONSPHERE = onsphere 51 FUNCTION cutsegment, x0, y0, x1, y1, n $ 52 , ENDPOINTS=endpoints, ONSPHERE=onsphere 52 53 ; 53 54 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/extrapolate.pro
r325 r327 54 54 ; 55 55 ;- 56 FUNCTION extrapolate, zinput, maskinput, nb_iteration, X_PERIODIC =x_periodic $57 , MINVAL = minval, MAXVAL = maxval, GE0 = ge0, _EXTRA =ex56 FUNCTION extrapolate, zinput, maskinput, nb_iteration, X_PERIODIC=x_periodic $ 57 , MINVAL=minval, MAXVAL=maxval, GE0=ge0, _EXTRA=ex 58 58 ; 59 59 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/extrapsmooth.pro
r325 r327 49 49 ; $Id$ 50 50 ;- 51 FUNCTION extrapsmooth, in, mskin, X_PERIODIC = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0, _EXTRA = ex 51 FUNCTION extrapsmooth, in, mskin, X_PERIODIC=x_periodic $ 52 , MINVAL=minval, MAXVAL=maxval, GE0=ge0, _EXTRA=ex 52 53 ; 53 54 compile_opt strictarr, strictarrsubs -
trunk/SRC/Interpolation/file_interp.pro
r305 r327 4 4 ; 5 5 ;- 6 FUNCTION call_interp2d, data, inlon, inlat, inmask, outlon, outlat, INIRR = inirr, METHOD = method, SMOOTH = smooth, WEIG = weig, ADDR = addr, NAN_VALUE = NaN_value, _extra = ex 6 FUNCTION call_interp2d, data, inlon, inlat, inmask, outlon, outlat $ 7 , INIRR=inirr, METHOD=method, SMOOTH=smooth $ 8 , WEIG=weig, ADDR=addr, NAN_VALUE=NaN_value, _EXTRA=ex 7 9 ; 8 10 compile_opt idl2, strictarrsubs … … 207 209 ; 208 210 ;- 209 PRO file_interp, filein, fileout, gridout, GRIDIN = gridin, MASKIN = maskin, MASKOUT = maskout $ 210 , KEEP = keep, REMOVE = remove, METHOD = method, SMOOTH = smooth $ 211 , SET_XDIMNAME = set_xdimname, SET_YDIMNAME = set_ydimname $ 212 , SET_XAXISNAME = set_xaxisname, SET_YAXISNAME = set_yaxisname $ 213 , INMASKNAME = inmaskname, ININVMASK = ininvmask, INUSEASMASK = inuseasmask $ 214 , INMISSING_VALUE = inmissing_value, INADDSCL_BEFORE = inaddscl_before $ 215 , OUTMASKNAME = outmaskname, OUTINVMASK = outinvmask, OUTUSEASMASK = outuseasmask $ 216 , OUTMISSING_VALUE = outmissing_value, OUTADDSCL_BEFORE = outaddscl_before $ 217 , NAN_VALUE = NaN_value, WEIG = weig, ADDR = addr $ 218 , INXAXISNAME = inxaxisname, INYAXISNAME = inyaxisname $ 219 , OUTXAXISNAME = outxaxisname, OUTYAXISNAME = outyaxisname, _EXTRA = ex 211 PRO file_interp, filein, fileout, gridout, GRIDIN=gridin, MASKIN=maskin, MASKOUT=maskout $ 212 , KEEP=keep, REMOVE=remove, METHOD=method, SMOOTH=smooth $ 213 , SET_XDIMNAME=set_xdimname, SET_YDIMNAME=set_ydimname $ 214 , SET_XAXISNAME=set_xaxisname, SET_YAXISNAME=set_yaxisname $ 215 , INMASKNAME=inmaskname, ININVMASK=ininvmask $ 216 , INUSEASMASK=inuseasmask $ 217 , INMISSING_VALUE=inmissing_value $ 218 , INADDSCL_BEFORE=inaddscl_before $ 219 , OUTMASKNAME=outmaskname, OUTINVMASK=outinvmask $ 220 , OUTUSEASMASK=outuseasmask $ 221 , OUTMISSING_VALUE=outmissing_value $ 222 , OUTADDSCL_BEFORE=outaddscl_before $ 223 , NAN_VALUE=NaN_value, WEIG=weig, ADDR=addr $ 224 , INXAXISNAME=inxaxisname, INYAXISNAME=inyaxisname $ 225 , OUTXAXISNAME=outxaxisname, OUTYAXISNAME=outyaxisname $ 226 , _EXTRA=ex 220 227 ; 221 228 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/fromirr.pro
r325 r327 90 90 FUNCTION fromirr, method, datain, lonin, latin, mskin, lonout, latout $ 91 91 , mskout $ 92 , WEIG = weig, ADDR = addr, _EXTRA =ex92 , WEIG=weig, ADDR=addr, _EXTRA=ex 93 93 ; 94 94 compile_opt strictarr, strictarrsubs -
trunk/SRC/Interpolation/fromreg.pro
r325 r327 90 90 ;- 91 91 FUNCTION fromreg, method, datain, lonin, latin, lonout, latout $ 92 , WEIG = weig, ADDR =addr $93 , NONORTHERNLINE =nonorthernline $94 , NOSOUTHERNLINE = nosouthernline, _EXTRA =ex92 , WEIG=weig, ADDR=addr $ 93 , NONORTHERNLINE=nonorthernline $ 94 , NOSOUTHERNLINE=nosouthernline, _EXTRA=ex 95 95 ; 96 96 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/get_gridparams.pro
r325 r327 71 71 ; 72 72 ;- 73 PRO get_gridparams, in1, in2, in3, in4, in5, in6, in7, in8, DOUBLE = double 73 PRO get_gridparams, in1, in2, in3, in4, in5, in6, in7, in8 $ 74 , DOUBLE=double 75 ; 74 76 ; file, lonname, latname, lon, lat, jpi, jpj, n_dimensions 75 ; lon, lat, jpi,jpj, n_dimensions77 ; lon, lat, jpi, jpj, n_dimensions 76 78 ; 77 79 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/inquad.pro
r325 r327 81 81 ; 82 82 ;- 83 FUNCTION inquad, x, y, x1, y1, x2, y2, x3, y3, x4, y4, ONSPHERE = onsphere, DOUBLE = double, DELTA = delta, NOPRINT = noprint, NEWCOORD = newcoord 83 FUNCTION inquad, x, y, x1, y1, x2, y2, x3, y3, x4, y4 $ 84 , ONSPHERE=onsphere, DOUBLE=double, DELTA=delta $ 85 , NOPRINT=noprint, NEWCOORD=newcoord 84 86 ; 85 87 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/inrecgrid.pro
r325 r327 55 55 ; 56 56 ;- 57 FUNCTION inrecgrid, x1d, y1d, left, bottom, OUTPUT2D = output2d, CHECKOUT = checkout 57 FUNCTION inrecgrid, x1d, y1d, left, bottom $ 58 , OUTPUT2D=output2d, CHECKOUT=checkout 58 59 ; 59 60 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/lbcorca.pro
r297 r327 42 42 ; 43 43 ;- 44 FUNCTION lbcorca, arr, grid, psign, VERBOSE = verbose, CORRECTION =correction44 FUNCTION lbcorca, arr, grid, psign, VERBOSE=verbose, CORRECTION=correction 45 45 ; 46 46 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/ll_narcs_distances.pro
r325 r327 68 68 ; 69 69 ;- 70 FUNCTION ll_narcs_distances, lon0, lat0, arc_dist, az, DEGREES =degs70 FUNCTION ll_narcs_distances, lon0, lat0, arc_dist, az, DEGREES=degs 71 71 ; 72 72 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/map_npoints.pro
r325 r327 102 102 ; 103 103 ;- 104 FUNCTION map_npoints, lon0, lat0, lon1, lat1, AZIMUTH = azimuth $ 105 , RADIANS = radians, RADIUS = radius, MIDDLE = middle, TWO_BY_TWO = two_by_two 104 FUNCTION map_npoints, lon0, lat0, lon1, lat1, AZIMUTH=azimuth $ 105 , RADIANS=radians, RADIUS=radius, MIDDLE=middle $ 106 , TWO_BY_TWO=two_by_two 106 107 ; 107 108 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/neighbor.pro
r325 r327 46 46 ; 47 47 ;- 48 FUNCTION neighbor, p0lon, p0lat, neighlon, neighlat, SPHERE = sphere, DISTANCE = distance, RADIANS = radians 48 FUNCTION neighbor, p0lon, p0lat, neighlon, neighlat $ 49 , SPHERE=sphere, DISTANCE=distance, RADIANS=radians 49 50 ; 50 51 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/quadrilateral2square.pro
r325 r327 78 78 ; 79 79 ;- 80 FUNCTION quadrilateral2square, x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin, PERF = perf, DOUBLE = double 80 FUNCTION quadrilateral2square, x0in, y0in, x1in, y1in, x2in, y2in $ 81 , x3in, y3in, xxin, yyin $ 82 , PERF=perf, DOUBLE=double 81 83 ; 82 84 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/spl_incr.pro
r325 r327 137 137 ; boundary is set to zero, resulting in a "natural spline." 138 138 ;- 139 FUNCTION spl_incr, x, y, x2, YP0 = yp0, YPN_1 =ypn_1139 FUNCTION spl_incr, x, y, x2, YP0=yp0, YPN_1=ypn_1 140 140 ; 141 141 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/spl_keep_mean.pro
r325 r327 74 74 ; 75 75 ;- 76 FUNCTION spl_keep_mean, x, yin, x2, YP0 = yp0, YPN_1 = ypn_1, GE0 =ge076 FUNCTION spl_keep_mean, x, yin, x2, YP0=yp0, YPN_1=ypn_1, GE0=ge0 77 77 ; 78 78 compile_opt idl2, strictarrsubs -
trunk/SRC/Interpolation/square2quadrilateral.pro
r325 r327 70 70 ; 71 71 ;- 72 FUNCTION square2quadrilateral, x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin, DOUBLE = double 72 FUNCTION square2quadrilateral, x0in, y0in, x1in, y1in, x2in, y2in $ 73 , x3in, y3in, xxin, yyin $ 74 , DOUBLE=double 73 75 ; 74 76 ; Warning, wrong definition of (x2,y2) and (x3,y3) at the bottom of -
trunk/SRC/Obsolete/cp.pro
r325 r327 21 21 ; 22 22 ;- 23 PRO cp, filenamein, filenameout, _EXTRA =ex23 PRO cp, filenamein, filenameout, _EXTRA=ex 24 24 ; 25 25 compile_opt idl2, strictarrsubs, obsolete 26 26 ; 27 file_copy, filenamein, filenameout, _extra =ex27 file_copy, filenamein, filenameout, _extra=ex 28 28 RETURN 29 29 END -
trunk/SRC/Obsolete/imprime.pro
r325 r327 22 22 ; 23 23 ;- 24 PRO imprime, filename, TRANS = trans, NB =nb24 PRO imprime, filename, TRANS=trans, NB=nb 25 25 ; 26 26 ; this is working only with unix/linux/osX machines -
trunk/SRC/Obsolete/juldate.pro
r325 r327 42 42 ; 43 43 ;- 44 function juldate, vvdate, _EXTRA =ex44 function juldate, vvdate, _EXTRA=ex 45 45 ; 46 46 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/lec.pro
r325 r327 96 96 ; @version 97 97 ; $Id$ 98 ; 98 99 ;- 99 function lec, nomchamp,date,nomexp,ECRIT=ecrit,ANOM=anom, BOITE = boite,EXPANOM=expanom, TOUT = tout, GRID = grid, NAME = name, filename = FILENAME 100 FUNCTION lec, nomchamp,date,nomexp $ 101 , ECRIT=ecrit, ANOM=anom, BOITE=boite, EXPANOM=expanom $ 102 , TOUT=tout, GRID=grid, NAME=name, filename=FILENAME 100 103 ; 101 104 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/meshlec.pro
r325 r327 46 46 ; 47 47 ;- 48 PRO meshlec, nomfich, PASBLABLA = pasblabla,DOUBLE = double, GLAMBOUNDARY = glamboundary, GETDIMENSIONS = GETDIMENSIONS 48 PRO meshlec, nomfich, PASBLABLA=pasblabla, DOUBLE=double $ 49 , GLAMBOUNDARY=glamboundary, GETDIMENSIONS=GETDIMENSIONS 49 50 ; 50 51 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/ncdf_meshlec.pro
r325 r327 18 18 ; 19 19 ;- 20 PRO ncdf_meshlec, filename, _EXTRA =ex20 PRO ncdf_meshlec, filename, _EXTRA=ex 21 21 ; 22 22 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/nlec.pro
r325 r327 60 60 ; 61 61 ;- 62 function nlec,name,debut,fin,nomexperience,BOITE=boite,DIREC=direc,GRILLE=grille,TOUT=tout $ 63 , STRUCTURE = structure, SEUILMIN = seuilmin, SEUILMAX = seuilmax, NAN = nan $ 64 , _EXTRA = ex 62 FUNCTION nlec, name, debut, fin, nomexperience $ 63 , BOITE=boite, DIREC=direc, GRILLE=grille, TOUT=tout $ 64 , STRUCTURE=structure, SEUILMIN=seuilmin, SEUILMAX=seuilmax $ 65 , NAN=nan $ 66 , _EXTRA=ex 65 67 ; 66 68 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/nlec5j.pro
r325 r327 55 55 ; 56 56 ;- 57 function nlec5j, nom, numsortie, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 57 function nlec5j, nom, numsortie, nbretps $ 58 ,BOITE=boite, GRILLE=grille, TOUT=tout, _EXTRA=ex 58 59 ; 59 60 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/nlecan.pro
r325 r327 53 53 ; 54 54 ;- 55 function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 55 function nlecan, nom, numsortie79, nbretps $ 56 , BOITE=boite, GRILLE=grille, TOUT=tout, _EXTRA=ex 56 57 ; 57 58 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/nlecmois.pro
r325 r327 31 31 ; 32 32 ;- 33 function nlecmois,nom,numsortie79,nbretps ,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 33 function nlecmois, nom, numsortie79, nbretps $ 34 , BOITE=boite, GRILLE=grille, TOUT=tout, _EXTRA=ex 34 35 ; 35 36 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/nlecsaison.pro
r325 r327 54 54 ; 55 55 ;- 56 function nlecsaison, nom, numsortie79, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 56 function nlecsaison, nom, numsortie79, nbretps $ 57 , BOITE=boite, GRILLE=grille, TOUT=tout, _EXTRA=ex 57 58 ; 58 59 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/nlecserie.pro
r325 r327 51 51 ; 52 52 ;- 53 function nlecserie, nom, date1, date2,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 53 function nlecserie, nom, date1, date2 $ 54 , BOITE=boite, GRILLE=grille, TOUT=tout, _EXTRA=ex 54 55 ; 55 56 ;------------------------------------------------------------ -
trunk/SRC/Obsolete/norme.pro
r325 r327 62 62 ; 63 63 ;- 64 FUNCTION norme, composanteu, composantev, BOXZOOM = boxzoom, DIREC = direc, _EXTRA = ex 64 FUNCTION norme, composanteu, composantev $ 65 , BOXZOOM=boxzoom, DIREC=direc, _EXTRA=ex 65 66 ; 66 67 compile_opt idl2, strictarrsubs -
trunk/SRC/Obsolete/vairdate.pro
r325 r327 47 47 ; 48 48 ;- 49 function vairdate, jdate, ANNUEL = annuel, MENSUEL = mensuel, _EXTRA =ex49 function vairdate, jdate, ANNUEL=annuel, MENSUEL=mensuel, _EXTRA=ex 50 50 ; 51 51 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Obsolete/vraidate.pro
r325 r327 34 34 ; 35 35 ;- 36 function vraidate, date, GRADS = grads, _EXTRA =ex36 function vraidate, date, GRADS=grads, _EXTRA=ex 37 37 ; 38 38 compile_opt idl2, strictarrsubs, obsolete -
trunk/SRC/Picture/saveimage.pro
r325 r327 93 93 ;- 94 94 PRO saveimage, FILE, BMP=BMP, PNG=PNG, PICT=PICT, JPEG=JPEG, TIFF=TIFF, $ 95 QUALITY=QUALITY, DITHER=DITHER, CUBE=CUBE, QUIET=QUIET, MULTIPLE =multiple95 QUALITY=QUALITY, DITHER=DITHER, CUBE=CUBE, QUIET=QUIET, MULTIPLE=multiple 96 96 ; 97 97 compile_opt idl2, strictarrsubs -
trunk/SRC/Postscript/closeps.pro
r325 r327 25 25 ; 26 26 ;- 27 PRO closeps, INFOWIDGET =infowidget27 PRO closeps, INFOWIDGET=infowidget 28 28 ; 29 29 compile_opt idl2, strictarrsubs -
trunk/SRC/Postscript/openps.pro
r325 r327 52 52 ; 53 53 ;- 54 PRO openps, namepsin, FILENAME = filename, INFOWIDGET =infowidget $55 , KEEPPFONT = keeppfont, KEEP_PFONT =keep_pfont $56 , PORTRAIT = portrait, LANDSCAPE =landscape $57 , LIGHTNESS = Lightness,_EXTRA =ex54 PRO openps, namepsin, FILENAME=filename, INFOWIDGET=infowidget $ 55 , KEEPPFONT=keeppfont, KEEP_PFONT=keep_pfont $ 56 , PORTRAIT=portrait, LANDSCAPE=landscape $ 57 , LIGHTNESS=Lightness, _EXTRA=ex 58 58 ; 59 59 ; -
trunk/SRC/ReadWrite/ncdf_getatt.pro
r325 r327 54 54 ; 55 55 ;- 56 PRO ncdf_getatt, fileid, varid, add_offset = add_offset, scale_factor = scale_factor, missing_value = missing_value, units = units, calendar = calendar 56 PRO ncdf_getatt, fileid, varid, add_offset=add_offset $ 57 , scale_factor=scale_factor, missing_value=missing_value $ 58 , units=units, calendar=calendar 57 59 ; 58 60 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/ncdf_getaxis.pro
r325 r327 62 62 ;- 63 63 PRO ncdf_getaxis, fileid, dimidx, dimidy, xaxis, yaxis $ 64 , XAXISNAME = xaxisname, YAXISNAME =yaxisname $65 , XDIMNAME = xdimname, YDIMNAME =ydimname $66 , XYINDEX = xyindex, START1 =start1 $67 , ROMSGRID = romsgrid, _EXTRA =ex64 , XAXISNAME=xaxisname, YAXISNAME=yaxisname $ 65 , XDIMNAME=xdimname, YDIMNAME=ydimname $ 66 , XYINDEX=xyindex, START1=start1 $ 67 , ROMSGRID=romsgrid, _EXTRA=ex 68 68 ; 69 69 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/ncdf_getmask.pro
r325 r327 59 59 ; 60 60 ;- 61 FUNCTION ncdf_getmask, fileid, ADDSCL_BEFORE = addscl_before, MASKNAME = maskname, USEASMASK = useasmask $ 62 , MISSING_VALUE = missing_value, INVMASK = invmask, _EXTRA = ex 61 FUNCTION ncdf_getmask, fileid, ADDSCL_BEFORE=addscl_before $ 62 , MASKNAME=maskname, USEASMASK=useasmask $ 63 , MISSING_VALUE=missing_value, INVMASK=invmask $ 64 , _EXTRA=ex 63 65 ; 64 66 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/ncdf_gettime.pro
r325 r327 52 52 ; $Id$ 53 53 ;- 54 FUNCTION ncdf_gettime, filename, cdfid, TIMEVAR = timevar, CALLER = caller, ERR = err, _EXTRA = ex 54 FUNCTION ncdf_gettime, filename, cdfid $ 55 , TIMEVAR=timevar, CALLER=caller, ERR=err, _EXTRA=ex 55 56 ; 56 57 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/read_grads.pro
r325 r327 59 59 ; 60 60 ;- 61 FUNCTION read_grads, var, date1, date2, FILENAME = filename, BOX=box, TIMESTEP = timestep, EVERYTHING = everything, NOSTRUCT = nostruct, _EXTRA = ex 61 FUNCTION read_grads, var, date1, date2 $ 62 , FILENAME=filename, BOX=box, TIMESTEP=timestep $ 63 , EVERYTHING=everything, NOSTRUCT=nostruct, _EXTRA=ex 62 64 ; 63 65 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/read_oasis.pro
r325 r327 40 40 ; 41 41 ;- 42 FUNCTION read_oasis, filename, varname, jpi, jpj, I2 = I2, I4 = i4, I8 = i8, R4 =r442 FUNCTION read_oasis, filename, varname, jpi, jpj, I2=I2, I4=i4, I8=i8, R4=r4 43 43 ; 44 44 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/readbat.pro
r325 r327 24 24 ; 25 25 ;- 26 FUNCTION readbat, filename, ZERO =zero26 FUNCTION readbat, filename, ZERO=zero 27 27 ; 28 28 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/readoldopadistcoast.pro
r325 r327 71 71 ; 72 72 ;- 73 FUNCTION readoldopadistcoast, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec 73 FUNCTION readoldopadistcoast, filename, jpiglo, jpjglo, jpk $ 74 , IBLOC=ibloc, JPBYT=jpbyt, NUMREC=numrec 74 75 ; 75 76 ; -
trunk/SRC/ReadWrite/readoldoparestart.pro
r325 r327 134 134 ; $Id$ 135 135 ;- 136 PRO readoldoparestart, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec, UB = ub, VB = vb, TB = tb, SB = sb, ROTB = rotb, HDIVB = hdivb, UN = un, VN = vn, TN = tn, SN = sn, ROTN = rotn, HDIVN = hdivn, GCX = gcx, GCXB = gcxb, ETAB = etab, ETAN = etan, BSFB = bsfb, BSFN = bsfn, BSFD = bsfd, EN =en136 PRO readoldoparestart, filename, jpiglo, jpjglo, jpk, IBLOC=ibloc, JPBYT=jpbyt, NUMREC=numrec, UB=ub, VB=vb, TB=tb, SB=sb, ROTB=rotb, HDIVB=hdivb, UN=un, VN=vn, TN=tn, SN=sn, ROTN=rotn, HDIVN=hdivn, GCX=gcx, GCXB=gcxb, ETAB=etab, ETAN=etan, BSFB=bsfb, BSFN=bsfn, BSFD=bsfd, EN=en 137 137 ; 138 138 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/scanctl.pro
r325 r327 40 40 ; 41 41 ;- 42 PRO scanctl, filename, filesname, jpt1file, varsname, varslev, swapbytes, bigendian, littleendian, f77sequential, fileheader, theader, xyheader, VARFMT = varfmt, _EXTRA =ex42 PRO scanctl, filename, filesname, jpt1file, varsname, varslev, swapbytes, bigendian, littleendian, f77sequential, fileheader, theader, xyheader, VARFMT=varfmt, _EXTRA=ex 43 43 ; 44 44 compile_opt idl2, strictarrsubs -
trunk/SRC/ReadWrite/write_ncdf.pro
r312 r327 32 32 ; cf details plus bas... 33 33 ; 34 ;---------------------------------------------------------------------------------------------- 35 36 pro writenc_unlimdim_update, dnames_imposed, unl_imposed, fmtbase, nviv, iidp1st, nn, dst, iid, SUPERTABU=supertab $ 37 , DIMSIZESU=dimsizes, UNLIMTABAU=unlimtaba, UNLIMAU=unlima $ 38 , DIMIDASU=dimidas, NDIMTOTU=ndimtot, DNAMOSSU=dnamoss, DNAMAU=dnama,IMPOSE_DNM_UNLU= impose_dnm_unl 34 ;- 35 pro writenc_unlimdim_update, dnames_imposed, unl_imposed, fmtbase, nviv $ 36 , iidp1st, nn, dst, iid, SUPERTABU=supertab $ 37 , DIMSIZESU=dimsizes, UNLIMTABAU=unlimtaba, UNLIMAU=unlima $ 38 , DIMIDASU=dimidas, NDIMTOTU=ndimtot, DNAMOSSU=dnamoss, DNAMAU=dnama $ 39 , IMPOSE_DNM_UNLU=impose_dnm_unl 39 40 40 41 … … 350 351 351 352 352 ;---------------------------------------------------------------------------------------------- 353 ; 354 ; 353 ; 354 ;+ 355 355 ; SUBROUTINE (2)/(3) : 356 ;357 356 ; 358 357 ; on remplace la 4ieme structure de structa par une liste chainee afin … … 362 361 ; est pas active, i.e. cas par defaut) 363 362 ; 364 ;---------------------------------------------------------------------------------------------- 365 363 ;- 366 364 function writenc_str2strlc, structa 367 365 … … 431 429 end 432 430 433 ;---------------------------------------------------------------------------------------------- 434 435 436 ;---------------------------------------------------------------------------------------------- 437 ; 431 ;+ 438 432 ; 439 433 ; SUBROUTINE (3)/(3) : … … 446 440 ; 447 441 ; 448 ;---------------------------------------------------------------------------------------------- 449 442 ;- 450 443 function writenc_strlc2str, strwlist 451 444 … … 623 616 ; 624 617 ; @todo clem 625 ;- * 626 ; 627 ;------------------------------------------------------------ 628 618 ; 619 ;- 629 620 pro write_ncdf, var01,var02,var03,var04,var05,var06,var07,var08,var09,var10 $ ; RQ : if more than 30 variables is needed, simply add 630 621 ,var11,var12,var13,var14,var15,var16,var17,var18,var19,var20 $ ; var31,var32 etc... here and change nmaxvv to 32 ... … … 634 625 ,VARNAME=namevquick $ 635 626 $ 636 ,NOT_SDISV =flag1 $ ; mots cles non utiles sauf cas particuliers...637 ,NOT_OUASSALU =flag2 $638 ,OKNAN =oknan627 ,NOT_SDISV=flag1 $ ; mots cles non utiles sauf cas particuliers... 628 ,NOT_OUASSALU=flag2 $ 629 ,OKNAN=oknan 639 630 640 631 ; -
trunk/SRC/ReadWrite/write_oasis.pro
r325 r327 34 34 ; 35 35 ;- 36 PRO write_oasis, filename, varname, z2d, I2 = i2, I4 = i4, I8 = i8, R4 = r4, APPEND =append36 PRO write_oasis, filename, varname, z2d, I2=i2, I4=i4, I8=i8, R4=r4, APPEND=append 37 37 ; 38 38 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/TestsOld/tst_plt_old.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_plt_old, IMAGE =image16 PRO tst_plt_old, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/TestsOld/tst_pltt_old.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_pltt_old, IMAGE =image16 PRO tst_pltt_old, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/TestsOld/tst_pltz_old.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_pltz_old, IMAGE =image16 PRO tst_pltz_old, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_initorca05_index.pro
r325 r327 1 1 ;+ 2 2 ; 3 ; @file_comments4 3 ; definition of the domain on ORCA2 but with i/j index instead of 5 4 ; longitude/latitude -
trunk/SRC/Tests/tst_initorca2_index.pro
r237 r327 1 1 ;+ 2 2 ; 3 ; @file_comments4 3 ; definition of the domain on ORCA2 but with i/j index instead of 5 4 ; longitude/latitude -
trunk/SRC/Tests/tst_plt.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_plt, IMAGE =image16 PRO tst_plt, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_pltt.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_pltt, IMAGE =image16 PRO tst_pltt, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Tests/tst_pltz.pro
r325 r327 14 14 ; 15 15 ;- 16 PRO tst_pltz, IMAGE =image16 PRO tst_pltz, IMAGE=image 17 17 ; 18 18 compile_opt idl2, strictarrsubs -
trunk/SRC/Textoidl/sub_sup_idl.pro
r325 r327 32 32 ; RELEASE: 33 33 ; $Name: Rel_2_1_2 $ 34 ; 34 35 ;- 35 FUNCTION Sub_sup_idl, token, FORCE_UD =force_ud36 FUNCTION sub_sup_idl, token, FORCE_UD=force_ud 36 37 ; 37 38 compile_opt idl2, strictarrsubs … … 49 50 50 51 END 51 52 -
trunk/SRC/Textoidl/translate_sub_super.pro
r325 r327 64 64 ; @version 65 65 ; $Id$ 66 ; 66 67 ;- 67 FUNCTION sub_sup_idl, token, FORCE_UD =force_ud68 FUNCTION sub_sup_idl, token, FORCE_UD=force_ud 68 69 ; 69 70 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro
r325 r327 38 38 ; 39 39 ;- 40 FUNCTION depth2floatlevel, tab, NOMASK =nomask40 FUNCTION depth2floatlevel, tab, NOMASK=nomask 41 41 ; 42 42 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/depth2level.pro
r325 r327 41 41 ; $Id$ 42 42 ;- 43 FUNCTION depth2level, tab, LOWER = lower, UPPER = upper, CLOSER =closer $44 , NOMASK = nomask, _EXTRA =ex43 FUNCTION depth2level, tab, LOWER=lower, UPPER=upper, CLOSER=closer $ 44 , NOMASK=nomask, _EXTRA=ex 45 45 ; 46 46 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/depth2mask.pro
r325 r327 28 28 ; 29 29 ;- 30 FUNCTION depth2mask, tab, _EXTRA =ex30 FUNCTION depth2mask, tab, _EXTRA=ex 31 31 ; 32 32 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/floatlevel2depth.pro
r325 r327 34 34 ; 35 35 ;- 36 FUNCTION floatlevel2depth, tab, NOMASK =nomask36 FUNCTION floatlevel2depth, tab, NOMASK=nomask 37 37 ; 38 38 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
r325 r327 77 77 ; @version 78 78 ; $Id$ 79 ; 79 80 ;- 80 FUNCTION grossemoyenne, tab, direc, BOXZOOM = boxzoom, INTEGRATION =integration $81 , NAN = nan, NODOMDEF = nodomdef, WDEPTH =wdepth $82 , SPATIALFIRST = spatialfirst, TEMPORALFIRST =temporalfirst $83 , _EXTRA =ex81 FUNCTION grossemoyenne, tab, direc, BOXZOOM=boxzoom, INTEGRATION=integration $ 82 , NAN=nan, NODOMDEF=nodomdef, WDEPTH=wdepth $ 83 , SPATIALFIRST=spatialfirst, TEMPORALFIRST=temporalfirst $ 84 , _EXTRA=ex 84 85 ; 85 86 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro
r325 r327 65 65 ; 66 66 ;- 67 FUNCTION hdyn, tabsn, tabtn, TREF = tref, SREF = sref, PROFREF = profref, LEVEL = level, GILL = gill, SURFACE_LEVEL = surface_level 67 FUNCTION hdyn, tabsn, tabtn, TREF=tref, SREF=sref $ 68 , PROFREF=profref, LEVEL=level, GILL=gill $ 69 , SURFACE_LEVEL=surface_level 68 70 ; 69 71 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro
r325 r327 28 28 ; 29 29 ;- 30 FUNCTION level2depth, tab, NOMASK =nomask30 FUNCTION level2depth, tab, NOMASK=nomask 31 31 ; 32 32 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro
r325 r327 65 65 ; 66 66 ;- 67 FUNCTION moyenne, tab, direc, BOXZOOM = boxzoom, INTEGRATION =integration $68 , NAN = nan, NODOMDEF = nodomdef, WDEPTH =wdepth $69 , _EXTRA =ex67 FUNCTION moyenne, tab, direc, BOXZOOM=boxzoom, INTEGRATION=integration $ 68 , NAN=nan, NODOMDEF=nodomdef, WDEPTH=wdepth $ 69 , _EXTRA=ex 70 70 ; 71 71 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/remplit.pro
r325 r327 53 53 ; 54 54 ;- 55 FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, MASK = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _EXTRA = ex 55 FUNCTION remplit, zinput, NAN=nan, NITER=niter $ 56 , BASIQUE=basique, MASK=mask $ 57 , FILLXDIR=fillxdir, FILLYDIR=fillydir, FILLVAL=fillval $ 58 , _EXTRA=ex 56 59 ; 57 60 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/CALCULS/rhon.pro
r325 r327 35 35 ; 36 36 ;- 37 FUNCTION rhon, sn, tn, INSITU = insitu, SIGMA_N =sigma_n37 FUNCTION rhon, sn, tn, INSITU=insitu, SIGMA_N=sigma_n 38 38 ; 39 39 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro
r325 r327 62 62 ; 63 63 ;- 64 PRO decoupeterre, mask, glam, gphi, gdep, TYPE = type, TRI = tri, INDICEZOOM = indicezoom, COINMONTE = coinmonte, COINDESCEND = coindescend, WDEPTH = wdepth, REALSECTION = realsection, USETRI = usetri, _EXTRA = ex 64 PRO decoupeterre, mask, glam, gphi, gdep $ 65 , TYPE=type, TRI=tri, INDICEZOOM=indicezoom $ 66 , COINMONTE=coinmonte, COINDESCEND=coindescend $ 67 , WDEPTH=wdepth, REALSECTION=realsection, USETRI=usetri $ 68 , _EXTRA=ex 65 69 ; 66 70 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/GRILLE/domdef.pro
r325 r327 92 92 ; seb: output pas clair/ pas d'input required? 93 93 ;- 94 PRO domdef, x1, x2, y1, y2, z1, z2, FINDALWAYS =findalways $95 , GRIDTYPE = gridtype, MEMEINDICES =memeindices $96 , XINDEX = xindex, YINDEX = yindex, ZINDEX =zindex $97 , ENDPOINTS = endpoints, TYPE =type $98 , INDEX = index, _EXTRA =ex94 PRO domdef, x1, x2, y1, y2, z1, z2, FINDALWAYS=findalways $ 95 , GRIDTYPE=gridtype, MEMEINDICES=memeindices $ 96 , XINDEX=xindex, YINDEX=yindex, ZINDEX=zindex $ 97 , ENDPOINTS=endpoints, TYPE=type $ 98 , INDEX=index, _EXTRA=ex 99 99 ; 100 100 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/GRILLE/grille.pro
r325 r327 109 109 ; 110 110 ;- 111 PRO grille, mask, glam, gphi, gdep, nx, ny, nz, firstx, firsty, firstz, lastx, lasty, lastz, e1, e2, e3, TRI = tri, NOTRI = notri, TOUT = tout, FORPLT = forplt, TYPE = type, WDEPTH = wdepth, _EXTRA = ex 111 PRO grille, mask, glam, gphi, gdep, nx, ny, nz $ 112 , firstx, firsty, firstz, lastx, lasty, lastz $ 113 , e1, e2, e3 $ 114 , TRI=tri, NOTRI=notri, TOUT=tout, FORPLT=forplt $ 115 , TYPE=type, WDEPTH=wdepth, _EXTRA=ex 112 116 ; 113 117 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro
r325 r327 52 52 ; 53 53 ;- 54 PRO tracegrille, glamin, gphiin, OCEAN = ocean, EARTH =earth $55 , XSTRIDE = xstride, YSTRIDE = ystride, RMOUT =rmout $56 , _EXTRA =extra54 PRO tracegrille, glamin, gphiin, OCEAN=ocean, EARTH=earth $ 55 , XSTRIDE=xstride, YSTRIDE=ystride, RMOUT=rmout $ 56 , _EXTRA=extra 57 57 ; 58 58 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro
r325 r327 37 37 ; 38 38 ;- 39 PRO computehopegrid, xaxis, yaxis, zaxis, linetype, FORTHEMASK = forthemask, WPOINT = wpoint, FIRSTS = firsts, LASTS = lasts, PTTYPE = pttype 39 PRO computehopegrid, xaxis, yaxis, zaxis, linetype $ 40 , FORTHEMASK=forthemask, WPOINT=wpoint $ 41 , FIRSTS=firsts, LASTS=lasts, PTTYPE=pttype 40 42 ; 41 43 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro
r325 r327 41 41 ; 42 42 ;+ 43 ; 43 44 ; @file_comments 44 45 ; … … 63 64 ; 64 65 ;- 65 functioncw_selectinterval_get_value, id66 FUNCTION cw_selectinterval_get_value, id 66 67 ; 67 68 compile_opt idl2, strictarrsubs … … 108 109 ; 109 110 ;- 110 functioncw_selectinterval_event, event111 FUNCTION cw_selectinterval_event, event 111 112 ; 112 113 compile_opt idl2, strictarrsubs … … 128 129 ; 129 130 ;+ 131 ; 130 132 ; @file_comments 131 133 ; … … 155 157 ; 156 158 ;- 157 FUNCTION cw_selectinterval, parent, vecteur, _EXTRA =ex159 FUNCTION cw_selectinterval, parent, vecteur, _EXTRA=ex 158 160 ; 159 161 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/HOPE/domainpart.pro
r231 r327 29 29 ; 30 30 ;- 31 pro domainpart, top_uvalue, basedomain, selected, DESTROY =destroy31 PRO domainpart, top_uvalue, basedomain, selected, DESTROY=destroy 32 32 ; 33 33 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/HOPE/read_hope.pro
r325 r327 315 315 ; 316 316 ;- 317 FUNCTION read_hope, typein, varnamein, FILENAME = filename, XLIMITS = xlimits, YLIMITS = ylimits, ZLIMITS = zlimits, TLIMITS = tlimits, ODDPT = oddpt, ODDEVENPT = oddevenpt, EVENPT = evenpt, _EXTRA = ex 317 FUNCTION read_hope, typein, varnamein, FILENAME=filename $ 318 , XLIMITS=xlimits, YLIMITS=ylimits, ZLIMITS=zlimits $ 319 , TLIMITS=tlimits, ODDPT=oddpt, ODDEVENPT=oddevenpt $ 320 , EVENPT=evenpt, _EXTRA=ex 318 321 ; 319 322 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/HOPE/xrh.pro
r325 r327 25 25 ; 26 26 ;- 27 PRO xrh, _EXTRA =ex27 PRO xrh, _EXTRA=ex 28 28 ; 29 29 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/INIT/initncdf.pro
r325 r327 55 55 ;- 56 56 PRO initncdf, ncfilein $ 57 , ZAXISNAME = zaxisname, START1 =start1 $58 , XYINDEX = xyindex, ZINDEX =zindex $59 , _EXTRA =ex57 , ZAXISNAME=zaxisname, START1=start1 $ 58 , XYINDEX=xyindex, ZINDEX=zindex $ 59 , _EXTRA=ex 60 60 ; 61 61 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro
r262 r327 34 34 ; 35 35 ;- 36 FUNCTION bit2int, bitin, CHECKNEG =checkneg36 FUNCTION bit2int, bitin, CHECKNEG=checkneg 37 37 ; 38 38 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro
r325 r327 27 27 ; 28 28 ;- 29 FUNCTION read_grib, varcode, date1, date2, FILE =file29 FUNCTION read_grib, varcode, date1, date2, FILE=file 30 30 ; 31 31 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro
r325 r327 99 99 ; 100 100 ;- 101 FUNCTION litchamp, struct, GRID = grid, NAME = name, UNIT = unit, EXP = exp, DATE = date $ 102 , LEVEL = level, MASK = mask 101 FUNCTION litchamp, struct, GRID=grid, NAME=name, UNIT=unit $ 102 , EXP=exp, DATE=date $ 103 , LEVEL=level, MASK=mask 103 104 ; 104 105 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro
r325 r327 44 44 ; 45 45 ;- 46 FUNCTION ncdf_lec,nom,ATT=att,DIM=dim,VAR=var, IODIR = iodir, _EXTRA =ex46 FUNCTION ncdf_lec,nom,ATT=att,DIM=dim,VAR=var, IODIR=iodir, _EXTRA=ex 47 47 ; 48 48 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
r325 r327 97 97 ; 98 98 ;- 99 FUNCTION read_ncdf, name, beginning, ending, compatibility, BOXZOOM = boxzoom, FILENAME = filename $ 100 , PARENTIN = parentin, TIMESTEP = timestep, ADDSCL_BEFORE = addscl_before $ 101 , TOUT = tout, NOSTRUCT = nostruct, CONT_NOFILL = CONT_NOFILL, INIT = init $ 102 , GRID = grid, CALLITSELF = callitself, DIREC = direc $ 103 , ZETAFILENAME = zetafilename, ZETAZERO = zetazero $ 104 , _EXTRA = ex 99 FUNCTION read_ncdf, name, beginning, ending, compatibility $ 100 , BOXZOOM=boxzoom, FILENAME=filename $ 101 , PARENTIN=parentin, TIMESTEP=timestep $ 102 , ADDSCL_BEFORE=addscl_before $ 103 , TOUT=tout, NOSTRUCT=nostruct, CONT_NOFILL=CONT_NOFILL, INIT=init $ 104 , GRID=grid, CALLITSELF=callitself, DIREC=direc $ 105 , ZETAFILENAME=zetafilename, ZETAZERO=zetazero $ 106 , _EXTRA=ex 105 107 ; 106 108 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro
r325 r327 64 64 ; @version 65 65 ; $Id$ 66 ; 66 67 ;- 67 FUNCTION xncdf_lec, name, ATT = att, COUNT = count, GROUP = group, OFFSET = offset, IODIR = iodir, SHIFT = shift, STRIDE = stride, VAR = var 68 FUNCTION xncdf_lec, name, ATT=att, COUNT=count, GROUP=group, OFFSET=offset $ 69 , IODIR=iodir, SHIFT=shift, STRIDE=stride, VAR=var 68 70 ; 69 71 compile_opt idl2, strictarrsubs … … 213 215 ; @version 214 216 ; $Id$ 217 ; 215 218 ;- 216 PRO wid_var_event, 219 PRO wid_var_event, event 217 220 ; 218 221 compile_opt idl2, strictarrsubs … … 496 499 ; @version 497 500 ; $Id$ 501 ; 498 502 ;- 499 503 PRO xncdf_lec_event, event -
trunk/SRC/ToBeReviewed/MATRICE/colle.pro
r325 r327 75 75 ; 76 76 ;- 77 FUNCTION colle, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, SAUVE = sauve 77 FUNCTION colle, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9 $ 78 , a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20 $ 79 , SAUVE=sauve 78 80 ; 79 81 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro
r325 r327 135 135 BARWIDTH=barwidth, BARSPACE=barspace, BAROFFSET=baroffset, $ 136 136 OUTLINE=outline, OVERPLOT=overplot, BACKGROUND=background, $ 137 ROTATE=rotate, _EXTRA =ex137 ROTATE=rotate, _EXTRA=ex 138 138 ; 139 139 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro
r326 r327 195 195 ; "UNVECTSUR"+ quelques trucs dans la routine. 196 196 ;- 197 PRO plt, tab1, param2, param3, param4, REALCONT = realcont, CONTOUR = contour $ 198 , INTERVALLE = intervalle, INV = inv, GRIDTYPE = gridtype, BOXZOOM = boxzoom $ 199 , CONTINTERVALLE = contintervalle, LABEL = label, CONTLABEL = contlabel $ 200 , STYLE = style, CONTMAX = contmax, CONTMIN = contmin, NLEVEL = nlevel, CONTNLEVEL = contnlevel $ 201 , VECTEUR = vecteur, MAP = map, MININ = minin, MAXIN = maxin $ 202 , NOFILL = nofill, CONT_NOFILL = cont_nofill $ 203 , USETRI = usetri, NOTRI = notri, MASKFILL = maskfill $ 204 , DUPLICATE = duplicate, STRICTFILL = strictfill, OVERPLOT = overplot $ 205 , DECIMATETRI = decimatetri, LABMAP = labmap, _EXTRA = ex 197 PRO plt, tab1, param2, param3, param4, REALCONT=realcont, CONTOUR=contour $ 198 , INTERVALLE=intervalle, INV=inv, GRIDTYPE=gridtype, BOXZOOM=boxzoom $ 199 , CONTINTERVALLE=contintervalle, LABEL=label, CONTLABEL=contlabel $ 200 , STYLE=style, CONTMAX=contmax, CONTMIN=contmin, NLEVEL=nlevel $ 201 , CONTNLEVEL=contnlevel $ 202 , VECTEUR=vecteur, MAP=map, MININ=minin, MAXIN=maxin $ 203 , NOFILL=nofill, CONT_NOFILL=cont_nofill $ 204 , USETRI=usetri, NOTRI=notri, MASKFILL=maskfill $ 205 , DUPLICATE=duplicate, STRICTFILL=strictfill, OVERPLOT=overplot $ 206 , DECIMATETRI=decimatetri, LABMAP=labmap, _EXTRA=ex 206 207 ; 207 208 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro
r325 r327 104 104 ; 105 105 ;- 106 PRO plt1d, tab, param2, param3, param4, BOXZOOM = boxzoom, SIN =sin $107 , MININ = minin, MAXIN = maxin, TYPEIN = typein, ENDPOINTS =endpoints $108 , COL1D = col1d, STY1D = sty1d, OV1D = ov1d, X = x, Y = y, Z = z, TT =tt $109 , REVERSE_X = reverse_x, REVERSE_Y = reverse_y, SWITCHXY =switchxy $110 , _EXTRA =ex106 PRO plt1d, tab, param2, param3, param4, BOXZOOM=boxzoom, SIN=sin $ 107 , MININ=minin, MAXIN=maxin, TYPEIN=typein, ENDPOINTS=endpoints $ 108 , COL1D=col1d, STY1D=sty1d, OV1D=ov1d, X=x, Y=y, Z=z, TT=tt $ 109 , REVERSE_X=reverse_x, REVERSE_Y=reverse_y, SWITCHXY=switchxy $ 110 , _EXTRA=ex 111 111 ; 112 112 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro
r325 r327 110 110 ; 111 111 ;- 112 PRO pltbase, z2d, x, y, mask, xm, ym, levels, colors, UNSUR2 = unsur2, CONTOUR = contour $ 113 , NOCONTOUR = nocontour, NOFILL = nofill $ 114 , TRICHAMP = trichamp, TRIMSK = trimsk $ 115 , REALCONT = realcont, NAN = nan, USETRI = usetri $ 116 , COLORTRICHAMP = colortrichamp, COLORTRIMASK = colortrimask $ 117 , COLORTRINAN = colortrinan $ 118 , COLORPOINTS = colorpoints, DRAWPOINTS = drawpoints $ 119 , TH_TRICHAMP = th_trichamp, TH_TRIMASK = th_trimask $ 120 , DESSTRICHAMP = desstrichamp, DESSTRIMASK = desstrimask $ 121 , DESSTRINAN = desstrinan, COLOR_C = color_c $ 122 , I_COLORS = i_colors, CONT_COLOR = CONT_COLOR $ 123 , CONT_NOFILL = cont_nofill, UNLABSUR = unlabsur $ 124 , COINMONTEMASK = coinmontemask, COINDESCENDMASK = coindescendmask $ 125 , COINMONTENAN = coinmontenan, COINDESCENDNAN = coindescendnan $ 126 , INDICEZOOMMASK = indicezoommask, INDICEZOOMNAN = indicezoomnan $ 127 , MASKORG = maskorg, MASKNAN = masknan, TRINAN = trinan $ 128 , FORPLT = forplt, REALSECTION = realsection $ 129 , MORE = more, EXCHANGE_XY = exchange_xy $ 130 , _EXTRA = ex 112 PRO pltbase, z2d, x, y, mask, xm, ym, levels, colors $ 113 , UNSUR2=unsur2, CONTOUR=contour $ 114 , NOCONTOUR=nocontour, NOFILL=nofill $ 115 , TRICHAMP=trichamp, TRIMSK=trimsk $ 116 , REALCONT=realcont, NAN=nan, USETRI=usetri $ 117 , COLORTRICHAMP=colortrichamp, COLORTRIMASK=colortrimask $ 118 , COLORTRINAN=colortrinan $ 119 , COLORPOINTS=colorpoints, DRAWPOINTS=drawpoints $ 120 , TH_TRICHAMP=th_trichamp, TH_TRIMASK=th_trimask $ 121 , DESSTRICHAMP=desstrichamp, DESSTRIMASK=desstrimask $ 122 , DESSTRINAN=desstrinan, COLOR_C=color_c $ 123 , I_COLORS=i_colors, CONT_COLOR=CONT_COLOR $ 124 , CONT_NOFILL=cont_nofill, UNLABSUR=unlabsur $ 125 , COINMONTEMASK=coinmontemask, COINDESCENDMASK=coindescendmask $ 126 , COINMONTENAN=coinmontenan, COINDESCENDNAN=coindescendnan $ 127 , INDICEZOOMMASK=indicezoommask, INDICEZOOMNAN=indicezoomnan $ 128 , MASKORG=maskorg, MASKNAN=masknan, TRINAN=trinan $ 129 , FORPLT=forplt, REALSECTION=realsection $ 130 , MORE=more, EXCHANGE_XY=exchange_xy $ 131 , _EXTRA=ex 131 132 ; 132 133 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro
r325 r327 52 52 ; 53 53 ;- 54 PRO pltsc, tab1, tab2, min1, max1, min2, max2, varname2, BOXZOOM =boxzoom, $55 COL1D=col1d, STY1D=sty1d, OV1D=ov1d, _EXTRA =ex54 PRO pltsc, tab1, tab2, min1, max1, min2, max2, varname2, BOXZOOM=boxzoom, $ 55 COL1D=col1d, STY1D=sty1d, OV1D=ov1d, _EXTRA=ex 56 56 ; 57 57 ; scatter plot (inspired from plt1d) -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
r326 r327 202 202 ; 203 203 ;- 204 PRO pltt, tab, giventype, givenmin, givenmax, datmin, datmax, BOXZOOM = boxzoom, CONTOUR = contour $ 205 , ENDPOINTS = endpoints, INTERVALLE = intervalle, INV = inv $ 206 , CONTINTERVALLE = contintervalle, LABEL = label, CONTLABEL = contlabel $ 207 , STYLE = style, CONTMAX = contmax, CONTMIN = contmin $ 208 , NOFILL = nofill, NLEVEL = nlevel, CONTNLEVEL = contnlevel $ 209 , COL1D = col1d, STY1D = sty1d, MININ = minin, MAXIN = maxin $ 210 , OV1D = ov1d, FILTER = filter, TREND_TYPE = trend_type $ 211 , REPEAT_C = repeat_c, TYPEIN = typein, XT = XT, YT = YT, ZT = zt $ 212 , TT = tt, STRICTFILL = strictfill, OVERPLOT = overplot $ 213 , EXCHANGE_XY = exchange_xy $ 214 , _EXTRA = ex 204 PRO pltt, tab, giventype, givenmin, givenmax, datmin, datmax $ 205 , BOXZOOM=boxzoom, CONTOUR=contour $ 206 , ENDPOINTS=endpoints, INTERVALLE=intervalle, INV=inv $ 207 , CONTINTERVALLE=contintervalle, LABEL=label, CONTLABEL=contlabel $ 208 , STYLE=style, CONTMAX=contmax, CONTMIN=contmin $ 209 , NOFILL=nofill, NLEVEL=nlevel, CONTNLEVEL=contnlevel $ 210 , COL1D=col1d, STY1D=sty1d, MININ=minin, MAXIN=maxin $ 211 , OV1D=ov1d, FILTER=filter, TREND_TYPE=trend_type $ 212 , REPEAT_C=repeat_c, TYPEIN=typein, XT=XT, YT=YT, ZT=zt $ 213 , TT=tt, STRICTFILL=strictfill, OVERPLOT=overplot $ 214 , EXCHANGE_XY=exchange_xy $ 215 , _EXTRA=ex 215 216 ; 216 217 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro
r325 r327 73 73 ; 74 74 ;- 75 PRO pltv, data, min, max, BOTTOM = bottom, BOXZOOM =boxzoom $76 , C_MASK = c_mask, C_NAN = c_nan, INV = inv, MININ = minin, MAXIN =maxin $77 , MASKVAL = maskval, NCOLORS = ncolors, NOINTERP =nointerp $78 , _EXTRA =ex75 PRO pltv, data, min, max, BOTTOM=bottom, BOXZOOM=boxzoom $ 76 , C_MASK=c_mask, C_NAN=c_nan, INV=inv, MININ=minin, MAXIN=maxin $ 77 , MASKVAL=maskval, NCOLORS=ncolors, NOINTERP=nointerp $ 78 , _EXTRA=ex 79 79 ; 80 80 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
r326 r327 166 166 ; 167 167 ;- 168 PRO pltz, tab, giventype, givenmin, givenmax, BOXZOOM = boxzoom, CONTOUR = contour $ 169 , ENDPOINTS = endpoints, INTERVALLE = intervalle, INV = inv, ZRATIO = zratio $ 170 , CONTINTERVALLE = contintervalle, LABEL = label, CONTLABEL = contlabel $ 171 , STYLE = style, CONTMAX = contmax, SIN = sin, TYPEIN = typein $ 172 , CONTMIN = contmin, NLEVEL = nlevel, CONTNLEVEL = contnlevel $ 173 , NOFILL = nofill, NOTRI = notri, USETRI = usetri, FILLXDIR = fillxdir $ 174 , ZOOM = zoom, XZ = xz, YZ = yz, MININ = minin, MAXIN = maxin $ 175 , STRICTFILL = strictfill, OVERPLOT = overplot, MASKFILL = maskfill $ 176 , WDEPTH = wdepth, REALSECTION = realsection $ 177 , _EXTRA = ex 168 PRO pltz, tab, giventype, givenmin, givenmax $ 169 , BOXZOOM=boxzoom, CONTOUR=contour $ 170 , ENDPOINTS=endpoints, INTERVALLE=intervalle, INV=inv $ 171 , ZRATIO=zratio $ 172 , CONTINTERVALLE=contintervalle, LABEL=label, CONTLABEL=contlabel $ 173 , STYLE=style, CONTMAX=contmax, SIN=sin, TYPEIN=typein $ 174 , CONTMIN=contmin, NLEVEL=nlevel, CONTNLEVEL=contnlevel $ 175 , NOFILL=nofill, NOTRI=notri, USETRI=usetri, FILLXDIR=fillxdir $ 176 , ZOOM=zoom, XZ=xz, YZ=yz, MININ=minin, MAXIN=maxin $ 177 , STRICTFILL=strictfill, OVERPLOT=overplot, MASKFILL=maskfill $ 178 , WDEPTH=wdepth, REALSECTION=realsection $ 179 , _EXTRA=ex 178 180 ; 179 181 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
r325 r327 43 43 ; 44 44 ;- 45 PRO sbar_plot, values, COLORS = colors, NOREINITPLT = noreinitplt, _EXTRA =ex45 PRO sbar_plot, values, COLORS=colors, NOREINITPLT=noreinitplt, _EXTRA=ex 46 46 ; 47 47 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
r325 r327 30 30 ; 31 31 ;- 32 PRO scontour, x, y, z, NOREINITPLT = noreinitplt, _EXTRA =ex32 PRO scontour, x, y, z, NOREINITPLT=noreinitplt, _EXTRA=ex 33 33 ; 34 34 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro
r325 r327 34 34 ; 35 35 ;- 36 PRO splot, x, y, NOREINITPLT = noreinitplt, _EXTRA =ex36 PRO splot, x, y, NOREINITPLT=noreinitplt, _EXTRA=ex 37 37 ; 38 38 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro
r325 r327 87 87 ; 88 88 ;- 89 PRO tvplus, z2d, cellsize, BOTTOM = bottom, C_MASK = c_mask, C_NAN = c_nan, WINDOW = window $ 90 , MIN = min, MAX = max, MASK = mask, OFFSET = offset, NOUSEINFOS = NOUSEINFOS $ 91 , NCOLORS = ncolors, NOINTERP = nointerp, _EXTRA = ex 89 PRO tvplus, z2d, cellsize $ 90 , BOTTOM=bottom, C_MASK=c_mask, C_NAN=c_nan, WINDOW=window $ 91 , MIN=min, MAX=max, MASK=mask, OFFSET=offset $ 92 , NOUSEINFOS=NOUSEINFOS $ 93 , NCOLORS=ncolors, NOINTERP=nointerp, _EXTRA=ex 92 94 ; 93 95 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro
r325 r327 29 29 ; 30 30 ;- 31 PRO addaxe, endpoints, type, posfenetre, _EXTRA =ex31 PRO addaxe, endpoints, type, posfenetre, _EXTRA=ex 32 32 ; 33 33 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro
r325 r327 43 43 ; 44 44 ;- 45 PRO axis4pltz, type, mask, glam, gphi, z, XXAXIS = xxaxis, ZZAXIS = zzaxis, SIN = sin, ZRATIO = zratio, ZOOM = zoom, PROFMAX = profmax, PROFMIN = profmin, _EXTRA = ex 45 PRO axis4pltz, type, mask, glam, gphi, z $ 46 , XXAXIS=xxaxis, ZZAXIS=zzaxis, SIN=sin, ZRATIO=zratio $ 47 , ZOOM=zoom, PROFMAX=profmax, PROFMIN=profmin, _EXTRA=ex 46 48 ; 47 49 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro
r325 r327 53 53 ;- 54 54 PRO barrecouleur, colnumb, clbinf, clbsup, clbdiv $ 55 , NOCOLORBAR = nocolorbar, CB_TITLE =cb_title $56 , NOFILL = nofill, COLOR_c =color_c $57 , MIN = min, MAX = max, divisions =divisions $58 , CB_SUBTITLE = cb_subtitle, POST = post, _EXTRA =ex55 , NOCOLORBAR=nocolorbar, CB_TITLE=cb_title $ 56 , NOFILL=nofill, COLOR_c=color_c $ 57 , MIN=min, MAX=max, divisions=divisions $ 58 , CB_SUBTITLE=cb_subtitle, POST=post, _EXTRA=ex 59 59 ; 60 60 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro
r325 r327 192 192 ; 193 193 ;- 194 FUNCTION checkfield, field, procedure, TYPE = type, BOXZOOM = boxzoom, DIREC = direc, NOQUESTION = noquestion, VECTEUR = vecteur, WDEPTH = wdepth, _EXTRA = ex 194 FUNCTION checkfield, field, procedure $ 195 , TYPE=type, BOXZOOM=boxzoom, DIREC=direc $ 196 , NOQUESTION=noquestion, VECTEUR=vecteur, WDEPTH=wdepth $ 197 , _EXTRA=ex 195 198 ; 196 199 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro
r325 r327 59 59 ; @todo seb 60 60 ;- 61 PRO checktypeminmax, procedure, TYPE = type, MIN = min, MAX = max, XY =xy $62 , XZ = xz, YZ = yz, XT = XT, YT = YT, ZT =zt $63 , TT = tt, XX = xx, YY = yy, ZZ =zz $64 , XINDEX = xindex, YINDEX =yindex $65 , ENDPOINTS = endpoints, _EXTRA =ex61 PRO checktypeminmax, procedure, TYPE=type, MIN=min, MAX=max, XY=xy $ 62 , XZ=xz, YZ=yz, XT=XT, YT=YT, ZT=zt $ 63 , TT=tt, XX=xx, YY=yy, ZZ=zz $ 64 , XINDEX=xindex, YINDEX=yindex $ 65 , ENDPOINTS=endpoints, _EXTRA=ex 66 66 ; 67 67 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro
r325 r327 51 51 ; 52 52 ;- 53 PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi, MAXIN = maxin, MININ = minin, INTERVALLE = intervalle, USETRI = usetri, ZEROMIDDLE = zeromiddle, _EXTRA = ex 53 PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi $ 54 , MAXIN=maxin, MININ=minin, INTERVALLE=intervalle $ 55 , USETRI=usetri, ZEROMIDDLE=zeromiddle, _EXTRA=ex 54 56 ; 55 57 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro
r325 r327 37 37 ; 38 38 ;- 39 PRO placecolor, pos, _EXTRA =ex39 PRO placecolor, pos, _EXTRA=ex 40 40 ; 41 41 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro
r325 r327 127 127 ; 128 128 ;- 129 PRO placedessin, typedessin, posfenetre, posbar, dtasize, BARMARGES = barmarges $ 130 , NOCOLORBAR = nocolorbar, NOFILL = nofill, COLOR_c = color_c $ 131 , CONTOUR = contour $ 132 , VECTEUR = vecteur, PORTRAIT = portrait, LANDSCAPE = landscape $ 133 , SMALL = small, MARGES = marges, MAP = map $ 134 , REMPLI = REMPLI, POST = post, WINDOW = window $ 135 , ENDPOINTS = endpoints, TYPE = type, BASICMARGES = basicmarges $ 136 , NOERASE = noerase, LCT = lct, DIREC = direc, CB_TITLE = cb_title, _EXTRA = ex 129 PRO placedessin, typedessin, posfenetre, posbar, dtasize, BARMARGES=barmarges $ 130 , NOCOLORBAR=nocolorbar, NOFILL=nofill, COLOR_c=color_c $ 131 , CONTOUR=contour $ 132 , VECTEUR=vecteur, PORTRAIT=portrait, LANDSCAPE=landscape $ 133 , SMALL=small, MARGES=marges, MAP=map $ 134 , REMPLI=REMPLI, POST=post, WINDOW=window $ 135 , ENDPOINTS=endpoints, TYPE=type, BASICMARGES=basicmarges $ 136 , NOERASE=noerase, LCT=lct, DIREC=direc, CB_TITLE=cb_title $ 137 , _EXTRA=ex 137 138 ; 138 139 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/projsegment.pro
r325 r327 42 42 ; 43 43 ;- 44 FUNCTION projsegment, vecteur, bornes, MP =mp44 FUNCTION projsegment, vecteur, bornes, MP=mp 45 45 ; 46 46 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro
r325 r327 39 39 ; 40 40 ;- 41 PRO terminedessin, POST = post, SMALL = small, _EXTRA =ex41 PRO terminedessin, POST=post, SMALL=small, _EXTRA=ex 42 42 ; 43 43 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro
r325 r327 47 47 ; 48 48 ;- 49 pro label, cas, min, max, ncontour, level_z2d, colnumb, NLEVEL =nlevel $50 ,INTERVALLE=intervalle, STRICTFILL =strictfill49 PRO label, cas, min, max, ncontour, level_z2d, colnumb, NLEVEL=nlevel $ 50 ,INTERVALLE=intervalle, STRICTFILL=strictfill 51 51 ; 52 52 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro
r325 r327 87 87 ; 88 88 ;- 89 FUNCTION label_date, axis, index, x, DATE_FORMAT = format, MONTHS = months,$90 OFFSET= offs, _EXTRA =ex89 FUNCTION label_date, axis, index, x, DATE_FORMAT=format, MONTHS=months $ 90 , OFFSET=offs, _EXTRA=ex 91 91 ; 92 92 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro
r325 r327 46 46 ; 47 47 ;- 48 PRO ajoutvect,vecteur, vectlegende, UNVECTSUR=unvectsur,VECTMIN=vectmin, VECTMAX=vectmax, _EXTRA = ex 48 PRO ajoutvect,vecteur, vectlegende $ 49 , UNVECTSUR=unvectsur,VECTMIN=vectmin, VECTMAX=vectmax, _EXTRA=ex 49 50 ; 50 51 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro
r325 r327 169 169 ;- 170 170 PRO vecteur, composanteu, composantev, normevecteur, indice2d, reduitindice2d $ 171 , CMREF = cmref, MISSING = missing, NORMEREF =normeref $172 , VECTCOLOR = vectcolor, VECTTHICK =vectthick $173 , VECTREFPOS =vectrefpos $174 , VECTREFFORMAT = vectrefformat, NOVECTREF =novectref $175 , _EXTRA =extra171 , CMREF=cmref, MISSING=missing, NORMEREF=normeref $ 172 , VECTCOLOR=vectcolor, VECTTHICK=vectthick $ 173 , VECTREFPOS=vectrefpos $ 174 , VECTREFFORMAT=vectrefformat, NOVECTREF=novectref $ 175 , _EXTRA=extra 176 176 ; 177 177 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/velovect.pro
r325 r327 92 92 ; 93 93 ;- 94 PRO velovect, u,v,x,y, MISSING = missing, LENGTH = length, DOTS = dots, $ 95 COLOR=color, CLIP=clip, NOCLIP=noclip, OVERPLOT=overplot, _EXTRA=extra 94 PRO velovect, u,v,x,y, MISSING=missing, LENGTH=length, DOTS=dots $ 95 , COLOR=color, CLIP=clip, NOCLIP=noclip, OVERPLOT=overplot $ 96 , _EXTRA=extra 96 97 ; 97 98 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/axe.pro
r325 r327 51 51 ; 52 52 ;- 53 PRO axe, coupe, tempsmin, tempsmax, REVERSE_X = reverse_x, REVERSE_Y = reverse_y, SIN = sin, SEPDATE = sepdate, DIGITSYEAR = digitsyear, _EXTRA = ex 53 PRO axe, coupe, tempsmin, tempsmax $ 54 , REVERSE_X=reverse_x, REVERSE_Y=reverse_y, SIN=sin $ 55 , SEPDATE=sepdate, DIGITSYEAR=digitsyear, _EXTRA=ex 54 56 ; 55 57 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/PLOTS/legende.pro
r325 r327 43 43 ; 44 44 ;- 45 PRO legende, mi, ma, coupe, CONTOUR = contour, ENDPOINTS = endpoints, DIREC =direc $46 , VECTLEGENDE =vectlegende $47 , INTERVALLE = intervalle, TYPE_YZ = type_yz, VARNAME2 =varname2 $48 , NPTS = npts, _EXTRA =ex45 PRO legende, mi, ma, coupe, CONTOUR=contour, ENDPOINTS=endpoints, DIREC=direc $ 46 , VECTLEGENDE=vectlegende $ 47 , INTERVALLE=intervalle, TYPE_YZ=type_yz, VARNAME2=varname2 $ 48 , NPTS=npts, _EXTRA=ex 49 49 ; 50 50 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/POSTSCRIPT/calibre.pro
r325 r327 80 80 ;- 81 81 PRO calibre, rapportyx, marge, margebar, smalldraw, posfenetre, posbar $ 82 , REMPLI = rempli, YXASPECT = yxaspect, PORTRAIT =portrait $83 , LANDSCAPE = lanscape, _EXTRA =ex82 , REMPLI=rempli, YXASPECT=yxaspect, PORTRAIT=portrait $ 83 , LANDSCAPE=lanscape, _EXTRA=ex 84 84 ; 85 85 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro
r325 r327 112 112 ; 113 113 ;- 114 PRO chcolps, n1, n2, file, PALIT1 = palit1, PALIT2 =palit2114 PRO chcolps, n1, n2, file, PALIT1=palit1, PALIT2=palit2 115 115 ; 116 116 compile_opt idl2, strictarrsubs … … 125 125 IF keyword_set(palit2) THEN palit, palit2 126 126 tvlct, red1, green1, blue1, /get 127 ;128 ;129 127 ; 130 128 filein = file … … 189 187 ENDIF 190 188 ; 191 ; Ecrit le fichier de sortie189 ; write output file 192 190 ; 193 191 printf, numout, ligne, format = '(A)' … … 201 199 202 200 END 203 -
trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro
r325 r327 28 28 ; 29 29 ;- 30 FUNCTION auto_cov2d, x, lag, DOUBLE = double, ZERO2NAN =zero2nan30 FUNCTION auto_cov2d, x, lag, DOUBLE=double, ZERO2NAN=zero2nan 31 31 ; 32 32 compile_opt idl2, strictarrsubs … … 77 77 ; 78 78 ;- 79 FUNCTION a_correlate2d, x, lag, COVARIANCE = covariance, DOUBLE =double79 FUNCTION a_correlate2d, x, lag, COVARIANCE=covariance, DOUBLE=double 80 80 ; 81 81 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro
r325 r327 28 28 ; 29 29 ;- 30 FUNCTION timeauto_cov, x, m, nt, DOUBLE = double, ZERO2NAN =zero2nan30 FUNCTION timeauto_cov, x, m, nt, DOUBLE=double, ZERO2NAN=zero2nan 31 31 ; 32 32 compile_opt idl2, strictarrsubs … … 62 62 ; 63 63 ; @file_comments 64 ; Same function as A_CORRELATEbut accept array (until 464 ; Same function as <proidl>A_CORRELATE</proidl> but accept array (until 4 65 65 ; dimension) for input and do the autocorrelation or the 66 66 ; autocovariance along the time dimension which must be the last … … 113 113 ; 114 114 ;- 115 FUNCTION a_timecorrelate, x, lag, COVARIANCE = covariance, DOUBLE =double115 FUNCTION a_timecorrelate, x, lag, COVARIANCE=covariance, DOUBLE=double 116 116 ; 117 117 compile_opt idl2, strictarrsubs 118 118 ; 119 119 120 ; Compute the sample-autocorrelation or autocovariance of (Xt, Xt+l)121 ; as a function of the lag (l).120 ; Compute the sample-autocorrelation or autocovariance of (Xt, Xt+l) 121 ; as a function of the lag (l). 122 122 123 123 ON_ERROR, 2 -
trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro
r325 r327 30 30 ; 31 31 ;- 32 FUNCTION timecross_cov, xd, yd, m, nt, ndim, DOUBLE = double, ZERO2NAN =zero2nan32 FUNCTION timecross_cov, xd, yd, m, nt, ndim, DOUBLE=double, ZERO2NAN=zero2nan 33 33 ; 34 34 compile_opt hidden … … 59 59 ; This function computes the "time cross correlation" Pxy(L) or 60 60 ; the "time cross covariance" between 2 arrays (this is some 61 ; kind of c_correlatebut for multidimensional arrays) as a61 ; kind of <proidl>C_CORRELATE</proidl> but for multidimensional arrays) as a 62 62 ; function of the lag (L). 63 63 ; … … 114 114 ; 115 115 ;- 116 FUNCTION c_timecorrelate, x, y, lag, COVARIANCE = covariance, DOUBLE =double116 FUNCTION c_timecorrelate, x, y, lag, COVARIANCE=covariance, DOUBLE=double 117 117 ; 118 118 -
trunk/SRC/ToBeReviewed/STRING/chkeywd.pro
r325 r327 76 76 ; 77 77 ;- 78 FUNCTION chkeywd, stringin, keywdname, keywdvalue, SEPARATOR = separator, AFTER = after 78 FUNCTION chkeywd, stringin, keywdname, keywdvalue $ 79 , SEPARATOR=separator, AFTER=after 79 80 ; 80 81 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STRING/getfile.pro
r325 r327 51 51 ; 52 52 ;- 53 FUNCTION getfile, filein, error=err, HELP=hlp, QUIET=quiet, LINES=lines, FIND = find 53 FUNCTION getfile, filein, error=err $ 54 , HELP=hlp, QUIET=quiet, LINES=lines, FIND=find 54 55 ; 55 56 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STRING/strsed.pro
r325 r327 42 42 ; $Id$ 43 43 ;- 44 FUNCTION strsed, str, exp1, exp2, FOLD_CASE =fold_case44 FUNCTION strsed, str, exp1, exp2, FOLD_CASE=fold_case 45 45 ; 46 46 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro
r325 r327 64 64 ; 65 65 ;- 66 FUNCTION chkstru, structure, fields, INDEX=index,VERBOSE=verbose, EXTRACT = extract 66 FUNCTION chkstru, structure, fields $ 67 , INDEX=index, VERBOSE=verbose, EXTRACT=extract 67 68 ; 68 69 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro
r325 r327 47 47 ; 48 48 ;- 49 FUNCTION extractstru, stru, liste, KEEP = keep, DELETE =delete49 FUNCTION extractstru, stru, liste, KEEP=keep, DELETE=delete 50 50 ; 51 51 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/STRUCTURE/struct2string.pro
r325 r327 40 40 ; 41 41 ;- 42 FUNCTION struct2string, struct, CUT_IN_STRING = cut_in_string, MAX_STRUCT_LENGTH = max_struct_length, DIRECT2STRING = direct2string 42 FUNCTION struct2string, struct $ 43 , CUT_IN_STRING=cut_in_string $ 44 , MAX_STRUCT_LENGTH=max_struct_length $ 45 , DIRECT2STRING=direct2string 43 46 ; 44 47 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro
r325 r327 29 29 ; 30 30 ;- 31 FUNCTION ciseauxtri, triang, glam, gphi, _EXTRA =ex31 FUNCTION ciseauxtri, triang, glam, gphi, _EXTRA=ex 32 32 ; 33 33 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro
r325 r327 29 29 ; 30 30 ;- 31 PRO draw_corner_triangle, lons, lats, seuil, CONT_COLOR = cont_color, _EXTRA =ex31 PRO draw_corner_triangle, lons, lats, seuil, CONT_COLOR=cont_color, _EXTRA=ex 32 32 ; 33 33 compile_opt idl2, strictarrsubs … … 85 85 ; 86 86 ;- 87 PRO completecointerre, COINMONTE = coinmonte, COINDESCEND =coindescend $88 , CONT_COLOR = cont_color, INDICEZOOM =indicezoom $89 , _EXTRA =ex87 PRO completecointerre, COINMONTE=coinmonte, COINDESCEND=coindescend $ 88 , CONT_COLOR=cont_color, INDICEZOOM=indicezoom $ 89 , _EXTRA=ex 90 90 ; 91 91 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/definetri_e.pro
r325 r327 78 78 ; 79 79 ;- 80 FUNCTION definetri_e, nx, ny, singular, SHIFTED =shifted80 FUNCTION definetri_e, nx, ny, singular, SHIFTED=shifted 81 81 ; 82 82 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/dessinetri.pro
r325 r327 42 42 ; 43 43 ;- 44 PRO dessinetri, tri, x, y, WAIT = wait, ONEBYONE = onebyone, FILL = fill, CHANGECOLOR = changecolor, _EXTRA = ex 44 PRO dessinetri, tri, x, y, WAIT=wait, ONEBYONE=onebyone, FILL=fill $ 45 , CHANGECOLOR=changecolor, _EXTRA=ex 45 46 ; 46 47 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro
r325 r327 51 51 ; 52 52 ;- 53 PRO drawcoast_c, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, _EXTRA = ex 53 PRO drawcoast_c, mask, xf, yf, nx, ny $ 54 , COAST_COLOR=coast_color, COAST_THICK=coast_thick $ 55 , YSEUIL=yseuil, XSEUIL=xseuil, _EXTRA=ex 54 56 ; 55 57 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_e.pro
r325 r327 50 50 ; 51 51 ;- 52 PRO drawcoast_e, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, ONEMORE = onemore, _EXTRA = ex 52 PRO drawcoast_e, mask, xf, yf, nx, ny $ 53 , COAST_COLOR=coast_color, COAST_THICK=coast_thick $ 54 , YSEUIL=yseuil, XSEUIL=xseuil, ONEMORE=onemore, _EXTRA=ex 53 55 ; 54 56 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro
r325 r327 42 42 ;- 43 43 PRO drawsectionbottom, maskin, xxaxisin, depthsin $ 44 , COAST_COLOR = coast_color, COAST_THICK =coast_thick $45 , CONT_COLOR = cont_color, CONT_NOFILL =cont_nofill $46 , OVERPLOT = overplot, _EXTRA =ex44 , COAST_COLOR=coast_color, COAST_THICK=coast_thick $ 45 , CONT_COLOR=cont_color, CONT_NOFILL=cont_nofill $ 46 , OVERPLOT=overplot, _EXTRA=ex 47 47 ; 48 48 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro
r325 r327 24 24 ; 25 25 ;- 26 PRO fillcornermask, xin, yin, COINMONTE = coinmonte, COINDESCEND =coindescend $27 , CONT_COLOR = cont_color, INDICEZOOM =indicezoom $28 , _EXTRA =ex26 PRO fillcornermask, xin, yin, COINMONTE=coinmonte, COINDESCEND=coindescend $ 27 , CONT_COLOR=cont_color, INDICEZOOM=indicezoom $ 28 , _EXTRA=ex 29 29 ; 30 30 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro
r325 r327 46 46 ; 47 47 ;- 48 PRO section, field, res, glamaxe, gphiaxe, ENDPOINTS =endpoints $49 , BOXZOOM = boxzoom, TYPE = type, WDEPTH =wdepth $50 , DIREC = direc, SHOWBUILD = showbuild, ONLYBOX =onlybox $51 , _EXTRA =ex48 PRO section, field, res, glamaxe, gphiaxe, ENDPOINTS=endpoints $ 49 , BOXZOOM=boxzoom, TYPE=type, WDEPTH=wdepth $ 50 , DIREC=direc, SHOWBUILD=showbuild, ONLYBOX=onlybox $ 51 , _EXTRA=ex 52 52 ; 53 53 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro
r325 r327 26 26 ; 27 27 ;- 28 PRO tracecote, SURFACE_COASTLINE = surface_coastline, _EXTRA =ex28 PRO tracecote, SURFACE_COASTLINE=surface_coastline, _EXTRA=ex 29 29 ; 30 30 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro
r325 r327 39 39 ; 40 40 ;- 41 PRO tracemask, maskentree, xin, yin, COAST_COLOR = coast_color, COAST_THICK = coast_thick, OVERPLOT = overplot, _EXTRA = ex 41 PRO tracemask, maskentree, xin, yin $ 42 , COAST_COLOR=coast_color, COAST_THICK=coast_thick $ 43 , OVERPLOT=overplot, _EXTRA=ex 42 44 ; 43 45 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro
r325 r327 42 42 ; 43 43 ;- 44 FUNCTION triangule, maskentree, BASIC = basic, COINMONTE = coinmonte, COINDESCEND = coindescend, _EXTRA = ex 44 FUNCTION triangule, maskentree, BASIC=basic $ 45 , COINMONTE=coinmonte, COINDESCEND=coindescend, _EXTRA=ex 45 46 ; 46 47 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro
r325 r327 72 72 ; seb L.267->268 je ne pense pas que ce soit ce que tu voulais dire mais 73 73 ; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 74 ; 74 75 ;- 75 FUNCTION triangule_c, maskentree, COINMONTE = coinmonte, COINDESCEND = coindescend, BASIC = basic, KEEP_CONT = keep_cont 76 FUNCTION triangule_c, maskentree $ 77 , COINMONTE=coinmonte, COINDESCEND=coindescend $ 78 , BASIC=basic, KEEP_CONT=keep_cont 76 79 ; 77 80 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro
r325 r327 42 42 ;- 43 43 FUNCTION triangule_e, maskentree $ 44 , COINMONTE = coinmonte, COINDESCEND =coindescend $45 , SHIFTED = shifted, BASIC =basic44 , COINMONTE=coinmonte, COINDESCEND=coindescend $ 45 , SHIFTED=shifted, BASIC=basic 46 46 ; 47 47 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro
r325 r327 29 29 ; 30 30 ;- 31 FUNCTION get_extra, _EXTRA =extra31 FUNCTION get_extra, _EXTRA=extra 32 32 ; 33 33 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro
r325 r327 30 30 ; 31 31 ;- 32 FUNCTION buildcmd, base, BOXZOOM = boxzoom, FORCETYPE =forcetype32 FUNCTION buildcmd, base, BOXZOOM=boxzoom, FORCETYPE=forcetype 33 33 ; 34 34 ;------------------------------------------------------------ -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro
r325 r327 38 38 ; 39 39 ;- 40 FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM =boxzoom $41 , COMPLETE = complete, NAMEFIELD =namefield40 FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM=boxzoom $ 41 , COMPLETE=complete, NAMEFIELD=namefield 42 42 ; 43 43 ; -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro
r297 r327 38 38 ; 39 39 ;- 40 PRO changefield, base, newfieldname, BOXZOOM =boxzoom40 PRO changefield, base, newfieldname, BOXZOOM=boxzoom 41 41 ; 42 42 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro
r325 r327 44 44 ; 45 45 ;- 46 PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname 46 PRO changefile, base, newfilename, BOXZOOM=boxzoom $ 47 , DATE1=date1, DATE2=date2, FIELDNAME=fieldname 47 48 ; 48 49 ; -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro
r325 r327 27 27 ; 28 28 ;- 29 PRO letsdraw, base, COMMANDE = commande, _EXTRA =ex29 PRO letsdraw, base, COMMANDE=commande, _EXTRA=ex 30 30 ; 31 31 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro
r325 r327 27 27 ; 28 28 ;- 29 PRO loadgrid, meshfiletxtin, _EXTRA =ex29 PRO loadgrid, meshfiletxtin, _EXTRA=ex 30 30 ; 31 31 meshfilein = strsed(meshfiletxtin,'@@@', '''') -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro
r325 r327 47 47 ; 48 48 ;- 49 FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 49 FUNCTION read_vermair, name, debut, fin, nomexp $ 50 , PARENT=parent, BOXZOOM=boxzoom, _EXTRA=ex 50 51 ; 51 52 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro
r325 r327 31 31 ; 32 32 ;- 33 FUNCTION scanfile, namefile, GRID = GRID, _EXTRA =ex33 FUNCTION scanfile, namefile, GRID=GRID, _EXTRA=ex 34 34 ; 35 35 ; liste des presupposes: -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro
r325 r327 203 203 ; 204 204 ;- 205 FUNCTION selectfile, datafilename, idlfile, argspro, _EXTRA =ex205 FUNCTION selectfile, datafilename, idlfile, argspro, _EXTRA=ex 206 206 ; 207 207 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro
r325 r327 32 32 ; 33 33 ;- 34 PRO tracecadre, small, OUT = out, ERASE = erase, FILL =fill34 PRO tracecadre, small, OUT=out, ERASE=erase, FILL=fill 35 35 ; 36 36 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro
r325 r327 31 31 ; 32 32 ;- 33 PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE =notype33 PRO updatewidget, base, NOBOXZOOM=noboxzoom, NODATES=nodates, NOTYPE=notype 34 34 ; 35 35 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro
r325 r327 339 339 ;- 340 340 FUNCTION cw_bgroup, parent, names, $ 341 BUTTON_UVALUE = button_uvalue, COLUMN=column, EVENT_FUNCT =efun, $341 BUTTON_UVALUE=button_uvalue, COLUMN=column, EVENT_FUNCT=efun, $ 342 342 EXCLUSIVE=excl, FONT=font, FRAME=frame, IDS=ids, LABEL_TOP=label_top, $ 343 343 LABEL_LEFT=label_left, MAP=map, $ -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro
r325 r327 205 205 ; @param EVENT 206 206 ; 207 ;208 207 ; @param CASENAME 209 208 ; 210 ;211 209 ; @param DATE0 212 210 ; 213 ; 214 ; @returns 215 ; 216 ; @uses 217 ; 218 ; @restrictions< 211 ; @returns 212 ; 213 ; @uses 214 ; 215 ; @restrictions 219 216 ; 220 217 ; @examples … … 353 350 return 354 351 end 355 ;---------------------------------------------------------------------- 356 ;+ 357 ; @file_comments358 ; 352 353 ;+ 354 ; 355 ; @file_comments 359 356 ; 360 357 ; @categories … … 422 419 , VALUE:infowid.date, FAKECAL: infowid.fakecal} 423 420 end 424 ; ----------------------------------------------------------------------425 ; ----------------------------------------------------------------------426 ; +421 ; 422 ;+ 423 ; 427 424 ; @file_comments 428 425 ; … … 469 466 ; 470 467 ;- 471 FUNCTION cw_calendar, parent, calendar, jdate0, CALTYPE = CALTYPE, FAKECAL = fakecal, UVALUE = uvalue, UNAME = uname, _EXTRA = ex 468 FUNCTION cw_calendar, parent, calendar, jdate0 $ 469 , CALTYPE=CALTYPE, FAKECAL=fakecal $ 470 , UVALUE=uvalue, UNAME=uname, _EXTRA=ex 472 471 ; 473 472 @cm_4cal -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro
r325 r327 247 247 ; 248 248 ;- 249 FUNCTION cw_combobox_pm, parent, VALUE = value, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _EXTRA = ex 249 FUNCTION cw_combobox_pm, parent, VALUE=value, UVALUE=uvalue, UNAME=uname $ 250 , ROW=row, COLUMN=column, _EXTRA=ex 250 251 ; 251 252 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro
r325 r327 539 539 ; 540 540 ;- 541 FUNCTION cw_domain, parent, BOXZOOM = boxzoom, STRICT = strict, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, _EXTRA = ex 541 FUNCTION cw_domain, parent, BOXZOOM=boxzoom, STRICT=strict $ 542 , UVALUE=uvalue, UNAME=uname, UNZOOM=unzoom, _EXTRA=ex 542 543 ; 543 544 ; -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_droplist_pm.pro
r325 r327 234 234 ; 235 235 ;- 236 FUNCTION cw_droplist_pm, parent,UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _EXTRA = ex 236 FUNCTION cw_droplist_pm, parent, UVALUE=uvalue, UNAME=uname $ 237 , ROW=row, COLUMN=column, _EXTRA=ex 237 238 ; 238 239 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro
r325 r327 148 148 ; 149 149 ;- 150 FUNCTION cw_pagelayout, parent, small, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, COLUMN = column, ROW = row, _EXTRA = ex 150 FUNCTION cw_pagelayout, parent, small, UVALUE=uvalue, UNAME=uname $ 151 , UNZOOM=unzoom, COLUMN=column, ROW=row, _EXTRA=ex 151 152 ; 152 153 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro
r325 r327 217 217 ; 218 218 ;- 219 FUNCTION cw_slide_slice, parent, BOXZOOM = boxzoom, UVALUE = uvalue, UNAME = uname, FRAME = frame, ROW = row, COLUMN = column, _EXTRA = ex 219 FUNCTION cw_slide_slice, parent, BOXZOOM=boxzoom, UVALUE=uvalue, UNAME=uname $ 220 , FRAME=frame, ROW=row, COLUMN=column, _EXTRA=ex 220 221 ; 221 222 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro
r325 r327 335 335 ; 336 336 ;- 337 FUNCTION cw_slider_pm, parent, MAXIMUM = maximum, MINIMUM =minimum $338 , STRMINLEN = strminlen, VALUE = value, UVALUE =uvalue $339 , UNAME = uname, TITLE = title, _EXTRA =ex337 FUNCTION cw_slider_pm, parent, MAXIMUM=maximum, MINIMUM=minimum $ 338 , STRMINLEN=strminlen, VALUE=value, UVALUE=uvalue $ 339 , UNAME=uname, TITLE=title, _EXTRA=ex 340 340 ; 341 341 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro
r325 r327 208 208 ; 209 209 ;- 210 FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _EXTRA = ex 210 FUNCTION cw_specifie, parent, ROW=row, COLUMN=column $ 211 , UVALUE=uvalue, UNAME=uname, FRAME=frame $ 212 , FORXXX=forxxx, _EXTRA=ex 211 213 ; 212 214 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/slec.pro
r325 r327 47 47 ; 48 48 ;- 49 FUNCTION slec, name, debut, fin, nomexp, PARENT=parent, BOXZOOM=boxzoom, _EXTRA = ex 49 FUNCTION slec, name, debut, fin, nomexp $ 50 , PARENT=parent, BOXZOOM=boxzoom, _EXTRA=ex 50 51 ; 51 52 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro
r325 r327 35 35 ; 36 36 ;- 37 FUNCTION xnotice, text, CHKWIDGET =chkwidget37 FUNCTION xnotice, text, CHKWIDGET=chkwidget 38 38 ; 39 39 ; We separate the text in different lines (separated by !C) if it is not done yet... -
trunk/SRC/ToBeReviewed/WIDGET/xquestion.pro
r325 r327 83 83 ; 84 84 ;- 85 FUNCTION xquestion, question, proposedanswer, CHKWIDGET = chkwidget, _EXTRA = ex ;85 FUNCTION xquestion, question, proposedanswer, CHKWIDGET=chkwidget, _EXTRA=ex 86 86 ; 87 87 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/xx.pro
r325 r327 35 35 ; 36 36 ;- 37 PRO xx, JOUR = jour, MESHFILENAME = meshfilename, LISTVAR = listvar, LISTGRID = listgrid, FUNCLEC_NAME = funclec_name, CALENDAR = calendar, _EXTRA = ex 37 PRO xx, JOUR=jour, MESHFILENAME=meshfilename, LISTVAR=listvar $ 38 , LISTGRID=listgrid, FUNCLEC_NAME=funclec_name, CALENDAR=calendar $ 39 , _EXTRA=ex 38 40 ; 39 41 compile_opt idl2, strictarrsubs -
trunk/SRC/ToBeReviewed/WIDGET/xxx.pro
r325 r327 154 154 ; 155 155 ;- 156 PRO xxx, datafilename, idlfile, argspro, CALLERWIDID =callerwidid $157 , REDRAW = redraw, SEPARATE = separate, UVALUE =uvalue $158 , RESTORE = restore, _EXTRA =ex156 PRO xxx, datafilename, idlfile, argspro, CALLERWIDID=callerwidid $ 157 , REDRAW=redraw, SEPARATE=separate, UVALUE=uvalue $ 158 , RESTORE=restore, _EXTRA=ex 159 159 ; 160 160 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/createfunc.pro
r325 r327 16 16 ; function definition. 17 17 ; Warning: the string must start with a ',' 18 ; for example: KWDLIST = ', TOTO =toto'18 ; for example: KWDLIST=', TOTO=toto' 19 19 ; 20 20 ; @keyword _EXTRA … … 38 38 ; 39 39 ;- 40 FUNCTION createfunc, command, FILENAMEIN =filenamein $41 , KWDLIST = kwdlist, _EXTRA =ex40 FUNCTION createfunc, command, FILENAMEIN=filenamein $ 41 , KWDLIST=kwdlist, _EXTRA=ex 42 42 ; 43 43 compile_opt idl2, hidden, strictarrsubs -
trunk/SRC/Utilities/createpro.pro
r325 r327 15 15 ; definition. 16 16 ; Warning: the string must start with a ',' 17 ; for example: KWDLIST =', TOTO = toto'17 ; for example: KWDLIST=', TOTO = toto' 18 18 ; 19 19 ; @keyword KWDUSED … … 44 44 ; 45 45 ;- 46 PRO createpro, command, FILENAMEIN =filenamein $47 , KWDLIST = kwdlist, KWDUSED = kwdused, _EXTRA =ex46 PRO createpro, command, FILENAMEIN=filenamein $ 47 , KWDLIST=kwdlist, KWDUSED=kwdused, _EXTRA=ex 48 48 ; 49 49 compile_opt idl2, hidden, strictarrsubs -
trunk/SRC/Utilities/find.pro
r325 r327 107 107 ; 108 108 ;- 109 FUNCTION find, filein, IODIRECTORY = iodirectory, RECURSIVE =recursive $110 , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO =onlypro $111 , ONLYNC = onlync, UNIQUE = unique, FIRSTFOUND =firstfound $112 , LOOKALLDIR = LOOKALLDIR, TRYFIND = tryfind, _EXTRA =ex109 FUNCTION find, filein, IODIRECTORY=iodirectory, RECURSIVE=recursive $ 110 , REPERTOIRE=repertoire, NOPRO=nopro, ONLYPRO=onlypro $ 111 , ONLYNC=onlync, UNIQUE=unique, FIRSTFOUND=firstfound $ 112 , LOOKALLDIR=LOOKALLDIR, TRYFIND=tryfind, _EXTRA=ex 113 113 ; 114 114 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/fitintobox.pro
r325 r327 120 120 ;- 121 121 FUNCTION fitintobox, field, nx, ny, nz, firstx, firsty $ 122 , firstz, lastx, lasty, lastz, WDEPTH =wdepth122 , firstz, lastx, lasty, lastz, WDEPTH=wdepth 123 123 ; 124 124 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/isadirectory.pro
r325 r327 42 42 ; 43 43 ;- 44 FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _EXTRA = ex 44 FUNCTION isadirectory, directoryin, TITLE=title, IODIRECTORY=iodirectory $ 45 , _EXTRA=ex 45 46 ; 46 47 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/isafile.pro
r325 r327 66 66 ; 67 67 ;- 68 FUNCTION isafile, filein, FILENAME = filename, IODIRECTORY =iodirectory $69 , NEW = new, RECURSIVE = RECURSIVE, ONLYPRO =onlypro $70 , ONLYNC = onlync, _EXTRA =ex68 FUNCTION isafile, filein, FILENAME=filename, IODIRECTORY=iodirectory $ 69 , NEW=new, RECURSIVE=RECURSIVE, ONLYPRO=onlypro $ 70 , ONLYNC=onlync, _EXTRA=ex 71 71 ; 72 72 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/lineintersection.pro
r325 r327 54 54 ; 55 55 ;- 56 FUNCTION lineintersection, abc1, abc2, FLOAT =float56 FUNCTION lineintersection, abc1, abc2, FLOAT=float 57 57 ; 58 58 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/report.pro
r325 r327 60 60 ; 61 61 ;- 62 FUNCTION report, textin, DEFAULT_NO = default_no, PARENT =parent $63 , QUESTION = question, SIMPLE = simple, _EXTRA =ex62 FUNCTION report, textin, DEFAULT_NO=default_no, PARENT=parent $ 63 , QUESTION=question, SIMPLE=simple, _EXTRA=ex 64 64 ; 65 65 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/testvar.pro
r325 r327 28 28 ; 29 29 ;- 30 FUNCTION testvar, VAR =var30 FUNCTION testvar, VAR=var 31 31 ; 32 32 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/text_box.pro
r325 r327 50 50 ; 51 51 ;- 52 PRO text_box, text, POS=pos, FG_COLOR=fg_color, BG_COLOR=bg_color,$ 53 CENTER=center, RIGHT=right, BOX=box, VERT_SPACE=vert_space, _EXTRA = ex 52 PRO text_box, text, POS=pos, FG_COLOR=fg_color, BG_COLOR=bg_color $ 53 , CENTER=center, RIGHT=right, BOX=box, VERT_SPACE=vert_space $ 54 , _EXTRA=ex 54 55 ; 55 56 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/xfile.pro
r325 r327 34 34 ; 35 35 ;- 36 PRO xfile, filename, _EXTRA =ex36 PRO xfile, filename, _EXTRA=ex 37 37 ; 38 38 compile_opt idl2, strictarrsubs -
trunk/SRC/Utilities/xhelp.pro
r325 r327 41 41 compile_opt idl2, strictarrsubs 42 42 ; 43 usage="xhelp, filename, _EXTRA =ex"43 usage="xhelp, filename, _EXTRA=ex" 44 44 ; 45 45 ; check parameters -
trunk/SRC/buildinit.pro
r325 r327 2 2 ; 3 3 ; @file_comments 4 ; slightly modified version of cw_field ... 4 5 ; 5 6 ; @categories 6 7 ; 7 ; @param PARENT{in}{required}8 ; @param parent {in}{required} 8 9 ; The ID of the parent widget. 9 10 ; … … 74 75 ; $Id$ 75 76 ;- 76 FUNCTION cw_field2, parent, COLUMN=column, ROW=row ,$77 ; slightly modified version of cw_field... 78 EVENT_FUNC = efun,$79 FLOATING=Float, INTEGER=Int, LONG=Long, STRING=String,$80 FONT=LabelFont, FRAME=Frame, TITLE=Title, UVALUE=UValue, VALUE=TextValueIn,$81 RETURN_EVENTS=ReturnEvents, ALL_EVENTS=AllUpdates,$82 FIELDFONT=FieldFont, NOEDIT=NoEdit, TEXT_FRAME=Text_Frame,$83 XSIZE=XSize, YSIZE=YSize, UNAME=uname84 ; FLOOR=vmin, CEILING=vmax77 FUNCTION cw_field2, parent, COLUMN=column, ROW=row $ 78 , EVENT_FUNC=efun $ 79 , FLOATING=float, INTEGER=int, LONG=long, STRING=string $ 80 , FONT=labelfont, FRAME=frame, TITLE=title, UVALUE=uvalue $ 81 , VALUE=textvaluein $ 82 , RETURN_EVENTS=returnevents, ALL_EVENTS=allupdates $ 83 , FIELDFONT=fieldfont, NOEDIT=noedit, TEXT_FRAME=text_frame $ 84 , XSIZE=xsize, YSIZE=ysize, UNAME=uname 85 ; , FLOOR=vmin, CEILING=vmax 85 86 ; 86 87 compile_opt idl2, strictarrsubs … … 151 152 ; 152 153 ;+ 154 ; 153 155 ; @file_comments 154 ; 156 ; get back the ids of the cw_field widgets 155 157 ; 156 158 ; @categories 157 159 ; 158 ;159 160 ; @param EVENT 160 ;161 161 ; 162 162 ; @returns … … 172 172 ; @version 173 173 ; $Id$ 174 ; 174 175 ;- 175 176 PRO printerdef_event, event 176 ; get back the ids of the cw_field widgets177 177 ; 178 178 compile_opt idl2, strictarrsubs … … 207 207 ; 208 208 ; @file_comments 209 ; get back the ids of the cw_field widgets 209 210 ; 210 211 ; @categories … … 224 225 ; @version 225 226 ; $Id$ 227 ; 226 228 ;- 227 229 PRO papsize_event, event 228 ; get back the ids of the cw_field widgets229 230 ; 230 231 compile_opt idl2, strictarrsubs … … 247 248 ;+ 248 249 ; @file_comments 250 ; now we give the answer to buildinit.pro by using the pointer uvalue 249 251 ; 250 252 ; @categories 251 253 ; 252 ; @param EVENT254 ; @param event 253 255 ; 254 256 ; @returns … … 264 266 ; @version 265 267 ; $Id$ 268 ; 266 269 ;- 267 270 PRO xask_event, event 268 ; now we give the answer to buildinit.pro by using the pointer uvalue269 271 ; 270 272 compile_opt idl2, strictarrsubs … … 298 300 ; @version 299 301 ; $Id$ 302 ; 300 303 ;- 301 FUNCTION xask, _EXTRA =ex304 FUNCTION xask, _EXTRA=ex 302 305 ; 303 306 compile_opt idl2, strictarrsubs … … 341 344 ; @version 342 345 ; $Id$ 346 ; 343 347 ;- 344 FUNCTION getdir, title = title, nomark = nomark, nowrite =nowrite348 FUNCTION getdir, TITLE=title, NOMARK=nomark, NOWRITE=nowrite 345 349 ; 346 350 compile_opt idl2, strictarrsubs … … 378 382 ; @version 379 383 ; $Id$ 384 ; 380 385 ;- 381 386 PRO buildinit
Note: See TracChangeset
for help on using the changeset viewer.