Changeset 325


Ignore:
Timestamp:
12/06/07 11:04:53 (16 years ago)
Author:
pinsard
Message:

modification of some headers (+some corrections) to prepare usage of the new idldoc

Location:
trunk/SRC
Files:
1 added
351 edited
1 copied

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Calendar/caldat.pro

    r318 r325  
    6464; 
    6565;- 
    66 ; 
    6766PRO caldat, julian, month, day, year, hour, minute, second, NDAYSPM = ndayspm 
    6867; 

  • trunk/SRC/Calendar/date2jul.pro

    r318 r325  
    7373; 
    7474;- 
    75 ; 
    7675function date2jul, date, GRADS = grads, MONTH = month, DAY = day, YEAR = year $ 
    7776                   , HOUR = hour, MINUTE = minute, SECOND = second 
    … …  
    7978  compile_opt idl2, strictarrsubs 
    8079; 
     80  usage="res=date2jul, date, GRADS = grads, MONTH = month, DAY = day, YEAR = year , HOUR = hour, MINUTE = minute, SECOND = second" 
     81; 
     82; check parameters 
     83  check_param = N_PARAMS() 
     84  if (check_param EQ 0) then begin 
     85     dummy = report(['No input parameter', $ 
     86                     'Usage : ' + usage]) 
     87     stop 
     88  endif 
     89; 
     90; check arguments  
     91; ++ pas sur 
     92  if arg_present(date) then begin 
     93     dummy = report(['No input parameter date', $ 
     94                     'Usage : ' + usage]) 
     95     stop 
     96  endif 
    8197  sztype = size(date, /type) 
    8298  IF sztype NE 3 AND sztype NE 5 AND sztype LT 13 THEN BEGIN 

  • trunk/SRC/Calendar/date2string.pro

    r318 r325  
    3333; 
    3434;- 
    35 ; 
    3635FUNCTION date2string, yyyymmdd, _EXTRA = ex 
    3736; 

  • trunk/SRC/Calendar/daysinmonth.pro

    r318 r325  
    3434; 
    3535;- 
    36 ; 
    3736function daysinmonth, month, year 
    3837; 
    … …  
    4342@updatenew 
    4443ENDIF 
    45 ;------------------------------------------------------------ 
     44 
    4645  IF n_elements(key_caltype) EQ 0 THEN key_caltype = 'greg' 
    4746  CASE key_caltype OF 

  • trunk/SRC/Calendar/jul2date.pro

    r318 r325  
    6969; 
    7070;- 
    71 ; 
    7271function jul2date, jday, MONTH = month, DAY = day, YEAR = year $ 
    7372                   , HOUR = hour, MINUTE = minute, SECOND = second 

  • trunk/SRC/Calendar/julday.pro

    r318 r325  
    8181; $Id$ 
    8282;- 
    83 ; 
    8483FUNCTION julday, month, day, yearin, hour, minute, second, NDAYSPM = ndayspm 
    8584; 

  • trunk/SRC/Calendar/leapyr.pro

    r238 r325  
    4343; 
    4444;- 
    45 ; 
    4645function leapyr, year 
    4746; 

  • trunk/SRC/Calendar/monthname.pro

    r318 r325  
    3232; 
    3333;- 
    34 ; 
    3534FUNCTION monthname, month, _EXTRA = ex 
    3635; 

  • trunk/SRC/Colors/color24.pro

    r318 r325  
    3636;- 
    3737FUNCTION color24, rgb_triple 
    38 ; 
    3938  compile_opt idl2, strictarrsubs 
    4039; 

  • trunk/SRC/Colors/colorbar.pro

    r318 r325  
    117117; 
    118118;- 
    119 ; 
    120119PRO colorbar, BOTTOM=bottom, CB_CHARSIZE=cb_charsize, CB_CHARTHICK=cb_charthick $ 
    121120              , CB_COLOR=cb_color, DIVISIONS=divisions, DISCRETE=discrete $ 

  • trunk/SRC/Colors/getcolor.pro

    r242 r325  
    190190; $Id$ 
    191191;- 
    192 ; 
    193192FUNCTION getcolor, thisColor, index, TRUE=truecolor, $ 
    194193   NAMES=colornames, LOAD=load, START=start 

  • trunk/SRC/Colors/lct.pro

    r285 r325  
    3636; 
    3737;- 
    38 ; 
    3938PRO lct, numpal, FILE = file, GET_NAME = get_name, LIGHTNESS = Lightness, _EXTRA = ex 
    4039; 

  • trunk/SRC/Colors/newpalette.pro

    r292 r325  
    3030; 
    3131;- 
    32 ; 
    3332pro newpalette, namepal, FILE = file, OVER = over, _EXTRA = ex 
    3433; 

  • trunk/SRC/Colors/xlct.pro

    r285 r325  
    44; 
    55;- 
    6 ; 
    76PRO xlct_psave                  ;Save/Restore our plotting state. 
    87;  Swaps our state with the current state each time its called. 
    … …  
    470469; 
    471470;- 
    472 ; 
    473471PRO xlct, SILENT=silent_f, GROUP=group, FILE=file, $ 
    474472          USE_CURRENT=use_current, NCOLORS = nc, BOTTOM=bottom, $ 

  • trunk/SRC/Colors/xpal.pro

    r260 r325  
    1111; 
    1212;- 
    13 ; 
    1413FUNCTION xp_new_colors 
    1514; 
    … …  
    3938; 
    4039;- 
    41 ; 
    4240PRO xp_alert_caller 
    4341; 
    … …  
    7270; 
    7371;- 
    74 ; 
    7572PRO xp_xlctcallback 
    7673; 
    … …  
    8986; 
    9087;- 
    91 ; 
    9288PRO xp_redraw 
    9389; 
    … …  
    121117; 
    122118;- 
    123 ; 
    124119PRO xp_replot, color_index, type 
    125120; 
    … …  
    210205; 
    211206;- 
    212 ; 
    213207PRO xp_change_color, type, value 
    214208; 
    … …  
    259253; 
    260254;- 
    261 ; 
    262255PRO xp_button_event, event 
    263256; 
    … …  
    382375; 
    383376;- 
    384 ; 
    385377PRO xp_button_event_event, ev 
    386378; 
    … …  
    413405; 
    414406;- 
    415 ; 
    416407PRO xp_event, event 
    417408; 
    … …  
    605596; 
    606597;- 
    607 ; 
    608598PRO xpal, GROUP=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 
    609599        UPDATECBDATA=updt_cb_data 

  • trunk/SRC/Commons/cm_4cal.pro

    r238 r325  
    55;                       June 2005 
    66;- 
    7 ; 
     7 
    88@cm_general 
    99; 

  • trunk/SRC/Commons/cm_4data.pro

    r238 r325  
    55;                       June 2005 
    66;- 
    7 ; 
     7 
    88@cm_general 
    99; 

  • trunk/SRC/Commons/cm_demomode.pro

    r232 r325  
    88; 
    99;- 
    10 ; 
    1110COMMON instead_of_save, boxzoomparam, colorbarparam 

  • trunk/SRC/Commons/cm_general.pro

    r280 r325  
    55;                       June 2005 
    66;- 
    7 ; 
    87COMMON directories, homedir, iodir, animdir, psdir, imagedir, myuniquetmpdir 
    98COMMON key_general, key_performance, key_forgetold, key_vm, key_gdl 
    10 ; 

  • trunk/SRC/Computation/curl.pro

    r314 r325  
    7272; 
    7373;- 
    74 ; 
    7574FUNCTION curl, uu, vv, DIREC = direc, MILLION = million, _EXTRA = ex 
    7675; 

  • trunk/SRC/Computation/div.pro

    r314 r325  
    7070; 
    7171;- 
    72 ; 
    7372FUNCTION div, uu, vv, DIREC = direc, MILLION = million, _EXTRA = ex 
    7473; 

  • trunk/SRC/Computation/grad.pro

    r314 r325  
    5252; 
    5353;- 
    54 ; 
    5554FUNCTION grad, field, direc, MILLION = million, _EXTRA = ex 
    5655; 

  • trunk/SRC/Computation/norm.pro

    r314 r325  
    3030; 
    3131; @uses 
    32 ; @cm_4mesh 
    33 ; @cm_4data 
    34 ; @cm_4cal 
     32; cm_4mesh 
     33; cm_4data 
     34; cm_4cal 
    3535; 
    3636; @restrictions 
    … …  
    6363; 
    6464;- 
    65 ; 
    6665FUNCTION norm, uu, vv, DIREC = direc, _EXTRA = ex 
    6766; 

  • trunk/SRC/Documentation/xmldoc/doidldoc.sh

    • Property svn:keyword set to Id
    r320 r325  
    1 #!/bin/bash 
     1#! /bin/sh 
     2# 
     3# module : 
     4# build idldoc documentations  
    25# 
    36# update : 
    47# $Id$ 
    5 # fplod 2007-08-21T09:29:04Z aedon.locean-ipsl.upmc.fr (Darwin) 
    6 # follow changes of calling sequence of pro2href.sh 
    7 # add call to pro2href.sh for replacement of <proidl>...</proidl> 
    8 # fplod 2007-06-26T14:33:12Z aedon.locean-ipsl.upmc.fr (Darwin) 
    9 # copy listings.css in idldoc_assistant_output 
    10 # fplod 2007-03-20T15:10:29Z aedon.locean-ipsl.upmc.fr (Darwin) 
    11 # . replace <pro>ginette</pro> by a sequence like 
    12 # <a href="./ginette.html">ginette</a> in idldoc html and assistant outputs 
    13 # . encaspulate example content in <pre> </pre> in idldoc assistant outputs 
    14 # smasson Fri Sep 22 17:28:10 CEST 2006 
    15 # check that the number of existing html files for each .pro file is 2! 
    16 # fplod 2006-09-21T14:55:09Z aedon.locean-ipsl.upmc.fr (Darwin) 
    17 # remove css in idldoc html output (/embed) 
    18 # entraine modif de modification de css pour nonproportional font ++ anglais 
    19 # fixe is replace by pre and no more css modification 
    20 # bug in idldoc html output file idldoc-categories.html 
    21 # http://www.w3.org/TR/xhtml1/DTD/xhtml-transitional.dtd 
    22 # au lieu de 
    23 # http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd 
    24 # ++ prévenir l'auteur 
    25 # fplod 2006-09-21T13:05:32Z aedon.locean-ipsl.upmc.fr (Darwin) 
    26 # add an svn id in idldoc-lib.adb after </profile> 
    27 # fplod 2006-09-20T16:34:38Z aedon.locean-ipsl.upmc.fr (Darwin) 
    28 # suppress ?format=raw 
    29 # fplod 2006-09-20T15:30:15Z aedon.locean-ipsl.upmc.fr (Darwin) 
    30 # add copy of html files unedr xmldoc and idldoc_html_output on 
    31 # saxo@forge.ipsl.jussieu.fr:/ipsl/forge/projets/saxo/download/ 
    32 # see dodocdownload 
    33 # fplod 2006-09-20T11:05:23Z aedon.locean-ipsl.upmc.fr (Darwin) 
    34 # correction to really suppress date in idldoc assistant outputs (font 
    35 # instaed of div in html output) 
    36 # fplod 2006-09-18T13:25:12Z aedon.locean-ipsl.upmc.fr (Darwin) 
    37 # add status checking after makehtml.sh 
    38 # smasson Fri Sep 15 10:42:01 CEST 2006 
    39 # merge idldoc html and idldoc assistant 
    40 # smasson Thu Sep 14 15:19:23 CEST 2006 
    41 # add the revision number in the name of SAXO_SRC_*.tar.gz 
    42 # smasson Wed Sep 13 14:18:02 CEST 2006 
    43 # add the directory-overview.html from dir-files.html in idldoc_html_output 
    44 # fplod 2006-09-07T08:09:47Z aedon.locean-ipsl.upmc.fr (Darwin) 
    45 # main is rename to websaxo 
    46 # fplod 2006-09-05T15:39:47Z aedon.locean-ipsl.upmc.fr (Darwin) 
    47 # add Source link in idldoc html outpout 
    48 # snlod/fplod 2006-08-25T08:30:36Z electre.locean-ipsl.upmc.fr (Darwin) 
    49 # add for idldoc assistant 
    50 # fplod 2006-08-17T09:19:06Z aedon.locean-ipsl.upmc.fr (Darwin) 
    51 # add transformation after idldoc to force non-proportional font 
    52 # on bloc delimited by 
    53 #  <fixe> 
    54 #  </fixe> 
    55 # in .pro files (with modification of css) 
    56 # !! do not replace \ by \\ inside this block 
    57 # !! replace \ by an other character is a good idea 
    58 # cf. example in ToBeReviewed/TRIANGULATION/definetri.pro 
    59 # fplod 2006-07-21T08:23:52Z aedon.locean-ipsl.upmc.fr (Darwin) 
    60 # add mini_notice production 
    61 # fplod 2006-07-11T08:26:05Z aedon.locean-ipsl.upmc.fr (Darwin) 
    62 # commented tidy in dohtml section is moved in makehtml 
    63 # fplod 2006-07-10T08:22:53Z aedon.locean-ipsl.upmc.fr (Darwin) 
    64 # ajout de  white-space: pre; dans la css pour file_comments 
    65 # fplod 2006-07-04T13:09:19Z aedon.locean-ipsl.upmc.fr (Darwin) 
    66 # for idldoc html output 
    67 # because preformat option doesn't seem to work well 
    68 # replace 
    69 # div class="value" 
    70 # by 
    71 # div class="preformat" 
    72 # fplod 2006-06-19T08:46:39Z aedon.locean-ipsl.upmc.fr (Darwin) 
    73 # for idldoc html output 
    74 #. replace 
    75 #     -e 's/\(href=".*\)\(\.html\)\("\)/\1\2?format=raw\3/g' \ 
    76 #     -e 's/\(href=".*\)\(\.html\)\(#.*"\)/\1\2?format=raw\3/g' \ 
    77 #     -e 's/\(src=".*\)\(\.html\)\("\)/\1\2?format=raw\3/g' \ 
    78 # by 
    79 # -e 's@\(href="[^.]*[^h]*[^t]*[^m]*[^l]*[^"]*\)\(\.html\)\("\)@\1\2?format=raw\3@g' \ 
    80 # -e 's@\(href="[^.]*[^h]*[^t]*[^m]*[^l]*[^"]*\)\(\.html\)\(#.*"\)@\1\2?format=raw\3@g' \ 
    81 #-e 's@\(src="[^.]*[^h]*[^t]*[^m]*[^l]*[^"]*\)\(\.html\)\("\)@\1\2?format=raw\3@g' 
    82 # in order to be able to add ?format=raw several time on one line 
    83 # . suppress .html in line like 
    84 # a parameter from the routine ./ReadWrite/idl-NetCDF/ncdf_read.html 
    85 # in files idldoc-index*.html 
    86 # fplod 2006-06-14T12:41:37Z aedon.locean-ipsl.upmc.fr (Darwin) 
    87 # add embed parameter idldoc instructions to try to fix ticket#17 
    88 # fplod 2006-06-07T12:11:50Z aedon.locean-ipsl.upmc.fr (Darwin) 
    89 # add g option in ?format=raw sed transformation in order to fix 
    90 # link on top of idldoc like directory-overview.html 
    91 # fplod 2006-06-07T10:57:35Z aedon.locean-ipsl.upmc.fr (Darwin) 
    92 # add ?format=raw in idldoc production for frames 
    93 # fplod 2006-06-07T08:14:15Z aedon.locean-ipsl.upmc.fr (Darwin) 
    94 # add action for idldochtml 
    95 # fplod 2006-06-02T14:28:30Z aedon.locean-ipsl.upmc.fr (Darwin) 
    96 # modification to produce tar files in /tmp/saxo_${$} when dotar=1 
    97 # modification to copy tar files on http://forge.ipsl.jussieu.fr/saxo/download/ 
    98 # when doforge=1 
    99 # produce tar files in /tmp/saxo_${$} when dotar=1 
     8# fplod 2007-12-04T09:21:18Z aedon.locean-ipsl.upmc.fr (Darwin) 
     9# version 
     10# http://michaelgalloy.com/wp-content/uploads/2007/12/idldoc-3.0b3.zip 
     11# pb parser if ; after ;- 
     12# ++ plus de param et keyword dans l'index  
     13# ++ pas w3c tilte au lieu de title, pas de charset, pas de alt, pas de summary 
     14# ++ css pas ok  
     15# ++ plus de @restrictions 
     16# fplod 2007-12-04T09:10:55Z aedon.locean-ipsl.upmc.fr (Darwin) 
     17# externalisation of idldoc issues from savesaxo.sh 
     18# previous release of idldoc was 2.0 
     19# this tool can be checked by creating doc from Michael Galloy librayry 
     20# available on http://www.michaelgalloy.com/lib-docs/ 
     21# version  
     22#  http://michaelgalloy.com/wp-content/uploads/2007/11/idldoc-3.0b1.zip 
     23# pas ok ne reconnait pas les @param, @keyword 
     24# 
    10025set -x 
    10126set -u 
    102 # 
    103 docompileall=0 
    104 dohtml=0 
    105 dooldtest=0 
    106 doidlwavedoc=1 
    107 doidldoc=0 
    108 doTARsrc=0 
    109 doTARdata=0 
    110 doforge=0 
    111 doSRClocean=0 
    112 doDTAlocean=0 
    113 doSRCipsl=0 
    114 doDTAipsl=0 
    115 doSRCidris=0 
    116 doDTAidris=0 
    117 dodocdownload=0 
    118 # 
    119 case $( whoami ) in 
    120     smasson) 
    121         lgforge=smasson 
    122     ;; 
    123     floseb) 
    124         lgforge=smasson 
    125     ;; 
    126     *) 
    127         lgforge=saxo 
    128     ;; 
    129 esac 
    130 # 
    131 if [ ${lgforge} != smasson ] 
    132 then 
    133     doSRClocean=0 
    134     doDTAlocean=0 
    135     doSRCipsl=0 
    136     doDTAipsl=0 
    137     doSRCidris=0 
    138     doDTAidris=0 
    139 fi 
    140 # 
    141 # get the date in a nice format 
    142 # 
    143 ndate=`date +%Y%m%d` 
    144 rev=$( svn info | grep -i revision | awk '{print $NF}' ) 
     27assistant=0 
     28transform=0 
     29title="SAXO Documentation" # ++ parametre 
     30root="../../mglib/" # overriding root for test ++ 
     31root="../../" 
     32# 
     33idldoc_dir="../idldoc/" #  
     34idldoc_dir="/Users/fplod/Desktop/idldoc-3.0b3" # overriding idldoc_dir for test ++ 
     35# 
    14536# memorize current directory 
    14637memopwd=$(pwd) # should be <working space>/SRC/Documentation/xmldoc 
    147 # 
    14838#------------------------------------------------------------------ 
    149 if [ ${docompileall} -eq 1 ] 
    150     then 
    151     cat <<EOF > /tmp/compileall${$}.pro 
    152 .reset_session 
    153 ; 
    154 !path = expand_path('+' + '../..') + ':' + expand_path('+' + !dir) 
    155 resolve_all, resolve_either='def_myuniquetmpdir', skip_routines = ['xxx2ps','trends', 'label_gmt'] 
    156 resolve_all, resolve_either = 'find', skip_routines = ['xxx2ps','trends', 'label_gmt'] 
    157 def_myuniquetmpdir 
    158 oldcm = find('oldcm_empty') 
    159 ;oldcm = find('oldcm_full') 
    160 oldcm = oldcm[0] 
    161 @cm_general 
    162 file_copy, oldcm, myuniquetmpdir + 'oldcm_used.pro', /overwrite 
    163 !path = myuniquetmpdir + ':' + !path 
    164 IF !journal NE 0 THEN journal 
    165 journal, myuniquetmpdir + 'cm_demomode_used.pro' 
    166 journal 
    167 path_cache, /rebuild 
    168 ; 
    169 resolve_all, resolve_either='keep_compatibility', skip_routines = ['xxx2ps','trends', 'label_gmt'] 
    170 ; 
    171 EOF 
    172 # 
    173     for i in $( find ${memopwd}/../.. -name "*.pro" | grep -iv label_gmt ) 
    174       do 
    175 # does it contains pro or function ? 
    176       egrep -iq '^ *    *(pro|function)' ${i} 
    177       if [ ${?} -eq 0 ] 
    178           then 
    179           echo "print, '$( basename ${i} .pro ) :'" >> /tmp/compileall${$}.pro 
    180           echo "resolve_all, resolve_either = '$( basename ${i} .pro )', skip_routines = ['xxx2ps','trends', 'label_gmt']" >> /tmp/compileall${$}.pro 
    181       fi 
    182     done 
    183     echo "exit" >> /tmp/compileall${$}.pro 
    184     IDL_STARTUP=/tmp/compileall${$}.pro 
    185     ${IDL_DIR}/bin/idl &> /tmp/compileallerr_${$} 
    186     echo 
    187     echo 
    188     grep -i "error" /tmp/compileallerr_${$} 
    189 #    grep -q "Compilation error(s)" /tmp/compileallerr_${$} 
    190     if [ ${?} -ne 0 ] 
    191     then 
    192      echo "ALL SAXO files are OK..." 
    193      rm -f /tmp/compileallerr_${$} /tmp/compileall${$}.pro 
    194     else 
    195      grep "Compilation error(s)" /tmp/compileallerr_${$} 
    196      echo "eee : see /tmp/compileallerr_${$}" 
    197      more /tmp/compileallerr_${$} 
    198      exit 1 
    199     fi 
    200     echo 
    201     echo 
    202 fi 
    203 #------------------------------------------------------------------ 
    204 if [ ${dohtml} -eq 1 ] 
    205 then 
    206 # 
    207 # redo the html file 
    208 # 
    209     cd ${memopwd} 
    210     for docxml in firststeps.xml getsaxo.xml mailing.xml websaxo.xml tiplink.xml updatesaxo.xml whatissaxo.xml whatsnew.xml infoupdatekwd.xml infoupdatecm.xml mini_notice.xml faqsaxo.xml 
    211     do 
    212       ./makehtml.sh $(basename ${docxml} .xml) 
    213       status=${?} 
    214       if [ ${status} -ne 0 ] 
    215       then 
    216        echo "eee : pb with makehtml.sh $(basename ${docxml} .xml)" 
    217        exit 1 
    218       fi 
    219     done 
    220 fi 
    221 #------------------------------------------------------------------ 
    222 if [ ${dooldtest} -eq 1 ] 
    223 then 
    224 # make the old test 
    225 # 
    226     cd ${memopwd}/../../Tests/ 
    227     ./makeold.sh 
    228     exit 0 
    229 fi 
    230 #------------------------------------------------------------------ 
    231 if  [ ${doidlwavedoc} -eq 1 ] 
    232 then 
    233 # 
    234 # redo idlwave doc 
    235 # 
    236     cd ${memopwd}/../.. 
    237     Documentation/idlwave_catalog -v -f saxo 
    238     exit 0 
    239 fi 
    240 #------------------------------------------------------------------ 
    241 if  [ ${doidldoc} -eq 1 ] 
    242 then 
    243 # 
    244     # build a idl file to launch idldoc 
    245     output=../idldoc_html_output/ 
    246     log="/tmp/idldochtml_${$}.log" 
    247     pro="/tmp/idldochtml_${$}.pro" 
    248     cat <<EOF > ${pro} 
    249 !path = expand_path('+' + '../idldoc/') 
    250 print,!path 
    251 idldoc,root="../../",title="SAXO Documentation", $ 
     39# 
     40# build a idl file to launch idldoc 
     41output=../idldoc_html_output/ 
     42#++outputtmp=/tmp/idldoc_html_output${$}/ 
     43outputtmp=/tmp/idldoc_html_output/ 
     44log="/tmp/idldochtml_${$}.log" 
     45pro="/tmp/idldochtml_${$}.pro" 
     46cat <<EOF > ${pro} 
     47!path = expand_path('+' + '${idldoc_dir}') 
     48idldoc,root="${root}",title="${title}", $ 
    25249LOG_FILE="${log}", $ 
    253 output="${output}", $ 
    254 overview="../../overview", /statistics, /preformat 
     50output="${outputtmp}", $ 
     51overview="../../overview", /statistics 
    25552exit 
    25653EOF 
    257     # launch idl with the file built above 
    258     IDL_STARTUP=${pro};${IDL_DIR}/bin/idl 
    259     /bin/rm ${pro} 
    260     # In order to do not have to many revision in svn, we modify some 
    261     # lines produced by idldoc : 
    262     # - add Source link in each html file corresponding to a .pro file 
    263     # example : 
    264     # <td>Source</td> 
    265     # will be replaced by 
    266     # <td><a href="../../Calendar/caldat.pro" title="Source code of a file">Source</a></td> 
    267     # 
    268     # - remove date and time of idldoc production 
    269     # examples : 
    270     # <!-- Generated by IDLdoc 2.0 on Wed Jun  7 10:25:28 2006 --> 
    271     # will be replaced by 
    272     # <!-- Generated by IDLdoc 2.0 --> 
    273     # <div id="tagline">Produced by IDLdoc 2.0 on Wed Jun  7 10:54:37 2006.</div 
    274     # will be replaced by 
    275     # <div id="tagline">Produced by IDLdoc 2.0</div> 
    276     # <h2>Produced on Wed Jun  7 10:23:13 2006</h2> 
    277     # will be delete 
    278     # other lines will be deleted because the time is the time of checkout not 
    279     # the time of revision. 
    280     # the sequence of lines 
    281     #<dl> 
    282     #      <dt>Last modification:</dt> 
    283     #       <dd>Fri Jun  2 11:46:24 2006</dd> 
    284     #    </dl> 
    285     # should also be removed ++ je ne sais pas dire en sed la ligne 
    286     # suivant l'occurence de Last modification 
    287     # 
    288     # count of directory levels in output 
    289     # this count will be use to format relative path later 
    290     nblev1=$(echo ${output} | sed -e "s@/\$@@" |awk -F "/" '{print NF}') 
    291     # 
    292     list_html_pro=$(find ${output} -name "*.html" -exec grep -l "<title>.*\.pro" {} \;) 
    293     for file_html in ${list_html_pro} 
    294     do 
    295      # build the .pro file name 
    296      bfile=$(basename ${file_html} .html) 
    297      # retrieve the path of html file relative to memopwd (so relative to 
    298      # output). This path will be used in "Source" link. 
    299      nblev2=$(dirname ${file_html} |  sed -e "s@/\$@@" | awk -F "/" '{print NF}') 
    300      difflev=$((${nblev2} - ${nblev1})) 
    301      if [ ${difflev} -ge 2 ] 
    302      then 
    303       ilev=1 
    304       reloutput_html=".." 
    305       while [ ${ilev} -le ${difflev} ] 
    306       do 
    307        reloutput_html="${reloutput_html}/.." 
    308        ilev=$(( ${ilev} + 1 )) 
    309       done 
    310       relpath_html=$(dirname ${file_html} | \ 
    311                    sed -e "s@${output}@${reloutput_html}@" \ 
    312                        -e "s@\$@/@") 
    313       # echo "relpath ${relpath_html})" 
    314      else 
    315       relpath_html="./" 
    316      fi 
    317      # echo "relpath ${relpath_html}/${bfile}" 
    318      sed \ 
    319      -e "s@<td >Source<\/td>@<td><a href=\"${relpath_html}/${bfile}.pro\" title=\"Source code of a file\">Source<\/a><\/td>@" \ 
    320      ${file_html} > ${file_html}_modify 
    321      mv ${file_html}_modify ${file_html} 
    322     done 
    323     list_html=$(find ${output} -name "*.html") 
    324     for file_html in ${list_html} 
    325     do 
    326      sed \ 
    327      -e "s/\(Generated by IDLdoc 2.0\)\( on .*\)\( -->\)/\1\3/" \ 
    328      -e "s/\(Produced by IDLdoc 2.0\)\( on .*\)\(\.<\/div>\)/\1\3/" \ 
    329      -e "/<h2>Produced on/d" \ 
    330      -e "/Last modification:/d" \ 
    331      -e "/<dd>... ... .* ..:..:.. ....<\/dd>/d" \ 
    332      -e 's@<div class="value">@<div class="preformat">@' \ 
    333      -e 's/div\#file_comments {/div\#file_comments { white-space: pre;/' \ 
    334      -e 's@^ <fixe>@<pre>@' \ 
    335      -e 's@^ </fixe>@</pre>@' \ 
    336      -e 's@xhtml-transitional@xhtml1-transitional@' \ 
    337      ${file_html} > ${file_html}_modify 
    338      mv ${file_html}_modify ${file_html} 
    339     done 
    340     # suppress ".html" in idldoc-index*.html in lines like 
    341     # a parameter from the routine ./ReadWrite/idl-NetCDF/ncdf_read.html 
    342     list_html=$(find ${output} -name "idldoc-index*.html") 
    343     for file_html in ${list_html} 
    344     do 
    345      sed \ 
    346      -e "s/\(a parameter from the routine \)\(.*\)\(.html\)/\1\2/" \ 
    347      ${file_html} > ${file_html}_modify 
    348      mv ${file_html}_modify ${file_html} 
    349     done 
    350     # replace <pro>ginette</pro> by a sequence like 
    351     # <a href="./ginette.html">ginette</a> 
    352     ./pro2href.sh -i ${output} -r ${output} -e pro 
    353     status=${?} 
    354     if [ ${status} -ne 0 ] 
    355     then 
    356        echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
    357        exit 1 
    358     fi 
    359     # replace <proidl>ginette</proidl> by a sequence like 
    360     # <a href="./ginette.html">ginette</a> 
    361     ./pro2href.sh -i ${output} -r ${IDL_DIR}/help/online_help -e proidl 
    362     status=${?} 
    363     if [ ${status} -ne 0 ] 
    364     then 
    365        echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
    366        exit 1 
    367     fi 
    368     echo "iii : you can see log file in ${log}" 
    369     echo "iii : and look ${output}/idldoc-warnings.html#undoc" 
    370 # 
    371     # build a idl file to launch idldoc 
    372     output=../idldoc_assistant_output/ 
    373     log="/tmp/idldocassistant_${$}.log" 
    374     pro="/tmp/idldocassistant_${$}.pro" 
    375     cat <<EOF > ${pro} 
    376 !path = expand_path('+' + '../idldoc/') 
    377 print,!path 
    378 idldoc,root="../../",title="SAXO Documentation Assistant", $ 
     54# launch idl with the file built above 
     55IDL_STARTUP=${pro};${IDL_DIR}/bin/idl 
     56/bin/rm ${pro} 
     57# 
     58if [ ${transform} -eq 1 ] 
     59then 
     60# In order to do not have to many revision in svn, we modify some 
     61# lines produced by idldoc : 
     62# - add Source link in each html file corresponding to a .pro file 
     63# example : 
     64# <td>Source</td> 
     65# will be replaced by 
     66# <td><a href="../../Calendar/caldat.pro" title="Source code of a file">Source</a></td> 
     67# 
     68# - remove date and time of idldoc production 
     69# examples : 
     70# <!-- Generated by IDLdoc 2.0 on Wed Jun  7 10:25:28 2006 --> 
     71# will be replaced by 
     72# <!-- Generated by IDLdoc 2.0 --> 
     73# <div id="tagline">Produced by IDLdoc 2.0 on Wed Jun  7 10:54:37 2006.</div 
     74# will be replaced by 
     75# <div id="tagline">Produced by IDLdoc 2.0</div> 
     76# <h2>Produced on Wed Jun  7 10:23:13 2006</h2> 
     77# will be delete 
     78# other lines will be deleted because the time is the time of checkout not 
     79# the time of revision. 
     80# the sequence of lines 
     81#<dl> 
     82#      <dt>Last modification:</dt> 
     83#       <dd>Fri Jun  2 11:46:24 2006</dd> 
     84#    </dl> 
     85# should also be removed ++ je ne sais pas dire en sed la ligne 
     86# suivant l'occurence de Last modification 
     87# 
     88# count of directory levels in output 
     89# this count will be use to format relative path later 
     90nblev1=$(echo ${outputtmp} | sed -e "s@/\$@@" |awk -F "/" '{print NF}') 
     91# 
     92list_html_pro=$(find ${outputtmp} -name "*.html" -exec grep -l "<title>.*\.pro" {} \;) 
     93for file_html in ${list_html_pro} 
     94do 
     95 # build the .pro file name 
     96 bfile=$(basename ${file_html} .html) 
     97 # retrieve the path of html file relative to memopwd (so relative to 
     98 # output). This path will be used in "Source" link. 
     99 nblev2=$(dirname ${file_html} |  sed -e "s@/\$@@" | awk -F "/" '{print NF}') 
     100 difflev=$((${nblev2} - ${nblev1})) 
     101 if [ ${difflev} -ge 2 ] 
     102 then 
     103  ilev=1 
     104  reloutput_html=".." 
     105  while [ ${ilev} -le ${difflev} ] 
     106  do 
     107   reloutput_html="${reloutput_html}/.." 
     108   ilev=$(( ${ilev} + 1 )) 
     109  done 
     110  relpath_html=$(dirname ${file_html} | \ 
     111  sed \ 
     112  -e "s@${outputtmp}@${reloutput_html}@" \ 
     113  -e "s@\$@/@") 
     114  # echo "relpath ${relpath_html})" 
     115 else 
     116  relpath_html="./" 
     117 fi 
     118 # echo "relpath ${relpath_html}/${bfile}" 
     119 sed \ 
     120 -e "s@<td >Source<\/td>@<td><a href=\"${relpath_html}/${bfile}.pro\" title=\"Source code of a file\">Source<\/a><\/td>@" \ 
     121 ${file_html} > ${file_html}_modify 
     122 mv ${file_html}_modify ${file_html} 
     123done 
     124list_html=$(find ${outputtmp} -name "*.html") 
     125for file_html in ${list_html} 
     126do 
     127 sed \ 
     128 -e "s/\(Generated by IDLdoc 2.0\)\( on .*\)\( -->\)/\1\3/" \ 
     129 -e "s/\(Produced by IDLdoc 2.0\)\( on .*\)\(\.<\/div>\)/\1\3/" \ 
     130 -e "/<h2>Produced on/d" \ 
     131 -e "/Last modification:/d" \ 
     132 -e "/<dd>... ... .* ..:..:.. ....<\/dd>/d" \ 
     133 -e 's@<div class="value">@<div class="preformat">@' \ 
     134 -e 's/div\#file_comments {/div\#file_comments { white-space: pre;/' \ 
     135 -e 's@^ <fixe>@<pre>@' \ 
     136 -e 's@^ </fixe>@</pre>@' \ 
     137 -e 's@xhtml-transitional@xhtml1-transitional@' \ 
     138 ${file_html} > ${file_html}_modify 
     139 mv ${file_html}_modify ${file_html} 
     140done 
     141# suppress ".html" in idldoc-index*.html in lines like 
     142# a parameter from the routine ./ReadWrite/idl-NetCDF/ncdf_read.html 
     143list_html=$(find ${outputtmp} -name "idldoc-index*.html") 
     144for file_html in ${list_html} 
     145do 
     146 sed \ 
     147 -e "s/\(a parameter from the routine \)\(.*\)\(.html\)/\1\2/" \ 
     148 ${file_html} > ${file_html}_modify 
     149 mv ${file_html}_modify ${file_html} 
     150done 
     151# replace <pro>ginette</pro> by a sequence like 
     152# <a href="./ginette.html">ginette</a> 
     153./pro2href.sh -i ${outputtmp} -r ${outputtmp} -e pro 
     154status=${?} 
     155if [ ${status} -ne 0 ] 
     156then 
     157   echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
     158   exit 1 
     159fi 
     160# replace <proidl>ginette</proidl> by a sequence like 
     161# <a href="./ginette.html">ginette</a> 
     162./pro2href.sh -i ${outputtmp} -r ${IDL_DIR}/help/online_help -e proidl 
     163status=${?} 
     164if [ ${status} -ne 0 ] 
     165then 
     166   echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
     167   exit 1 
     168fi 
     169fi # end of transform = 1 
     170# 
     171echo "iii : you can see log file in ${log}" 
     172echo "iii : and look ${outputtmp}/idldoc-warnings.html#undoc" 
     173# 
     174if [ ${assistant} -eq 1 ]  
     175then 
     176# build a idl file to launch idldoc 
     177output=../idldoc_assistant_output/ 
     178log="/tmp/idldocassistant_${$}.log" 
     179pro="/tmp/idldocassistant_${$}.pro" 
     180cat <<EOF > ${pro} 
     181!path = expand_path('+' + '${idldoc_dir}') 
     182idldoc,root="${root}",title="${title}", $ 
    379183LOG_FILE="${log}", $ 
    380 output="${output}", overview='../../overview', /statistics, /preformat, /embed, /assistant 
     184output="${outputtmp}", overview='../../overview', /statistics, /embed, /assistant 
    381185exit 
    382186EOF 
    383     # launch idl with the file built above 
    384     IDL_STARTUP=${pro};${IDL_DIR}/bin/idl 
    385     /bin/rm ${pro} 
    386     # In order to do not have to many revision in svn, we modify some 
    387     # lines produced by idldoc : 
    388     # examples : 
    389     # <!-- Generated by IDLdoc 2.0 on Wed Jun  7 10:25:28 2006 --> 
    390     # will be replaced by 
    391     # <!-- Generated by IDLdoc 2.0 --> 
    392     # <p><font color="gray" size="-3">&nbsp;&nbsp;Produced by IDLdoc 2.0 on Wed Sep 13 16:32:10 2006.</font></p> 
    393     # will be replaced by 
    394     # <p><font color="gray" size="-3">&nbsp;&nbsp;Produced by IDLdoc 2.0</font></p> 
    395     # <h2>Produced on Wed Jun  7 10:23:13 2006</h2> 
    396     # will be delete 
    397     # other lines will be deleted because the time is the time of checkout not 
    398     # the time of revision. 
    399     # the sequence of lines 
    400     #<dl> 
    401     #      <dt>Last modification:</dt> 
    402     #       <dd>Fri Jun  2 11:46:24 2006</dd> 
    403     #    </dl> 
    404     # should also be removed ++ je ne sais pas dire en sed la ligne 
    405     # suivant l'occurence de Last modification 
    406     # replace *_param_* in href attributes because anchors are badly written 
    407     # with _keyword_ 
    408     #++ -e 's@\(href="#_.*\)\(_param_\)\(.*"\)@\1_keyword_\3@g' \ # ++ pb global 
    409     #  ONLINE_HELP, book="../idldoc_assistant_output/idldoc-lib.adp", /full_path    # won't work 
    410     # encaspulate example content in <pre> </pre> in idldoc assistant outputs 
    411     # Examples section is supposed to start with <h3>Examples</h3> 
    412     # and end is before <h3>Version history</h3> 
    413     list_html=$(find ${output} -name "*.html") 
    414     for file_html in ${list_html} 
    415     do 
    416      sed \ 
    417      -e "s/\(Generated by IDLdoc 2.0\)\( on .*\)\( -->\)/\1\3/" \ 
    418      -e "s/\(Produced by IDLdoc 2.0\)\( on .*\)\(\.<\/font>\)/\1\3/" \ 
    419      -e "/<h2>Produced on/d" \ 
    420      -e "/Last modification:/d" \ 
    421      -e "/<dd>... ... .* ..:..:.. ....<\/dd>/d" \ 
    422      -e '/href/s@_param_@_keyword_@g' \ 
    423      -e 's@<div class="value">@<div class="preformat">@' \ 
    424      -e 's/div\#file_comments {/div\#file_comments { white-space: pre;/' \ 
    425      -e 's@^ <fixe>@<pre>@' \ 
    426      -e 's@^ </fixe>@</pre>@' \ 
    427      -e "s@<h3>Examples</h3>@<h3>Examples</h3><pre>@" \ 
    428      -e "s@<h3>Version history</h3>@</pre><h3>Version history</h3>@" \ 
    429      ${file_html} > ${file_html}_modify 
    430      mv ${file_html}_modify ${file_html} 
    431     done 
    432     # replace <pro>ginette</pro> by a sequence like 
    433     # <a href="./ginette.html">ginette</a> 
    434     ./pro2href.sh -i ${output} -r ${output} -e pro 
    435     status=${?} 
    436     if [ ${status} -ne 0 ] 
    437     then 
    438        echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
    439        exit 1 
    440     fi 
    441     # replace <proidl>ginette</proidl> by a sequence like 
    442     # <a href="./ginette.html">ginette</a> 
    443     ./pro2href.sh  -i ${output} -r ${IDL_DIR}/help/online_help -e proidl 
    444     status=${?} 
    445     if [ ${status} -ne 0 ] 
    446     then 
    447        echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
    448        exit 1 
    449     fi 
    450     # add the directory-overview.html from dir-files.html in idldoc_html_output 
    451     list_html=$(find ../idldoc_html_output -name dir-files.html) 
    452     for file_html in ${list_html} 
    453     do 
    454       fout=../idldoc_assistant_output/${file_html#../idldoc_html_output/*} 
    455       fout=${fout%/*}/directory-overview.html 
    456       cp ${file_html} ${fout} 
    457     done 
    458     # copy listings.css (needed by directory-overview.html files) 
    459     cp ../idldoc/resource/listings.css ${output} 
    460     # add an id in idldoc-lib.adp 
    461     cat << EOF > /tmp/adp_modification 
     187# launch idl with the file built above 
     188IDL_STARTUP=${pro};${IDL_DIR}/bin/idl 
     189/bin/rm ${pro} 
     190# In order to do not have to many revision in svn, we modify some 
     191# lines produced by idldoc : 
     192# examples : 
     193# <!-- Generated by IDLdoc 2.0 on Wed Jun  7 10:25:28 2006 --> 
     194# will be replaced by 
     195# <!-- Generated by IDLdoc 2.0 --> 
     196# <p><font color="gray" size="-3">&nbsp;&nbsp;Produced by IDLdoc 2.0 on Wed Sep 13 16:32:10 2006.</font></p> 
     197# will be replaced by 
     198# <p><font color="gray" size="-3">&nbsp;&nbsp;Produced by IDLdoc 2.0</font></p> 
     199# <h2>Produced on Wed Jun  7 10:23:13 2006</h2> 
     200# will be delete 
     201# other lines will be deleted because the time is the time of checkout not 
     202# the time of revision. 
     203# the sequence of lines 
     204#<dl> 
     205#      <dt>Last modification:</dt> 
     206#       <dd>Fri Jun  2 11:46:24 2006</dd> 
     207#    </dl> 
     208# should also be removed ++ je ne sais pas dire en sed la ligne 
     209# suivant l'occurence de Last modification 
     210# replace *_param_* in href attributes because anchors are badly written 
     211# with _keyword_ 
     212#++ -e 's@\(href="#_.*\)\(_param_\)\(.*"\)@\1_keyword_\3@g' \ # ++ pb global 
     213#  ONLINE_HELP, book="../idldoc_assistant_output/idldoc-lib.adp", /full_path    # won't work 
     214# encaspulate example content in <pre> </pre> in idldoc assistant outputs 
     215# Examples section is supposed to start with <h3>Examples</h3> 
     216# and end is before <h3>Version history</h3> 
     217list_html=$(find ${outputtmp} -name "*.html") 
     218for file_html in ${list_html} 
     219do 
     220 sed \ 
     221 -e "s/\(Generated by IDLdoc 2.0\)\( on .*\)\( -->\)/\1\3/" \ 
     222 -e "s/\(Produced by IDLdoc 2.0\)\( on .*\)\(\.<\/font>\)/\1\3/" \ 
     223 -e "/<h2>Produced on/d" \ 
     224 -e "/Last modification:/d" \ 
     225 -e "/<dd>... ... .* ..:..:.. ....<\/dd>/d" \ 
     226 -e '/href/s@_param_@_keyword_@g' \ 
     227 -e 's@<div class="value">@<div class="preformat">@' \ 
     228 -e 's/div\#file_comments {/div\#file_comments { white-space: pre;/' \ 
     229 -e 's@^ <fixe>@<pre>@' \ 
     230 -e 's@^ </fixe>@</pre>@' \ 
     231 -e "s@<h3>Examples</h3>@<h3>Examples</h3><pre>@" \ 
     232 -e "s@<h3>Version history</h3>@</pre><h3>Version history</h3>@" \ 
     233 ${file_html} > ${file_html}_modify 
     234 mv ${file_html}_modify ${file_html} 
     235done 
     236# replace <pro>ginette</pro> by a sequence like 
     237# <a href="./ginette.html">ginette</a> 
     238./pro2href.sh -i ${outputtmp} -r ${outputtmp} -e pro 
     239status=${?} 
     240if [ ${status} -ne 0 ] 
     241then 
     242   echo "eee : pb during ./pro2href.sh for <pro>...</pro>" 
     243   exit 1 
     244fi 
     245# replace <proidl>ginette</proidl> by a sequence like 
     246# <a href="./ginette.html">ginette</a> 
     247./pro2href.sh  -i ${outputtmp} -r ${IDL_DIR}/help/online_help -e proidl 
     248status=${?} 
     249if [ ${status} -ne 0 ] 
     250then 
     251   echo "eee : pb during ./pro2href.sh for <proidl>...</proidl>" 
     252   exit 1 
     253fi 
     254# add the directory-overview.html from dir-files.html in idldoc_html_output 
     255list_html=$(find ../idldoc_html_output -name dir-files.html) 
     256for file_html in ${list_html} 
     257do 
     258  fout=../idldoc_assistant_output/${file_html#../idldoc_html_output/*} 
     259  fout=${fout%/*}/directory-overview.html 
     260  cp ${file_html} ${fout} 
     261done 
     262# copy listings.css (needed by directory-overview.html files) 
     263cp ../idldoc/resource/listings.css ${outputtmp} 
     264# add an id in idldoc-lib.adp 
     265cat << EOF > /tmp/adp_modification 
    462266<!-- \$Id\$ --> 
    463267EOF 
    464     sed -e "/<\/profile>/r /tmp/adp_modification" \ 
    465      ../idldoc_assistant_output/idldoc-lib.adp > \ 
    466      ../idldoc_assistant_output/idldoc-lib.adp_${$} 
    467     mv ../idldoc_assistant_output/idldoc-lib.adp_${$} \ 
    468     ../idldoc_assistant_output/idldoc-lib.adp 
    469     rm /tmp/adp_modification 
    470     echo "iii : you can see log file in ${log}" 
    471     echo "iii : and look ${output}/idldoc-warnings.html#undoc" 
    472     # check that the number of existing html files for each .pro file is 2! 
    473     for i in $( find ../.. -name "*.pro" ) 
    474     do 
    475       nhtml=$( find ../.. -name $( basename ${i} .pro ).html | wc -l ) 
    476       if [ ${nhtml} -ne 2 ] 
     268sed -e "/<\/profile>/r /tmp/adp_modification" \ 
     269 ../idldoc_assistant_output/idldoc-lib.adp > \ 
     270 ../idldoc_assistant_output/idldoc-lib.adp_${$} 
     271mv ../idldoc_assistant_output/idldoc-lib.adp_${$} \ 
     272../idldoc_assistant_output/idldoc-lib.adp 
     273rm /tmp/adp_modification 
     274echo "iii : you can see log file in ${log}" 
     275echo "iii : and look ${outputtmp}/idldoc-warnings.html#undoc" 
     276# check that the number of existing html files for each .pro file is 2! 
     277for i in $( find ../.. -name "*.pro" ) 
     278do 
     279  nhtml=$( find ../.. -name $( basename ${i} .pro ).html | wc -l ) 
     280  if [ ${nhtml} -ne 2 ] 
    477281          then 
    478282          echo "ERROR there is not 2 $( basename ${i} .pro ).html files" 
    479283          find ../.. -name $( basename ${i} .pro ).html 
    480284          echo 
    481       fi 
    482     done 
    483 fi 
    484 #------------------------------------------------------------------ 
    485 if [ ${doTARsrc} -eq 1 ] 
    486 then 
    487     localtarbase=/tmp/savesaxo_${$} 
    488     mkdir  ${localtarbase}/ 
    489 # clean backup files : *~ 
    490     find ${memopwd}/../../.. -name "*~" -exec rm {} \; 
    491 # prepare the source tar (without the svn...) 
    492 # 
    493     cd ${memopwd}/../../.. 
    494     tar czf ${localtarbase}/SAXO_SRC_${ndate}r${rev}.tar.gz --exclude .svn SRC 
    495 # 
    496 #   informations 
    497     echo "iii : following file may be copied on http://forge.ipsl.jussieu.fr/saxo/download/" 
    498     ls -l ${localtarbase} 
    499 fi 
    500 #------------------------------------------------------------------ 
    501 if [ ${doTARdata} -eq 1 ] 
    502 then 
    503     localtarbase=/tmp/savesaxo_${$} 
    504     mkdir  ${localtarbase}/ 
    505 # 
    506 # prepare the data tar (without the svn...) 
    507 # 
    508     cd ${memopwd}/../../.. 
    509     tar czf ${localtarbase}/SAXO_DATA_${ndate}.tar.gz  --exclude .svn DATA 
    510 # 
    511 #   informations 
    512     echo "iii : following file may be copied on http://forge.ipsl.jussieu.fr/saxo/download/" 
    513     ls -l ${localtarbase} 
    514 fi 
    515 #------------------------------------------------------------------ 
    516 if [ ${doforge} -eq 1 ] 
    517 then 
    518     echo "iii : you will be asked ${lgforge}@forge.ipsl.jussieu.fr passwd two times" 
    519     if [ ${doTARsrc} -ne 1 ] 
    520     then 
    521        localtarbase=${1} 
    522     fi 
    523     scp ${localtarbase}/SAXO_*.tar.gz ${lgforge}@forge.ipsl.jussieu.fr:/ipsl/forge/projets/saxo/download/ 
    524     echo "iii : do not forget to update getsaxo.html" 
    525     echo "iii : \$ ./makehtml.sh getsaxo" 
    526     echo "iii : do not forget to clean ${localtarbase}" 
    527 fi 
    528 #------------------------------------------------------------------ 
    529 if [[ (${doDTAlocean} -eq 1) || (${doDTAipsl} -eq 1) ]] 
    530 then 
    531     echo "iii : you will be asked ${lgforge}@forge.ipsl.jussieu.fr passwd" 
    532     infodata=$(ssh ${lgforge}@forge.ipsl.jussieu.fr ls -lht /ipsl/forge/projets/saxo/download/SAXO_DATA_*.tar.gz | head -n 1) 
    533     filedata=$(echo ${infodata} | awk '{print $NF}') 
    534     filedata=$(basename ${filedata}) 
    535     cat <<EOF > job_data_$$ 
    536 #!/bin/bash 
    537 cd SAXO_DIR 
    538 # 
    539 rm -rf DATA 
    540 wget http://forge.ipsl.jussieu.fr/saxo/download/${filedata} 
    541 gunzip ${filedata} 
    542 tar vxf $( basename ${filedata} .gz ) 
    543 rm -f $( basename ${filedata} .gz ) 
    544 # 
    545 chmod -R 755 * 
    546 exit 
    547 # 
    548 EOF 
    549 fi 
    550 #------------------------------------------------------------------ 
    551 if [ ${doSRClocean} -eq 1 ] 
    552 then 
    553 # update src on cerbere 
    554 # 
    555     echo "iii : update src on cerbere" 
    556     ssh smasson@cerbere.locean-ipsl.upmc.fr "svn update SAXO_DIR/SRC ; chmod -R 755 SAXO_DIR" 
    557 fi 
    558 #------------------------------------------------------------------ 
    559 if [ ${doDTAlocean} -eq 1 ] 
    560 then 
    561 # update data on cerbere 
    562     echo "iii : update data on cerbere" 
    563     scp job_data_$$ smasson@cerbere.locean-ipsl.upmc.fr:. 
    564     ssh smasson@cerbere.locean-ipsl.upmc.fr "chmod 755 job_data_$$ ; ./job_data_$$ ; rm -f job_data_$$" 
    565 fi 
    566 #------------------------------------------------------------------ 
    567 if [ ${doSRCipsl} -eq 1 ] 
    568 then 
    569 # update src on calcul2 
    570 # 
    571     echo "iii : update src on calcul2" 
    572     ssh smlod@calcul2.ipsl.jussieu.fr "svn update SAXO_DIR/SRC ; chmod -R 755 SAXO_DIR" 
    573 fi 
    574 #------------------------------------------------------------------ 
    575 if [ ${doDTAipsl} -eq 1 ] 
    576 then 
    577 # update data on cook 
    578     echo "iii : update data on cook" 
    579     scp job_data_$$ smlod@cook.ipsl.jussieu.fr:. 
    580     ssh smlod@cook.ipsl.jussieu.fr "chmod 755 job_data_$$ ; ./job_data_$$ ; rm -f job_data_$$" 
    581 fi 
    582 #------------------------------------------------------------------ 
    583 if [ ${doSRCidris} -eq 1 ] 
    584 then 
    585 # update src on rhodes 
    586     echo "iii : update src to rhodes" 
    587     ssh -t smasson@cerbere.locean-ipsl.upmc.fr ssh reee217@rhodes.idris.fr "/usr/local/pub/svn/svn-1.3.1/bin/svn update SAXO_DIR/SRC ; chmod -R 755 SAXO_DIR" 
    588 fi 
    589 #------------------------------------------------------------------ 
    590 if [ ${doDTAidris} -eq 1 ] 
    591 then 
    592 # create the update script for rhodes 
    593     if [[ (${doDTAlocean} -eq 0) && (${doDTAipsl} -eq 0) ]] 
    594         then 
    595         echo "iii : you will be asked ${lgforge}@forge.ipsl.jussieu.fr passwd" 
    596         infodata=$(ssh ${lgforge}@forge.ipsl.jussieu.fr ls -lht /ipsl/forge/projets/saxo/download/SAXO_DATA_*.tar.gz | head -n 1) 
    597         filedata=$(echo ${infodata} | awk '{print $NF}') 
    598         filedata=$(basename ${filedata}) 
    599     fi 
    600     cat <<EOF > job_data_idris_$$ 
    601 #!/bin/ksh 
    602 cd SAXO_DIR 
    603 # 
    604 rm -rf DATA 
    605 echo "iii : you will be asked ${lgforge}@forge.ipsl.jussieu.fr passwd" 
    606 scp ${lgforge}@forge.ipsl.jussieu.fr:/ipsl/forge/projets/saxo/download/${filedata} . 
    607 gunzip ${filedata} 
    608 tar vxf $( basename ${filedata} .gz ) 
    609 rm -f $( basename ${filedata} .gz ) 
    610 # 
    611 chmod -R 755 * 
    612 exit 
    613 # 
    614 EOF 
    615 # update data on gaya 
    616     echo "iii : update data to gaya" 
    617     scp job_data_idris_$$ reee217@gaya.idris.fr:. 
    618     ssh reee217@gaya.idris.fr "chmod 755 job_data_idris_$$ ; ./job_data_idris_$$ ; rm -f job_data_idris_$$" 
    619 fi 
    620 #------------------------------------------------------------------ 
    621 if [ ${dodocdownload} -eq 1 ] 
    622 then 
    623     # ++ on pourrait peut-etre faire un rsync en enlevant les .sh et le .xsl 
    624     # et faire le ménage des fichiers qui n'existent plus 
    625     echo "iii : you will be asked ${lgforge}@forge.ipsl.jussieu.fr passwd several times" 
    626     # 
    627     # copy files in a temporary directory 
    628     mkdir /tmp/download_${$}/ 
    629     cp -rp ../xmldoc /tmp/download_${$}/ 
    630     cp -rp ../idldoc_html_output /tmp/download_${$}/ 
    631     # 
    632     # remove svn files 
    633     find /tmp/download_${$}/ -name ".svn" -exec rm -rf {} \; 
    634     # 
    635     # replace relative path 
    636     # by http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/ 
    637     # on ulink lines containing some directories like ../../ToBeReviewed/ or ../../Test/ or file like newheader.txt 
    638     list_html=$(find /tmp/download_${$}/ -name "*.html") 
    639     for file_html in ${list_html} 
    640     do 
    641      sed  \ 
    642      -e "/Source code of a file/s+../.*/../+http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/+" \ 
    643      -e "/..\/..\/ToBeReviewed/s+../../+http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/+" \ 
    644      -e "/..\/..\/Test/s+../../+http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/+"  \ 
    645      -e "/..\/..\/Calendar/s+../../+http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/+" \ 
    646      -e "/..\/newheader/s+../../+http://forge.ipsl.jussieu.fr/saxo/browser/trunk/SRC/Documentation/+" \ 
    647      ${file_html} > ${file_html}_${$} 
    648      mv ${file_html}_${$} ${file_html} 
    649     done 
    650     echo 
    651     echo "give SAXO password if asked" 
    652     scp -rp /tmp/download_${$}/* saxo@forge.ipsl.jussieu.fr:/ipsl/forge/projets/saxo/download/ 
    653     rm -rf /tmp/download_${$}/ 
    654 fi 
    655 #------------------------------------------------------------------ 
    656 #------------------------------------------------------------------ 
    657 # 
    658 [ -f job_src_$$ ] && rm -f job_src_$$ 
    659 [ -f job_data_$$ ] && rm -f job_data_$$ 
    660 [ -f job_data_idris_$$ ] && rm -f job_data_idris_$$ 
    661 # 
    662 exit 
    663 # 
     285  fi 
     286done 
     287# 
     288fi 
     289# copy of temporary outputs on final directory 
     290# ++ if transform 
     291#++mv ${outputtmp} ${output} # ++ rsync 
     292echo "look at ${outputtmp}/index.html" #++ 
     293# end 
     294exit 0 

  • trunk/SRC/Documentation/xmldoc/savesaxo.sh

    r324 r325  
    105105dooldtest=0 
    106106doidlwavedoc=0 
    107 doidldoc=0 
     107doidldoc=1 
    108108doTARsrc=0 
    109109doTARdata=0 

  • trunk/SRC/ForOldVersion/keep_compatibility.pro

    r317 r325  
    3030; 
    3131;- 
    32 ; 
    3332PRO keep_compatibility, flag 
    3433; 

  • trunk/SRC/ForOldVersion/oldcm_empty.pro

    r318 r325  
    1313; $Id$ 
    1414; 
     15; @todo 
     16; find the write way to comment this empty file for idldoc 
     17; to avoid those error messages 
     18;  IDLDOC: unknown tag "file_comments" in file oldcm_empty.pro 
     19;  IDLDOC: unknown tag "categories" in file oldcm_empty.pro 
    1520;- 
    1621; 

  • trunk/SRC/ForOldVersion/updatekwd.pro

    r318 r325  
    2222; $Id$ 
    2323; 
     24; @todo 
     25; find the write way to comment this empty file for idldoc 
     26; to avoid those error messages 
     27; IDLDOC: unknown tag "file_comments" in file updatekwd.pro 
     28; IDLDOC: unknown tag "categories" in file updatekwd.pro 
     29; IDLDOC: unknown tag "restrictions" in file updatekwd.pro 
     30; 
    2431;- 
    25 ; 
    2632; if ex is a structure... 
    2733IF size(ex, /type) EQ 8 THEN BEGIN 

  • trunk/SRC/ForOldVersion/updatenew.pro

    r318 r325  
    1616; $Id$ 
    1717;- 
    18 ; 
    1918IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility 
    2019IF n_elements(myuniquetmpdir) EQ 0 THEN keep_compatibility 

  • trunk/SRC/ForOldVersion/updateold.pro

    r318 r325  
    1717; 
    1818;- 
    19 ; 
    2019IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility 
    2120IF n_elements(myuniquetmpdir) EQ 0 THEN keep_compatibility 

  • trunk/SRC/Grid/changemsk.pro

    r238 r325  
    3030; 
    3131;- 
    32 ; 
    3332FUNCTION changemsk,tab, CELLSIZE = cellsize 
    3433; 

  • trunk/SRC/Grid/computegrid.pro

    r315 r325  
    248248; 
    249249;- 
    250 ; 
    251250PRO computegrid, startx, starty, stepxin, stepyin, nxin, nyin $ 
    252251                 , XAXIS = xaxis, YAXIS = yaxis, ZAXIS = zaxis $ 
    … …  
    259258                 , YREVERSE = yreverse, ZREVERSE = zreverse  $ 
    260259                 , FULLCGRID = fullcgrid, XYINDEX = xyindex $ 
    261                  , UBASE2TBASE = ubase2tbase, VBASE2TBASE = vbase2tbase, FBASE2TBASE = fbase2tbase $ 
     260                 , UBASE2TBASE = ubase2tbase, VBASE2TBASE = vbase2tbase $ 
     261                 , FBASE2TBASE = fbase2tbase $ 
    262262                 , STRCALLING = strcalling, ROMSH = romsh, _EXTRA = ex 
    263263; 

  • trunk/SRC/Grid/micromeshmask.pro

    r302 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO ncdf_transfer, inid, outid, inname, outname 
    2827; 
    … …  
    5756; 
    5857;- 
    59 ; 
    6058PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 
    6159; 

  • trunk/SRC/Grid/n128gaussian.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION n128gaussian 
    2625; 

  • trunk/SRC/Grid/n160gaussian.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION n160gaussian 
    2625; 

  • trunk/SRC/Grid/n256gaussian.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION n256gaussian 
    2625; 

  • trunk/SRC/Grid/n48gaussian.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION n48gaussian 
    2625; 

  • trunk/SRC/Grid/n80gaussian.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION n80gaussian 
    2625; 

  • trunk/SRC/Grid/ncdf_meshread.pro

    r323 r325  
    8181; 
    8282;- 
    83 ; 
    8483PRO ncdf_meshread, filename, GLAMBOUNDARY = glamboundary, CHECKDAT = checkdat $ 
    8584                  , ONEARTH = onearth, GETDIMENSIONS = getdimensions $ 
    … …  
    9695@updatekwd 
    9796  ENDIF 
    98 ;--------------------------------------------------------- 
    9997; 
    10098  tempsun = systime(1)          ; for key_performance 

  • trunk/SRC/Grid/ncdf_meshroms.pro

    r273 r325  
    8787; 
    8888;- 
    89 ; 
    9089PRO ncdf_meshroms, filename, NRHO = nrho, GLAMBOUNDARY = glamboundary $ 
    9190                  , ONEARTH = onearth, GETDIMENSIONS = getdimensions $ 

  • trunk/SRC/Grid/numbisland.pro

    r295 r325  
    2323; 
    2424;- 
    25 ; 
    2625PRO mskneig, msk, nx, ny, indin, numb 
    2726; 
    … …  
    7473; 
    7574;- 
    76 ; 
    7775FUNCTION numbisland, mskin 
    7876; 

  • trunk/SRC/Grid/restoreboxparam.pro

    r238 r325  
    2626; 
    2727;- 
    28 ; 
    2928PRO restoreboxparam, filename 
    3029; 

  • trunk/SRC/Grid/romsdepth.pro

    r238 r325  
    2525; 
    2626;- 
    27 ; 
    2827FUNCTION romsdepth 
    2928; 

  • trunk/SRC/Grid/saveboxparam.pro

    r238 r325  
    2727; 
    2828;- 
    29 ; 
    3029PRO saveboxparam, filename 
    3130; 

  • trunk/SRC/Grid/smallmeshmask.pro

    r302 r325  
    1919; 
    2020;- 
    21 ; 
    2221PRO ncdf_transfer, inid, outid, inname, outname 
    2322; 
    … …  
    6665; 
    6766;- 
    68 ; 
    6967PRO smallmeshmask, ncfilein, ncfileout, IODIR = iodir 
    7068; 

  • trunk/SRC/Interpolation/angle.pro

    r262 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION fsnspp, plam, pphi, DOUBLE = double 
    2726; 
    … …  
    103102; 
    104103;- 
    105 ; 
    106104PRO angle, fileocemesh, gcosu, gsinu, gcosv, gsinv, gcost, gsint, gcosf, gsinf $ 
    107            , IODIRECTORY = iodirectory, DOUBLE = double 
     105         , IODIRECTORY = iodirectory, DOUBLE = double 
    108106; 
    109107  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Interpolation/clickincell.pro

    r260 r325  
    5959; 
    6060;- 
    61 ; 
    6261FUNCTION clickincell, CELLTYPE = celltype, DRAWCELL = drawcell, COLOR = color, ORIGINAL = original, IJ = ij, _EXTRA = extra 
    6362; 

  • trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

    r309 r325  
    5858; 
    5959;- 
    60 ; 
    61 PRO compute_fromirr_bilinear_weigaddr, olonin, olat, omsk, alonin, alat, amsk, weig, addr 
     60PRO compute_fromirr_bilinear_weigaddr, olonin, olat, omsk, alonin, alat, amsk $  
     61                                     , weig, addr 
    6262; 
    6363  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro

    r296 r325  
    5353; 
    5454;- 
    55 ; 
    56 PRO compute_fromreg_bilinear_weigaddr, alonin, alatin, olonin, olat, weig, addr $ 
    57   , NONORTHERNLINE = nonorthernline, NOSOUTHERNLINE = nosouthernline 
     55PRO compute_fromreg_bilinear_weigaddr, alonin, alatin, olonin, olat $ 
     56                                     , weig , addr $ 
     57                                     , NONORTHERNLINE = nonorthernline $ 
     58                                     , NOSOUTHERNLINE = nosouthernline 
    5859; 
    5960  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro

    r296 r325  
    5757; 
    5858;- 
    59 ; 
    6059PRO compute_fromreg_imoms3_weigaddr, alonin, alatin, olonin, olat, weig, addr $ 
    6160                                   , NONORTHERNLINE = nonorthernline, $ 

  • trunk/SRC/Interpolation/cutpar.pro

    r260 r325  
    3131; 
    3232; @returns 
    33 ;  - default: a 3d array(2,n^2,p) giving the center position of each 
    34 ;  piece of the parallelograms 
    35 ;  - if /ENDPOINTS : a 3d array(2,(n+1)^2,p) giving the edge positions 
    36 ;  of each piece of the parallelograms 
     33; by default: a 3d array(2,n^2,p) giving the center position of each 
     34; piece of the parallelograms 
     35; 
     36; if /ENDPOINTS : a 3d array(2,(n+1)^2,p) giving the edge positions 
     37; of each piece of the parallelograms 
    3738; 
    3839; @uses 
    … …  
    6364; 
    6465;- 
    65 ; 
    6666FUNCTION cutpar, x0, y0, x1, y1, x2, y2, x3, y3, n, ENDPOINTS = endpoints, ONSPHERE = onsphere 
    6767; 

  • trunk/SRC/Interpolation/cutsegment.pro

    r242 r325  
    4949; 
    5050;- 
    51 ; 
    5251FUNCTION cutsegment, x0, y0, x1, y1, n, ENDPOINTS = endpoints, ONSPHERE = onsphere 
    5352; 

  • trunk/SRC/Interpolation/extrapolate.pro

    r295 r325  
    5454; 
    5555;- 
    56 ; 
    5756FUNCTION extrapolate, zinput, maskinput, nb_iteration, X_PERIODIC = x_periodic $ 
    5857                      , MINVAL = minval, MAXVAL = maxval, GE0 = ge0, _EXTRA = ex 

  • trunk/SRC/Interpolation/extrapsmooth.pro

    r295 r325  
    4949; $Id$ 
    5050;- 
    51 ; 
    5251FUNCTION extrapsmooth, in, mskin, X_PERIODIC = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0, _EXTRA = ex 
    5352; 

  • trunk/SRC/Interpolation/fromirr.pro

    r271 r325  
    8888; 
    8989;- 
    90 ; 
    91 FUNCTION fromirr, method, datain, lonin, latin, mskin, lonout, latout, mskout $ 
    92                   , WEIG = weig, ADDR = addr, _EXTRA = ex 
     90FUNCTION fromirr, method, datain, lonin, latin, mskin, lonout, latout $ 
     91                , mskout $ 
     92                , WEIG = weig, ADDR = addr, _EXTRA = ex 
    9393; 
    9494  compile_opt strictarr, strictarrsubs 

  • trunk/SRC/Interpolation/fromreg.pro

    r271 r325  
    8989; 
    9090;- 
    91 ; 
    9291FUNCTION fromreg, method, datain, lonin, latin, lonout, latout $ 
    9392                  , WEIG = weig, ADDR = addr $ 

  • trunk/SRC/Interpolation/get_gridparams.pro

    r271 r325  
    7171; 
    7272;- 
    73 ; 
    7473PRO get_gridparams, in1,   in2,   in3,     in4, in5, in6, in7, in8, DOUBLE = double 
    7574;                  file, lonname, latname, lon, lat, jpi, jpj, n_dimensions 

  • trunk/SRC/Interpolation/imoms3.pro

    r242 r325  
    77; 
    88;- 
    9 ; 
    109FUNCTION imoms3, xin 
    1110; 

  • trunk/SRC/Interpolation/inquad.pro

    r303 r325  
    8181; 
    8282;- 
    83 ; 
    8483FUNCTION inquad, x, y, x1, y1, x2, y2, x3, y3, x4, y4, ONSPHERE = onsphere,  DOUBLE = double, DELTA = delta, NOPRINT = noprint, NEWCOORD = newcoord 
    8584; 

  • trunk/SRC/Interpolation/inrecgrid.pro

    r238 r325  
    5555; 
    5656;- 
    57 ; 
    5857FUNCTION inrecgrid, x1d, y1d, left, bottom, OUTPUT2D = output2d, CHECKOUT = checkout 
    5958; 

  • trunk/SRC/Interpolation/ll_narcs_distances.pro

    r242 r325  
    6868; 
    6969;- 
    70 ; 
    7170FUNCTION ll_narcs_distances, lon0, lat0, arc_dist, az, DEGREES = degs 
    7271; 

  • trunk/SRC/Interpolation/map_npoints.pro

    r260 r325  
    102102; 
    103103;- 
    104 ; 
    105104FUNCTION map_npoints, lon0, lat0, lon1, lat1, AZIMUTH = azimuth $ 
    106105 , RADIANS = radians, RADIUS = radius, MIDDLE = middle, TWO_BY_TWO = two_by_two 

  • trunk/SRC/Interpolation/neighbor.pro

    r242 r325  
    4646; 
    4747;- 
    48 ; 
    4948FUNCTION neighbor, p0lon, p0lat, neighlon, neighlat, SPHERE = sphere, DISTANCE = distance, RADIANS = radians 
    5049; 

  • trunk/SRC/Interpolation/quadrilateral2square.pro

    r282 r325  
    7878; 
    7979;- 
    80 ; 
    8180FUNCTION quadrilateral2square, x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin, PERF = perf, DOUBLE = double 
    8281; 

  • trunk/SRC/Interpolation/spl_fstdrv.pro

    r262 r325  
    3939; 
    4040;- 
    41 ; 
    4241FUNCTION spl_fstdrv, x, y, yscd, x2 
    4342; 

  • trunk/SRC/Interpolation/spl_incr.pro

    r297 r325  
    6060; 
    6161;- 
    62 ; 
    6362FUNCTION pure_concave, x1, x2, y1, y2, der2, x 
    6463; 
    … …  
    102101; 
    103102;- 
    104 ; 
    105103FUNCTION pure_convex, x1, x2, y1, y2, der2, x 
    106104; 
    … …  
    139137;    boundary is set to zero, resulting in a "natural spline." 
    140138;- 
    141 ; 
    142139FUNCTION spl_incr, x, y, x2, YP0 = yp0, YPN_1 = ypn_1 
    143140; 

  • trunk/SRC/Interpolation/spl_keep_mean.pro

    r297 r325  
    7474; 
    7575;- 
    76 ; 
    7776FUNCTION spl_keep_mean, x, yin, x2, YP0 = yp0, YPN_1 = ypn_1, GE0 = ge0 
    7877; 

  • trunk/SRC/Interpolation/square2quadrilateral.pro

    r295 r325  
    7070; 
    7171;- 
    72 ; 
    7372FUNCTION square2quadrilateral, x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin, DOUBLE = double 
    7473; 

  • trunk/SRC/Matrix/cmapply.pro

    r262 r325  
    1111; @todo seb 
    1212;- 
    13 ; 
    1413FUNCTION cmapply_product, x 
    1514; 
    … …  
    4847; 
    4948;- 
    50 ; 
    5149PRO cmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep 
    5250; 
    … …  
    234232; 
    235233;- 
    236 ; 
    237234FUNCTION cmapply, op, array, dimapply, DOUBLE=dbl, TYPE=type, $ 
    238235                  FUNCTARGS=functargs, NOCATCH=nocatch 

  • trunk/SRC/Matrix/cmset_op.pro

    r295 r325  
    1010; 
    1111;- 
    12 ; 
    1312FUNCTION cmset_op_uniq, a 
    1413; 
    … …  
    196195; 
    197196;- 
    198 ; 
    199197FUNCTION cmset_op, a, op0, b, NOT1=not1, NOT2=not2, COUNT=count, $ 
    200198              EMPTY1=empty1, EMPTY2=empty2, MAXARRAY=ma, INDEX=index 

  • trunk/SRC/Matrix/different.pro

    r232 r325  
    4141; 
    4242;- 
    43 ; 
    4443FUNCTION different, a, b 
    4544; 

  • trunk/SRC/Matrix/extrac2.pro

    r238 r325  
    7979; 
    8080;- 
    81 ; 
    8281FUNCTION extrac2, array, index1, index2, index3, index4 
    8382; 

  • trunk/SRC/Matrix/inter.pro

    r237 r325  
    4141; 
    4242;- 
    43 ; 
    4443FUNCTION inter, a, b 
    4544; 

  • trunk/SRC/Matrix/make_selection.pro

    r262 r325  
    8282; 
    8383;- 
    84 ; 
    8584FUNCTION make_selection, names, selnames,  $ 
    8685            ONLY_VALID=only_valid, REQUIRED=required,  $ 

  • trunk/SRC/Matrix/union.pro

    r237 r325  
    4040; 
    4141;- 
    42 ; 
    4342FUNCTION union, a, b 
    4443; 

  • trunk/SRC/Matrix/zero_one.pro

    r318 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION zero_one, n1,n2 
    2726; 

  • trunk/SRC/Obsolete/common.pro

    r238 r325  
    77; 
    88;- 
    9 ; 
    109@all_cm 

  • trunk/SRC/Obsolete/congridseb.pro

    r238 r325  
    4848; 
    4949;- 
    50 ; 
    5150FUNCTION congridseb, tableau, x, y 
    5251; 

  • trunk/SRC/Obsolete/cp.pro

    r232 r325  
    2121; 
    2222;- 
    23 ; 
    2423PRO cp, filenamein, filenameout, _EXTRA = ex 
    2524; 

  • trunk/SRC/Obsolete/extrait.pro

    r238 r325  
    8282; 
    8383;- 
    84 ; 
    8584FUNCTION extrait, tab, indicex, indicey, indicez, indicet 
    8685; 

  • trunk/SRC/Obsolete/ficdate.pro

    r232 r325  
    3333; 
    3434;- 
    35 ; 
    3635function ficdate, vdate, dim, nomexp 
    3736; 

  • trunk/SRC/Obsolete/fictype.pro

    r238 r325  
    2424; 
    2525;- 
    26 ; 
    2726function fictype, vdate, dim 
    2827; 

  • trunk/SRC/Obsolete/imprime.pro

    r232 r325  
    2222; 
    2323;- 
    24 ; 
    2524PRO imprime, filename, TRANS = trans, NB = nb 
    2625; 

  • trunk/SRC/Obsolete/jourdsmois.pro

    r237 r325  
    1818; 
    1919;- 
    20 ; 
    2120function jourdsmois, mois, annee 
    2221; 

  • trunk/SRC/Obsolete/juldate.pro

    r232 r325  
    4242; 
    4343;- 
    44 ; 
    4544function juldate, vvdate, _EXTRA = ex 
    4645; 

  • trunk/SRC/Obsolete/lec.pro

    r297 r325  
    9797; $Id$ 
    9898;- 
    99 ; 
    10099function lec, nomchamp,date,nomexp,ECRIT=ecrit,ANOM=anom, BOITE = boite,EXPANOM=expanom, TOUT = tout, GRID = grid, NAME = name, filename = FILENAME 
    101100; 

  • trunk/SRC/Obsolete/lect.pro

    r297 r325  
    5757; 
    5858;- 
    59 ; 
    60 ;                  1      2      3    4      5 
    6159function lect, nomchamp,date1,date2,nomexp,direc,BOITE=boite, $ 
    6260               ANOM=anom,EXPANOM=expanom 

  • trunk/SRC/Obsolete/meshlec.pro

    r261 r325  
    4646; 
    4747;- 
    48 ; 
    4948PRO meshlec, nomfich, PASBLABLA = pasblabla,DOUBLE = double, GLAMBOUNDARY = glamboundary, GETDIMENSIONS = GETDIMENSIONS 
    5049; 

  • trunk/SRC/Obsolete/ncdf_meshlec.pro

    r232 r325  
    1818; 
    1919;- 
    20 ; 
    2120PRO ncdf_meshlec, filename, _EXTRA = ex 
    2221; 

  • trunk/SRC/Obsolete/nlec.pro

    r254 r325  
    6060; 
    6161;- 
     62function 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 
     65; 
    6266;------------------------------------------------------------ 
    6367;REF.07.790101.grid.T.nc 
    … …  
    6670;REF.07.790101.grid.W.nc 
    6771;------------------------------------------------------------ 
    68 ; 
    69 function nlec,name,debut,fin,nomexperience,BOITE=boite,DIREC=direc,GRILLE=grille,TOUT=tout $ 
    70               , STRUCTURE = structure, SEUILMIN = seuilmin, SEUILMAX = seuilmax, NAN = nan $ 
    71               , _EXTRA = ex 
    72 ; 
    7372  compile_opt idl2, strictarrsubs, obsolete 
    7473; 

  • trunk/SRC/Obsolete/nlec5j.pro

    r297 r325  
    5555; 
    5656;- 
    57 ; 
    5857function nlec5j, nom, numsortie, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    5958; 

  • trunk/SRC/Obsolete/nlecan.pro

    r297 r325  
    5353; 
    5454;- 
     55function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
     56; 
    5557;------------------------------------------------------------ 
    5658;REF.moyenne.annuelle.grid.T.nc 
    5759;------------------------------------------------------------ 
    58 ; 
    59 function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
    6060; 
    6161  compile_opt idl2, strictarrsubs, obsolete 

  • trunk/SRC/Obsolete/nlecmois.pro

    r297 r325  
    3131; 
    3232;- 
     33function nlecmois,nom,numsortie79,nbretps ,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
     34; 
    3335;------------------------------------------------------------ 
    3436;REF.moyenne.mensuelle.79-81.grid.T.nc 
    3537;------------------------------------------------------------ 
    36 ; 
    37 function nlecmois,nom,numsortie79,nbretps ,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
    38 ; 
    3938  compile_opt idl2, strictarrsubs, obsolete 
    4039; 

  • trunk/SRC/Obsolete/nlecsaison.pro

    r297 r325  
    5454; 
    5555;- 
     56function nlecsaison, nom, numsortie79, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
     57; 
    5658;------------------------------------------------------------ 
    5759;REF.saisonnier.climato.grid.T.nc 
    5860;------------------------------------------------------------ 
    59 ;------------------------------------------------------------ 
    60 ; 
    61 function nlecsaison, nom, numsortie79, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    62 ; 
    6361  compile_opt idl2, strictarrsubs, obsolete 
    6462; 

  • trunk/SRC/Obsolete/nlecserie.pro

    r297 r325  
    5151; 
    5252;- 
    53 ;------------------------------------------------------------ 
     53function nlecserie, nom, date1, date2,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
     54; 
    5455;------------------------------------------------------------ 
    5556;REF.sss.grid.T.nc 
    5657;------------------------------------------------------------ 
    57 ; 
    58 function nlecserie, nom, date1, date2,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
    59 ; 
    6058  compile_opt idl2, strictarrsubs, obsolete 
    6159; 

  • trunk/SRC/Obsolete/norme.pro

    r314 r325  
    6262; 
    6363;- 
    64 ; 
    6564FUNCTION norme, composanteu, composantev, BOXZOOM = boxzoom, DIREC = direc, _EXTRA = ex 
    6665; 

  • trunk/SRC/Obsolete/strrepl.pro

    r232 r325  
    6464; 
    6565;- 
    66 ; 
    6766FUNCTION strrepl,str,arg2,rchar 
    6867; 

  • trunk/SRC/Obsolete/vairdate.pro

    r231 r325  
    4747; 
    4848;- 
    49 ; 
    5049function vairdate, jdate,  ANNUEL = annuel, MENSUEL = mensuel, _EXTRA = ex 
    5150; 

  • trunk/SRC/Obsolete/vraidate.pro

    r232 r325  
    3434; 
    3535;- 
    36 ; 
    3736function vraidate, date, GRADS = grads, _EXTRA = ex 
    3837; 

  • trunk/SRC/Obsolete/zeroun.pro

    r231 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION zeroun, n1,n2 
    3231; 

  • trunk/SRC/Picture/image_viewer.pro

    r232 r325  
    114114; 
    115115;- 
    116 ; 
    117116PRO image_viewer_open_folder,event 
    118117;THIS PROCEDURE IS CALLED WHEN A USER SELECTS "File > Open All In Folder" FROM THE MAIN MENU 
    … …  
    199198; 
    200199;- 
    201 ; 
    202200PRO image_viewer_cancel,event 
    203201; 
    … …  
    215213; 
    216214;- 
    217 ; 
    218215PRO image_viewer_timer,event 
    219216; 
    … …  
    890887; 
    891888;- 
    892 ; 
    893889PRO image_viewer_exit,event 
    894890; 
    … …  
    905901; 
    906902;- 
    907 ; 
    908903PRO image_viewer_help,event 
    909904;THIS PROCEDURE IS CALLED WHEN A USER SELECTS "Help > Help on IMAGE_VIEWER" 
    … …  
    927922; 
    928923;- 
    929 ; 
    930924PRO image_viewer_thumbs,event 
    931925;THIS PROCEDURE IS CALLED WHEN A USER CLICKS ON ONE OF THE THUMBNAIL PICTURES 
    … …  
    977971; 
    978972;- 
    979 ; 
    980973PRO image_viewer_cleanup,widgetID 
    981974;THIS PROCEDURE IS CALLED WHEN THE PROGRAM IS TERMINATED AND XMANAGER REGISTERS A CLEANUP: 
    … …  
    10081001; 
    10091002;- 
    1010 ; 
    10111003PRO image_viewer_event,event 
    10121004;THIS PROCEDURE IS CALLED WHEN A USER RESIZES THE TOP-LEVEL BASE 
    … …  
    10321024; 
    10331025;- 
    1034 ; 
    10351026PRO image_viewer 
    10361027; 

  • trunk/SRC/Picture/imdisp.pro

    r262 r325  
    22; @hidden 
    33;- 
    4 ; 
    54FUNCTION imdisp_getpos, ASPECT, POSITION=POSITION, MARGIN=MARGIN 
    65; 
    … …  
    5251; @hidden 
    5352;- 
    54 ; 
    5553FUNCTION imdisp_imscale, IMAGE, RANGE=RANGE, BOTTOM=BOTTOM, NCOLORS=NCOLORS, $ 
    5654  NEGATIVE=NEGATIVE 
    … …  
    8785; @hidden 
    8886;- 
    89 ; 
    9087FUNCTION imdisp_imregrid, DATA, NX, NY, INTERP=INTERP 
    9188; 
    … …  
    134131; 
    135132;- 
    136 ; 
    137133PRO imdisp_imsize, IMAGE, X0, Y0, XSIZE, YSIZE, ASPECT=ASPECT, $ 
    138134  POSITION=POSITION, MARGIN=MARGIN 
    … …  
    489485; 
    490486;- 
    491 ; 
    492487PRO imdisp, IMAGE, RANGE=RANGE, BOTTOM=BOTTOM, NCOLORS=NCOLORS, $ 
    493488  MARGIN=MARGIN, INTERP=INTERP, DITHER=DITHER, ASPECT=ASPECT, $ 

  • trunk/SRC/Picture/saveimage.pro

    r232 r325  
    9292; 
    9393;- 
    94 ; 
    9594PRO saveimage, FILE, BMP=BMP, PNG=PNG, PICT=PICT, JPEG=JPEG, TIFF=TIFF, $ 
    9695  QUALITY=QUALITY, DITHER=DITHER, CUBE=CUBE, QUIET=QUIET, MULTIPLE = multiple 

  • trunk/SRC/Picture/showimage.pro

    r232 r325  
    1414; to 8-bit or 24-bit images on-screen are done automatically. 
    1515; 
    16 ; @categories Input/Output. 
     16; @categories  
     17; Input/Output 
    1718; 
    1819; @param FILE {in}{required} 
    … …  
    5859; 
    5960;- 
    60 ; 
    6161PRO showimage, FILE, DITHER=DITHER, CURRENT=CURRENT 
    6262; 

  • trunk/SRC/Postscript/closeps.pro

    r259 r325  
    2525; 
    2626;- 
    27 ; 
    2827PRO closeps, INFOWIDGET = infowidget 
    2928; 

  • trunk/SRC/Postscript/openps.pro

    r296 r325  
    5252; 
    5353;- 
    54 ; 
    5554PRO openps, namepsin, FILENAME = filename, INFOWIDGET = infowidget $ 
    5655            , KEEPPFONT = keeppfont, KEEP_PFONT = keep_pfont $ 

  • trunk/SRC/Postscript/printps.pro

    r296 r325  
    4444; 
    4545;- 
    46 ; 
    4746PRO printps_event, event 
    4847; 
    … …  
    214213; 
    215214;- 
    216 ;------------------------------------------------------------ 
    217 ;------------------------------------------------------------ 
    218215PRO printps, psfilename 
    219216; 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_quickread/ncdf_quickread_helper.pro

    r226 r325  
    118118; $Id$ 
    119119;- 
    120  
    121120function ncdf_quickread_getdir, fullpath 
    122121on_error,2 
    … …  
    166165; $Id$ 
    167166;- 
    168  
    169167function ncdf_quickread_validatename, varname 
    170168on_error,2 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_quickwrite/ncdf_quickwrite_helper2.pro

    r163 r325  
    153153; 
    154154;- 
    155  
    156155pro ncdf_quickwrite_helper2,ncfilename,s,sname 
    157156;; 

  • trunk/SRC/ReadWrite/ncdf_getatt.pro

    r272 r325  
    5454; 
    5555;- 
    56  
    5756PRO ncdf_getatt, fileid, varid, add_offset = add_offset, scale_factor = scale_factor, missing_value = missing_value, units = units, calendar = calendar 
    5857; 

  • trunk/SRC/ReadWrite/ncdf_getaxis.pro

    r271 r325  
    77; Read NetCDF file 
    88; 
    9 ; @param cdfid {in}{required}{type=scalar} 
     9; @param fileid {in}{required}{type=scalar} 
    1010; the id of the netcdf file 
    1111; 
    … …  
    6161; $Id$ 
    6262;- 
    63 ; 
    6463PRO ncdf_getaxis, fileid, dimidx, dimidy, xaxis, yaxis $ 
    6564                  , XAXISNAME = xaxisname, YAXISNAME = yaxisname $ 
    6665                  , XDIMNAME = xdimname, YDIMNAME = ydimname $ 
    67                   , XYINDEX = xyindex, START1 = start1, ROMSGRID = romsgrid, _EXTRA = ex 
     66                  , XYINDEX = xyindex, START1 = start1 $ 
     67                  , ROMSGRID = romsgrid, _EXTRA = ex 
    6868; 
    6969  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ReadWrite/ncdf_getmask.pro

    r306 r325  
    5959; 
    6060;- 
    61 ; 
    6261FUNCTION ncdf_getmask, fileid, ADDSCL_BEFORE = addscl_before, MASKNAME = maskname, USEASMASK = useasmask $ 
    6362              , MISSING_VALUE = missing_value, INVMASK = invmask, _EXTRA = ex 

  • trunk/SRC/ReadWrite/ncdf_gettime.pro

    r297 r325  
    5252; $Id$ 
    5353;- 
    54 ; 
    5554FUNCTION ncdf_gettime, filename, cdfid, TIMEVAR = timevar, CALLER = caller, ERR = err, _EXTRA = ex 
    5655; 

  • trunk/SRC/ReadWrite/read_grads.pro

    r240 r325  
    2323; to specify that the dates are time steps instead of true calendar. 
    2424; 
    25 ;--------------- 
    2625; NOT yet available 
    27 ;--------------- 
    2826; 
    2927; @keyword BOX {type=A 4 or 6 elements 1d array, [lon1,lon2,lat1,lat2, depth1, depth2]} 
    … …  
    6159; 
    6260;- 
    63 ; 
    6461FUNCTION read_grads, var, date1, date2, FILENAME = filename, BOX=box, TIMESTEP = timestep, EVERYTHING = everything, NOSTRUCT = nostruct, _EXTRA = ex 
    6562; 

  • trunk/SRC/ReadWrite/read_oasis.pro

    r238 r325  
    4040; 
    4141;- 
    42 ; 
    4342FUNCTION read_oasis, filename, varname, jpi, jpj, I2 = I2, I4 = i4, I8 = i8, R4 = r4 
    4443; 

  • trunk/SRC/ReadWrite/readbat.pro

    r238 r325  
    2424; 
    2525;- 
    26 ; 
    2726FUNCTION readbat, filename, ZERO = zero 
    2827; 

  • trunk/SRC/ReadWrite/readoldopadistcoast.pro

    r240 r325  
    2727; 
    2828;- 
    29 ; 
    3029FUNCTION read3fromopa, unit, params, num 
    3130; 
    … …  
    7271; 
    7372;- 
    74 ; 
    7573FUNCTION readoldopadistcoast, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec 
    7674; 

  • trunk/SRC/ReadWrite/readoldoparestart.pro

    r262 r325  
    55; 
    66; @param UNIT 
    7 ; 
    87; 
    98; @param PARAMS 
    … …  
    2019; @version 
    2120; $Id$ 
     21; 
    2222;- 
    23 ; 
    2423FUNCTION read2fromopa, unit, params, num 
    2524; 
    … …  
    3029   return, a[0] 
    3130end 
     31; 
    3232;+ 
    3333; @categories 
    … …  
    3535; 
    3636; @param UNIT 
    37 ; 
    3837; 
    3938; @param PARAMS 
    … …  
    8382; @keyword UB 
    8483; 
    85 ; 
    8684; @keyword VB 
    87 ; 
    8885; 
    8986; @keyword TB 
    … …  
    137134; $Id$ 
    138135;- 
    139 ; 
    140136PRO 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 
    141137; 

  • trunk/SRC/ReadWrite/scanctl.pro

    r240 r325  
    4040; 
    4141;- 
    42 ; 
    4342PRO scanctl, filename, filesname, jpt1file, varsname, varslev, swapbytes, bigendian, littleendian, f77sequential, fileheader, theader, xyheader, VARFMT = varfmt, _EXTRA = ex 
    4443; 

  • trunk/SRC/ReadWrite/scanoasis.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524PRO scanoasis, filename 
    2625; 

  • trunk/SRC/ReadWrite/write_oasis.pro

    r238 r325  
    3434; 
    3535;- 
    36 ; 
    3736PRO write_oasis, filename, varname, z2d, I2 = i2, I4 = i4, I8 = i8, R4 = r4, APPEND = append 
    3837; 

  • trunk/SRC/ReadWrite/writebat.pro

    r238 r325  
    2222; 
    2323;- 
    24 ; 
    2524PRO writebat, zbat, filename 
    2625; 

  • trunk/SRC/Tests/TestsOld/tst_initlev_index_old.pro

    r237 r325  
    88; 
    99;- 
    10 ; 
    1110file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1211initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/TestsOld/tst_initlev_index_stride_old.pro

    r237 r325  
    88; 
    99;- 
    10 ; 
    1110file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1211initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/TestsOld/tst_initlev_old.pro

    r237 r325  
    88; 
    99;- 
    10 ; 
    1110file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1211initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/TestsOld/tst_initlev_stride_old.pro

    r237 r325  
    88; 
    99;- 
    10 ; 
    1110file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1211initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_old.pro

    r237 r325  
    1212; @version 
    1313; $Id$ 
     14; 
     15; @todo 
     16; find the right way to avoid 
     17; IDLDOC: unknown tag "file_comments" in file tst_initorca05_index_old.pro 
    1418; 
    1519;- 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_stride_old.pro

    r237 r325  
    1212; @version 
    1313; $Id$ 
     14; 
     15; @todo  
     16; find the right way to avoid 
     17; IDLDOC: unknown tag "file_comments" in file tst_initorca05_index_stride_old.pro 
    1418; 
    1519;- 

  • trunk/SRC/Tests/TestsOld/tst_plt_old.pro

    r238 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_plt_old, IMAGE = image 
    1817; 

  • trunk/SRC/Tests/TestsOld/tst_pltt_old.pro

    r237 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_pltt_old, IMAGE = image 
    1817; 

  • trunk/SRC/Tests/TestsOld/tst_pltz_old.pro

    r237 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_pltz_old, IMAGE = image 
    1817; 

  • trunk/SRC/Tests/tst_basic.pro

    r237 r325  
    1212; 
    1313;- 
    14 ; 
    1514PRO tst_basic 
    1615; 

  • trunk/SRC/Tests/tst_initlev.pro

    r232 r325  
    77; $Id$ 
    88;- 
    9 ; 
    109file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1110initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/tst_initlev_index.pro

    r237 r325  
    88; 
    99;- 
    10 ; 
    1110file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    1211initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 

  • trunk/SRC/Tests/tst_initorca05_index.pro

    r237 r325  
    1212; @version 
    1313; $Id$ 
     14; 
     15; @todo 
     16; find the right way to avoid 
     17;  IDLDOC: unknown tag "file_comments" in file tst_initorca05_index.pro 
    1418; 
    1519;- 

  • trunk/SRC/Tests/tst_initorca05_index_stride.pro

    r237 r325  
    1212; @version 
    1313; $Id$ 
     14; 
     15; @todo 
     16; find the right way to avoid 
     17; IDLDOC: unknown tag "file_comments" in file tst_initorca05_index_stride.pro 
    1418; 
    1519;- 

  • trunk/SRC/Tests/tst_plt.pro

    r237 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_plt, IMAGE = image 
    1817; 

  • trunk/SRC/Tests/tst_pltt.pro

    r237 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_pltt, IMAGE = image 
    1817; 

  • trunk/SRC/Tests/tst_pltz.pro

    r237 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO tst_pltz, IMAGE = image 
    1817; 

  • trunk/SRC/Textoidl/matchdelim.pro

    r232 r325  
    5555; $Id$ 
    5656;- 
    57 ; 
    5857FUNCTION matchdelim, InString, OpenPos, $ 
    5958                     OPEN_DELIM=OpenDelim, $ 

  • trunk/SRC/Textoidl/showtex.pro

    r163 r325  
    4747;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    4848;- 
    49 ; 
    5049PRO showtex, FONT=fnt, HELP=help 
    5150; 

  • trunk/SRC/Textoidl/strcnt.pro

    r231 r325  
    4747; $Id$ 
    4848;- 
    49 ; 
    5049FUNCTION strcnt, strn, substrn, startpos, $ 
    5150                 HELP=Help 

  • trunk/SRC/Textoidl/strtrans.pro

    r134 r325  
    3636;       Will produce out='Many bad chars in here', and set ned to 4. 
    3737; MODIFICATION HISTORY: 
    38 ;       $Id: strtrans.pro,v 1.7 2004/06/15 17:25:54 mcraig Exp $ 
     38;       $Id$ 
    3939;       $Log: strtrans.pro,v $ 
    4040;       Revision 1.7  2004/06/15 17:25:54  mcraig 
    … …  
    7171;  This code comes with absolutely NO warranty; see DISCLAIMER for details. 
    7272;- 
    73 ; 
    7473FUNCTION strtrans, InputString, from, to, ned,  $ 
    7574                   HELP=Help 

  • trunk/SRC/Textoidl/sub_sup_idl.pro

    r231 r325  
    3333;       $Name: Rel_2_1_2 $ 
    3434;- 
    35 ; 
    3635FUNCTION Sub_sup_idl, token,  FORCE_UD = force_ud 
    3736; 

  • trunk/SRC/Textoidl/textable.pro

    r297 r325  
    6060; $Id$ 
    6161;- 
    62 ; 
    6362FUNCTION textable, POSTSCRIPT=ps, VECTOR=vec,  HELP=Help 
    6463; 

  • trunk/SRC/Textoidl/textoidl.pro

    r163 r325  
    6868; $Id$ 
    6969;- 
    70 ; 
    7170FUNCTION textoidl, InputString, $ 
    7271                   FONT=fnt, $ 

  • trunk/SRC/Textoidl/translate_sub_super.pro

    r232 r325  
    6565; $Id$ 
    6666;- 
    67 ; 
    6867FUNCTION sub_sup_idl, token,  FORCE_UD = force_ud 
    6968; 

  • trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro

    r268 r325  
    3838; 
    3939;- 
    40 ; 
    4140FUNCTION depth2floatlevel, tab, NOMASK = nomask 
    4241; 

  • trunk/SRC/ToBeReviewed/CALCULS/depth2level.pro

    r268 r325  
    4141; $Id$ 
    4242;- 
    43 ; 
    4443FUNCTION depth2level, tab, LOWER = lower, UPPER = upper, CLOSER = closer $ 
    4544                      , NOMASK = nomask, _EXTRA = ex 

  • trunk/SRC/ToBeReviewed/CALCULS/depth2mask.pro

    r268 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION depth2mask, tab, _EXTRA = ex 
    3231; 

  • trunk/SRC/ToBeReviewed/CALCULS/determ2.pro

    r268 r325  
    3939; 
    4040;- 
    41 ; 
    4241FUNCTION determ2, a, b, c, d 
    4342; 

  • trunk/SRC/ToBeReviewed/CALCULS/floatlevel2depth.pro

    r268 r325  
    3434; 
    3535;- 
    36 ; 
    3736FUNCTION floatlevel2depth, tab, NOMASK = nomask 
    3837; 

  • trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro

    r231 r325  
    3737; 
    3838;- 
    39 ; 
    4039FUNCTION fsfzpt, pfs, pfp 
    4140; 

  • trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro

    r268 r325  
    7878; $Id$ 
    7979;- 
    80 ; 
    8180FUNCTION grossemoyenne, tab, direc, BOXZOOM = boxzoom, INTEGRATION = integration $ 
    8281                        , NAN = nan, NODOMDEF = nodomdef, WDEPTH = wdepth $ 

  • trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro

    r238 r325  
    6565; 
    6666;- 
    67 ; 
    6867FUNCTION hdyn, tabsn, tabtn, TREF = tref, SREF = sref, PROFREF = profref, LEVEL = level, GILL = gill, SURFACE_LEVEL = surface_level 
    6968; 

  • trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro

    r268 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION level2depth, tab, NOMASK = nomask 
    3231; 

  • trunk/SRC/ToBeReviewed/CALCULS/level2index.pro

    r231 r325  
    2525; 
    2626;- 
    27 ; 
    2827FUNCTION level2index, level 
    2928; An element of 3d array (whose the two first dimensions are nx and ny) whose 

  • trunk/SRC/ToBeReviewed/CALCULS/level2mask.pro

    r266 r325  
    2929; 
    3030;- 
    31 ; 
    3231FUNCTION level2mask, tab 
    3332; 

  • trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro

    r268 r325  
    6565; 
    6666;- 
    67 ; 
    6867FUNCTION moyenne, tab, direc, BOXZOOM = boxzoom, INTEGRATION = integration $ 
    6968                  , NAN = nan, NODOMDEF = nodomdef, WDEPTH = wdepth $ 

  • trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro

    r231 r325  
    4343; 
    4444;- 
    45 ; 
    4645FUNCTION projectondepth, arrayin, depthin 
    4746; 

  • trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

    r262 r325  
    5353; 
    5454;- 
    55 ; 
    5655FUNCTION remplit, zinput, NAN = nan, NITER = niter, BASIQUE = basique, MASK = mask, FILLXDIR = fillxdir, FILLYDIR = fillydir, FILLVAL = fillval, _EXTRA = ex 
    5756; 

  • trunk/SRC/ToBeReviewed/CALCULS/rhon.pro

    r231 r325  
    3535; 
    3636;- 
    37 ; 
    3837FUNCTION rhon, sn, tn, INSITU = insitu, SIGMA_N = sigma_n 
    3938; 

  • trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro

    r232 r325  
    2424; 
    2525;- 
    26 ; 
    2726FUNCTION changegrid, newgrid 
    2827; 

  • trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro

    r297 r325  
    2424; 
    2525;- 
    26 ; 
    2726FUNCTION cmpgrid, newgrid 
    2827; 

  • trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

    r297 r325  
    6262; 
    6363;- 
    64 ; 
    6564PRO decoupeterre, mask, glam, gphi, gdep, TYPE = type, TRI = tri, INDICEZOOM = indicezoom, COINMONTE = coinmonte, COINDESCEND = coindescend, WDEPTH = wdepth, REALSECTION = realsection, USETRI = usetri, _EXTRA = ex 
    6665; 

  • trunk/SRC/ToBeReviewed/GRILLE/domdef.pro

    r296 r325  
    5858; than to values of these arrays. 
    5959; 
     60; @keyword TYPE  
     61; 
    6062; @keyword XINDEX 
    6163; We activate it if we want that all elements passed in input of 
    … …  
    8284; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    8385;                       8/2/98 
    84 ; rewrite everything, debug and spee-up Sebastien Masson April 2005 
     86; rewrite everything, debug and speed-up Sebastien Masson April 2005 
    8587; 
    8688; @version 
    … …  
    9092; seb: output pas clair/ pas d'input required? 
    9193;- 
    92 ; 
    9394PRO domdef, x1, x2, y1, y2, z1, z2, FINDALWAYS = findalways $ 
    9495            , GRIDTYPE = gridtype, MEMEINDICES = memeindices $ 

  • trunk/SRC/ToBeReviewed/GRILLE/f2v.pro

    r268 r325  
    3535; 
    3636;- 
    37 ; 
    3837FUNCTION f2v, temp 
    3938; 

  • trunk/SRC/ToBeReviewed/GRILLE/fmask.pro

    r268 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION fmask 
    2625; 

  • trunk/SRC/ToBeReviewed/GRILLE/grille.pro

    r268 r325  
    109109; 
    110110;- 
    111 ; 
    112111PRO 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 
    113112; 

  • trunk/SRC/ToBeReviewed/GRILLE/t2v.pro

    r268 r325  
    3434; 
    3535;- 
    36 ; 
    3736FUNCTION t2v, temp 
    3837; 

  • trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro

    r268 r325  
    5252; 
    5353;- 
    54 ; 
    5554PRO tracegrille, glamin, gphiin, OCEAN = ocean, EARTH = earth $ 
    5655                 , XSTRIDE = xstride, YSTRIDE = ystride, RMOUT = rmout $ 

  • trunk/SRC/ToBeReviewed/GRILLE/u2t.pro

    r268 r325  
    3535; 
    3636;- 
    37 ; 
    3837FUNCTION u2t, temp 
    3938; 

  • trunk/SRC/ToBeReviewed/GRILLE/umask.pro

    r268 r325  
    2727; 
    2828;- 
    29 ; 
    3029FUNCTION umask 
    3130; 

  • trunk/SRC/ToBeReviewed/GRILLE/v2t.pro

    r268 r325  
    3838; 
    3939;- 
    40 ; 
    4140FUNCTION v2t, temp 
    4241; 

  • trunk/SRC/ToBeReviewed/GRILLE/vmask.pro

    r268 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION vmask 
    2726; 

  • trunk/SRC/ToBeReviewed/HOPE/completetype.pro

    r232 r325  
    2323; 
    2424;- 
    25 ; 
    2625function completetype, typein 
    2726; 

  • trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro

    r231 r325  
    3737; 
    3838;- 
    39 ; 
    4039PRO computehopegrid, xaxis, yaxis, zaxis, linetype, FORTHEMASK = forthemask, WPOINT = wpoint, FIRSTS = firsts, LASTS = lasts, PTTYPE = pttype 
    41 ;--------------------------------------------------------- 
    4240; 
    4341  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/HOPE/createhopestruct.pro

    r232 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION createhopestruct, event 
    2726; 

  • trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro

    r232 r325  
    1 ;+ 
    2 ; 
    3 ; @todo seb 
    4 ; 
    5 ;- 
    61; PRO testwid_event, event 
    72; ; 
    … …  
    6358; @version 
    6459; $Id$ 
     60; 
     61; @todo  
     62; seb 
     63; 
    6564;- 
    66 ; 
    6765function cw_selectinterval_get_value, id 
    6866; 
    … …  
    108106; @version 
    109107; $Id$ 
     108; 
    110109;- 
    111 ; 
    112  function cw_selectinterval_event, event 
     110function cw_selectinterval_event, event 
    113111; 
    114112  compile_opt idl2, strictarrsubs 
    … …  
    155153; @version 
    156154; $Id$ 
     155; 
    157156;- 
    158 ; 
    159157FUNCTION cw_selectinterval, parent, vecteur, _EXTRA = ex 
    160158; 

  • trunk/SRC/ToBeReviewed/HOPE/findlineandpointtype.pro

    r240 r325  
    2929; 
    3030;- 
    31 ; 
    3231FUNCTION findlineandpointtype, sectype, xaxis, yaxis, iodir 
    3332; the file 'HOPE_lonlat.nc' is used in this function, This file must 

  • trunk/SRC/ToBeReviewed/HOPE/read_hope.pro

    r271 r325  
    1919; 
    2020;- 
    21 ; 
    2221PRO read_hope_event, event 
    2322; 
    … …  
    316315; 
    317316;- 
    318 ; 
    319317FUNCTION read_hope, typein, varnamein, FILENAME = filename, XLIMITS = xlimits, YLIMITS = ylimits,  ZLIMITS = zlimits, TLIMITS = tlimits, ODDPT = oddpt, ODDEVENPT = oddevenpt, EVENPT = evenpt, _EXTRA = ex 
    320318; 

  • trunk/SRC/ToBeReviewed/HOPE/rh_alldomains.pro

    r231 r325  
    2525; 
    2626;- 
    27 ; 
    2827PRO rh_alldomains, topid, selected 
    2928; 

  • trunk/SRC/ToBeReviewed/HOPE/sortdim.pro

    r231 r325  
    2525; 
    2626;- 
    27 ; 
    2827function sortdim, dims, inverse=inverse 
    2928; 

  • trunk/SRC/ToBeReviewed/HOPE/xrh.pro

    r232 r325  
    2525; 
    2626;- 
    27 ; 
    2827PRO xrh, _EXTRA = ex 
    2928; 

  • trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

    r238 r325  
    55; 
    66; @categories 
    7 ; Animated drawings. 
     7; Animated drawings 
    88; 
    9 ; @param NOMFIC {in}{required} 
     9; @param nomfic {in}{required} 
    1010; It is the name of the gif file containing the animation. 
    11 ;          Comment: this file is placed in the directory defined by iodir. 
     11; Comment: this file is placed in the directory defined by iodir. 
    1212; 
    1313; @uses 
    … …  
    2121;              IDL> retall 
    2222; 
    23 ; @restrictions 
    2423; If we want to delete the \@common, 
    2524;               we have to define manually the picture's size 
    … …  
    3534; 
    3635;- 
    37 ; 
    3836PRO animgif, nomfic 
    3937; 

  • trunk/SRC/ToBeReviewed/INIT/initncdf.pro

    r297 r325  
    88; Grid 
    99; 
    10 ; @param NCFILEIN {in}{required}{type=scalar string} 
     10; @param ncfilein {in}{required}{type=scalar string} 
    1111; A string giving the name of the NetCdf file 
    1212; 
    … …  
    5454; 
    5555;- 
    56 ; 
    5756PRO initncdf, ncfilein $ 
    5857              , ZAXISNAME = zaxisname, START1 = start1 $ 

  • trunk/SRC/ToBeReviewed/INIT/initorca05.pro

    r142 r325  
    11;+ 
    22; 
    3 ; @todo seb 
    4 ; 
     3; @todo  
     4; seb 
     5;  
    56;- 
    6 ; 
    77@cm_4mesh 
    88@cm_4cal 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro

    r262 r325  
    2727; 
    2828;- 
    29 ; 
    3029FUNCTION read_grib, varcode, date1, date2, FILE = file 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro

    r262 r325  
    3333; $Id$ 
    3434;- 
    35 ; 
    3635FUNCTION read_grib_bds, num, recstart, ni, nj 
    3736; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029PRO read_grib_end,  num, offset 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION read_grib_gds, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION read_grib_is, num, offset 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION read_grib_pds, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro

    r262 r325  
    4040; $Id$ 
    4141;- 
    42 ; 
    4342PRO read_gribtable, tablename, PARMTABL=parmtabl, CENTER=center,$ 
    4443                   SUBCENTER=subcenter, TABLNUM=tablnum 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION scan_grib_code, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION scan_grib_date, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION scan_grib_messize, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro

    r262 r325  
    2727; $Id$ 
    2828;- 
    29 ; 
    3029FUNCTION scan_grib_nbits, num, recstart 
    3130; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro

    r262 r325  
    2424; $Id$ 
    2525;- 
    26 ; 
    2726FUNCTION scan_grib_recstart, num 
    2827; 

  • trunk/SRC/ToBeReviewed/LECTURE/binary.pro

    r231 r325  
    4444; 
    4545;- 
    46 ; 
    4746FUNCTION binary, number 
    4847; 

  • trunk/SRC/ToBeReviewed/LECTURE/changeread.pro

    r297 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION changeread, newread 
    2726; 

  • trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro

    r231 r325  
    5959; 
    6060;- 
    61 ; 
    6261FUNCTION inverse_binary, binnumb 
    6362; 

  • trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro

    r296 r325  
    9999; 
    100100;- 
    101 ; 
    102101FUNCTION litchamp, struct, GRID = grid, NAME = name, UNIT = unit, EXP = exp, DATE = date $ 
    103102                   , LEVEL = level, MASK = mask 

  • trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro

    r295 r325  
    4444; 
    4545;- 
    46 ; 
    4746FUNCTION ncdf_lec,nom,ATT=att,DIM=dim,VAR=var, IODIR = iodir, _EXTRA = ex 
    4847; 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ftp.pro

    r231 r325  
    2626; @version 
    2727; $Id$ 
     28; 
    2829;- 
    29 ; 
    3030PRO ftp_post, u, cmd, res, out=out, count=count 
    3131; 
    … …  
    7777; 
    7878;- 
    79 ; 
    8079PRO ftp_parse_pasv, text, host, port 
    8180  t=strtrim(text,2) 
    … …  
    122121; even when there is only one file. 
    123122; 
    124 ; @keyword USER { Default is= anonymous} 
     123; @keyword USER {default=anonymous} 
    125124; Specify user name to connect to server with. 
    126125; 
    127 ; @keyword PASS { Default is= test\@test.com} 
     126; @keyword PASS {default=test\@test.com} 
    128127; Specify password to use when connecting. 
    129128; 
    … …  
    178177; 
    179178;- 
    180 ; 
    181179PRO read_ftp, site, files, dir, port, data=data, file=file, user=user, $ 
    182180              pass=pass, ptr=ptr 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

    r310 r325  
    9595; @version 
    9696; $Id$ 
     97; 
    9798;- 
    98 ; 
    9999FUNCTION read_ncdf, name, beginning, ending, compatibility, BOXZOOM = boxzoom, FILENAME = filename $ 
    100100                    , PARENTIN = parentin, TIMESTEP = timestep, ADDSCL_BEFORE = addscl_before $ 

  • trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro

    r297 r325  
    6565; $Id$ 
    6666;- 
    67 ; 
    6867FUNCTION xncdf_lec, name, ATT = att, COUNT = count, GROUP = group, OFFSET = offset, IODIR = iodir, SHIFT = shift,  STRIDE = stride, VAR = var 
    6968; 
    … …  
    215214; $Id$ 
    216215;- 
    217 ; 
    218216PRO wid_var_event,  event 
    219217; 
    … …  
    394392; $Id$ 
    395393;- 
    396 ; 
    397394PRO wid_var, widid_pere 
    398395; 
    … …  
    500497; $Id$ 
    501498;- 
    502 ; 
    503499PRO xncdf_lec_event, event 
    504500; 

  • trunk/SRC/ToBeReviewed/MATRICE/colle.pro

    r238 r325  
    7575; 
    7676;- 
    77 ; 
    7877FUNCTION colle, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, SAUVE = sauve 
    7978; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro

    r292 r325  
    131131; 
    132132;- 
    133 ; 
    134133PRO bar_plot, values, BASELINES=baselines, COLORS=colors, BARNAMES=barnames, $ 
    135134          TITLE=title, XTITLE=xtitle, YTITLE=ytitle, BASERANGE=baserange, $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

    r299 r325  
    193193; "UNVECTSUR"+ quelques trucs dans la routine. 
    194194;- 
    195 ; 
    196195PRO plt, tab1, param2, param3, param4, REALCONT = realcont, CONTOUR = contour $ 
    197196         , INTERVALLE = intervalle, INV = inv, GRIDTYPE = gridtype, BOXZOOM = boxzoom $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro

    r297 r325  
    104104; 
    105105;- 
    106 ; 
    107106PRO plt1d, tab, param2, param3, param4, BOXZOOM = boxzoom, SIN = sin $ 
    108107           , MININ = minin, MAXIN = maxin, TYPEIN = typein, ENDPOINTS = endpoints $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r296 r325  
    110110; 
    111111;- 
    112 ; 
    113112PRO pltbase, z2d, x, y, mask, xm, ym, levels, colors, UNSUR2 = unsur2, CONTOUR = contour $ 
    114113             , NOCONTOUR = nocontour, NOFILL = nofill $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

    r297 r325  
    5252; 
    5353;- 
    54 ; 
    5554PRO pltsc, tab1, tab2, min1, max1, min2, max2, varname2, BOXZOOM = boxzoom, $ 
    5655           COL1D=col1d, STY1D=sty1d, OV1D=ov1d, _EXTRA = ex 
     56; 
    5757; scatter plot (inspired from plt1d) 
    5858; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

    r299 r325  
    198198; @todo  
    199199; seb: definition of parameters, L.426 à 427, L. 492 à 493 
     200; 
    200201;- 
    201 ; 
    202202PRO pltt, tab, giventype, givenmin, givenmax, datmin, datmax, BOXZOOM = boxzoom, CONTOUR = contour $ 
    203203          , ENDPOINTS = endpoints, INTERVALLE = intervalle, INV = inv  $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro

    r286 r325  
    44; Draw 2d plots with TV procedure 
    55; 
    6 ; @categories find a file 
     6; @categories  
     7; find a file 
    78; graphic 
    89; 
    … …  
    7273; 
    7374;- 
    74 ; 
    7575PRO pltv, data, min, max, BOTTOM = bottom, BOXZOOM = boxzoom $ 
    7676          , C_MASK = c_mask, C_NAN = c_nan, INV = inv,  MININ = minin, MAXIN = maxin $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

    r299 r325  
    164164; 
    165165;- 
    166 ; 
    167166PRO pltz, tab, giventype, givenmin, givenmax, BOXZOOM = boxzoom, CONTOUR = contour $ 
    168167          , ENDPOINTS = endpoints, INTERVALLE = intervalle, INV = inv, ZRATIO = zratio $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

    r296 r325  
    4343; 
    4444;- 
    45 ; 
    4645PRO sbar_plot, values, COLORS = colors, NOREINITPLT = noreinitplt, _EXTRA = ex 
    4746; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r296 r325  
    3030; 
    3131;- 
    32 ; 
    3332PRO scontour, x, y, z, NOREINITPLT = noreinitplt, _EXTRA = ex 
    3433; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r296 r325  
    3434; 
    3535;- 
    36 ; 
    3736PRO splot, x, y, NOREINITPLT = noreinitplt, _EXTRA = ex 
    3837; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

    r296 r325  
    8787; 
    8888;- 
    89 ; 
    9089PRO tvplus, z2d, cellsize, BOTTOM = bottom, C_MASK = c_mask, C_NAN = c_nan, WINDOW = window $ 
    9190            , MIN = min, MAX = max, MASK = mask, OFFSET = offset, NOUSEINFOS = NOUSEINFOS $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

    r237 r325  
    2929; 
    3030;- 
    31 ; 
    3231PRO addaxe, endpoints, type, posfenetre, _EXTRA = ex 
    3332; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r237 r325  
    2929; 
    3030;- 
    31 ; 
    3231PRO autoscale, min, max, ci 
    3332; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

    r237 r325  
    4343; 
    4444;- 
    45 ; 
    4645PRO axis4pltz, type, mask, glam, gphi, z, XXAXIS = xxaxis, ZZAXIS = zzaxis, SIN = sin, ZRATIO = zratio, ZOOM = zoom, PROFMAX = profmax, PROFMIN = profmin, _EXTRA = ex 
    4746; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro

    r237 r325  
    77; Utilities 
    88; 
    9 ; @param COLNUMB 
     9; @param colnumb 
    1010; 
    11 ; @param CLBINF 
     11; @param clbinf 
    1212; 
    13 ; @param CLBSUP 
     13; @param clbsup 
    1414; 
    15 ; @param CLBDIV 
     15; @param clbdiv 
    1616; 
    1717; @keyword NOCOLORBAR 
    … …  
    5252; 
    5353;- 
    54 ; 
    5554PRO barrecouleur, colnumb, clbinf, clbsup, clbdiv $ 
    5655                  , NOCOLORBAR = nocolorbar, CB_TITLE = cb_title $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

    r297 r325  
    3131; 
    3232;- 
    33 ; 
    3433FUNCTION err_1d, type, n1, name, n2 
    3534; 
    … …  
    7069; 
    7170;- 
    72 ; 
    7371FUNCTION err_2d, type, sz, nx, ny, nz 
    7472; 
    … …  
    116114; 
    117115;- 
    118 ; 
    119116FUNCTION err_3d, type, sz, nx, ny, nz 
    120117; 
    … …  
    195192; 
    196193;- 
    197 ; 
    198194FUNCTION checkfield, field, procedure, TYPE = type, BOXZOOM = boxzoom, DIREC = direc, NOQUESTION = noquestion, VECTEUR = vecteur, WDEPTH = wdepth, _EXTRA = ex 
    199195; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro

    r232 r325  
    5959; @todo seb 
    6060;- 
    61 ; 
    6261PRO checktypeminmax, procedure, TYPE = type, MIN = min, MAX = max, XY = xy $ 
    6362                     , XZ = xz, YZ = yz, XT = XT, YT = YT, ZT = zt $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro

    r262 r325  
    5151; 
    5252;- 
    53 ; 
    5453PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi, MAXIN = maxin, MININ = minin, INTERVALLE = intervalle, USETRI = usetri, ZEROMIDDLE = zeromiddle, _EXTRA = ex 
    5554; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro

    r232 r325  
    2020; @todo seb 
    2121;- 
    22 ; 
    2322FUNCTION givewindowsize 
    2423; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/meridienparallele.pro

    r231 r325  
    2121; 
    2222;- 
    23 ; 
    2423PRO meridienparallele, coupe 
    2524; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

    r237 r325  
    3737; 
    3838;- 
    39 ; 
    4039PRO placecolor, pos, _EXTRA = ex 
    4140; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro

    r297 r325  
    127127; 
    128128;- 
    129 ; 
    130129PRO placedessin, typedessin, posfenetre, posbar, dtasize, BARMARGES = barmarges $ 
    131130                 , NOCOLORBAR = nocolorbar, NOFILL = nofill, COLOR_c = color_c $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/projsegment.pro

    r231 r325  
    4242; 
    4343;- 
    44 ; 
    4544FUNCTION projsegment, vecteur, bornes, MP = mp 
    4645; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro

    r237 r325  
    2727; 
    2828;- 
    29 ; 
    3029PRO restoreatt, struct 
    3130; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/rotation.pro

    r231 r325  
    2626; 
    2727;- 
    28  
    2928PRO rotation,X,Y,DEG,NX,NY 
    3029; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro

    r231 r325  
    2222; 
    2323;- 
    24 ; 
    2524FUNCTION saveatt 
    2625; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro

    r237 r325  
    3939; 
    4040;- 
    41 ; 
    4241PRO terminedessin, POST = post, SMALL = small, _EXTRA = ex 
    4342; 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro

    r226 r325  
    4747; 
    4848;- 
    49 ;------------------------------------------------------------ 
    50 ;------------------------------------------------------------ 
    51 ;------------------------------------------------------------ 
    5249pro label, cas, min, max, ncontour, level_z2d, colnumb, NLEVEL = nlevel $ 
    5350          ,INTERVALLE=intervalle, STRICTFILL = strictfill 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro

    r163 r325  
    8787; 
    8888;- 
    89 ;----------------------------------------------------------------------------- 
    9089FUNCTION label_date, axis, index, x, DATE_FORMAT = format, MONTHS = months, $ 
    9190              OFFSET= offs, _EXTRA = ex 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_gmt.pro

    r240 r325  
    3232; @version 
    3333; $Id$ 
     34; 
    3435;- 
    35 ; 
    3636PRO label_gmt, min, max, intervalle, ncoul, ncontour, level_z2d, coul 
    3737; 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro

    r157 r325  
    3131; 
    3232;- 
    33 ;------------------------------------------------------------ 
    34 ;------------------------------------------------------------ 
    35 ;------------------------------------------------------------ 
    3633FUNCTION lataxe, axis, index, value 
    3734;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro

    r157 r325  
    3131; 
    3232;- 
    33 ;------------------------------------------------------------ 
    34 ;------------------------------------------------------------ 
    35 ;------------------------------------------------------------ 
    3633FUNCTION lonaxe, axis, index, value 
    3734;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro

    r297 r325  
    4646; 
    4747;- 
    48 ; 
    4948PRO ajoutvect,vecteur, vectlegende, UNVECTSUR=unvectsur,VECTMIN=vectmin, VECTMAX=vectmax, _EXTRA = ex 
    5049; 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro

    r297 r325  
    55; @categories 
    66; 
    7 ; @param ANGLE 
     7; @param angle  
    88; 
    99; @returns 
    … …  
    1717; @version 
    1818; $Id$ 
     19; 
    1920;- 
    20 ; 
    2121FUNCTION cv_cm2normal, angle 
    2222; 
    … …  
    5353; @categories 
    5454; 
    55 ; @param U 
    56 ; 
    57 ; @param V 
    58 ; 
    59 ; @param W 
     55; @param u 
     56; 
     57; @param v 
     58; 
     59; @param w 
    6060; 
    6161; @restrictions 
    … …  
    6767; @version 
    6868; $Id$ 
     69; 
    6970;- 
    70 ; 
    7171PRO normalise, u, v, w 
    7272; 
    … …  
    101101; Graphics 
    102102; 
    103 ; @param COMPOSANTEU {in}{required} 
     103; @param composanteu {in}{required} 
    104104; It is the u component of the vector to be traced. This 2d array has the 
    105105; same dimension that reduitindice2d (see further) 
    106106; 
    107 ; @param COMPOSANTEV {in}{required} 
     107; @param composantev {in}{required} 
    108108; It is the v component of the vector to be traced. This 2d array has the 
    109109; same dimension that reduitindice2d (see further) 
    110110; 
    111 ; @param NORMEVECTEUR 
    112 ; 
    113 ; 
    114 ; @param INDICE2D  {in}{required} 
     111; @param normevecteur 
     112; 
     113; @param indice2d {in}{required} 
    115114; It in an index allowing to to pass from an jpi or jpj array to the zoom 
    116115; on which we do the drawing 
    117116; 
    118 ; @param REDUITINDICE2D {in}{required} 
     117; @param reduitindice2d {in}{required} 
    119118; It is an index allowing to pass from an array defined by indice2d to the 
    120119; array for which we really have vectors to be traced (to be clear, it is 
    … …  
    171170PRO vecteur, composanteu, composantev, normevecteur, indice2d, reduitindice2d $ 
    172171             , CMREF = cmref, MISSING = missing, NORMEREF = normeref $ 
    173              , VECTCOLOR = vectcolor, VECTTHICK = vectthick, VECTREFPOS = vectrefpos $ 
    174              , VECTREFFORMAT = vectrefformat, NOVECTREF = novectref, _EXTRA = extra 
     172             , VECTCOLOR = vectcolor, VECTTHICK = vectthick $ 
     173             , VECTREFPOS = vectrefpos $ 
     174             , VECTREFFORMAT = vectrefformat, NOVECTREF = novectref $ 
     175             , _EXTRA = extra 
    175176; 
    176177  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/velovect.pro

    r262 r325  
    88; 
    99; @categories 
    10 ; Plotting, two-dimensional. 
     10; Plotting, two-dimensional 
    1111; 
    1212; @param U {in}{required} 
    … …  
    9292; 
    9393;- 
    94 ; 
    9594PRO velovect, u,v,x,y, MISSING = missing, LENGTH = length, DOTS = dots,  $ 
    9695        COLOR=color, CLIP=clip, NOCLIP=noclip, OVERPLOT=overplot, _EXTRA=extra 

  • trunk/SRC/ToBeReviewed/PLOTS/axe.pro

    r296 r325  
    2929; 
    3030; @keyword DIGITSYEAR 
    31 ; =2 to use %Z format (2 digits) to code years 
    32 ; instead of %Y format. See help of label_date for more 
    33 ; information on %Z and %Y. 
     31; =2 to use %Z format (2 digits) to code years instead of %Y format. 
     32; See <pro>label_date</pro> for more information on %Z and %Y. 
    3433; 
    3534; @keyword _EXTRA 
    … …  
    5251; 
    5352;- 
    54 ; 
    5553PRO axe, coupe, tempsmin, tempsmax, REVERSE_X = reverse_x, REVERSE_Y = reverse_y, SIN = sin, SEPDATE = sepdate, DIGITSYEAR = digitsyear, _EXTRA = ex 
    5654; 

  • trunk/SRC/ToBeReviewed/PLOTS/legende.pro

    r231 r325  
    4343; 
    4444;- 
    45 ; 
    4645PRO legende, mi, ma, coupe, CONTOUR = contour, ENDPOINTS = endpoints, DIREC = direc $ 
    4746             , VECTLEGENDE = vectlegende $ 

  • trunk/SRC/ToBeReviewed/PLOTS/plotsym.pro

    r262 r325  
    4545; 
    4646;- 
    47 ; 
    4847FUNCTION plotsym, CIRCLE=circle, TRIANGLE=triangle, DIAMOND=diamond, $ 
    4948                  ANGLE=angle, BOX=box, LINE=line, SCALE=scale, $ 

  • trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro

    r262 r325  
    4343; 
    4444;- 
    45 ; 
    4645PRO reinitplt, ALL=all, X=x, Y=y, Z=z, P=p, INVERT=invert 
    4746; 

  • trunk/SRC/ToBeReviewed/PLOTS/style.pro

    r299 r325  
    8181; 
    8282;- 
    83 ; 
    8483PRO style, labstyle, level_z2d, linestyle, thick 
    8584; 

  • trunk/SRC/ToBeReviewed/PLOTS/symbols.pro

    r262 r325  
    4242; 
    4343;- 
    44 ; 
    4544PRO symbols, nsym, scale, COLOR=col 
    4645; 

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/calibre.pro

    r232 r325  
    1010; Graphics 
    1111; 
    12 ; @param RAPPORTYX {in}{required} 
    13 ; Scale rapport between the length of the y axis and the x one. For example, 
    14 ; for an xy map: RAPPORTYX=(lat2-lat1)/(lon2-lon1) 
    15 ; 
    16 ; @param MARGE {in}{required}{type=vector} 
     12; @param rapportyx {in}{required} 
     13; Scale ratio between the length of the y axis and the x one. For example, 
     14; for an xy map: rapportyx=(lat2-lat1)/(lon2-lon1) 
     15; 
     16; @param marge {in}{required}{type=vector} 
    1717; Vector made of 4 elements containing the size of the left, right, up and 
    18 ; bottom margin having to surround the graph. All is measured in lines of characters. 
    19 ; 
    20 ; @param MARGEBAR {in}{required}{type=vector} 
     18; bottom margin having to surround the graph.  
     19; All is measured in lines of characters. 
     20; 
     21; @param margebar {in}{required}{type=vector} 
    2122; Vector made of 4 elements containing the size of the left, right and bottom 
    2223; margin and -BEWARE- the last element is this time the position of the right up 
    2324; corner, having to surround the color bar. All is measured in lines of characters. 
    2425; 
    25 ; @param SMALLDRAW {in}{required}{type=vector} 
     26; @param smalldraw {in}{required}{type=vector} 
    2627; 2 possibilities: 
    2728;    It is vector made of 4 elements giving (in portrait or landscape) the position 
    … …  
    3435; (see matlab). For example, to do 6 drawing in 3 columns and 2 lines and occupy 
    3536; the 4th case, small=[2,3,4] 
     37; 
     38; @param posfenetre {type=vector} 
     39; It is a vector made of 4 elements containing the position of the frame 
     40; containing captions + the graph in normalized coordinates. 
     41; Comment: to position the drawing, we have to do !p.position=POSFENETRE 
     42; after the call of calibre. 
     43; 
     44; @param posbar {type=vector} 
     45; See POSFENTERE but for the color bar. Same comment to position the color bar, !p.position=POSBAR 
    3646; 
    3747; @keyword REMPLI 
    … …  
    5868; Used to pass keywords 
    5969; 
    60 ; @param POSFENETRE {type=vector} 
    61 ; It is a vector made of 4 elements containing the position of the frame 
    62 ; containing captions + the graph in normalized coordinates. 
    63 ; Comment: to position the drawing, we have to do !p.position=POSFENETRE 
    64 ; after the call of calibre. 
    65 ; 
    66 ; @param POSBAR {type=vector} 
    67 ; See POSFENTERE but for the color bar. Same comment to position the color bar, !p.position=POSBAR 
    68 ; 
    6970; @uses 
    7071; common.pro 
    … …  
    7677; @version 
    7778; $Id$ 
     79; 
    7880;- 
    79 ; 
    8081PRO calibre, rapportyx, marge, margebar, smalldraw, posfenetre, posbar $ 
    8182             , REMPLI = rempli, YXASPECT = yxaspect, PORTRAIT = portrait $ 

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro

    r240 r325  
    1818; 
    1919;- 
    20 ; 
    2120PRO format_colortable_hexa, table 
    2221; 
    … …  
    6059; 
    6160;- 
    62 ; 
    6361PRO build_table, tableout 
    6462; 
    … …  
    114112; 
    115113;- 
    116 ; 
    117114PRO chcolps, n1, n2, file, PALIT1 = palit1, PALIT2 = palit2 
    118115; 

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro

    r240 r325  
    1111; We use journal which allows to stock commands we pass.  
    1212; 
    13 ; @restrictions 
    1413; Can break down if some weird commands are passed... 
    1514; Comment: we erase Syntax error, Illegal characters, compatible 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro

    r262 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION auto_cov2d, x, lag, DOUBLE = double, ZERO2NAN = zero2nan 
    3231; 
    … …  
    7877; 
    7978;- 
    80 ; 
    8179FUNCTION a_correlate2d, x, lag, COVARIANCE = covariance, DOUBLE = double 
    8280; 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro

    r262 r325  
    113113; 
    114114;- 
    115 ; 
    116115FUNCTION a_timecorrelate, x, lag, COVARIANCE = covariance, DOUBLE = double 
    117116; 

  • trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro

    r262 r325  
    3030; 
    3131;- 
    32 ; 
    3332FUNCTION timecross_cov, xd, yd, m, nt, ndim, DOUBLE = double, ZERO2NAN = zero2nan 
    3433; 
    … …  
    115114; 
    116115;- 
    117 ; 
    118116FUNCTION c_timecorrelate, x, y, lag, COVARIANCE = covariance, DOUBLE = double 
    119117; 

  • trunk/SRC/ToBeReviewed/STRING/chkeywd.pro

    r238 r325  
    7676; 
    7777;- 
    78 ; 
    7978FUNCTION chkeywd, stringin, keywdname, keywdvalue, SEPARATOR = separator, AFTER = after 
    8079; 

  • trunk/SRC/ToBeReviewed/STRING/delchr.pro

    r262 r325  
    3333; 
    3434;- 
    35 ;  
    3635FUNCTION delchr, old, c, HELP=hlp 
    3736; 

  • trunk/SRC/ToBeReviewed/STRING/getfile.pro

    r262 r325  
    5151; 
    5252;- 
    53 ; 
    5453FUNCTION getfile, filein, error=err, HELP=hlp, QUIET=quiet, LINES=lines, FIND = find 
    5554; 

  • trunk/SRC/ToBeReviewed/STRING/getwrd.pro

    r262 r325  
    7171; 
    7272;- 
    73 ; 
    74  
    7573        FUNCTION getwrd, txtstr, nth, mth, HELP=hlp, LOCATION=ll,$ 
    7674           DELIMITER=delim, NOTRIM=notrim, LAST=last, NWORDS=nwords 

  • trunk/SRC/ToBeReviewed/STRING/isnumber.pro

    r293 r325  
    3939; 
    4040;- 
    41 ;  
    4241FUNCTION isnumber, txt0, x, HELP=hlp 
    4342; 

  • trunk/SRC/ToBeReviewed/STRING/lenstr.pro

    r262 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION lenstr, str 
    3231; 

  • trunk/SRC/ToBeReviewed/STRING/nwrds.pro

    r262 r325  
    3535; 
    3636;- 
    37 ;  
    3837FUNCTION nwrds, txtstr, HELP=hlp, DELIMITER=delim 
    3938; 

  • trunk/SRC/ToBeReviewed/STRING/putfile.pro

    r262 r325  
    2929; 
    3030;- 
    31 ;  
    3231PRO putfile, file, s, ERROR=err, HELP=hlp 
    3332; 

  • trunk/SRC/ToBeReviewed/STRING/str_size.pro

    r262 r325  
    5151; 
    5252;- 
    53 ; 
    5453FUNCTION str_size, string, targetwidth, INITSIZE=initsize, STEP=step 
    5554; 

  • trunk/SRC/ToBeReviewed/STRING/string2struct.pro

    r262 r325  
    2020; @version 
    2121; $Id$ 
     22; 
    2223;- 
    23 ; 
    2424FUNCTION too_cool, _EXTRA=extra 
    2525; 
    … …  
    7979; 
    8080;- 
    81 ; 
    8281FUNCTION string2struct,strVal 
    8382; 

  • trunk/SRC/ToBeReviewed/STRING/strkeywd.pro

    r231 r325  
    5353; 
    5454;- 
    55 ; 
    5655FUNCTION strkeywd, struct 
    5756; 

  • trunk/SRC/ToBeReviewed/STRING/strright.pro

    r262 r325  
    3737; with subject "IDL routine strright" 
    3838;- 
    39 ; 
    4039FUNCTION strright, s, lastn 
    4140; 

  • trunk/SRC/ToBeReviewed/STRING/strsci.pro

    r262 r325  
    9292; or mgs\@io.harvard.edu with subject "IDL routine strsci" 
    9393;- 
    94 ; 
    9594FUNCTION strsci, data, FORMAT=format, POT_ONLY=pot_only, $ 
    9695             MANTISSA_ONLY=mantissa_only, SHORT=short, TRIM=trim 

  • trunk/SRC/ToBeReviewed/STRING/strsed.pro

    r232 r325  
    4242; $Id$ 
    4343;- 
    44 ; 
    4544FUNCTION strsed, str, exp1, exp2, FOLD_CASE = fold_case 
    4645; 

  • trunk/SRC/ToBeReviewed/STRING/strtok.pro

    r262 r325  
    6464; 
    6565;- 
    66 ; 
    6766FUNCTION strtok, string, token, TRIM=trim, HELP=Help 
    6867; 

  • trunk/SRC/ToBeReviewed/STRING/strwhere.pro

    r262 r325  
    4343; with subject "IDL routine strwhere" 
    4444;- 
    45 ; 
    4645FUNCTION strwhere, str, schar,count 
    4746; 

  • trunk/SRC/ToBeReviewed/STRING/tostr.pro

    r232 r325  
    4242; 
    4343;- 
    44 ; 
    4544FUNCTION tostr, input 
    4645; 

  • trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro

    r262 r325  
    6262; Bugs and comments should be directed to mgs\@io.harvard.edu 
    6363; with subject "IDL routine chkstru" 
     64; 
    6465;- 
    65 ; 
    6666FUNCTION chkstru, structure, fields, INDEX=index,VERBOSE=verbose, EXTRACT = extract 
    6767; 

  • trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro

    r232 r325  
    4747; 
    4848;- 
    49 ; 
    5049FUNCTION extractstru, stru, liste, KEEP = keep, DELETE = delete 
    5150; 

  • trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro

    r232 r325  
    5757; 
    5858;- 
    59 ; 
    6059FUNCTION mixstru, stru1, stru2 
    6160; 

  • trunk/SRC/ToBeReviewed/STRUCTURE/struct2string.pro

    r231 r325  
    4040; 
    4141;- 
    42 ; 
    4342FUNCTION struct2string, struct, CUT_IN_STRING = cut_in_string, MAX_STRUCT_LENGTH = max_struct_length, DIRECT2STRING = direct2string 
    4443; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro

    r292 r325  
    2929; 
    3030;- 
    31 ; 
    3231FUNCTION ciseauxtri, triang, glam, gphi, _EXTRA = ex 
    3332; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro

    r232 r325  
    2929; 
    3030;- 
    31 ; 
    3231PRO draw_corner_triangle, lons, lats, seuil, CONT_COLOR = cont_color, _EXTRA = ex 
    3332; 
    … …  
    8685; 
    8786;- 
    88 ; 
    8987PRO completecointerre, COINMONTE = coinmonte, COINDESCEND = coindescend $ 
    9088                       , CONT_COLOR = cont_color, INDICEZOOM = indicezoom $ 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/definetri.pro

    r297 r325  
    33; @file_comments 
    44; Define a triangulation array like <proidl>TRIANGULATE</proidl>. 
    5 ;         But in a VERY SIMPLE CASE: 
     5; 
     6; But in a VERY SIMPLE CASE: 
    67; the points are regularly-gridded on nx*ny array. 
    78; Find a Delaunay triangulation for this set of points is easy: 
    89; Points define (nx-1)*(ny-1) rectangles which we can cut in 2 triangles. 
     10; 
    911; cf. figure above 
    1012; 
    1113; <fixe> 
    12 ; fixe 
    1314;      ny-1*---*---*. . . . . .*---*---* 
    1415;          |  +|  +|           |  +|  +| 
    … …  
    4142; Utilities 
    4243; 
    43 ; @param NX {in}{required} 
     44; @param nx {in}{required} 
    4445; The x dimension array 
    4546; 
    46 ; @param NY {in}{required} 
     47; @param ny {in}{required} 
    4748; The y dimension array 
    4849; 
    49 ; @param DOWNWARD {in}{optional} 
    50 ; When DOWNWARD is undefined all rectangles are cut in using the upward 
     50; @param downward {in}{optional} 
     51; When downward is undefined all rectangles are cut in using the upward 
    5152; diagonal. 
    52 ; DOWNWARD is a vector which contains the rectangles numbers which are cut in 
     53; downward is a vector which contains the rectangles numbers which are cut in 
    5354; using the downward diagonal. 
    5455; The rectangle number is defined by the index (in a nx*ny vector) of the 
    … …  
    6263; 
    6364; IDL> triangles=definetri(3,3,[1,3]) 
     65; 
    6466; triangles will be this kind of triangulation: 
    6567; 
     68; <fixe> 
    6669;          *---*---* 
    6770;          |+  |  +| 
    … …  
    7477;          *---*---* 
    7578; 
     79; <fixe> 
    7680; 
    7781; @history 
    … …  
    8286; $Id$ 
    8387;- 
    84 ; 
    8588FUNCTION definetri, nx, ny, downward 
    8689; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/definetri_e.pro

    r262 r325  
    2424; @version 
    2525; $Id$ 
     26; 
    2627;- 
    27 ; 
    2828FUNCTION numtri, index, nx, ny 
    2929; 
    … …  
    7676; @todo 
    7777; seb: documenter SHIFTED 
     78; 
    7879;- 
    79 ; 
    8080FUNCTION definetri_e, nx, ny, singular, SHIFTED = shifted 
    8181; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/dessinetri.pro

    r260 r325  
    4242; 
    4343;- 
    44 ; 
    4544PRO dessinetri, tri, x, y, WAIT = wait, ONEBYONE = onebyone, FILL = fill, CHANGECOLOR = changecolor, _EXTRA = ex 
    4645; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro

    r232 r325  
    5151; 
    5252;- 
    53 ; 
    5453PRO drawcoast_c, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, _EXTRA = ex 
    5554; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_e.pro

    r262 r325  
    5050; 
    5151;- 
    52 ; 
    5352PRO drawcoast_e, mask, xf, yf, nx, ny, COAST_COLOR = coast_color, COAST_THICK = coast_thick, YSEUIL = yseuil, XSEUIL = xseuil, ONEMORE = onemore, _EXTRA = ex 
    5453; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro

    r232 r325  
    66; @categories 
    77; 
    8 ; @param MASKIN {in}{required} 
     8; @param maskin {in}{required} 
    99; 
    10 ; @param XXAXISIN {in}{required} 
     10; @param xxaxisin {in}{required} 
    1111; 
    12 ; @param DEPTHSIN {in}{required} 
     12; @param depthsin {in}{required} 
    1313; 
    1414; @keyword COAST_COLOR {default=0} 
    … …  
    3939; @todo 
    4040; Seb: definir params 
     41; 
    4142;- 
    42 ; 
    4343PRO 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 = ex 
     44                     , COAST_COLOR = coast_color, COAST_THICK = coast_thick $ 
     45                     , CONT_COLOR = cont_color, CONT_NOFILL = cont_nofill $ 
     46                     , OVERPLOT = overplot, _EXTRA = ex 
    4747; 
    4848  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

    r232 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO fillcornermask, xin, yin, COINMONTE = coinmonte, COINDESCEND = coindescend $ 
    2827                    , CONT_COLOR = cont_color, INDICEZOOM = indicezoom $ 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro

    r237 r325  
    4646; 
    4747;- 
    48 ; 
    4948PRO section, field, res, glamaxe, gphiaxe, ENDPOINTS = endpoints $ 
    5049             , BOXZOOM = boxzoom, TYPE = type, WDEPTH = wdepth $ 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro

    r231 r325  
    2626; 
    2727;- 
    28 ; 
    2928PRO tracecote, SURFACE_COASTLINE = surface_coastline, _EXTRA = ex 
    3029; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro

    r297 r325  
    3939; 
    4040;- 
    41 ; 
    4241PRO tracemask, maskentree, xin, yin, COAST_COLOR = coast_color, COAST_THICK = coast_thick, OVERPLOT = overplot, _EXTRA = ex 
    4342; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro

    r232 r325  
    4242; 
    4343;- 
    44 ; 
    4544FUNCTION triangule, maskentree, BASIC = basic, COINMONTE = coinmonte, COINDESCEND = coindescend, _EXTRA = ex 
    4645; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro

    r297 r325  
    7373; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
    7474;- 
    75 ; 
    7675FUNCTION triangule_c, maskentree, COINMONTE = coinmonte, COINDESCEND = coindescend, BASIC = basic, KEEP_CONT = keep_cont 
    7776; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro

    r231 r325  
    77; Graphics 
    88; 
    9 ; @param MASKENTREE {in}{optional}{type=2d array} 
    10 ; It is a 2d array which will serve to mask the field we will trace after with CONTOUR, 
    11 ; ...TRIANGULATION=triangule(mask) 
     9; @param maskentree {in}{optional}{type=2d array} 
     10; It is a 2d array which will serve to mask the field we will trace after  
     11; with CONTOUR, ...TRIANGULATION=triangule(mask) 
    1212; If this argument is not specified, the function use tmask 
    1313; 
    1414; @keyword BASIC 
    15 ; Specify that the mask is on a basic grid (use the triangulation for vertical cuts and hovmoellers) 
     15; Specify that the mask is on a basic grid (use the triangulation for vertical  
     16; cuts and hovmoellers) 
    1617; 
    1718; @keyword COINMONTE {type=array} 
    … …  
    3839; seb L.152->153 je ne pense pas que ce soit ce que tu voulais dire mais 
    3940; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
     41; 
    4042;- 
    41 ; 
    42 FUNCTION triangule_e, maskentree, COINMONTE = coinmonte, COINDESCEND = coindescend $ 
    43                   , SHIFTED = shifted, BASIC = basic 
     43FUNCTION triangule_e, maskentree $ 
     44                    , COINMONTE = coinmonte, COINDESCEND = coindescend $ 
     45                    , SHIFTED = shifted, BASIC = basic 
    4446; 
    4547  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro

    r232 r325  
    1 ;+ 
    2 ; @todo  
    3 ; seb 
    4 ;- 
    51; 
    62; elle fait quoi ? 
    … …  
    2622 
    2723; extra=get_extra(_extra=extra, name='Guillaume' ) 
    28  
     24; 
     25;+ 
     26; 
     27; @todo  
     28; seb 
     29; 
     30;- 
    2931FUNCTION get_extra, _EXTRA = extra 
    3032; 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

    r297 r325  
    22; 
    33; @file_comments 
    4 ;       Kind of UNDO: 
    5 ;         Allows to redo all the chain of drawing since the opening of the last window without 
    6 ;         reexecute the last order Example: I do a drawing with 10 plot over it, if I make a 
    7 ;         mistake, I execute this program and i can redo the only plot missed. 
     4; Kind of UNDO: 
     5; Allows to redo all the chain of drawing since the opening of the last window  
     6; without reexecute the last order  
     7; 
     8; Example: I do a drawing with 10 plot over it, if I make a 
     9; mistake, I execute this program and I can redo the only plot missed. 
    810; 
    911; @categories 
    … …  
    2426; 
    2527;- 
     28; Close the journal! 
     29journal 
    2630; 
    27 ;------------------------------------------------------------ 
    28 ; Close the journal! 
    29 ;------------------------------------------------------------ 
    30  journal 
    3131; we recuperate the journal as a vector of string: 
    3232   vectjournal = getfile(myuniquetmpdir+'idlsave.pro') 
    … …  
    5757 if strpos(vectjournal[i],'text_box' ) NE -1 then $ 
    5858 vectjournal[i] = vectjournal[i]+strmid(vectjournal[i+1], 1) & endfor 
    59  
    60  
    6159; 
    6260; we erase the last line to reexecute all the program but the last order. 
    … …  
    7472for i = 0, n_elements(vectjournal)-1 DO $ 
    7573journal, vectjournal[i] 
    76  
    77  
    78  

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

    r297 r325  
    3030; 
    3131;- 
    32 ; 
    3332FUNCTION buildcmd, base, BOXZOOM = boxzoom, FORCETYPE = forcetype 
    3433; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro

    r279 r325  
    3838; 
    3939;- 
    40 ; 
    4140FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM = boxzoom $ 
    4241                       , COMPLETE = complete, NAMEFIELD = namefield 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

    r262 r325  
    4444; 
    4545;- 
    46 ; 
    4746PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname 
    4847; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

    r262 r325  
    3838; 
    3939;- 
    40 ; 
    4140PRO createhistory, base, small 
    4241; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro

    r231 r325  
    3434; 
    3535;- 
    36 ; 
    3736PRO cutcmd, widcmd, toread, numberofread, prefix, nameexp, ending 
    3837; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/definedefaultextra.pro

    r231 r325  
    2424; 
    2525;- 
    26 ; 
    2726FUNCTION definedefaultextra, nomvariable 
    2827; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro

    r262 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO doubleclickaction, event 
    2827; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/extractatt.pro

    r231 r325  
    2626; 
    2727;- 
    28 ; 
    2928FUNCTION extractatt, top_uvalue, name 
    3029; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/findline.pro

    r231 r325  
    2626; 
    2727;- 
    28 ; 
    2928FUNCTION findline, top_uvalue, name 
    3029; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/identifyclick.pro

    r231 r325  
    2424; 
    2525;- 
    26 ; 
    2726FUNCTION identifyclick, event 
    2827; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/inserthistory.pro

    r240 r325  
    3030; 
    3131;- 
    32 ; 
    3332PRO inserthistory,  base, text, line1, line2 
    3433; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro

    r232 r325  
    2727; 
    2828;- 
    29 ; 
    3029PRO letsdraw, base, COMMANDE = commande, _EXTRA = ex 
    3130; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro

    r285 r325  
    2727; 
    2828;- 
    29 ; 
    3029PRO loadgrid, meshfiletxtin, _EXTRA = ex 
    3130; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

    r231 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO longclickaction, event 
    2827; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro

    r254 r325  
    4747; 
    4848;- 
    49 ; 
    5049FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 
    5150; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro

    r271 r325  
    3131; 
    3232;- 
     33FUNCTION scanfile, namefile, GRID = GRID, _EXTRA = ex 
    3334; 
    3435;  liste des presupposes: 
    … …  
    6364;        is not found. 
    6465; 
    65 ; 
    66 FUNCTION scanfile, namefile, GRID = GRID, _EXTRA = ex 
    6766; 
    6867  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro

    r285 r325  
    2222; @todo 
    2323; seb: documenter EVENT 
     24; 
    2425;- 
    25 ; 
    2626PRO selectfile_event, event 
    2727; 
    … …  
    203203; 
    204204;- 
    205 ; 
    206205FUNCTION selectfile, datafilename, idlfile, argspro, _EXTRA = ex 
    207 ; 
    208206; 
    209207  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/singleclickaction.pro

    r231 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO singleclickaction, event 
    2827; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro

    r262 r325  
    3232; 
    3333;- 
    34 ; 
    3534PRO tracecadre, small, OUT = out, ERASE = erase, FILL = fill 
    3635; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro

    r296 r325  
    3131; 
    3232;- 
    33 ; 
    3433PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE = notype 
    3534; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro

    r310 r325  
    2424; 
    2525;- 
    26 ; 
    2726PRO xcreateanim_event, event 
    2827; 
    … …  
    192191; 
    193192;- 
    194 ; 
    195193PRO xcreateanim, parent 
    196194; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro

    r296 r325  
    2323; seb 
    2424;- 
    25 ; 
    2625PRO xxxmenubar_event, event 
    2726; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro

    r262 r325  
    2323; @version 
    2424; $Id$ 
     25; 
    2526;- 
    26 ; 
    2727PRO cw_bgroup_setv, id, value 
    2828; 
    … …  
    7979; @version 
    8080; $Id$ 
     81; 
    8182;- 
    82 ; 
    8383FUNCTION cw_bgroup_getv, id, value 
    8484; 
    … …  
    130130; @version 
    131131; $Id$ 
     132; 
    132133;- 
    133 ; 
    134134FUNCTION cw_bgroup_event, ev 
    135135; 
    … …  
    338338; 
    339339;- 
    340 ; 
    341340FUNCTION cw_bgroup, parent, names, $ 
    342341    BUTTON_UVALUE = button_uvalue, COLUMN=column, EVENT_FUNCT = efun, $ 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

    r279 r325  
    6161; @version 
    6262; $Id$ 
    63 ;- 
    64 ; 
     63; 
     64;- 
    6565PRO cw_calendar_set_value, id, value 
    6666; 
    … …  
    123123; @version 
    124124; $Id$ 
    125 ;- 
    126 ; 
     125; 
     126;- 
    127127FUNCTION cw_calendar_get_value, id 
    128128; 
    … …  
    159159; @version 
    160160; $Id$ 
    161 ;- 
    162 ; 
     161; 
     162;- 
    163163FUNCTION get_cal_value, id, winfoid 
    164164; 
    … …  
    224224; @version 
    225225; $Id$ 
     226; 
    226227;- 
    227228PRO set_cal_combobox, event, casename, date0 
    … …  
    324325; @version 
    325326; $Id$ 
     327; 
    326328;- 
    327329PRO cw_cal_move, event, casename 
    … …  
    374376; @version 
    375377; $Id$ 
     378; 
    376379;- 
    377380FUNCTION cw_calendar_event, event 
    … …  
    466469; 
    467470;- 
    468 ; 
    469471FUNCTION cw_calendar, parent, calendar, jdate0, CALTYPE = CALTYPE, FAKECAL = fakecal, UVALUE = uvalue, UNAME = uname, _EXTRA = ex 
    470472; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_combobox_pm.pro

    r295 r325  
    2323; @version 
    2424; $Id$ 
    25 ;- 
    26 ; 
     25; 
     26;- 
    2727PRO cw_combobox_pm_set_value, id, value 
    2828; 
    … …  
    6767; @version 
    6868; $Id$ 
    69 ;- 
    70 ; 
     69; 
     70;- 
    7171FUNCTION cw_combobox_pm_get_value, id 
    7272; 
    … …  
    104104; @version 
    105105; $Id$ 
    106 ;- 
    107 ; 
     106; 
     107;- 
    108108FUNCTION cw_combobox_pm_event, event 
    109109; 
    … …  
    247247; 
    248248;- 
    249 ; 
    250249FUNCTION cw_combobox_pm, parent, VALUE = value, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _EXTRA = ex 
    251250; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

    r297 r325  
    6363; @version 
    6464; $Id$ 
     65; 
    6566;- 
    66 ; 
    6767PRO cw_domain_set_value, id, value 
    6868; 
    … …  
    305305; @version 
    306306; $Id$ 
     307; 
    307308;- 
    308 ; 
    309309FUNCTION cw_domain_get_value, id 
    310310; 
    … …  
    341341; @version 
    342342; $Id$ 
     343; 
    343344;- 
    344 ; 
    345345FUNCTION cw_domain_event, event 
    346346; 
    … …  
    539539; 
    540540;- 
    541 ; 
    542541FUNCTION cw_domain, parent, BOXZOOM = boxzoom, STRICT = strict, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, _EXTRA = ex 
    543542; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_droplist_pm.pro

    r295 r325  
    2323; @version 
    2424; $Id$ 
    25 ;- 
    26 ; 
     25; 
     26;- 
    2727PRO cw_droplist_pm_set_value, id, value 
    2828; 
    … …  
    6666; @version 
    6767; $Id$ 
    68 ;- 
    69 ; 
     68; 
     69;- 
    7070FUNCTION cw_droplist_pm_get_value, id 
    7171; 
    … …  
    100100; @version 
    101101; $Id$ 
    102 ;- 
    103 ; 
     102; 
     103;- 
    104104FUNCTION cw_droplist_pm_event, event 
    105105; 
    … …  
    234234; 
    235235;- 
    236 ; 
    237236FUNCTION cw_droplist_pm, parent,UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _EXTRA = ex 
    238237; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro

    r232 r325  
    2020; @version 
    2121; $Id$ 
     22; 
    2223;- 
    23 ; 
    2424FUNCTION cw_pagelayout_event, event 
    2525; 
    … …  
    148148; 
    149149;- 
    150 ; 
    151150FUNCTION cw_pagelayout, parent, small, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, COLUMN = column, ROW = row, _EXTRA = ex 
    152151; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro

    r262 r325  
    2323; @version 
    2424; $Id$ 
     25; 
    2526;- 
    26 ; 
    2727PRO cw_slide_slice_set_value, id, value 
    2828; 
    … …  
    8383; @version 
    8484; $Id$ 
     85; 
    8586;- 
    86 ; 
    8787FUNCTION cw_slide_slice_event,  event 
    8888; 
    … …  
    217217; 
    218218;- 
    219 ; 
    220219FUNCTION cw_slide_slice, parent, BOXZOOM = boxzoom, UVALUE = uvalue, UNAME = uname, FRAME = frame, ROW = row, COLUMN = column, _EXTRA = ex 
    221220; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro

    r295 r325  
    2121; @version 
    2222; $Id$ 
    23 ;- 
    24 ; 
     23; 
     24;- 
    2525FUNCTION decvalue, value 
    2626; 
    … …  
    5353; @version 
    5454; $Id$ 
    55 ;- 
    56 ; 
     55; 
     56;- 
    5757FUNCTION decind, value 
    5858; 
    … …  
    8787; @version 
    8888; $Id$ 
    89 ;- 
    90 ; 
     89; 
     90;- 
    9191PRO cw_slider_pm_set_value, id, value 
    9292; 
    … …  
    163163; @version 
    164164; $Id$ 
    165 ;- 
    166 ; 
     165; 
     166;- 
    167167FUNCTION cw_slider_pm_get_value, id 
    168168; 
    … …  
    197197; @version 
    198198; $Id$ 
    199 ;- 
    200 ; 
     199; 
     200;- 
    201201FUNCTION cw_slider_pm_event, event 
    202202; 
    … …  
    335335; 
    336336;- 
    337 ; 
    338337FUNCTION cw_slider_pm, parent, MAXIMUM = maximum, MINIMUM = minimum $ 
    339338                       , STRMINLEN = strminlen, VALUE = value, UVALUE = uvalue $ 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

    r262 r325  
    2323; @version 
    2424; $Id$ 
    25 ;- 
    26 ; 
     25; 
     26;- 
    2727PRO cw_specifie_set_value, id, value 
    2828; 
    … …  
    7474; 
    7575;- 
    76 ; 
    7776FUNCTION cw_specifie_get_value, id 
    7877; 
    … …  
    123122; 
    124123;- 
    125 ; 
    126124FUNCTION cw_specifie_event, event 
    127125; 
    … …  
    210208; 
    211209;- 
    212 ; 
    213210FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _EXTRA = ex 
    214211; 

  • trunk/SRC/ToBeReviewed/WIDGET/findtopid.pro

    r262 r325  
    2323; 
    2424;- 
    25 ; 
    2625FUNCTION findtopid, widget_id 
    2726; 

  • trunk/SRC/ToBeReviewed/WIDGET/slec.pro

    r262 r325  
    4747; 
    4848;- 
    49 ; 
    5049FUNCTION slec, name, debut, fin, nomexp, PARENT=parent, BOXZOOM=boxzoom, _EXTRA = ex 
    5150; 

  • trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro

    r292 r325  
    3535; 
    3636;- 
    37 ; 
    3837FUNCTION xnotice, text, CHKWIDGET = chkwidget 
    3938; 

  • trunk/SRC/ToBeReviewed/WIDGET/xquestion.pro

    r242 r325  
    1919; @version 
    2020; $Id$ 
     21; 
    2122;- 
    22 ; 
    2323PRO xquestion_event, event 
    2424; 
    … …  
    8383; 
    8484;- 
    85 ; 
    8685FUNCTION xquestion, question, proposedanswer, CHKWIDGET = chkwidget, _EXTRA = ex ; 
    8786; 

  • trunk/SRC/ToBeReviewed/WIDGET/xx.pro

    r232 r325  
    3535; 
    3636;- 
    37 ; 
    3837PRO xx,  JOUR = jour, MESHFILENAME = meshfilename,  LISTVAR = listvar, LISTGRID = listgrid, FUNCLEC_NAME = funclec_name, CALENDAR = calendar, _EXTRA = ex 
    3938; 

  • trunk/SRC/ToBeReviewed/WIDGET/xxx.pro

    r262 r325  
    2020; @version 
    2121; $Id$ 
     22; 
    2223;- 
    23 ; 
    2424PRO xxx_event, event 
    2525; 
    … …  
    154154; 
    155155;- 
    156 ; 
    157156PRO xxx, datafilename, idlfile, argspro, CALLERWIDID = callerwidid $ 
    158157         , REDRAW = redraw, SEPARATE = separate, UVALUE = uvalue $ 

  • trunk/SRC/Utilities/createfunc.pro

    r269 r325  
    3838; 
    3939;- 
    40 ; 
    4140FUNCTION createfunc, command, FILENAMEIN = filenamein $ 
    4241               , KWDLIST = kwdlist, _EXTRA = ex 

  • trunk/SRC/Utilities/createpro.pro

    r269 r325  
    4444; 
    4545;- 
    46 ; 
    4746PRO createpro, command, FILENAMEIN = filenamein $ 
    4847               , KWDLIST = kwdlist, KWDUSED = kwdused, _EXTRA = ex 

  • trunk/SRC/Utilities/def_myuniquetmpdir.pro

    r317 r325  
    2222; 
    2323;- 
    24 ; 
    2524PRO def_myuniquetmpdir 
    2625; 

  • trunk/SRC/Utilities/demomode_compatibility.pro

    r274 r325  
    99; @version 
    1010; $Id$ 
     11; 
    1112;- 
    12 ; 
    1313PRO demomode_compatibility 
    1414; 

  • trunk/SRC/Utilities/find.pro

    r285 r325  
    107107; 
    108108;- 
    109 ; 
    110109FUNCTION find, filein, IODIRECTORY = iodirectory, RECURSIVE = recursive $ 
    111110               , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $ 

  • trunk/SRC/Utilities/fitintobox.pro

    r254 r325  
    3939; 
    4040;- 
    41 ; 
    4241FUNCTION err_mess, sz, jpi, nx, jpj, ny, jpk, nz, jpt 
    4342; 
    … …  
    120119; 
    121120;- 
    122 ; 
    123121FUNCTION fitintobox, field, nx, ny, nz, firstx, firsty $ 
    124122                     , firstz, lastx, lasty, lastz, WDEPTH = wdepth 

  • trunk/SRC/Utilities/isadirectory.pro

    r260 r325  
    66; 
    77; @categories 
    8 ; io 
     8; Input/Output  
    99; 
    1010; @param DIRECTORYIN {in}{optional} 
    … …  
    4242; 
    4343;- 
    44 ; 
    4544FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _EXTRA = ex 
    4645; 

  • trunk/SRC/Utilities/isafile.pro

    r260 r325  
    77; 
    88; @categories 
    9 ; io 
     9; Input/Output 
    1010; 
    11 ; @param FILEIN {in}{optional} 
    12 ; a proposed name. If neither filein input parameter of filename keyword are 
     11; @param filein {in}{optional} 
     12; a proposed name. If neither filein input parameter or filename keyword are 
    1313; defined, we ask the user to choose a file. 
    1414; 
    … …  
    6666; 
    6767;- 
    68 ; 
    6968FUNCTION isafile, filein, FILENAME = filename, IODIRECTORY = iodirectory $ 
    7069                  , NEW = new, RECURSIVE = RECURSIVE, ONLYPRO = onlypro $ 

  • trunk/SRC/Utilities/linearequation.pro

    r242 r325  
    4040; 
    4141;- 
    42 ; 
    4342FUNCTION linearequation, point1, point2 
    4443; 

  • trunk/SRC/Utilities/lineintersection.pro

    r242 r325  
    5454; 
    5555;- 
    56 ; 
    5756FUNCTION lineintersection, abc1, abc2, FLOAT = float 
    58 ; 
    5957; 
    6058  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Utilities/mergeonline_help.pro

    r242 r325  
    1717; 
    1818;- 
    19 ; 
    2019PRO mergeonline_help 
    2120; 

  • trunk/SRC/Utilities/protype.pro

    r285 r325  
    3535; 
    3636;- 
    37 ; 
    3837FUNCTION protype, file 
    3938; 

  • trunk/SRC/Utilities/pwd.pro

    r231 r325  
    1414; 
    1515;- 
    16 ; 
    1716PRO pwd 
    1817; 

  • trunk/SRC/Utilities/report.pro

    r316 r325  
    66; To ask a question whose answer is not yes/no, use <pro>xquestion</pro>. 
    77; 
    8 ; @param TEXTIN {in}{required} {type=scalar string or arrays of string} 
    9 ; If TEXTIN is a scalar string, we look for the line feed character "!C". 
    10 ; If TEXTIN is set to an array of strings, each 
     8; @param textin {in}{required} {type=scalar string or arrays of string} 
     9; If textin is a scalar string, we look for the line feed character "!C". 
     10; If textin is set to an array of strings, each 
    1111; array element is displayed as a separate line of text. 
    1212; 
    … …  
    6060; 
    6161;- 
    62 ; 
    63 FUNCTION report, textin, DEFAULT_NO = default_no, PARENT = parent, QUESTION = question, SIMPLE = simple, _EXTRA = ex 
     62FUNCTION report, textin, DEFAULT_NO = default_no, PARENT = parent $ 
     63               , QUESTION = question, SIMPLE = simple, _EXTRA = ex 
    6464; 
    6565  compile_opt idl2, strictarrsubs 

  • trunk/SRC/Utilities/routine_name.pro

    r260 r325  
    4141; 
    4242;- 
    43 ; 
    4443FUNCTION routine_name,  pilingnum 
    4544; 

  • trunk/SRC/Utilities/testvar.pro

    r262 r325  
    2828; 
    2929;- 
    30 ; 
    3130FUNCTION testvar, VAR = var 
    3231; 

  • trunk/SRC/Utilities/text_box.pro

    r262 r325  
    5050; 
    5151;- 
    52 ; 
    5352PRO text_box, text, POS=pos, FG_COLOR=fg_color, BG_COLOR=bg_color,$ 
    5453               CENTER=center, RIGHT=right, BOX=box, VERT_SPACE=vert_space, _EXTRA = ex 

  • trunk/SRC/Utilities/undefine.pro

    r260 r325  
    3333; 
    3434;- 
    35 ; 
    3635PRO undefine, varname 
    3736; 

  • trunk/SRC/Utilities/xfile.pro

    r285 r325  
    3434; 
    3535;- 
    36 ; 
    3736PRO xfile, filename, _EXTRA = ex 
    3837; 

  • trunk/SRC/Utilities/xhelp.pro

    r296 r325  
    77; Utilities Widget 
    88; 
    9 ; @param FILENAME {in}{required} {type=scalar string} 
     9; @param filename {in}{required} {type=scalar string} 
    1010; It is the name of the procedure or of the function 
    1111; we want to display (with or without .pro at the end). 
    … …  
    3737; 
    3838;- 
    39 ; 
    4039PRO xhelp, filename, _EXTRA=ex 
    4140; 

  • trunk/SRC/buildinit.pro

    r237 r325  
    7474; $Id$ 
    7575;- 
    76 ; 
     76FUNCTION cw_field2, parent, COLUMN=column, ROW=row, $ 
    7777; slightly modified version of cw_field... 
    78 ; 
    79 FUNCTION cw_field2, parent, COLUMN=column, ROW=row, $ 
    8078    EVENT_FUNC = efun, $ 
    8179    FLOATING=Float, INTEGER=Int, LONG=Long, STRING=String, $ 
    … …  
    247245END 
    248246; 
    249 ;---------------------------------------------------------- 
    250 ;---------------------------------------------------------- 
    251 ; 
    252247;+ 
    253248; @file_comments 
    … …  
    304299; $Id$ 
    305300;- 
    306 ; 
    307301FUNCTION xask, _EXTRA = ex 
    308302; 
    … …  
    348342; $Id$ 
    349343;- 
    350 ; 
    351344FUNCTION getdir, title = title, nomark = nomark, nowrite = nowrite 
    352345; 
    … …  
    386379; $Id$ 
    387380;- 
    388 ; 
    389381PRO buildinit 
    390382; 
Note: See TracChangeset for help on using the changeset viewer.