Changeset 238 for trunk/SRC/ToBeReviewed


Ignore:
Timestamp:
03/27/07 15:43:18 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

Location:
trunk/SRC/ToBeReviewed
Files:
16 edited

Legend:

Unmodified
Added
Removed

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

    r231 r238  
    3737; Give a depth to this keyword which will be considered as the reference depth 
    3838; (in this case, LEVEL has not any effect). the calculation will be effectuated 
    39 ; until this depth effecting an interpolation between the the last W level above 
     39; until this depth effecting an interpolation between the last W level above 
    4040; PROFREF and PROFREF. 
    4141; 

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

    r232 r238  
    231231; 
    232232    z[coast] =  temporary(zcoast)/ temporary(weight) 
    233 ; we update the the boundary conditions of z 
     233; we update the boundary conditions of z 
    234234    if keyword_set(key_periodic) AND nx EQ jpi then begin 
    235235      z[0, *] = z[nx, *] 

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

    r157 r238  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    6 ; @file_comments  
     3; @file_comments 
    74; Build a gif animation 
    85; 
    9 ; @categories  
     6; @categories 
    107; Animated drawings. 
    118; 
    12 ; @param NOMFIC {in}{required}  
     9; @param NOMFIC {in}{required} 
    1310; It is the name of the gif file containing the animation. 
    1411;          Comment: this file is placed in the directory defined by iodir. 
    1512; 
    16 ; @uses  
     13; @uses 
    1714; common.pro 
    1815; 
    19 ; @restrictions  
     16; @restrictions 
    2017; We use the Z buffer to go faster!. 
    2118;              So, if it failed in animgif, you have to do: 
    … …  
    2421;              IDL> retall 
    2522; 
    26 ; @restrictions  
     23; @restrictions 
    2724; If we want to delete the \@common, 
    28 ;               we have to define manually the picture's size  
     25;               we have to define manually the picture's size 
    2926;               (variables xsize and ysize) just as iodir. 
    3027; 
    31 ; @history  
     28; @history 
    3229; Guillaume Roullet (grlod\@ipsl.jussieu.fr) 
    3330;          Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    3431;          30/4/1999 
    3532; 
    36 ; @version  
     33; @version 
    3734; $Id$ 
    3835; 
    3936;- 
    40 ;------------------------------------------------------------ 
    41 ;------------------------------------------------------------ 
    42 ;------------------------------------------------------------ 
     37; 
    4338PRO animgif, nomfic 
    4439; 
    … …  
    5348;  It completes the current palette on 256 colors. 
    5449; 
    55    red = [rouge, replicate(255, 256-n_elements(rouge))]  
    56    green = [vert, replicate(255, 256-n_elements(rouge))]  
    57    blue = [bleu, replicate(255, 256-n_elements(rouge))]  
     50   red = [rouge, replicate(255, 256-n_elements(rouge))] 
     51   green = [vert, replicate(255, 256-n_elements(rouge))] 
     52   blue = [bleu, replicate(255, 256-n_elements(rouge))] 
    5853; 
    5954; It rocks on the z device, allowing to create the picture without display it. 
    … …  
    6762   device, set_resolution = [xsize, ysize] 
    6863; 
    69 ; Beginning of the gif file. Writing of an empty picture.  
     64; Beginning of the gif file. Writing of an empty picture. 
    7065; 
    7166   reinitplt 
    … …  
    8075; Loop of picture's creation. 
    8176; 
    82    calen = TIMEGEN(366, START=JULDAY(1,1,2000))  
     77   calen = TIMEGEN(366, START=JULDAY(1,1,2000)) 
    8378   debut = where(calen EQ 19810105) 
    8479   debut = where(calen EQ 19790105) 
    … …  
    10398;      plt, nlec('sss', date, 'ATF'), label = 2, /noerase 
    10499;      plt, nlec('htoth', date, 'RE3')-nlec('hpycn', date, 'RE3'), 10, 60, int = 5, /inv, /noerase 
    105 ;      domdef, 290,340,-5,15  
     100;      domdef, 290,340,-5,15 
    106101;      plt, norme(nlec('unsurf', date, 'RE3'), nlec('vnsurf', date, 'RE3')), 0, 1.2, int = .1, /noerase 
    107102; 
    … …  
    109104; 
    110105      write_gif,iodir+nomfic,tvrd(),red, green, blue, /multiple 
    111    ENDFOR  
     106   ENDFOR 
    112107;---------------------------------------------------------------- 
    113108; End of the part we want to change. 
    … …  
    115110; 
    116111; Closing of the file. 
    117    write_gif,iodir+nomfic,/close  
     112   write_gif,iodir+nomfic,/close 
    118113; Rerock on terminal X mode. 
    119114;   device, /close 

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

    r236 r238  
    139139    zvarid = (where(namevar EQ 'nav_lev' or namevar EQ zaxisname OR namevar EQ 'level' OR namevar EQ 'lev' OR strmid(namevar, 0, 5) EQ 'depth'))[0] 
    140140    if zvarid EQ -1 AND inside.ndims GT 3 then begin 
    141       ras = report( 'initncdf: the zaxis was not found..., check the the use of ZAXISNAME keyword if you whant to find one...') 
     141      ras = report( 'initncdf: the zaxis was not found..., check the use of ZAXISNAME keyword if you whant to find one...') 
    142142;     stop 
    143143    endif 

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

    r231 r238  
    6969; 
    7070; @keyword ZETAFILENAME {default=FILENAME}{type=string} 
    71 ; For ROMS outputs. The filename of the file where zeta vriable should be read 
     71; For ROMS outputs. The filename of the file where zeta variable should be read 
    7272; 
    7373; @keyword ZETAZERO {default=0}{type=scalar: 0 or 1} 

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

    r163 r238  
    11;+ 
    2 ; @file_comments  
    3 ; This concatenation function exist in IDL so long  
    4 ; as we do not try to stick with a dimension superior or equal at 4.   
     2; @file_comments 
     3; This concatenation function exist in IDL so long 
     4; as we do not try to stick with a dimension superior or equal at 4. 
    55; 
    6 ; @categories  
     6; @categories 
    77; Utilities 
    88; 
    … …  
    5252; force to save the pointer array and arrays to be stuck 
    5353; 
    54 ; @returns res=matrice resultat 
     54; @returns 
     55; matrice resultat 
    5556; 
    56 ; @examples IDL> print, colle(replicate(1,2,2,2),indgen(2,2,2),2)    
     57; @examples 
     58; IDL> print, colle(replicate(1,2,2,2),indgen(2,2,2),2) 
    5759;                1       1 
    5860;                1       1 
    … …  
    6567;                6       7 
    6668; 
    67 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     69; @history 
     70; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    6871;                       13/1/98 
    6972; 
    70 ; @version $Id$ 
     73; @version 
     74; $Id$ 
    7175; 
    7276;- 
     77; 
    7378FUNCTION colle, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, SAUVE = sauve 
    7479; 
    … …  
    111116            res = [temporary(res), *ptrtab[n]] 
    112117            if NOT keyword_set(sauve) then ptr_free, ptrtab[n] 
    113          ENDFOR  
    114       END  
     118         ENDFOR 
     119      END 
    115120      2:BEGIN                   ; we paste following the dimension 2 
    116121         res = *ptrtab[0] 
    … …  
    119124            res = [[temporary(res)], [*ptrtab[n]]] 
    120125            if NOT keyword_set(sauve) then ptr_free, ptrtab[n] 
    121          ENDFOR  
    122       END  
     126         ENDFOR 
     127      END 
    123128      3:BEGIN                   ; we paste following the dimension 3 
    124129         res = *ptrtab[0] 
    … …  
    127132            res = [[[temporary(res)]], [[*ptrtab[n]]]] 
    128133            if NOT keyword_set(sauve) then ptr_free, ptrtab[n] 
    129          ENDFOR  
     134         ENDFOR 
    130135      END 
    131       ELSE:BEGIN  
     136      ELSE:BEGIN 
    132137; We transpose res in order to put the dimension to be pasted number 1 
    133 ; To this, we contain the permuter vector which give the place that dimension  
     138; To this, we contain the permuter vector which give the place that dimension 
    134139; in the transposed matrix must take. 
    135140        siz = (size(*ptrtab[0]))[0] 
    … …  
    143148         FOR n = 1,nbretab-1 DO BEGIN ; we paste following the dimension 1on colle suivant la dimension 1 
    144149            if (size(*ptrtab[n]))[0] LT direc then $ 
    145              *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:siz], replicate(1, direc-siz)])             
     150             *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:siz], replicate(1, direc-siz)]) 
    146151            res = [temporary(res), transpose(*ptrtab[n], permute)] 
    147152            if NOT keyword_set(sauve) then ptr_free, ptrtab[n] 
    … …  
    149154         res = transpose(temporary(res), permute) 
    150155      END 
    151    ENDCASE  
     156   ENDCASE 
    152157;------------------------------------------------------------ 
    153158   if NOT keyword_set(sauve) then undefine, ptrtab 
    154159sortie: 
    155160   return,  res 
    156  
    157     
    158 END  
    159   
    160 ;------------------------------------------------------------ 
     161END 

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

    r237 r238  
    7979  return, report(['Error in "' + type + '" type plot with a 2D input array:' $ 
    8080                  , 'the array dimensions ' + tostr(sz[1:2]) + ' are incompatible' $ 
    81                   , 'with the the domain dimensions ' $ 
     81                  , 'with the domain dimensions ' $ 
    8282                  , '[jpi/nx, jpj/ny, jpk/nz, jpt] = [' $ 
    8383                  + strtrim(jpi, 1) + '/' + strtrim(nx, 1) $ 
    … …  
    125125  return, report(['Error in "' + type + '" type plot with a 3D input array:' $ 
    126126                  , 'the array dimensions ' + tostr(sz[1:3]) + ' are incompatible' $ 
    127                   , 'with the the domain dimensions ' $ 
     127                  , 'with the domain dimensions ' $ 
    128128                  , '[jpi/nx, jpj/ny, jpk/nz, jpt] = [' $ 
    129129                  + strtrim(jpi, 1) + '/' + strtrim(nx, 1) $ 

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

    r231 r238  
    1515; 
    1616; @param V {in}{required} 
    17 ; The Y component of the two dimensional field.  Y must have 
    18 ; the same dimensions as X.  The vector at point [i,j] has a 
     17; The Y component of the two dimensional field. Y must have 
     18; the same dimensions as X. The vector at point [i,j] has a 
    1919; magnitude of: 
    2020; 
    … …  
    2626; 
    2727; @param X {in}{optional}{type=vector} 
    28 ; Optional abscissa values.  X must be a vector with a length 
     28; Optional abscissa values. X must be a vector with a length 
    2929; equal to the first dimension of U and V. 
    3030; 
    3131; @param Y {in}{optional}{type=vector} 
    32 ; Optional ordinate values.  Y must be a vector with a length 
     32; Optional ordinate values. Y must be a vector with a length 
    3333; equal to the first dimension of U and V. 
    3434; 
    … …  
    3939; Set this keyword to 1 to place a dot at each missing point. 
    4040; Set this keyword to 0 or omit it to draw nothing for missing 
    41 ; points.  Has effect only if MISSING is specified. 
     41; points. Has effect only if MISSING is specified. 
    4242; 
    4343; @keyword LENGTH {default=1.0} 
    44 ; Length factor.  The default of 1.0 makes the longest (U,V) 
     44; Length factor. The default of 1.0 makes the longest (U,V) 
    4545; vector the length of a cell. 
    4646; 
    4747; @keyword MISSING 
    48 ;  Missing data value.  Vectors with a LENGTH greater 
     48;  Missing data value. Vectors with a LENGTH greater 
    4949; than MISSING are ignored. 
    5050; 
    5151; @keyword OVERPLOT 
    52 ; Set this keyword to make VELOVECT "overplot".  That is, the 
     52; Set this keyword to make VELOVECT "overplot". That is, the 
    5353; current graphics screen is not erased, no axes are drawn, and 
    5454; the previously established scaling remains in effect. 
    … …  
    6262; 
    6363; @restrictions 
    64 ; Plotting on the selected device is performed.  System 
     64; Plotting on the selected device is performed. System 
    6565; variables concerning plotting are changed. 
    6666; Note:   All other keywords are passed directly to the PLOT procedure 
    … …  
    7373;       Added TITLE, Oct, 1990. 
    7474;       Added POSITION, NOERASE, COLOR, Feb 91, RES. 
    75 ;       August, 1993.  Vince Patrick, Adv. Visualization Lab, U. of Maryland, 
     75;       August, 1993. Vince Patrick, Adv. Visualization Lab, U. of Maryland, 
    7676;               fixed errors in math. 
    7777;       August, 1993. DMS, Added _EXTRA keyword inheritance. 
    … …  
    8282;                        OPLOT to PLOTS. 
    8383;       September, 1996, GGS. Changed denominator of x_step and y_step vars. 
    84 ;       February, 1998, DLD.  Add support for CLIP and NO_CLIP keywords. 
    85 ;       June, 1998, DLD.  Add support for OVERPLOT keyword. 
     84;       February, 1998, DLD. Add support for CLIP and NO_CLIP keywords. 
     85;       June, 1998, DLD. Add support for OVERPLOT keyword. 
    8686; 
    87 ; Copyright (c) 1983-1998, Research Systems, Inc.  All rights reserved. 
     87; Copyright (c) 1983-1998, Research Systems, Inc. All rights reserved. 
    8888;       Unauthorized reproduction prohibited. 
    8989; 

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

    r232 r238  
    11;+ 
     2; 
    23; @file_comments 
    34; Redirect the content of the graphic window in a postscript,  
    … …  
    9091for i = 2, n_elements(vectjournal)-3 DO $ 
    9192printf,  !journal, vectjournal[i] 
    92  
    93 ;------------------------------------------------------------ 

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

    r232 r238  
    22; 
    33; @file_comments 
    4 ; In a string containing an order to execute with EXECUTE by example.  
     4; In a string containing an order to execute with EXECUTE by example. 
    55; We change the value of one of keywords. 
    66; More generally, in a string, we look for the character chain: ', keywdname= ..., 
    … …  
    1010; String, keywords 
    1111; 
    12 ;  
    1312; @param STRINGIN {in}{required}{type=string} 
    1413; it is a string 
    … …  
    1716; it is a string designating the name of keyword to look for. 
    1817; 
    19 ; @param KEYWDVALUE {in}{required}  
     18; @param KEYWDVALUE {in}{required} 
    2019; The new value of the keyword to considerate in STRINGIN 
    2120; 
    2221; @keyword SEPARATOR 
    23 ; To look for the keyword, we look for the first sign = which follow  
    24 ; the position of keywdname. By default, we substitute the string  
    25 ; before the comma. With the keyword SEPARATOR,we can modify the cut  
    26 ; of the string. SEPARATOR give a Character before the one we have to  
     22; To look for the keyword, we look for the first sign = which follow 
     23; the position of keywdname. By default, we substitute the string 
     24; before the comma. With the keyword SEPARATOR,we can modify the cut 
     25; of the string. SEPARATOR give a Character before the one we have to 
    2726; look for the comma which delimit the keyword in the string. 
    2827; (see examples) 
    2928; 
    3029; @keyword AFTER 
    31 ; To look for the keyword, we look for the first sign = which follow  
    32 ; the position of keywdname. By default, we substitute the string  
    33 ; before the comma. With the keyword AFTER,we can modify the cut  
    34 ; of the string. AFTER give a Character after the one we have to  
     30; To look for the keyword, we look for the first sign = which follow 
     31; the position of keywdname. By default, we substitute the string 
     32; before the comma. With the keyword AFTER,we can modify the cut 
     33; of the string. AFTER give a Character after the one we have to 
    3534; look for the comma which delimit the keyword in the string. 
    3635; (see examples) 
    3736; 
    38 ; @returns  
     37; @returns 
    3938; stringout=stringin modified if keywdname has been found in stringin 
    4039; 
    41 ; @uses  
     40; @uses 
    4241; common.pro 
    4342; 
    … …  
    4645; 
    4746; @restrictions 
    48 ; Beware, this function has loops, ifs ad cases everywhere. So it can  
    49 ; not be used by big keywords (with a lot of elements which are big  
    50 ; arrays). The input keyword must not contain Complex floatings, structure,  
    51 ; Double-precision complex, Pointer, Object reference, Unsigned Integer,  
     47; Beware, this function has loops, ifs ad cases everywhere. So it can 
     48; not be used by big keywords (with a lot of elements which are big 
     49; arrays). The input keyword must not contain Complex floatings, structure, 
     50; Double-precision complex, Pointer, Object reference, Unsigned Integer, 
    5251; Unsigned Longword Integer, 64-bit Integer or Unsigned 64-bit Integer. 
    53 ;  
     52; 
    5453; 
    5554; @examples 
    … …  
    7271;                      18/10/1999 
    7372;                      24/11/1999: adaptation for keywords starting by / 
    74 ;  
     73; 
    7574; @version 
    7675; $Id$ 
    … …  
    9392         poskeywd = poskeywd+strlen(ajoute) 
    9493         poskeywd = strpos(stringout, keywdname, poskeywd) 
    95       ENDIF ELSE BEGIN  
     94      ENDIF ELSE BEGIN 
    9695; change a keyword sarting by toto= 
    9796         posegal = strpos(stringout, '=', poskeywd) 
    … …  
    107106; 
    108107         poskeywd = strpos(stringout, keywdname, posvirgule+1) 
    109       ENDELSE  
     108      ENDELSE 
    110109   endwhile 
    111110 

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

    r232 r238  
    1313; the character to look for 
    1414; 
    15 ; @returns COUNT {out}{optional} 
    16 ; The number of matches that were found  
     15; @returns 
     16; The number of matches that were found 
    1717; 
    18 ;  The function returns an index array similar to the  
     18;  The function returns an index array similar to the 
    1919;  result of the where function 
    2020; 
    2121; @examples 
    22 ;       ind = strwhere('abcabcabc','a') 
    23 ; 
    24 ;        ; returns [ 0, 3, 6 ] 
     22; IDL> ind = strwhere('abcabcabc','a') 
     23; IDL> print, ind 
     24; [ 0, 3, 6 ] 
    2525; 
    2626; @history 
    2727;        mgs, 02 Jun 1998: VERSION 1.00 
    28 ;        bmy, 30 Jun 1998: - now returns COUNT, the number  
     28;        bmy, 30 Jun 1998: - now returns COUNT, the number 
    2929;                            of matches that are found (this is 
    3030;                            analogous to the WHERE command) 
    … …  
    4444; with subject "IDL routine strwhere" 
    4545; 
    46 function strwhere,str,schar,Count 
     46FUNCTION strwhere,str,schar,Count 
    4747; 
    4848  compile_opt idl2, strictarrsubs 
    4949; 
    50   
    51   
    5250   if (n_elements(str) eq 0) then return,-1 
    53   
     51 
    5452   ; convert to byte 
    5553   BStr = byte(Str) 
    5654   BSC  = (byte(schar))[0] 
    57   
     55 
    5856   ; Search for matches 
    5957   Ind = where( Bstr eq BSC, Count ) 
    … …  
    6361 
    6462end 
    65     

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

    r237 r238  
    11;+ 
    22; 
    3 ; @file_comments  
     3; @file_comments 
    44;       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  
     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 
    77;         mistake, I execute this program and i can redo the only plot missed. 
    88; 
    9 ; @categories  
     9; @categories 
    1010; utilities 
    1111; 
    12 ; @restrictions  
    13 ; compatible with \@<pro>ps</pro>  
     12; @restrictions 
     13; compatible with \@<pro>ps</pro> 
    1414; \@<pro>vzoom</pro> text_box... 
    1515; 
    16 ; @history  
     16; @history 
    1717; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    1818; 
    19 ; @version  
     19; @version 
    2020; $Id$ 
    2121; 
    22 ; @todo  
     22; @todo 
    2323; seb 
    2424; 
    … …  
    6464 IF strpos(vectjournal[n_elements(vectjournal)-1],';,pos=[' ) NE -1 then $ 
    6565 vectjournal[n_elements(vectjournal)-2] = '' $ 
    66  ELSE vectjournal[n_elements(vectjournal)-1] = ''  
     66 ELSE vectjournal[n_elements(vectjournal)-1] = '' 
    6767; we rewrite idlsave.pro 
    6868 putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
    … …  
    7070 path_cache, /rebuild 
    7171; apply idlsave 
    72 @idlsave    
    73 ; the journal has just been reopened, and we put elements of vectjournal in it.  
     72@idlsave 
     73; the journal has just been reopened, and we put elements of vectjournal in it. 
    7474for i = 0, n_elements(vectjournal)-1 DO $ 
    7575journal, vectjournal[i] 
    76        
    7776 
    7877 
     78 

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

    r232 r238  
    11;+ 
    22; 
    3 ; @file_comments  
    4 ; Make a real zoom in a plot, contrarly at the function  
     3; @file_comments 
     4; Make a real zoom in a plot, contrarly at the function 
    55; ZOOM prewritten by IDL which just get pixels bigger. 
    66; 
    7 ; @categories  
     7; @categories 
    88; utilities 
    99; 
    10 ; @restrictions  
     10; @restrictions 
    1111; use the journal. 
    12 ;  
     12; 
    1313; @history 
    1414; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    1515;          29/4/1999 
    1616; 
    17 ; @version  
    18 ; $Id$  
     17; @version 
     18; $Id$ 
    1919; 
    2020; @todo 
    … …  
    6969   path_cache, /rebuild 
    7070; apply idlsave 
    71 @idlsave    
    72 ; the journal has just been reopened, and we put in elements of vectjournal.  
     71@idlsave 
     72; the journal has just been reopened, and we put in elements of vectjournal. 
    7373for i = 0, n_elements(vectjournal)-1 DO $ 
    7474journal, vectjournal[i] 
    75  
    76  
    77  

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

    r232 r238  
    224224; 
    225225; now we try to find the attribut called calendar... 
    226 ; the the attribute "calendar" exists? 
     226; the attribute "calendar" exists? 
    227227; If no, we suppose that the calendar is gregorian calendar 
    228228; 

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

    r232 r238  
    22; 
    33; @file_comments 
    4 ; 
    54; 
    65; @categories 

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

    r231 r238  
    2424;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    2525;   6 elements: The extraction is made on Boxzoom 
    26 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
     26; where lon1,lon2,lat1,lat2 are global variables defined at the last domdef! 
    2727; 
    2828; @keyword _EXTRA 
    … …  
    4848; 
    4949FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 
    50 ;--------------------------------------------------------- 
    5150; 
    5251  compile_opt idl2, strictarrsubs 
Note: See TracChangeset for help on using the changeset viewer.