Index: trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Rather comparable to <pro>depth2level</pro> but here, the calculated level 
+; Rather comparable to <pro>depth2level</pro> but here, the calculated level
 ; is in float.
 ; For example, the level 5.4 correspond to a depth equal
Index: trunk/SRC/ToBeReviewed/CALCULS/determ3.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/determ3.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/determ3.pro	(revision 495)
@@ -48,5 +48,5 @@
 ;
 ; @examples
-; 
+;
 ;   IDL> a=findgen(3,3,5)
 ;   IDL> print, determ3(a^2)
Index: trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro	(revision 495)
@@ -12,5 +12,4 @@
 ;               annex 6 freezing point of seawater F.J.Millero pp.29-35
 ;	checkvalue: fsfzpt=-2.588567 deg.c,for s=40.0,p=500 decibars
-;
 ;
 ; @categories
@@ -45,5 +44,4 @@
 ;   * add example
 ;
-;
 ; @version
 ; $Id$
Index: trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro	(revision 495)
@@ -40,6 +40,6 @@
 ;
 ; @keyword NODOMDEF
-; We activate it if we do not want to pass in <pro>domdef</pro> even if the 
-; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via 
+; We activate it if we do not want to pass in <pro>domdef</pro> even if the
+; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via
 ; <pro>checkfield</pro>)
 ;
@@ -148,5 +148,5 @@
   endcase
 ;------------------------------------------------------------
-;   I.3) Obtainment of scale's factors and of the mask on the subdomain 
+;   I.3) Obtainment of scale's factors and of the mask on the subdomain
 ;        concerned by the average.
 ; Redefinition of the domain adjusted at boxzoom (at 6 elements)
@@ -176,5 +176,5 @@
     IF taille[1] eq jpi and taille[2] eq jpj THEN $
        mmm = mask2D[firstx:lastx, firsty:lasty] ELSE mmm = mask2D
-    mask = mask * ( mmm[*] # replicate(1., nz) ) 
+    mask = mask * ( mmm[*] # replicate(1., nz) )
   ENDIF
 ;---------------------------------------------------------------
@@ -359,12 +359,12 @@
 ; III.1) Verification of the coherence of the array to average size
 ; Verification of the coherence between the array's size and the domain
-; defind by domdef
+; defined by domdef
 ; The input array must have either the total domain size (jpi,jpj,jpk,jpt)
 ; or this one of the reduced domain (nx,ny,ny,jpt)
 ;---------------------------------------------------------------
     case 1 of
-      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk and taille[4] eq jpt: $ 
+      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk and taille[4] eq jpt: $
         res = tab[firstx:lastx, firsty:lasty, firstz:lastz, *]
-      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz and taille[4] eq jpt: $ 
+      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz and taille[4] eq jpt: $
         res = tab[firstx:lastx, firsty:lasty, *, *]
       taille[1] EQ  nx and taille[2] eq  ny and taille[3] eq nz and taille[4] eq jpt:res = tab
Index: trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro	(revision 495)
@@ -19,5 +19,5 @@
 ; We activate this key if we want to calculate the dynamic height
 ; like in the GILL page 215, which means by rapport to a reference state which
-; vary in depth and which is determined by a reference temperature tref at 0°C
+; vary in depth and which is determined by a reference temperature tref at 0Â°C
 ; and a reference salinity sref at 35 psu.
 ;
@@ -51,6 +51,7 @@
 ;
 ; @restrictions
-; Points for which we can not calculate the dynamic height (whose the batymetry
-; is less deep than the reference depth) are put at the value !values.f_nan
+; Points for which we can not calculate the dynamic height (whose the
+; bathymetry is less deep than the reference depth) are put at the
+; value !values.f_nan
 ;
 ; @restrictions
Index: trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Allows to pass from a 2d level array to a 2d depth array corresponding to 
+; Allows to pass from a 2d level array to a 2d depth array corresponding to
 ; these levels
 ;
@@ -9,5 +9,5 @@
 ;
 ; @param TAB {in}{required}{type=2d array}
-; 2d level array of sill levels (or a structure respecting <pro>litchamp</pro> 
+; 2d level array of sill levels (or a structure respecting <pro>litchamp</pro>
 ; criterions)
 ;
@@ -42,5 +42,5 @@
    grille,mask, -1, -1,gdep,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz
 ;---------------------------------------------------------------
-; verification of the coherence between array's size and the domain defined 
+; verification of the coherence between array's size and the domain defined
 ; by domdef
 ;---------------------------------------------------------------
Index: trunk/SRC/ToBeReviewed/CALCULS/level2index.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/level2index.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/level2index.pro	(revision 495)
@@ -4,5 +4,5 @@
 ; We want, from a 3d matrix, to extract a 2d (x,y) array whose each element
 ; has been extract from a level specified by the 2d level array (typically,
-; we want to obtain the salinity along an isopycn we have repered by its level).
+; we want to obtain the salinity along an isopycn we have identify by its level).
 ; level2index is a function which give, in function of level, a 2d indexes array
 ; which will allow to extract the 2d array from the 3d array...
@@ -39,5 +39,4 @@
    tabknxny = (nx*ny)*long(level)
 ;
-;
    return, lindgen(nx, ny)+tabknxny
 end
Index: trunk/SRC/ToBeReviewed/CALCULS/level2mask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/level2mask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/level2mask.pro	(revision 495)
@@ -9,5 +9,5 @@
 ;
 ; @param TAB {in}{required}{type=2d array}
-; 2d level array of sill level (or a structure respecting <pro>litchamp</pro> 
+; 2d level array of sill level (or a structure respecting <pro>litchamp</pro>
 ; criterions)
 ;
@@ -41,5 +41,5 @@
    grille,maskterre, -1, -1, -1,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz
 ;---------------------------------------------------------------
-; verification of the coherence between the array's size and the defined by 
+; verification of the coherence between the array's size and the defined by
 ; domdef domain
 ;---------------------------------------------------------------
Index: trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro	(revision 495)
@@ -38,6 +38,6 @@
 ;
 ; @keyword NODOMDEF
-; We activate it if we do not want to pass in <pro>domdef</pro> even if the 
-; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called 
+; We activate it if we do not want to pass in <pro>domdef</pro> even if the
+; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called
 ; via <pro>checkfield</pro>)
 ;
@@ -50,5 +50,5 @@
 ;
 ; @keyword SSH
-; array giving the sea level elenation (in meter) that must be added
+; array giving the sea level elevation (in meter) that must be added
 ; to the thickness of the first level when computing vertical mean
 ;
@@ -68,7 +68,7 @@
 ;
 ; @history
-;  Jerome Vialard (jv\@lodyc.jussieu.fr)
+;  JÃ©rÃŽme Vialard (jv\@lodyc.jussieu.fr)
 ;			2/7/98
-;                       Sebastien Masson (smasson\@lodyc.jussieu.fr)
+;                       SÃ©bastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       14/8/98
 ;                       15/1/98
@@ -126,6 +126,7 @@
   endcase
 ;------------------------------------------------------------
-;   I.3) Obtainment of scale's factors and of the mask on the subdomain concernedby the average.
-; Redefinition of the domain ajusted at boxzoom (at 6 elements)
+;   I.3) Obtainment of scale's factors and of the mask on the subdomain
+;        concerned by the average.
+; Redefinition of the domain adjusted at boxzoom (at 6 elements)
 ; This will allowed us to calculate only in the domain concerned by the average.
 ; Domdef, followed by grid give us all arrays of the grid on the subdomain
@@ -154,5 +155,5 @@
     IF taille[1] eq jpi and taille[2] eq jpj THEN $
        mmm = mask2D[firstx:lastx, firsty:lasty] ELSE mmm = mask2D
-    mask = mask * ( mmm[*] # replicate(1., nz) ) 
+    mask = mask * ( mmm[*] # replicate(1., nz) )
   ENDIF
 ;---------------------------------------------------------------
@@ -337,5 +338,5 @@
 ; III.1) Verification of the coherence of the array to average size
 ; Verification of the coherence between the array's size and the domain
-; defind by domdef
+; defined by domdef
 ; The input array must have either the total domain size (jpi,jpj,jpk)
 ; or this one of the reduced domain (nx,ny,ny)
@@ -344,5 +345,5 @@
       taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk: $
         res = tab[firstx:lastx, firsty:lasty, firstz:lastz]
-      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz: $ 
+      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz: $
         res = tab[firstx:lastx, firsty:lasty, *]
       taille[1] EQ  nx and taille[2] eq  ny and taille[3] eq nz :res = tab
@@ -571,5 +572,5 @@
   ENDIF
 ;------------------------------------------------------------
-; IV.3) We replace in the domain whch was defined at the entry of average
+; IV.3) We replace in the domain which was defined at the entry of average
 ;------------------------------------------------------------
   if keyword_set(savedbox) THEN restoreboxparam, 'boxparam4moyenne.dat'
Index: trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro	(revision 495)
@@ -33,5 +33,5 @@
 ;   ->null field at 1e-6 pres
 ;
-;  verification projecting the temperature of 20°C for example...
+;  verification projecting the temperature of 20Â°C for example...
 ;
 ; @history
Index: trunk/SRC/ToBeReviewed/CALCULS/remplit.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/remplit.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/remplit.pro	(revision 495)
@@ -43,10 +43,8 @@
 ;; C'est pas clair, essayez !
 ;;
-;;
 ;
 ;    /Nan: to fill the point which have the value
 ;    !values.f_nan. Without this keyword, these point are not filling
 ;    and stays at !values.f_nan.
-;
 ;
 ; @todo seb
@@ -91,5 +89,5 @@
 ;---------------------------------------------------------------
 ; on ajoute un cadre de zero a z, mask, e1, e2
-; comme ca apres on peut faire des shifts ds tous les sens sans se
+; comme ca aprÃšs on peut faire des shifts ds tous les sens sans se
 ; soucier des bords du domaine!
 ;---------------------------------------------------------------
Index: trunk/SRC/ToBeReviewed/CALCULS/rhon.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALCULS/rhon.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALCULS/rhon.pro	(revision 495)
@@ -42,5 +42,4 @@
       tn = -1e5 > double(tn) < 1e5
 
-
       IF keyword_set(sigma_n) then insitu = 1
 
@@ -68,6 +67,4 @@
       END
    endcase
-
-
 
    FOR jk = 0, jkmax-1 DO BEGIN
@@ -169,5 +166,4 @@
    if keyword_set(key_performance) THEN print, 'temps rhon', systime(1)-tempsun
 
-
    return, zrhop
 END
Index: trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro
===================================================================
--- trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro	(revision 495)
@@ -3,28 +3,19 @@
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @param TIMAVE
 ;
-;
 ; @param DATE
-;
 ;
 ; @returns
 ;
-;
 ; @uses
-;
 ;
 ; @restrictions
 ;
-;
 ; @examples
 ;
-;
 ; @history
-;
 ;
 ; @version
@@ -37,11 +28,10 @@
 ; translate month number in string
 ;
-;
   compile_opt idl2, strictarrsubs
 ;
    IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
-   CASE strmid(timave, 0, 2) OF 
+   CASE strmid(timave, 0, 2) OF
       '1m': BEGIN
-         CASE strmid(date, strlen(date)-2, 2) OF 
+         CASE strmid(date, strlen(date)-2, 2) OF
             '01': mn = 'January'
             '02': mn = 'February'
@@ -57,8 +47,8 @@
             '12': mn = 'December'
             ELSE: mn = '???'
-         ENDCASE 
-      END 
+         ENDCASE
+      END
       '3m': BEGIN
-         CASE strmid(date, strlen(date)-2, 2) OF 
+         CASE strmid(date, strlen(date)-2, 2) OF
             '01': mn = 'DJF'
             '02': mn = 'MMA'
@@ -66,9 +56,9 @@
             '04': mn = 'SON'
             ELSE: mn = '???'
-         ENDCASE 
-      END 
+         ENDCASE
+      END
       ELSE:
-   ENDCASE  
+   ENDCASE
 
    return, mn
-END 
+END
Index: trunk/SRC/ToBeReviewed/COULEURS/palit.pro
===================================================================
--- trunk/SRC/ToBeReviewed/COULEURS/palit.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/COULEURS/palit.pro	(revision 495)
@@ -1,9 +1,9 @@
 ;+
-; @file_comments 
+; @file_comments
 ; Clarify the current palette playing with brightness
 ;
 ; @param COEF {in}{required} The rule of attenuation of colors divide by 2 the brightness by default
 ;
-; @param RED 
+; @param RED
 ;
 ; @param GREEN
@@ -11,5 +11,5 @@
 ; @param BLUE
 ;
-; @todo Seb: compléter param red/green/blue
+; @todo Seb: complÃ©ter param red/green/blue
 ;-
 PRO palit, coef, red, green, blue
Index: trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro	(revision 495)
@@ -30,5 +30,4 @@
 @cm_4mesh
 ;
-;
    if cmpgrid(newgrid) EQ 0 then return, 0
 ;
Index: trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro	(revision 495)
@@ -29,5 +29,4 @@
 ;
 @common
-;
 ;
 ; newgrid must be a structure
Index: trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro	(revision 495)
@@ -2,10 +2,10 @@
 ;
 ; @file_comments
-; Similar to <pro>grille</pro>. 
+; Similar to <pro>grille</pro>.
 ; Here, when vargrid is not 'T' or 'W', we have to
 ; recuperate tmask, glamt, gphit and the array of triangulation on the
-; considered sub-domain for the drawing. 
-; The specificity of decoupeterre, in comparaison with <pro>grille</pro>, is 
-; that we take, if possible, a sub-domain just a little bit bigger than the 
+; considered sub-domain for the drawing.
+; The specificity of decoupeterre, in comparaison with <pro>grille</pro>, is
+; that we take, if possible, a sub-domain just a little bit bigger than the
 ; one defined by <pro>domdef</pro> in order to be
 ; sure that the mask we draw will cover over all the drawing.
@@ -217,5 +217,5 @@
       mask[*, 0] = 0b
     ENDIF
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
   case type of
     'xy':BEGIN
Index: trunk/SRC/ToBeReviewed/GRILLE/domdef.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/domdef.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/domdef.pro	(revision 495)
@@ -58,5 +58,5 @@
 ; than to values of these arrays.
 ;
-; @keyword TYPE 
+; @keyword TYPE
 ;
 ; @keyword XINDEX
Index: trunk/SRC/ToBeReviewed/GRILLE/fmask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/fmask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/fmask.pro	(revision 495)
@@ -5,5 +5,5 @@
 ;
 ; @categories
-; Grid 
+; Grid
 ;
 ; @returns
Index: trunk/SRC/ToBeReviewed/GRILLE/grille.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/grille.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/grille.pro	(revision 495)
@@ -5,5 +5,5 @@
 ; vargrid and send back corresponding parameters calculated in
 ; <pro>domdef</pro> and reduced at the domain defined by
-; <pro>domdef</pro> (contrarily to 
+; <pro>domdef</pro> (contrarily to
 ; <pro>grandegrille</pro>)
 ;
@@ -21,8 +21,8 @@
 ; This keyword is used in <pro>plt</pro>.
 ;
-; @keyword GRID {default=vargrid defined in <pro>cm_4data</pro>} 
+; @keyword GRID {default=vargrid defined in <pro>cm_4data</pro>}
 ; To specify on which grid are located the data
 ;
-; @keyword WDEPTH {default=0} 
+; @keyword WDEPTH {default=0}
 ; To specify that the field is at W depth instead of T
 ; depth (automatically activated if vargrid eq 'W')
@@ -349,5 +349,4 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-;
 ;
   tempdeux = systime(1)         ; For key_performance =2
Index: trunk/SRC/ToBeReviewed/GRILLE/t2v.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/t2v.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/t2v.pro	(revision 495)
@@ -2,8 +2,8 @@
 ;
 ; @file_comments
-; Allows to pass a field referring to the grid T on the grid V, 
+; Allows to pass a field referring to the grid T on the grid V,
 ; thanks to the average res = 0.5*(res + shift(res, 0, -1))
-; 
-; @categories 
+;
+; @categories
 ; Grid
 ;
@@ -17,10 +17,10 @@
 ; <pro>common</pro>
 ;
-; @restrictions 
-; Force parameters of the zoom on the grid V to be the same as 
+; @restrictions
+; Force parameters of the zoom on the grid V to be the same as
 ; those on the grid T.
 ;
-; @restrictions 
-; Points which can not be calculated are put at the value NaN 
+; @restrictions
+; Points which can not be calculated are put at the value NaN
 ; consecrated by IDL: !values.f_nan
 ;
@@ -61,7 +61,7 @@
 ; case on tha array's size and application
    taille = size(temp)
-   CASE taille[0] OF 
+   CASE taille[0] OF
       1: res = -1
-      2: BEGIN 
+      2: BEGIN
          case 1 of
             taille[1] eq nxt and taille[2] eq nyt:
@@ -72,13 +72,13 @@
          endcase
          mask = tmask[firstxt:lastxt, firstyt:lastyt, 0]
-         terre = where(mask EQ 0) 
+         terre = where(mask EQ 0)
          IF terre[0] NE -1 THEN res[terre] = !values.f_nan
          res = 0.5*(res + shift(res, 0, -1))
          res[*, nyt-1] = !values.f_nan
          mask = (vmask())[firstxt:lastxt, firstyt:lastyt, 0]
-         terre = where(mask EQ 0) 
+         terre = where(mask EQ 0)
          IF terre[0] NE -1 THEN res[terre] = valmask
       END
-      3: BEGIN 
+      3: BEGIN
          case 1 of
             taille[1] eq nxt and taille[2] eq nyt AND taille[3] EQ nzt:
@@ -98,5 +98,5 @@
             mask = reform(mask, nxt, nyt, jpt, /over)
          ENDIF ELSE mask = tmask[firstxt:lastxt, firstyt:lastyt, firstzt:lastzt]
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan
          res = 0.5*(res + shift(res, 0, -1, 0))
@@ -107,8 +107,8 @@
             mask = reform(mask, nxt, nyt, jpt, /over)
          ENDIF ELSE mask = (vmask())[firstxt:lastxt, firstyt:lastyt, firstzt:lastzt]
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = valmask
       END
-      4: BEGIN 
+      4: BEGIN
          case 1 of
             taille[1] eq nxt and taille[2] eq nyt AND taille[3] EQ nzt AND taille[4] EQ jpt:
@@ -123,5 +123,5 @@
          mask = temporary(mask[*])#replicate(1, jpt)
          mask = reform(mask, nxt, nyt, nzt, jpt, /over)
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan
          res = 0.5*(res + shift(res, 0, -1, 0, 0))
@@ -130,5 +130,5 @@
          mask = temporary(mask[*])#replicate(1, jpt)
          mask = reform(mask, nxt, nyt, nzt, jpt, /over)
-         terre = where(temporary(mask) EQ 0) 
+         terre = where(temporary(mask) EQ 0)
          IF terre[0] NE -1 THEN res[temporary(terre)] = valmask
       END
@@ -137,5 +137,5 @@
   IF NOT keyword_set(key_forgetold) THEN BEGIN
    @updateold
-  ENDIF 
+  ENDIF
 
    return, res
Index: trunk/SRC/ToBeReviewed/GRILLE/umask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/umask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/umask.pro	(revision 495)
@@ -5,5 +5,5 @@
 ;
 ; @categories
-; Grid 
+; Grid
 ;
 ; @returns
Index: trunk/SRC/ToBeReviewed/GRILLE/vmask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/GRILLE/vmask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/GRILLE/vmask.pro	(revision 495)
@@ -5,5 +5,5 @@
 ;
 ; @categories
-; Grid 
+; Grid
 ;
 ; @returns
Index: trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro	(revision 495)
@@ -238,4 +238,2 @@
    return
 end
-
-
Index: trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro	(revision 495)
@@ -60,5 +60,5 @@
 ; $Id$
 ;
-; @todo 
+; @todo
 ; seb
 ;
Index: trunk/SRC/ToBeReviewed/HOPE/findlineandpointtype.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/findlineandpointtype.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/HOPE/findlineandpointtype.pro	(revision 495)
@@ -68,5 +68,4 @@
 ;    even        T          u          T          u             90.0
 ;
-;
 ; high resolution grid: jpi=256, jpj=195 ( x 2), jpk=29
 ;
@@ -76,5 +75,4 @@
 ;    odd                    T          u          T          u  90.5
 ;    even        T          u          T          u             90.0
-;
 ;
    x0 = floor(xaxis[0]*10)/10.
Index: trunk/SRC/ToBeReviewed/HOPE/read_hope.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/read_hope.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/HOPE/read_hope.pro	(revision 495)
@@ -282,5 +282,4 @@
 ;     For an YZ section the chosen variable is the one which has
 ; the most points in the longitude domain specified by XLIMITS.
-;
 ;
 ; @examples
@@ -583,5 +582,4 @@
   *top_uvalue[0, 17] = 'tlimits' & *top_uvalue[1, 17] = testvar(var = tlimits)
 
-
   widget_control, base, set_uvalue = top_uvalue
   rh_alldomains, base, selected
Index: trunk/SRC/ToBeReviewed/HOPE/sortdim.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/sortdim.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/HOPE/sortdim.pro	(revision 495)
@@ -39,7 +39,4 @@
 ;              0           1           3           2
 ;
-;
-;
-;
   compile_opt idl2, strictarrsubs
 ;
Index: trunk/SRC/ToBeReviewed/IMAGE/animgif.pro
===================================================================
--- trunk/SRC/ToBeReviewed/IMAGE/animgif.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/IMAGE/animgif.pro	(revision 495)
@@ -66,5 +66,4 @@
    write_gif,iodir+nomfic,tvrd(),red, green, blue, /multiple
 ;
-;
 ;----------------------------------------------------------------
 ; Beginning of the part we want to change.
@@ -117,5 +116,4 @@
    ENDCASE
 
-
    return
 end
Index: trunk/SRC/ToBeReviewed/INIT/initncdf.pro
===================================================================
--- trunk/SRC/ToBeReviewed/INIT/initncdf.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/INIT/initncdf.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Initfile for Netcdf file. define all the grid parameters through
+; Initfile for netCDF file. define all the grid parameters through
 ; an appropriate call to <pro>computegrid</pro>
 ;
@@ -9,5 +9,5 @@
 ;
 ; @param ncfilein {in}{required}{type=scalar string}
-; A string giving the name of the NetCdf file
+; A string giving the name of the netCDF file
 ;
 ; @keyword START1 {default=0}{type=scalar: 0 or 1}
@@ -49,5 +49,5 @@
 ;
 ; @keyword _EXTRA
-; Used to pass keywords to <pro>computegrid</pro>, 
+; Used to pass keywords to <pro>computegrid</pro>,
 ; <pro>ncdf_getaxis</pro>, <pro>ncdf_getmask</pro> and <pro>isafile</pro>
 ;
Index: trunk/SRC/ToBeReviewed/INIT/initncdfxxx.pro
===================================================================
--- trunk/SRC/ToBeReviewed/INIT/initncdfxxx.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/INIT/initncdfxxx.pro	(revision 495)
@@ -10,5 +10,4 @@
 ;    initncdf, 'sst.wkmean.1990-present.nc', mask = 'mask'
 ;
-;
   iodir = '/d1fes2-raid6/smasson/'
    initncdf, 'outatm.nc'
Index: trunk/SRC/ToBeReviewed/INIT/initorca05.pro
===================================================================
--- trunk/SRC/ToBeReviewed/INIT/initorca05.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/INIT/initorca05.pro	(revision 495)
@@ -1,7 +1,7 @@
 ;+
 ;
-; @todo 
+; @todo
 ; seb
-; 
+;
 ;-
 @cm_4mesh
Index: trunk/SRC/ToBeReviewed/INIT/initorca2full.pro
===================================================================
--- trunk/SRC/ToBeReviewed/INIT/initorca2full.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/INIT/initorca2full.pro	(revision 495)
@@ -1,5 +1,5 @@
 ;+
 ;
-; @todo 
+; @todo
 ; seb
 ;
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/TABLES/usertables.txt
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/TABLES/usertables.txt	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/TABLES/usertables.txt	(revision 495)
@@ -23,5 +23,4 @@
 [This is the preferred search order for foreign-language parameter tables.]
 
-
 The name of the user-defined table is searched for in 
 
@@ -37,6 +36,4 @@
       setenv GRIBTAB ~/data/gribtab                   (csh)
       GRIBTAB=$HOME/data/gribtab ; export GRIBTAB     (sh)
-
-
 
 The format of the GRIBTAB file is
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro	(revision 495)
@@ -2,28 +2,19 @@
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @param BITIN
 ;
-;
 ; @keyword CHECKNEG
-;
 ;
 ; @returns
 ;
-;
 ; @uses
-;
 ;
 ; @restrictions
 ;
-;
 ; @examples
 ;
-;
 ; @history
-;
 ;
 ; @version
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro	(revision 495)
@@ -50,5 +50,4 @@
 ;    FOR i = 1L, n_elements(recstart)-1 DO $
 ;      addoff[i] = recstart[i]-recstart[i-1]-messize[i-1]
-;
 ;
 ;    nbits = scan_grib_nbits(num, recstart)
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro	(revision 495)
@@ -1,32 +1,22 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
 ;
-;
-; @param NI 
-; 
+; @param NI
 ;
 ; @param NJ
-; 
-; 
+;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -34,5 +24,4 @@
 ;-
 FUNCTION read_grib_bds, num, recstart, ni, nj
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -63,11 +52,11 @@
 ;
   sizebds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])])
-                                ; 
+                                ;
   flags = binary(a[4])
 ; BIT VALUE MEANING
 ; 1   0     Grid point data
 ;     1     Spherical Harmonic Coefficients
-; 2   0     Simple packing 
-;     1     Second order ("Complex") Packing 
+; 2   0     Simple packing
+;     1     Second order ("Complex") Packing
 ; 3   0     Original data were floating point values
 ;     1     Original data were integer values
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro	(revision 495)
@@ -1,29 +1,22 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param OFFSET
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
 ; $Id$
+;
 ;-
 PRO read_grib_end,  num, offset
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
 ;
-; 
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -28,5 +20,4 @@
 ;-
 FUNCTION read_grib_gds, num, recstart
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -40,5 +31,5 @@
 ;
   sizegds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])])
-; 
+;
   nv = (a[4])[0]
   pv = (a[5])[0]
@@ -83,5 +74,5 @@
     gridtype EQ 2:
 ; Lambert Conformal, secant or tangent, conical or bipolar (normal or
-; oblique) Projection Grid  
+; oblique) Projection Grid
     gridtype EQ 3:
 ; Polar Stereographic Projection Grid
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro	(revision 495)
@@ -1,26 +1,12 @@
-;+
-; @file_comments 
-; 
-; 
-; @categories
-; 
-; 
-; @param NUM 
-;
 ;
 ; @param OFFSET
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -37,9 +23,9 @@
   typefile = string(a[0])
   IF  typefile NE 'GRIB' THEN stop
-  
+
 ;
   a = assoc(num, bytarr(1, /nozero), offset+4)
   sizerecord = bit2int([binary(a[0]), binary(a[1]), binary(a[2])])
-;  
+;
   a = assoc(num, bytarr(1, /nozero), offset+7)
   gribed = a[0]
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -28,5 +20,4 @@
 ;-
 FUNCTION read_grib_pds, num, recstart
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -36,11 +27,11 @@
 ;
   sizepds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])])
- ; 
+ ;
   paramtableversion = (a[4])[0]
- ; 
+ ;
   centerid = (a[5])[0]
- ; 
+ ;
   procid = (a[6])[0]
- ; 
+ ;
   gridid = (a[7])[0]
 ;
@@ -51,5 +42,5 @@
   paramunitid = (a[9])[0]
 ;
-  levtype = (a[10])[0]  
+  levtype = (a[10])[0]
   levalue1 = (a[11])[0]
   levalue2 = (a[12])[0]
@@ -74,5 +65,4 @@
 ;.........
 
-
   RETURN, {size:sizepds, gdsnotomitted:gdsnotomitted, bmsnotomitted:bmsnotomitted, d:d}
 END
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro	(revision 495)
@@ -6,5 +6,4 @@
 ; @categories
 ;
-;
 ; @param TABLENAME {in}{required}
 ; The full path name of a gribtable file
@@ -12,22 +11,15 @@
 ; @keyword PARMTABL
 ;
-;
 ; @keyword CENTER
-;
 ;
 ; @keyword SUBCENTER
 ;
-;
 ; @keyword TABLNUM
-;
 ;
 ; @returns
 ;
-;
 ; @uses
 ;
-;
 ; @restrictions
-;
 ;
 ; @examples
@@ -46,5 +38,5 @@
   compile_opt idl2, strictarrsubs
 ;
-  
+
 ON_ERROR,2
 
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -28,5 +20,4 @@
 ;-
 FUNCTION scan_grib_code, num, recstart
-;
 ;
   compile_opt idl2, strictarrsubs
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -28,5 +20,4 @@
 ;-
 FUNCTION scan_grib_date, num, recstart
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -38,5 +29,5 @@
     offset = recstart[i]
     a = assoc(num, bytarr(1, /nozero), offset+8-1)
-    dates[i] = (a[13]+100L*(a[25]-1))*10000L+a[14]*100L+a[15]
+    dates[i] = (a[13]+ 100L *(a[25]-1)) * 10000L + a[14] * 100L + a[15]
   ENDFOR
 ;
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -28,5 +20,4 @@
 ;-
 FUNCTION scan_grib_messize, num, recstart
-;
 ;
   compile_opt idl2, strictarrsubs
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro	(revision 495)
@@ -1,26 +1,18 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
 ;
+; @param NUM
 ;
 ; @param RECSTART
-; 
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
Index: trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro	(revision 495)
@@ -1,23 +1,16 @@
 ;+
-; @file_comments 
-; 
-; 
+; @file_comments
+;
 ; @categories
-; 
-; 
-; @param NUM 
-; 
+;
+; @param NUM
 ;
 ; @returns
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
 ;
-;
 ; @history
-; 
 ;
 ; @version
@@ -80,5 +73,5 @@
 ;
     start = [start, offset]
-;    
+;
     a = assoc(num, bytarr(1, /nozero), offset+4)
     recsize = bit2int([binary(a[0]), binary(a[1]), binary(a[2])])
@@ -90,4 +83,4 @@
 out:
 ;
-  RETURN, start[1:n_elements(start)-1] 
+  RETURN, start[1:n_elements(start)-1]
 END
Index: trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro	(revision 495)
@@ -17,5 +17,4 @@
 ;
 ;  (d1, d2...) are the output dimensions
-;
 ;
 ; @returns
Index: trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro	(revision 495)
@@ -7,5 +7,5 @@
 ;   - a structure, litchamp send back the first element of the structure
 ;   which must be the field in an array.
-; litchamp profit of this to look other elements of the structure and 
+; litchamp profit of this to look other elements of the structure and
 ; update if needed global variables which refer to the field:
 ; vargrid, varname, varunit, vardate, varexp , valmask et time
@@ -89,5 +89,4 @@
 ;   IDL> print, vargrid,', ', varname,', ', varunit,', ', vardate,', ', varexp
 ;    T, toto, C, 1999,
-;
 ;
 ; @history
Index: trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro	(revision 495)
@@ -3,10 +3,10 @@
 ; @file_comments
 ; Reading function for the file net_cdf.
-; This program is less universal than <pro>ncdf_lec</pro> (it appeal to 
-; declared variables in <pro>common</pro>) but it is very easier to be used. 
+; This program is less universal than <pro>ncdf_lec</pro> (it appeal to
+; declared variables in <pro>common</pro>) but it is very easier to be used.
 ; It considerate
 ; the declaration of the different zooms which have been defined
 ; (ixminmesh...premierx...), the declaration of the variable key_shift...
-; To put it in a nutshell, the result of read_ncdf can be directly used in 
+; To put it in a nutshell, the result of read_ncdf can be directly used in
 ; <pro>plt</pro> ...
 ;
@@ -46,5 +46,5 @@
 ;
 ; @keyword CALLITSELF {default=0}{type=scalar: 0 or 1}
-; For ROMS outputs. Use by read_ncdf itself to access auxiliary data 
+; For ROMS outputs. Use by read_ncdf itself to access auxiliary data
 ; (h and zeta).
 ;
@@ -68,5 +68,5 @@
 ;
 ; @keyword TIMESTEP {default=0}{type=scalar: 0 or 1}
-; Specify that BEGINNING and ENDING refer to indexes of the time axis and not 
+; Specify that BEGINNING and ENDING refer to indexes of the time axis and not
 ; to dates
 ;
@@ -95,5 +95,5 @@
 ;
 ; @returns
-; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is 
+; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is
 ; activated.
 ;
@@ -189,5 +189,5 @@
       firsttps = long(beginning[0])
       IF n_elements(ending) NE 0 THEN lasttps = long(ending[0]) ELSE lasttps = firsttps
-      IF NOT keyword_set(callitself) then BEGIN 
+      IF NOT keyword_set(callitself) then BEGIN
         time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex)
         jpt = lasttps-firsttps+1
@@ -210,5 +210,5 @@
     keyword_set(allrecords) OR n_elements(beginning) EQ 0:BEGIN
       time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex)
-      IF time[0] LT 0 then BEGIN 
+      IF time[0] LT 0 then BEGIN
         jpt = -time[0]
         time = julday(1, 1, 1) + lindgen(jpt)
Index: trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro
===================================================================
--- trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro	(revision 495)
@@ -8,5 +8,5 @@
 ;
 ; @param NAME {in}{optional}{type=string}
-; It give the name of the file to be opened. 
+; It give the name of the file to be opened.
 ;
 ; If NAME
@@ -21,5 +21,5 @@
 ;
 ; @keyword COUNT {type=vector}
-; An optional vector containing the counts to be used in reading Value. 
+; An optional vector containing the counts to be used in reading Value.
 ;
 ; COUNT is a 1-based vector with an element for
@@ -30,5 +30,5 @@
 ;
 ; @keyword GROUP
-; The widget ID of the widget that calls XNCDF_LEC. 
+; The widget ID of the widget that calls XNCDF_LEC.
 ;
 ; When this ID is specified, a death of the caller results in a death
@@ -42,9 +42,9 @@
 ; A vector of integers, specifying for each dimension how much we have to shift it.
 ;
-; See the function <proidl>SHIFT</proidl> for more explanations. 
+; See the function <proidl>SHIFT</proidl> for more explanations.
 ;
 ; BEWARE,
 ; the shift is done on the biggest array before a possible reduction determined
-; by OFFSET and COUNT. 
+; by OFFSET and COUNT.
 ;
 ; On the other hand, it is done after the possible extraction
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro	(revision 495)
@@ -150,5 +150,5 @@
 ; specified min/max are not filled. Note that max values a considered
 ; as missing values so cells containing one or more corners with
-; values above max will have no contours drawn through them.  
+; values above max will have no contours drawn through them.
 ;
 ; @keyword STYLE {default=style=0}
@@ -347,5 +347,5 @@
   IF keyword_set(strictfill) THEN BEGIN
     tmp = z2d ge max
-    IF total(tmp GE 1) THEN BEGIN 
+    IF total(tmp GE 1) THEN BEGIN
       tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) ))
       trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro	(revision 495)
@@ -11,9 +11,9 @@
 ; 1) An array which can be:
 ;
-;   * 2d, 3d or 4d:  array xy, xyz. xyt or xyzt. In this case, the array 
-;     will pass in <pro>moyenne</pro> or <pro>grossemoyenne</pro> to be 
+;   * 2d, 3d or 4d:  array xy, xyz. xyt or xyzt. In this case, the array
+;     will pass in <pro>moyenne</pro> or <pro>grossemoyenne</pro> to be
 ;     averaged and become an array 1d.
-;   * 1d:Nevertheless, the type must be specified in order to we know which 
-;     trace it is about. To have a correct caption, respecify the extraction 
+;   * 1d:Nevertheless, the type must be specified in order to we know which
+;     trace it is about. To have a correct caption, respecify the extraction
 ;     zone via BOXZOOM.
 ; 2) a structure respecting all criterions specified by <pro>litchamp</pro>
@@ -33,5 +33,5 @@
 ;
 ; @keyword BOXZOOM
-; Vector indicating the geographic zone (3d) on which the extraction of the 
+; Vector indicating the geographic zone (3d) on which the extraction of the
 ; field must be done to do the hovmoeller.
 ;
@@ -43,5 +43,5 @@
 ; 6 elements: The extraction is made on Boxzoom
 ;
-; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at 
+; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at
 ; the last <pro>domdef</pro> !
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro	(revision 495)
@@ -101,5 +101,4 @@
    IF finite(max2) EQ 0 THEN max2 = max(tab2)
 
-
 ; init plot if not overlay
 
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro	(revision 495)
@@ -4,5 +4,5 @@
 ; Trace hovmoeller graphs: xt,yt,zt,t
 ;
-; @categories 
+; @categories
 ; Graphics
 ;
@@ -23,5 +23,5 @@
 ; 2) a structure respecting all criterions specified by <pro>litchamp</pro>
 ;    The array contained in the structure respecting criterions of case 1)
-; 
+;
 ; @param GIVENTYPE
 ;
@@ -52,5 +52,5 @@
 ; 6 elements: The extraction is made on Boxzoom
 ;
-; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -153,5 +153,5 @@
 ; specified min/max are not filled. Note that max values a considered
 ; as missing values so cells containing one or more corners with
-; values above max will have no contours drawn through them.  
+; values above max will have no contours drawn through them.
 ;
 ; @keyword STYLE {default=style=0}
@@ -198,5 +198,5 @@
 ; $Id$
 ;
-; @todo 
+; @todo
 ; seb: definition of parameters, L.426 Ã  427, L. 492 Ã  493
 ;
@@ -475,5 +475,5 @@
       IF keyword_set(strictfill) THEN BEGIN
         tmp = z2d ge max
-        IF total(tmp GE 1) THEN BEGIN 
+        IF total(tmp GE 1) THEN BEGIN
           tmp = 1b - byte(extrapolate(tmp, tmp, 1))
           key_save = key_periodic & key_periodic = 0
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro	(revision 495)
@@ -4,5 +4,5 @@
 ; Draw 2d plots with TV procedure
 ;
-; @categories 
+; @categories
 ; find a file
 ; graphic
@@ -32,5 +32,5 @@
 ; 6 elements: The extraction is made on Boxzoom
 ;
-; Where lon1, lon2, lat1, lat2 are global variables defined at the last 
+; Where lon1, lon2, lat1, lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -60,5 +60,5 @@
 ; @keyword _EXTRA
 ; Used to pass keywords to <pro>placedessin</pro>, <proidl>TV</proidl>,
-; <pro>axe</pro>, <pro>legende</pro>, <pro>barrecouleur</pro>, 
+; <pro>axe</pro>, <pro>legende</pro>, <pro>barrecouleur</pro>,
 ; <pro>terminedessin</pro>
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro	(revision 495)
@@ -34,5 +34,5 @@
 ; 6 elements: The extraction is made on Boxzoom
 ;
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -85,5 +85,5 @@
 ;
 ; @keyword ZRATIO {default=2./3}
-; When the drawing has a zoomed part, it is the size ratio between the zoomed 
+; When the drawing has a zoomed part, it is the size ratio between the zoomed
 ; part, hz (zoom height), and the whole drawing, ht (total height).
 ;
@@ -115,5 +115,5 @@
 ; @keyword NOMASK
 ; activate to suppress the use of the land-sea mask when plotting the field
-; 
+;
 ; @keyword NO_PARTIALSTEP
 ; activate to suppress the use of partial steps (force key_partialstep = 0 within pltz)
@@ -144,5 +144,5 @@
 ; specified min/max are not filled. Note that max values a considered
 ; as missing values so cells containing one or more corners with
-; values above max will have no contours drawn through them.  
+; values above max will have no contours drawn through them.
 ;
 ; @keyword STYLE {default=style=0}
@@ -174,5 +174,5 @@
 ; $Id$
 ;
-; @todo 
+; @todo
 ; seb definition of parameters L.215 Ã  221
 ;
@@ -211,5 +211,5 @@
 ;
   if n_elements(contour) ne 4 THEN saveboxparam, 'boxparam4pltz.dat'
-  key_partialstep = keyword_set(key_partialstep) * (1b - keyword_set(no_partialstep)) 
+  key_partialstep = keyword_set(key_partialstep) * (1b - keyword_set(no_partialstep))
 ;--------------------------------------------------------------
 ;  Reading of the field.
@@ -278,5 +278,5 @@
   z2d = reverse(z2d, 2)
   szmsk = size(mask, /dimensions)
-  IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1]) 
+  IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1])
   IF keyword_set(maskdta) THEN mask = byte(fitintobox(maskdta))
 ;-----------------------------------------------------------------------------
@@ -328,5 +328,5 @@
   IF keyword_set(strictfill) THEN BEGIN
     tmp = z2d ge max
-    IF total(tmp GE 1) THEN BEGIN 
+    IF total(tmp GE 1) THEN BEGIN
       tmp = 1b - byte(extrapolate(tmp, tmp, 1))
       key_save = key_periodic & key_periodic = 0
@@ -376,5 +376,5 @@
     axis4pltz, type, mask, glammsk, gphimsk, gdepmsk, XXAXIS = xmask, ZZAXIS = zmask, SIN = sin, ZRATIO = zratio, ZOOM = zoom, PROFMAX = profmax, PROFMIN = profmin, _extra = ex
     szmsk = size(mask, /dimensions)
-    IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1]) 
+    IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1])
   ENDIF ELSE BEGIN
     xmask = xxaxis
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Same thing that bar_plot but compatible with the whole environment 
+; Same thing that bar_plot but compatible with the whole environment
 ; (<pro>common</pro> included)
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Same thing that contour but compatible with the whole environment 
+; Same thing that contour but compatible with the whole environment
 ; (<pro>common</pro> included)
 ;
@@ -19,5 +19,5 @@
 ;
 ; @examples
-; 
+;
 ;   IDL> z = dist(100)
 ;   IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1
Index: trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Same thing than plot but compatible with the whole environment 
+; Same thing than plot but compatible with the whole environment
 ; (<pro>common</pro> included)
 ;
@@ -20,5 +20,5 @@
 ; @restrictions
 ; If NOREINITPLT is not activated, all environment
-; variables !p, !x, !y, !z are reinitialized by the procedure 
+; variables !p, !x, !y, !z are reinitialized by the procedure
 ; <pro>reinitplt</pro>
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Add an axis when we do an oblique section in <pro>pltz</pro>, 
+; Add an axis when we do an oblique section in <pro>pltz</pro>,
 ; <pro>pltt</pro> or <pro>plt1d</pro>
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro	(revision 495)
@@ -15,5 +15,5 @@
 ;
 ; @param CI {out} {type=real}
-; the contour interval. Use it in <proidl>CONTOUR</proidl> with the 
+; the contour interval. Use it in <proidl>CONTOUR</proidl> with the
 ; keyword LEVEL.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro	(revision 495)
@@ -27,5 +27,5 @@
 ;
 ; @keyword ZRATIO {default=2./3}
-; When the drawing has a zoomed part, it is the size ratio between the zoomed 
+; When the drawing has a zoomed part, it is the size ratio between the zoomed
 ; part, hz (zoom height), and the whole drawing, ht (total height).
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro	(revision 495)
@@ -15,5 +15,5 @@
 ;
 ; @param NAME {in}{optional}{type=string}
-; It gives the name of the file to be opened. 
+; It gives the name of the file to be opened.
 ;
 ; If NAME
@@ -162,5 +162,5 @@
 ; 6 elements: The extraction is made on Boxzoom
 ;
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -171,5 +171,5 @@
 ; @keyword VECTEUR{type=vector}
 ; It is a structure composed by 2 elements containing the 2 fields U
-; and V of values of the zonal and meridian component of the vector of 
+; and V of values of the zonal and meridian component of the vector of
 ; the fields to draw.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro	(revision 495)
@@ -169,6 +169,4 @@
     ENDWHILE
 ;
-;
-
     return
   end
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro	(revision 495)
@@ -105,5 +105,4 @@
   ENDIF
 
-
   return
 end
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro	(revision 495)
@@ -40,5 +40,5 @@
      IF NOT keyword_set(dpi) THEN dpi = 72
      coef = dpi/2.54 ; 1 inch = 2.54 cm
-   ENDIF ELSE BEGIN 
+   ENDIF ELSE BEGIN
      dimensions = get_screen_size(RESOLUTION = resolution)
      coef = floor(1./resolution[0])
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro	(revision 495)
@@ -4,5 +4,5 @@
 ; allows to trace the independently from a graph
 ;
-; By default, trace a color bar of the same type than the one present in 
+; By default, trace a color bar of the same type than the one present in
 ; <pro>plt</pro>
 ; and <pro>pltz</pro>.
@@ -35,5 +35,5 @@
 ;
 ; @todo
-; reference to plein2dessin in restriction not understable :
+; reference to plein2dessin in restriction not understand :
 ; plein2dessin does'nt exist.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro	(revision 495)
@@ -8,5 +8,5 @@
 ;
 ; @param TYPEDESSIN {type=string}
-; It specify what procedure is called by <pro>placedessin</pro> : 
+; It specify what procedure is called by <pro>placedessin</pro> :
 ; 'plt', 'pltz' or 'pltt'
 ;
@@ -15,5 +15,5 @@
 ;
 ; Comment: To position the drawing, we have to do !p.position=posfenetre
-; after the call of the caliber
+; after the call of the calibre
 ;
 ; @param POSBAR {out}{type=vector}
@@ -64,16 +64,16 @@
 ; small portion of a page or screen. It delimit the zone where the drawing will be done.
 ;
-; If there is 4 elements then is constituted of coordinates (expressed in cm 
-; located from the up and left corner of the page or the window (in portrait 
-; like in landscape) of the bottom and left corner and of the up and right 
+; If there is 4 elements then is constituted of coordinates (expressed in cm
+; located from the up and left corner of the page or the window (in portrait
+; like in landscape) of the bottom and left corner and of the up and right
 ; corner of the drawing zone.
 ;
-; If there is 3 elements, we divide the page or the screen in small[0] columns 
-; and in small[1] lines, the drawing is made in the box numbered small[2]. 
+; If there is 3 elements, we divide the page or the screen in small[0] columns
+; and in small[1] lines, the drawing is made in the box numbered small[2].
 ;
 ; The numerotation starting up and left by
 ; the number 1 and then, following the writing direction.
 ;
-; By default, we make the largest drawing we can do, conserving the aspect 
+; By default, we make the largest drawing we can do, conserving the aspect
 ; ratio (except when REMPLI is activated).
 ;
@@ -82,5 +82,5 @@
 ;
 ; @keyword POST
-; Make a postscript. 
+; Make a postscript.
 ;
 ; Only works if we made one drawing on the page.
@@ -103,11 +103,11 @@
 ; whose we have the colored drawing (by example E-P in color and QSR in contours).
 ;
-; It must be a field respecting same characteristics than the argument number 
+; It must be a field respecting same characteristics than the argument number
 ; one of <pro>plt</pro>.
 ;
 ; @keyword ENDPOINTS
-; keyword specifying that we want to make a vertical cut in diagonal. 
-;
-; Then coordinated of extremities of these ones are defined by the 4 elements 
+; keyword specifying that we want to make a vertical cut in diagonal.
+;
+; Then coordinated of extremities of these ones are defined by the 4 elements
 ; of the vector ENDPOINTS: [x1,y1,x2,y2] which are coordinates.
 ;
@@ -115,5 +115,5 @@
 ; It is a structure composed by 2 elements containing the 2 fields U
 ; and V of values of the zonal and meridian component of the vector of the fields
-; to draw. 
+; to draw.
 ;
 ; These fields can be an array or a structure.
@@ -255,5 +255,5 @@
         device, set_resolution = windsize
         erase
-      ENDIF ELSE BEGIN 
+      ENDIF ELSE BEGIN
         if not keyword_set(window) then winnumb = 0 ELSE winnumb = window
         window, winnumb, xsize = windsize[0], ysize = windsize[1],  retain = 2, _extra = ex
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Allows to put in a structure attributes which can be associated with 
+; Allows to put in a structure attributes which can be associated with
 ; a variable.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro	(revision 495)
@@ -8,5 +8,5 @@
 ;
 ; @keyword POST
-; Make a postscript. 
+; Make a postscript.
 ;
 ; Only works if we made one drawing on the page.
@@ -15,20 +15,20 @@
 ; @keyword SMALL {type=vector}
 ; Vector composed of 3 or 4 elements, applied to make a drawing on a
-; small portion of a page or screen. 
+; small portion of a page or screen.
 ;
 ; It delimit the zone where the drawing will be done.
 ;
-; If there is 4 elements then is constituted of coordinates (expressed in cm 
-; located from the up and left corner of the page or the window (in portrait 
-; like in landscape)) of the bottom and left corner and of the up and right 
+; If there is 4 elements then is constituted of coordinates (expressed in cm
+; located from the up and left corner of the page or the window (in portrait
+; like in landscape)) of the bottom and left corner and of the up and right
 ; corner of the drawing zone.
 ;
-; If there is 3 elements we divide the page or the screen in small[0] columns 
-; and in small[1] lines and the drawing is made in the box numbered small[2]. 
+; If there is 3 elements we divide the page or the screen in small[0] columns
+; and in small[1] lines and the drawing is made in the box numbered small[2].
 ;
-; The numerotation starting up and left by the number 1 and then, following 
+; The numerotation starting up and left by the number 1 and then, following
 ; the writing direction.
 ;
-; By default, we make the largest drawing we can do, conserving the aspect 
+; By default, we make the largest drawing we can do, conserving the aspect
 ; ration (except when REMPLI is activated).
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Allows to choose the type of the label we want to use at the time of a 
+; Allows to choose the type of the label we want to use at the time of a
 ; contour.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro.new
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro.new	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro.new	(revision 495)
@@ -119,5 +119,4 @@
 ;                Added AM_PM and DAYS_OF_WEEK keywords, '%A' and '%W' codes.
 ;-
-
 
 ;-------------------------------------------------- LABEL_DATE_CONVERT_FORMAT
@@ -178,5 +177,4 @@
 END
 
-
 ;----------------------------------------------------------------- LABEL_DATE
 FUNCTION LABEL_DATE, axisIn, indexIn, valueIn, levelIn, $
@@ -193,8 +191,6 @@
 	ON_ERROR, 2
 
-
 	IF (N_PARAMS() LT 3) THEN $  ; use default for no inputs
 		IF NOT KEYWORD_SET(dateFormat) THEN dateFormat=''
-
 
 ; process a new months vector?
@@ -207,5 +203,4 @@
 	if (N_ELEMENTS(months) EQ 12) then cMonths = months
 
-
 ; process a new days_of_week vector?
 	; if days_of_week is undefined, then make cDaysWeek undefined
@@ -217,5 +212,4 @@
 	if (N_ELEMENTS(days_of_week) EQ 7) then cDaysWeek = days_of_week
 
-
 ; process a new AM_PM vector?
 	; if AM_PM is undefined, then make cAmpm undefined
@@ -227,5 +221,4 @@
 	if (N_ELEMENTS(am_pm) EQ 2) then cAmpm = am_pm
 
-
 ; process a new cOffset?
 	IF ARG_PRESENT(offs) THEN cOffset = 0
@@ -234,8 +227,6 @@
 	IF (N_ELEMENTS(cOffset) EQ 0) THEN cOffset = 0d
 
-
 ; process a new cRoundup?
 	IF (N_ELEMENTS(round_up) GT 0) THEN cRoundup = KEYWORD_SET(round_up)
-
 
 ; process a new date_format string?
@@ -248,7 +239,5 @@
 	IF (N_ELEMENTS(cFormatArray) EQ 0) THEN cFormatArray = '(C())'
 
-
 	IF (N_PARAMS() LT 3) THEN RETURN, 0
-
 
 ;------------------------------------------------------ Process an axis value
@@ -257,9 +246,7 @@
 	time = value1 - date  ; Julian time
 
-
 	IF (N_ELEMENTS(levelIn) LT 1) THEN levelIn = 0
 	nFormat = N_ELEMENTS(cFormatArray)
 	formatLevel = cFormatArray[levelIn MOD nFormat]    ; repeat cyclically
-
 
 ; Round subseconds to the desired precision
@@ -273,5 +260,4 @@
 		value1 = date + time
 	ENDIF
-
 
 ; Round fractional time to the least significant format specified.
@@ -291,5 +277,4 @@
 	ENDIF
 
-
 ; check for negative (B.C.E.) years
 	jan1_1ad = 1721424L   ; Julian date for 1 Jan, 1 C.E.
Index: trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro	(revision 495)
@@ -2,11 +2,11 @@
 ;
 ; @file_comments
-; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 
+; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to
 ; label axes in latitude.
 ;
 ; @categories
 ; Graphics
-; 
-; @param AXIS 
+;
+; @param AXIS
 ; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro	(revision 495)
@@ -2,11 +2,11 @@
 ;
 ; @file_comments
-; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 
+; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to
 ; label axes in longitude.
 ;
 ; @categories
 ; Graphics
-; 
-; @param AXIS 
+;
+; @param AXIS
 ; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis.
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro	(revision 495)
@@ -135,5 +135,5 @@
 ; We recuperate the complete grid to establish a big mask extensive
 ; in the four directions to cover points for which a land point has
-; been considerated (do a small drawing)
+; been considerate (do a small drawing)
 ;----------------------------------------------------------------------------
       vargrid='T'
@@ -141,6 +141,6 @@
       mskv = (vmask())[indice2d+jpi*jpj*firstzt]
       IF keyword_set(cont_nofill) THEN BEGIN  ; make sure msku/v contains only 1
-        msku = finite(msku) 
-        mskv = finite(msku) 
+        msku = finite(msku)
+        mskv = finite(msku)
       ENDIF
       glam = glamt[indice2d]
@@ -246,5 +246,4 @@
    ELSE vectlegende = {minmax:[mini, maxi], unite:varunit}
 
-
 sortie:
    if keyword_set(key_performance) NE 0 THEN print, 'temps ajoutvect', systime(1)-tempsun
Index: trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro	(revision 495)
@@ -5,5 +5,5 @@
 ; @categories
 ;
-; @param angle 
+; @param angle
 ;
 ; @returns
@@ -24,6 +24,4 @@
 ; by rapport at the x axis and which must do 1 cm on the drawing.
 ; Angle can be an array.
-;
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -72,5 +70,4 @@
 ;
 ; normalize the vector
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -191,5 +188,4 @@
 @common
   tempsun = systime(1)          ; For key_performance
-;
 ;
   taille = size(composanteu)
@@ -253,7 +249,5 @@
 ;       determine on the drawing.
 ;
-;
 ; Stage 1, a)
-;
 ;
 ; coordinates of the point T (beginning of the arrow) in spherical coordinates.
@@ -377,5 +371,4 @@
   if ind[0] NE -1 then glam[ind] = glam[ind]-360.
 ;
-;
 ; Stage 1, e)
 ;
@@ -405,5 +398,5 @@
 ;
   points = where(msk EQ 1)
-  IF points[0] NE -1 THEN BEGIN 
+  IF points[0] NE -1 THEN BEGIN
 
   x0 = x0[points] & x1 = x1[points]
@@ -448,5 +441,5 @@
 ; define colors before norme is changed...
     IF NOT KEYWORD_SET(vectcolor) THEN vectcolor = 0
-    IF keyword_set(vectnormcolor) THEN BEGIN 
+    IF keyword_set(vectnormcolor) THEN BEGIN
       mp = projsegment([vectnormcolor], [1, 254], /mp)
       colors = byte(round(mp[0] * norme +  mp[1] ))
@@ -500,6 +493,4 @@
   endif
 ;
-;
-
   if keyword_set(key_performance) NE 0 THEN print, 'temps vecteur', systime(1)-tempsun
 ;------------------------------------------------------------
@@ -507,6 +498,2 @@
   return
 END
-
-
-
-
Index: trunk/SRC/ToBeReviewed/PLOTS/axe.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/axe.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/axe.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; Manage axes for the different drawings created by 
+; Manage axes for the different drawings created by
 ; <pro>plt</pro>, <pro>pltz</pro> and <pro>pltt</pro>
 ;
Index: trunk/SRC/ToBeReviewed/PLOTS/legende.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/legende.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/legende.pro	(revision 495)
@@ -20,5 +20,5 @@
 ; whose we have the colored drawing (by example E-P in color and QSR in contours).
 ;
-; It must be a field respecting same characteristics than the argument number 
+; It must be a field respecting same characteristics than the argument number
 ; one of plt.
 ;
@@ -33,5 +33,5 @@
 ;
 ; @restrictions
-; The use of the global variable language allows to change the language and 
+; The use of the global variable language allows to change the language and
 ; the caption easily.
 ;
@@ -91,8 +91,8 @@
     vertz = type_yz
     legniv = ' '+type_yz
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
     vertz = depthf2
     legniv = ' m'
-  ENDELSE 
+  ENDELSE
 ;
 ; Start legende
Index: trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro	(revision 495)
@@ -142,8 +142,2 @@
 	return
 	end
-
-
-
-
-
-
Index: trunk/SRC/ToBeReviewed/PLOTS/style.pro
===================================================================
--- trunk/SRC/ToBeReviewed/PLOTS/style.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/PLOTS/style.pro	(revision 495)
@@ -53,6 +53,6 @@
 ;    before and after the threshold value and a bold solid line for the
 ;    value itself, a more general definition can be given with a scalar
-;    string with the following structure: 'xxNN...NNyy' with  
-;    xx and yy corresponding to one the following choices (with the 
+;    string with the following structure: 'xxNN...NNyy' with
+;    xx and yy corresponding to one the following choices (with the
 ;    corresponding meaning)
 ;		so -> Solid	
@@ -62,5 +62,5 @@
 ;		ld -> Long Dashes
 ; and NN...NN any kind of number that will define the threshold value.
-; for example 'do-6.6so' will do dotted line until -6.6 and solid line after. 
+; for example 'do-6.6so' will do dotted line until -6.6 and solid line after.
 ;	
 ; @param LEVEL_Z2D {in}{required}
@@ -69,9 +69,9 @@
 ; @param LINESTYLE {out}
 ; Used interbally by plt(z)(t) to define c_linestyle when calling pltbase.
-; Vector used to define the isocontour's style. 
+; Vector used to define the isocontour's style.
 ;
 ; @param THICK {out}
 ; Used interbally by plt(z)(t) to define c_thick when calling pltbase.
-; Vector used to define the isocontour's thickness. 
+; Vector used to define the isocontour's thickness.
 ;
 ; @history
@@ -141,5 +141,5 @@
         thresholdstyle, limit, 2, 0, level_z2d, linestyle, thick
       END
-; Solid-Bold, solid-thin, dash Dot-thin, solid-thin, Solid-Bold...    
+; Solid-Bold, solid-thin, dash Dot-thin, solid-thin, Solid-Bold...
       3: begin
         n = n_elements(level_z2d)
@@ -169,6 +169,5 @@
       end
     endcase
-  ENDELSE 
-
+  ENDELSE
 
   return
Index: trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro
===================================================================
--- trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro	(revision 495)
@@ -1,16 +1,15 @@
 ;+
 ;
-; @file_comments 
-; 
+; @file_comments
+;
 ; @categories
-; 
+;
 ; @param TABLE
-; 
+;
 ; @restrictions
-; 
+;
 ; @examples
 ;
 ; @history
-; 
 ;
 ; @version
@@ -35,5 +34,5 @@
     for k=0,255 do z[k]='00'+strtrim(string(b[k], format = '(Z)'),2)
     for k=0,255 do y[k]=y[k]+strmid(z[k],strlen(z[k])-2,2)
-    
+
     table =  strlowcase(y)
 
@@ -42,17 +41,17 @@
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; Build a bloc of colortable
-; 
+;
 ; @categories
-; 
+;
 ; @param TABLEOUT
-; 
+;
 ; @restrictions
-; 
+;
 ; @examples
 ;
 ; @history
-; 
+;
 ; @version
 ; $Id$
@@ -66,41 +65,40 @@
     format_colortable_hexa, table
 
-
     tableout = strarr(25)
 
     tableout[0] = '/COLORTAB < '
     FOR k = 0, 8 DO tableout[0] = tableout[0]+table[k]+' '
-    FOR i = 1, 22 DO BEGIN 
+    FOR i = 1, 22 DO BEGIN
           FOR k = 11*i-2, 11*i+8 DO tableout[i] = tableout[i]+table[k]+' '
-    ENDFOR 
+    ENDFOR
     FOR k = 251, 255 DO tableout[i] = tableout[i]+table[k]+' '
     tableout[i] = tableout[i]+'> def'
-    
+
 END
 ;
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; Modify colors of a postscript file
 ;
 ; @categories
-; 
+;
 ; @param N1 {in}{required}
 ; Number of elements in the first dimension
-; 
+;
 ; @param N2 {in}{required}
 ; Number of elements in the second dimension
-; 
+;
 ; @param FILE
-; A scalar of string type, the name of the ".pro" file to be tested 
+; A scalar of string type, the name of the ".pro" file to be tested
 ; if necessary, the input name is completed with '.pro' and its path
 ; found in !path
 ;
 ; @keyword PALIT1
-; 
+;
 ; @keyword PALIT2
-; 
+;
 ; @restrictions
-; 
+;
 ; @examples
 ;
@@ -128,5 +126,5 @@
     filein = file
     fileout = file+'.new'
-    
+
     openr, numin, filein, /get_lun
     openw, numout, fileout, /get_lun
@@ -137,5 +135,5 @@
 ; Scan le fichier
 ;
-    WHILE NOT(eof(numin)) DO BEGIN 
+    WHILE NOT(eof(numin)) DO BEGIN
           readf, numin, ligne, format = '(A)'
           nl = nl+1
@@ -144,11 +142,11 @@
 ;
           pos = strpos(ligne, 'setrgbcolor')
-          IF pos NE -1 THEN BEGIN 
+          IF pos NE -1 THEN BEGIN
                 r = round(float(strmid(ligne, pos-18, 6))*255)
                 g = round(float(strmid(ligne, pos-12, 6))*255)
-                b = round(float(strmid(ligne, pos-6, 6))*255)          
+                b = round(float(strmid(ligne, pos-6, 6))*255)
                 ind = where(r EQ red AND g EQ green AND b EQ blue)
                 ind = ind[0]
-                IF ind[0] NE -1 THEN BEGIN 
+                IF ind[0] NE -1 THEN BEGIN
                       r1 = red1[ind]/255.
                       g1 = green1[ind]/255.
@@ -169,15 +167,15 @@
                       color = string(r1, g1, b1, format = '(3(F5.3,:,X))')
                       strput, ligne, color, pos-18
-                ENDELSE 
-          ENDIF            
+                ENDELSE
+          ENDIF
 ;
 ; Replace COLORTAB
 ;
           pos = strpos(ligne, '/COLORTAB')
-          IF pos NE -1 THEN BEGIN 
+          IF pos NE -1 THEN BEGIN
                 build_table, table
                 n = 0
                 colortab = 1
-          ENDIF 
+          ENDIF
 
           IF colortab THEN BEGIN
@@ -185,10 +183,10 @@
                 n = n+1
                 IF n EQ 24 THEN colortab = 0
-          ENDIF 
+          ENDIF
 ;
 ; write output file
 ;
           printf, numout, ligne, format = '(A)'
-    ENDWHILE 
+    ENDWHILE
     close, numin
     close, numout
@@ -198,3 +196,3 @@
     spawn, 'gs '+fileout
 
-END 
+END
Index: trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro
===================================================================
--- trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro	(revision 495)
@@ -2,16 +2,16 @@
 ;
 ; @file_comments
-; Redirect the content of the graphic window in a postscript, 
+; Redirect the content of the graphic window in a postscript,
 ; by redoing commands in the postscript's environment.
 ;
 ; @categories
 ; utilities
-; 
+;
 ; @restrictions
-; We use journal which allows to stock commands we pass. 
+; We use journal which allows to stock commands we pass.
 ;
 ; Can break down if some weird commands are passed...
 ; Comment: we erase Syntax error, Illegal characters, compatible
-; with oups, text_box... 
+; with oups, text_box...
 ;
 ; @history
@@ -85,5 +85,5 @@
    path_cache, /rebuild
 ; apply idlsave
-@idlsave   
+@idlsave
 ; We reopen the journal and we put in it all elements of vectjournal but the 2 first and the 3 last line.
 journal, myuniquetmpdir+'idlsave.pro'
Index: trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro	(revision 495)
@@ -2,5 +2,4 @@
 ;
 ; @file_comments
-; 
 ;
 ; @categories
@@ -12,5 +11,5 @@
 ; @param LAG {in}{required}
 ; 2-element vector, in the intervals [-(nx-2), (nx-2)],[-(ny-2), (ny-2)],
-; of type integer that specifies the absolute distance(s) between 
+; of type integer that specifies the absolute distance(s) between
 ; indexed elements of X.
 ;
@@ -60,5 +59,5 @@
 ; @param LAG {in}{required}
 ; 2-element vector, in the intervals [-(nx-2), (nx-2)],[-(ny-2), (ny-2)],
-; of type integer that specifies the absolute distance(s) between 
+; of type integer that specifies the absolute distance(s) between
 ; indexed elements of X.
 ;
@@ -100,5 +99,5 @@
    if n_elements(Lag) NE 2 THEN $
     ras = report("Lag array must contain 2 elements.")
-   
+
 ;If the DOUBLE keyword is not set then the internal precision and
 ;result are identical to the type of input.
@@ -110,5 +109,5 @@
           Auto_Cov2d(X, [0L, 0L], Double = Double, /zero2nan)
    endif else begin             ;Compute Autocovariance.
-      Auto = Auto_Cov2d(X, ABS(Lag), Double = Double) / n_elements(X) 
+      Auto = Auto_Cov2d(X, ABS(Lag), Double = Double) / n_elements(X)
    endelse
 
Index: trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro	(revision 495)
@@ -38,5 +38,5 @@
   TimeDim = size(X, /n_dimensions)
   Xmean = NAN ? TOTAL(X, TimeDim, Double = Double,  NAN =  nan) / TOTAL(FINITE(X), TimeDim) : $
-   TOTAL(X, TimeDim, Double = Double) / nT                                                                                
+   TOTAL(X, TimeDim, Double = Double) / nT
   one = double ? 1.0d : 1.0
   Xmean = Xmean[*]#replicate(one, nT - M)
@@ -83,5 +83,5 @@
 ; @param LAG {in}{required}{type=scalar or vector}
 ; A scalar or n-element vector, in the interval [-(n-2), (n-2)],
-; of type integer that specifies the absolute distance(s) between 
+; of type integer that specifies the absolute distance(s) between
 ; indexed elements of X.
 ;
@@ -140,6 +140,6 @@
 
    NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0
-;We can retrieve the matrix of real lengths of time-series   
-   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT 
+;We can retrieve the matrix of real lengths of time-series
+   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT
 
    IF ARG_PRESENT(NVAL) THEN nval = nTreal
@@ -147,5 +147,5 @@
 ;Check length.
    IF (WHERE(nTreal GT 1))[0] EQ -1 THEN $
-    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"   
+    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"
 
 ;If the DOUBLE keyword is not set then the internal precision and
@@ -177,5 +177,5 @@
          2: BEGIN
             Auto[*, k] = TimeAuto_Cov(X, ABS(Lag[k]), nT, Double = useDouble, NAN = nan) / $
-             ( KEYWORD_SET(Covariance) ?  nTreal : TimeAuto_Cov(X, 0L, nT, Double = useDouble, /zero2nan, NAN = nan) )   
+             ( KEYWORD_SET(Covariance) ?  nTreal : TimeAuto_Cov(X, 0L, nT, Double = useDouble, /zero2nan, NAN = nan) )
          END
          3: BEGIN
Index: trunk/SRC/ToBeReviewed/STATISTICS/skewness_4d.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STATISTICS/skewness_4d.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STATISTICS/skewness_4d.pro	(revision 495)
@@ -2,5 +2,5 @@
 ;
 ; @file_comments
-; 
+;
 ; @categories
 ; Statistics
@@ -28,8 +28,8 @@
 
   compile_opt idl2, strictarrsubs
-;  
+;
   TimeDim = size(X, /n_dimensions)
   Xmean = NAN ? TOTAL(X, TimeDim, Double = Double,  NAN =  nan) / TOTAL(FINITE(X), TimeDim) : $
-   TOTAL(X, TimeDim, Double = Double) / nT    
+   TOTAL(X, TimeDim, Double = Double) / nT
   one = double ? 1.0d : 1.0
   Xmean = Xmean[*]#replicate(one, nT)
@@ -42,5 +42,5 @@
 ; @file_comments
 ; Same function as SKEWNESS but accept array (until 4
-; dimension) for input and perform  the skewness 
+; dimension) for input and perform  the skewness
 ; along the time dimension which must be the last
 ; one of the input array.
@@ -91,6 +91,6 @@
 
    NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0
-;We can retrieve the matrix of real lengths of time-series   
-   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT 
+;We can retrieve the matrix of real lengths of time-series
+   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT
 
    IF ARG_PRESENT(NVAL) THEN nval = nTreal
@@ -98,5 +98,5 @@
 ; Check length.
    IF (WHERE(nTreal LE 1))[0] NE -1 THEN $
-    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"   
+    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"
 
 ; If the DOUBLE keyword is not set then the internal precision and
@@ -135,3 +135,2 @@
 
 END
-
Index: trunk/SRC/ToBeReviewed/STRING/chkeywd.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/chkeywd.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/chkeywd.pro	(revision 495)
@@ -5,5 +5,5 @@
 ; We change the value of one of keywords.
 ;
-; More generally, in a string, we look for the character 
+; More generally, in a string, we look for the character
 ; chain: ', keywdname= ..., and we change the value of...
 ;
@@ -51,5 +51,4 @@
 ; Double-precision complex, Pointer, Object reference, Unsigned Integer,
 ; Unsigned Longword Integer, 64-bit Integer or Unsigned 64-bit Integer.
-;
 ;
 ; @examples
Index: trunk/SRC/ToBeReviewed/STRING/delchr.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/delchr.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/delchr.pro	(revision 495)
@@ -3,10 +3,10 @@
 ; @file_comments
 ; Delete all occurrences of a character from a text string.
-; 
+;
 ; @categories
 ;
 ; @param OLD {in}{required}
 ; original text string.
-; 
+;
 ; @param C {in}{required}
 ; character to delete.
@@ -16,5 +16,5 @@
 ; @returns
 ; new = resulting string.
-; 
+;
 ; @history
 ;       R. Sterner.  5 Jul, 1988.
@@ -37,5 +37,5 @@
   compile_opt idl2, strictarrsubs
 ;
- 
+
 if (n_params(0) lt 2) or keyword_set(hlp) then begin
   ras = report(['Delete all occurrences of a character from a text string.', $
@@ -46,5 +46,5 @@
   return, -1
 endif
- 
+
 B = BYTE(OLD) ; convert string to a byte array.
 CB = BYTE(C)  ; convert char to byte.
Index: trunk/SRC/ToBeReviewed/STRING/getfile.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/getfile.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/getfile.pro	(revision 495)
@@ -36,5 +36,5 @@
 ;
 ;       search the file in the all !path directories (use <pro>find</pro>)
-;       when using /find keyword. Use <proidl>SPAWN</proidl>, 'cat...' for 
+;       when using /find keyword. Use <proidl>SPAWN</proidl>, 'cat...' for
 ;       unix os.
 ;
Index: trunk/SRC/ToBeReviewed/STRING/isnumber.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/isnumber.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/isnumber.pro	(revision 495)
@@ -14,6 +14,6 @@
 ;
 ; @returns
-;       x = optionally returned numeric value if valid.  
-;       i = test flag:                                  
+;       x = optionally returned numeric value if valid.
+;       i = test flag:
 ;           0: not a number.
 ;           1: txt is a long integer.
@@ -21,5 +21,5 @@
 ;           -1: first word of txt is a long integer.
 ;           -2: first word of txt is a float.
-; 
+;
 ; @history
 ;  - R. Sterner.  15 Oct, 1986. Johns Hopkins Applied Physics Lab.
@@ -41,5 +41,5 @@
 ;
   compile_opt idl2, strictarrsubs
-; 
+;
 	if (n_params(0) lt 1) or keyword_set(hlp) then begin
 	  print,' Determine if a text string is a valid number.'
@@ -55,10 +55,10 @@
 	  return, -1
 	endif
- 
+
 	txt = strtrim(txt0,2)	; trim blanks.
 	x = 0			; define X.
- 
+
 	if txt eq '' then return, 0	; null string not a number.
- 
+
 	sn = 1
 	if nwrds(txt) gt 1 then begin	; get first word if more than one.
@@ -66,5 +66,5 @@
 	  txt = getwrd(txt,0)
 	endif
-	  
+	
 	f_flag = 0			; Floating flag.
 	b = byte(txt)			; Convert to byte array.
@@ -102,8 +102,8 @@
 	;-----  Allow no alphabetic characters  -----------
 	if total((b ge 65) and (b le 122)) ne 0 then return, 0
- 
+
 	c = strmid(t,0,1)
 	if (c lt '0') or (c gt '9') then return, 0  ; First char not a digit.
- 
+
 	x = txt + 0.0				    ; Convert to a float.
 	if f_flag eq 1 then return, 2*sn	    ; Was floating.
@@ -114,4 +114,4 @@
 	  return, 2*sn
 	endelse
- 
+
 	end
Index: trunk/SRC/ToBeReviewed/STRING/lenstr.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/lenstr.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/lenstr.pro	(revision 495)
@@ -5,9 +5,9 @@
 ; input:
 ;  str             a single string or string array.
-; 
+;
 ; output:
 ;  result          length of the string(s) in normalized units
-;                  the number of elements of RESULT matches the number of 
-;                  elements of STRING. 
+;                  the number of elements of RESULT matches the number of
+;                  elements of STRING.
 ;
 ; procedure:
@@ -25,5 +25,5 @@
 ;           University of California, Santa Barbara
 ;
-; @todo seb 
+; @todo seb
 ;
 ;-
Index: trunk/SRC/ToBeReviewed/STRING/nwrds.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/nwrds.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/nwrds.pro	(revision 495)
@@ -3,5 +3,5 @@
 ; @file_comments
 ; Return the number of words in the given text string.
-; 
+;
 ; @categories
 ;
@@ -11,13 +11,13 @@
 ; @keyword DELIMITER
 ; = d. Set delimiter character (def = space).
-; 
+;
 ; @keyword HELP
 ;
 ; @returns
 ; n = number of words found.
-; 
+;
 ; @restrictions
 ; See also <pro>getwrd</pro>
-; 
+;
 ; @history
 ;  - R. Sterner,  7 Feb, 1985. Johns Hopkins University Applied Physics Laboratory.
@@ -38,5 +38,5 @@
   compile_opt idl2, strictarrsubs
 ;
- 
+
 	if (n_params(0) lt 1) or keyword_set(hlp) then begin
 	  print,' Return the number of words in the given text string.'
@@ -49,5 +49,5 @@
 	  return, -1
 	endif
- 
+
 	if strlen(txtstr) eq 0 then return,0	; A null string has 0 words.
 	ddel = ' '			; Default word delimiter is a space.
@@ -61,10 +61,10 @@
 	x = tb ne tst				; Locate words.
 	x = [0,x,0]				; Pad ends with delimiters.
- 
+
 	y = (x-shift(x,1)) eq 1			; Look for word beginnings.
- 
+
 	n = fix(total(y))			; Count word beginnings.
- 
+
 	return, n
- 
+
 	end
Index: trunk/SRC/ToBeReviewed/STRING/putfile.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/putfile.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/putfile.pro	(revision 495)
@@ -3,5 +3,5 @@
 ; @file_comments
 ; Write a text file from a string array.
-; 
+;
 ; @categories
 ;
@@ -14,5 +14,5 @@
 ; @keyword ERROR
 ; error flag: 0=ok, 1=invalid string array.
-; 
+;
 ; @history
 ;  - R. Sterner, 20 Mar, 1990
@@ -33,5 +33,5 @@
   compile_opt idl2, strictarrsubs
 ;
- 
+
 	if (n_params(0) lt 1) or keyword_set(hlp) then begin
 	  print,' Write a text file from a string array.'
@@ -48,5 +48,5 @@
            return
         endif
-; 
+;
 	if size(s, /type) ne 7 then begin
 	  print,' Error in putfile: argument must be a string array.'
@@ -54,8 +54,8 @@
 	  return
 	endif
- 
+
 	get_lun, lun
 	openw, lun, file
- 
+
 	for i = 0, n_elements(s)-1 do begin
 	  t = s[i]
@@ -63,9 +63,9 @@
 	  printf, lun, t
 	endfor
- 
+
 	close, lun
 	free_lun, lun
 	err = 0
 	return
- 
+
 	end
Index: trunk/SRC/ToBeReviewed/STRING/string2struct.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/string2struct.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/string2struct.pro	(revision 495)
@@ -39,5 +39,5 @@
 ;
 ; @param STRVAL {IN}{REQUIRED}
-; String set up as keywords. Keywords require a little special treatment. 
+; String set up as keywords. Keywords require a little special treatment.
 ; Such as
 ;
Index: trunk/SRC/ToBeReviewed/STRING/strkeywd.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/strkeywd.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/strkeywd.pro	(revision 495)
@@ -2,9 +2,9 @@
 ;
 ; @file_comments
-; Translate a structure in a string able to be used to specify keywords 
+; Translate a structure in a string able to be used to specify keywords
 ; in the calling of a function when we use EXECUTE (see example)
 ;
-; @categories 
-; 
+; @categories
+;
 ; @param STRUCT
 ; a structure
@@ -12,16 +12,16 @@
 ; @returns
 ; a string composed like following:
-; For each element of the structure, we write a part of the string as: 
+; For each element of the structure, we write a part of the string as:
 ;         'name_of_the_element=content_of_the_element'
 ;
 ; @restrictions
-; If an element of the structure contain an array, it will be convert in a 
+; If an element of the structure contain an array, it will be convert in a
 ; vector.
 ;
 ; @restrictions
-; Beware, this function has loops, ifs and cases everywhere. So it can 
-; not be used by big keywords (with a lot of elements which are big 
-; arrays). The input keyword must not contain Complex floatings, structure, 
-; Double-precision complex, Pointer, Object reference, Unsigned Integer, 
+; Beware, this function has loops, ifs and cases everywhere. So it can
+; not be used by big keywords (with a lot of elements which are big
+; arrays). The input keyword must not contain Complex floatings, structure,
+; Double-precision complex, Pointer, Object reference, Unsigned Integer,
 ; Unsigned Longword Integer, 64-bit Integer or Unsigned 64-bit Integer.
 ;
Index: trunk/SRC/ToBeReviewed/STRING/strright.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/strright.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/strright.pro	(revision 495)
@@ -6,5 +6,5 @@
 ; @categories
 ; String
-; 
+;
 ; @param S {in}{required}
 ; the string to be searched
@@ -20,5 +20,5 @@
 ;
 ; @examples
-; 
+;
 ; add a "/" in to path if it "/" is not at the end :
 ;
@@ -48,16 +48,16 @@
   compile_opt idl2, strictarrsubs
 ;
- 
+
     on_error,2   ; return to caller
- 
+
     if (n_elements(s) le 0) then return,-1L
- 
+
     l = strlen(s)
- 
+
     if (n_elements(lastn) le 0) then lastn = 1
     if lastn gt l then lastn = l
- 
+
     result = strmid(s,l-lastn,l)
- 
+
     return,result
 end
Index: trunk/SRC/ToBeReviewed/STRING/strsci.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/strsci.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/strsci.pro	(revision 495)
@@ -15,5 +15,5 @@
 ; The format specification used in the string
 ; conversion for the mantissa (i.e. the
-; "A" of "A x 10^B").  
+; "A" of "A x 10^B").
 ;
 ; @keyword POT_ONLY
@@ -41,9 +41,9 @@
 ;
 ;   IDL> Result = STRSCI( 2000000, format='(i1)' )
-;   IDL> print, result                
+;   IDL> print, result
 ;   2 x 10!u6!n
-; 
-; which gets plotted as 2 x 10 
-;        
+;
+; which gets plotted as 2 x 10
+;
 ;   IDL> Result = STRSCI( -0.0001 )
 ;   IDL> print, result
@@ -55,5 +55,4 @@
 ;   IDL> print, result
 ;   0.00000000
-; 
 ;
 ; @history
@@ -76,5 +75,5 @@
 ;           - now can handle DATA=0.0 correctly
 ;           - updated comments
-;        mgs, 03 Jun 1999: 
+;        mgs, 03 Jun 1999:
 ;           - can now also handle values lt 1 ;-)
 ;           - and doesn't choke on arrays
@@ -83,5 +82,5 @@
 ; $Id$
 ;
-; Copyright (C) 1998, 1999 Bob Yantosca and Martin Schultz, 
+; Copyright (C) 1998, 1999 Bob Yantosca and Martin Schultz,
 ; Harvard University
 ; This software is provided as is without any warranty
@@ -125,29 +124,29 @@
       ;====================================================================
       if ( Abs( Data[i] ) ne 0.0 ) then begin
-   
+
          ; take the common log and store in LOG10DATA
-         Log10Data = ALog10( Abs( Data[i] ) )  
-   
+         Log10Data = ALog10( Abs( Data[i] ) )
+
          ; Boolean flag if data < 0
-         sign = ( Data[i] lt 0.0 ) 
-   
+         sign = ( Data[i] lt 0.0 )
+
          ; Compute the characteristic (int part)
          ; Add the 1d-6 to prevent roundoff errors
          Characteristic = Fix( Log10Data + 1.0d-6 )
          if (Log10Data lt 0) then $
-            Characteristic = Characteristic - 1 
-   
+            Characteristic = Characteristic - 1
+
          ; Compute the Mantissa (frac part) and take its antilog.
-         Mantissa = Log10Data - Characteristic 
+         Mantissa = Log10Data - Characteristic
          Mantissa = 10.0^Mantissa
-   
+
    ;  print,data[i],log10data,mantissa,characteristic,format='(3f24.14,i8)'
-   
-         ; String for the coefficient part, 
+
+         ; String for the coefficient part,
          ; The coefficient is just antilog of the Mantissa
          ; Add the minus sign if DATA < 0.0
          A = StrTrim( String( Mantissa, Format=Format ), 2 )
          if ( Sign ) then A = '-' + A
-   
+
          ; String for the power of 10 part
          B = '10!u' + strtrim( string( Characteristic ), 2 ) + '!n'
@@ -156,10 +155,9 @@
             if ( Characteristic eq 1 ) then B = '10'
          endif
-   
+
          ; composite string
          Result[i] = A + ' x ' + B
          if ( Short AND B eq '1') then Result[i] = A
-   
-   
+
       ;====================================================================
       ; If DATA = 0, then we cannot take the common log, so return
@@ -170,7 +168,7 @@
          B      = A
          Result[i] = A
-   
+
       endelse
-   
+
       ;====================================================================
       ; Return result to calling program (depending on keyword settings)
@@ -183,10 +181,10 @@
       if ( Trim ) then $
          Result[i] = StrCompress( Result[i], /Remove_All )
-     
+
    endfor
 
    if (n_elements(Result) eq 1) then $
       Result = Result[0]
- 
+
    return, Result
 
Index: trunk/SRC/ToBeReviewed/STRING/strsed.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/strsed.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/strsed.pro	(revision 495)
@@ -1,5 +1,5 @@
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; replace one (or more) character(s)/string(s) in a string array
 ; "modern" version of the obsolete strrepl
@@ -18,5 +18,5 @@
 ;
 ; @keyword FOLD_CASE
-; Indicates that the regular expression matching should be done in 
+; Indicates that the regular expression matching should be done in
 ; a case-insensitive fashion.
 ;
@@ -54,5 +54,5 @@
        strout[line[i]] = strjoin(strsplit(strout[line[i]], exp1, /extract $
                                           , /regex, /preserve_null, FOLD_CASE = fold_case), exp2)
-  ENDIF 
+  ENDIF
 ;
   return, strout
Index: trunk/SRC/ToBeReviewed/STRING/tostr.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRING/tostr.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRING/tostr.pro	(revision 495)
@@ -4,5 +4,5 @@
 ; Convert an input in a string.
 ;
-; @categories 
+; @categories
 ; String
 ;
@@ -21,8 +21,8 @@
 ;
 ; @restrictions
-; Beware, this function has loops, ifs and cases everywhere. So it can 
-; not be used by big keywords (with a lot of elements which are big 
+; Beware, this function has loops, ifs and cases everywhere. So it can
+; not be used by big keywords (with a lot of elements which are big
 ; arrays).
-; 
+;
 ; @examples
 ;   IDL> help, tostr(1),tostr('a'),tostr(indgen(4)),tostr(['a','jkfjo'])
@@ -48,24 +48,24 @@
 
    case 1 of
-      size(input, /type) LE 5:BEGIN 
+      size(input, /type) LE 5:BEGIN
          if size(input, /type) EQ 1 then input = long(input)
          if n_elements(input) EQ 1 then res = strtrim(input, 1) $
-         ELSE BEGIN 
+         ELSE BEGIN
             res = '['+strtrim((input)[0], 1)
             for i = 1,  n_elements(input)-1 do res = res+','+strtrim((input)[i], 1)
             res = res+']'
-         ENDELSE 
+         ENDELSE
       END
-      size(input, /type) eq 7:BEGIN 
+      size(input, /type) eq 7:BEGIN
          if n_elements(input) EQ 1 then BEGIN
             sinput = strrepl(input, '''', '''''')
             res = ''''+sinput+''''
-         ENDIF ELSE BEGIN 
+         ENDIF ELSE BEGIN
             res = '['''+strrepl(input[0], '''', '''''')+''''
             for i = 1,  n_elements(input)-1 do res = res+','''+strrepl(input[i], '''', '''''')+''''
             res = res+']'
-         ENDELSE 
+         ENDELSE
       END
-      ELSE:BEGIN 
+      ELSE:BEGIN
          ras = report('la fonction tostr ne marche pas pour input qui est de type '+size(input, /tname))
          res = ''
Index: trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro	(revision 495)
@@ -12,5 +12,5 @@
 ;
 ; @param FIELDS {in}{required}{type=string}
-; A string or string array with field names to 
+; A string or string array with field names to
 ; be contained in STRUCTURE.
 ;
@@ -21,7 +21,7 @@
 ; @keyword INDEX {type=string}
 ; A named variable that will contain the indices of
-; the required field names in the structure. 
+; the required field names in the structure.
 ;
-; They can then be assessed through structure.(index[i]). 
+; They can then be assessed through structure.(index[i]).
 ;
 ; Index will contain -1 for all fields entries that are not in the structure.
@@ -31,5 +31,5 @@
 ;
 ; @keyword EXTRACT
-; set this keyword to extract a field from the structure.  
+; set this keyword to extract a field from the structure.
 ; -1 is return if field or structure are incorrect.
 ;
@@ -50,5 +50,5 @@
 ;  - mgs, 02 Mar 1998: VERSION 1.00
 ;  - mgs, 07 Apr 1998: - second parameter (FIELDS) now optional
-;  - 12 Jan 2001: EXTRACT keyword by S. Masson (smasson\@lodyc.jussieu.fr) 
+;  - 12 Jan 2001: EXTRACT keyword by S. Masson (smasson\@lodyc.jussieu.fr)
 ;
 ; @version
@@ -71,34 +71,29 @@
   compile_opt idl2, strictarrsubs
 ;
- 
-
      ; default index
      index = -1
- 
+
      ; first check number of parameters (must be at least 1)
      if (n_params() lt 1) then begin
          if(keyword_set(verbose)) then $
              ras = report('CHKSTRU: ** invalid number of parameters ! **')
-         if keyword_set(extract) THEN return,-1 ELSE return,0 
+         if keyword_set(extract) THEN return,-1 ELSE return,0
          endif
- 
- 
+
      ; check if the user really passed a structure
- 
+
      s = size(structure)
      if (s[1+s[0]] ne 8) then begin
          if(keyword_set(verbose)) then $
              ras = report('CHKSTRU: ** No structure passed ! **')
-         if keyword_set(extract) THEN return,-1 ELSE return,0 
+         if keyword_set(extract) THEN return,-1 ELSE return,0
      endif
- 
+
      ; only one parameter: then we are finished
      if (n_params() eq 1) then return,1
 
-
- 
      ; see if required field names are contained in the structure
      ; and return indices of these fields
- 
+
      names = tag_names(structure)
      index = intarr(n_elements(fields)) - 1   ; default index to 'not found'
@@ -111,11 +106,9 @@
          endif else index[i] = ind[0]
      endfor
- 
- 
+
      ; check minimum value of index field: -1 indicates error
      if keyword_set(extract) then BEGIN
         if index[0] NE -1 THEN return, structure.(index[0]) ELSE return, -1
      ENDIF ELSE return,(min(index) ge 0)
- 
+
 end
- 
Index: trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro	(revision 495)
@@ -2,20 +2,20 @@
 ;
 ; @file_comments
-; Concatenate 2 structures together. 
+; Concatenate 2 structures together.
 ;
 ; The difference with <proidl>CREATE_STRUCT</proidl>
-; is that if the 2 structures have same elements's name, then mixstru 
-; do not break down but choose for the common element the value 
+; is that if the 2 structures have same elements's name, then mixstru
+; do not break down but choose for the common element the value
 ; specified by the first structure.
 ;
 ; @categories
 ; Structure
-; 
+;
 ; @param STRU1 {in}{required}
-; Structure which can have same elements's name than 
+; Structure which can have same elements's name than
 ; STRU2 but with a different value.
 ;
 ; @param STRU2 {in}{required}
-; Structure which can have same elements's name than 
+; Structure which can have same elements's name than
 ; STRU1 but with a different value.
 ;
@@ -27,5 +27,5 @@
 ;
 ; @examples
-;     
+;
 ;   IDL> a=get_extra(/toto,ok=123)
 ;   IDL> b=get_extra(ok=111, year=1999, age_capitaine=35)
@@ -70,5 +70,5 @@
    if size(stru2, /type) NE 8 then return,  -1
    tname = tag_names(stru2)
-   
+
    str = ''
    FOR i = 0, n_tags(stru2)-1 DO str = str + tname[i]+' = stru2.(' + strtrim(i, 2)+ '), '
Index: trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro
===================================================================
--- trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro	(revision 495)
@@ -8,5 +8,5 @@
 ;
 ; Like the <proidl>WHERE</proidl> function but for use with structures
-; 
+;
 ; @categories
 ; Structure
@@ -17,18 +17,18 @@
 ; @keyword TAG_NAME
 ; Scalar string specifying Tag Name
-; 
+;
 ; @keyword TAG_NUMBER
 ; Otherwise give the Tag Number
-; 
+;
 ; @keyword RANGE
 ; [min,max] range to search for in STRUCT
-; 
+;
 ; @keyword VALUES
 ; One or array of numbers to match for in STRUCT
-; 
+;
 ; @keyword ISELECT
 ; Specifies indices to select only part of structure array,
 ; (use it to recycle subscripts from previous searches).
-; 
+;
 ; @keyword NOPRINT
 ; Suppress informational messages about nothing found.
@@ -37,5 +37,5 @@
 ; Nfound {out}
 ; # of occurrences found.
-; 
+;
 ; @restrictions
 ; User *must* specify (1) TAG_NAME or TAG_NUMBER to search, and (2)
@@ -44,10 +44,10 @@
 ; @examples
 ;
-; Suppose STR is a structure with tags CAT_NO:indgen(10), and 
+; Suppose STR is a structure with tags CAT_NO:indgen(10), and
 ; NAME:strarr(10). Find the indices where STR.CAT_NO is between 3 and 5.
 ;
-;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] ) 
+;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] )
 ; or
-;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5]) 
+;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5])
 ;
 ; @history
@@ -57,5 +57,5 @@
 ; @version
 ; $Id$
-; 
+;
 ;-
 FUNCTION where_tag, Struct, Nfound,     TAG_NAME=tag_name,      $
@@ -99,5 +99,5 @@
            endif
 
-        if N_elements( ipart ) GT 0 then begin          ;check if any searching 
+        if N_elements( ipart ) GT 0 then begin          ;check if any searching
                                                         ;on a subset of input.
                 w = where( ipart GE 0, nf )
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro	(revision 495)
@@ -212,5 +212,4 @@
    endif
 ;
-;
    if keyword_set(key_performance) THEN print, 'temps ciseauxtri', systime(1)-tempsun
 ;
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro	(revision 495)
@@ -150,5 +150,4 @@
     print, 'temps completecointerre: positions des points', systime(1)-tempdeux
 ;
-;
 ; Case land corner in ascent:
 ;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal.
@@ -164,5 +163,4 @@
 ;                 \   |
 ;      t(i)=0       2 u(i)          t(i+1)=1
-;
 ;
   if coinmont[0] NE -1 then BEGIN
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro	(revision 495)
@@ -1,5 +1,4 @@
 ;+
 ; @file_comments
-;
 ;
 ; @categories
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro	(revision 495)
@@ -38,5 +38,5 @@
 ;
 ; @todo
-; Seb: definir params
+; Seb: define params
 ;
 ;-
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro	(revision 495)
@@ -50,6 +50,4 @@
   ny = n_elements(y1)
 ;
-;
-;
 ; Case land corner in ascent:
 ;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal.
@@ -65,5 +63,4 @@
 ;                 \   |
 ;      t(i)=0       2 u(i)          t(i+1)=1
-;
 ;
   if keyword_set(coinmonte) then BEGIN
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro	(revision 495)
@@ -1,5 +1,4 @@
 ;+
 ; @file_comments
-;
 ;
 ; @categories
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro	(revision 495)
@@ -60,5 +60,5 @@
 ;
    if key_gridtype EQ 'e' then onemore = xf[0, 0] gT xf[0, 1]
-; We pass in normalized coordinates to be able to become independant from the projection's
+; We pass in normalized coordinates to be able to become independent from the projection's
 ; type chosen and from the support on which we do the drawing (screen or postscript)
    z = convert_coord(xf[*],yf[*],/data,/to_normal)
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro	(revision 495)
@@ -150,12 +150,6 @@
    endif
 ;
-;
    if keyword_set(key_performance) THEN print, 'temps tracemask', systime(1)-tempsun
 
    return
 end
-
-
-
-
-
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro	(revision 495)
@@ -2,7 +2,5 @@
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @param MASKENTREE {in}{optional}{type=2d array}
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro	(revision 495)
@@ -71,5 +71,5 @@
 ; @todo
 ; seb L.267->268 je ne pense pas que ce soit ce que tu voulais dire mais
-; c'est la traduction de ce qu'il y avait écrit. Correction si besoin.
+; c'est la traduction de ce qu'il y avait Ã©crit. Correction si besoin.
 ;
 ;-
@@ -111,5 +111,4 @@
 ; We construct the test which allow to find this triangle :
 ;
-;
 ;       shift(msk,  0, -1)------------shift(msk, -1, -1)
 ;              |                             |
@@ -121,5 +120,4 @@
 sum1 = msk+shift(msk, -1, 0)+shift(msk, -1, -1)    ;points which surround the left top point.
 sum2 = msk+shift(msk, 0, -1)+shift(msk, -1, -1)    ;points which surround the right bottom point.
-
 
 tempdeux = systime(1)           ; For key_performance =2
@@ -206,5 +204,4 @@
 ; We delete land points which only contain land points.
 ;------------------------------------------------------------
-;
 ;
 if (NOT keyword_set(basic)) AND (NOT keyword_set(keep_cont)) then begin
Index: trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro
===================================================================
--- trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro	(revision 495)
@@ -8,15 +8,15 @@
 ;
 ; @param maskentree {in}{optional}{type=2d array}
-; It is a 2d array which will serve to mask the field we will trace after 
+; It is a 2d array which will serve to mask the field we will trace after
 ; with CONTOUR, ...TRIANGULATION=triangule(mask)
 ; If this argument is not specified, the function use tmask
 ;
 ; @keyword BASIC
-; Specify that the mask is on a basic grid (use the triangulation for vertical 
+; Specify that the mask is on a basic grid (use the triangulation for vertical
 ; cuts and hovmoellers)
 ;
 ; @keyword COINMONTE {type=array}
 ; To obtain the array of "ascending land corner" to be treated with
-; <pro>completecointerre</pro> in the variable array instead of make it pass 
+; <pro>completecointerre</pro> in the variable array instead of make it pass
 ; by the global variable twin_corners_up.
 ;
@@ -38,5 +38,5 @@
 ; @todo
 ; seb L.152->153 je ne pense pas que ce soit ce que tu voulais dire mais
-; c'est la traduction de ce qu'il y avait écrit. Correction si besoin.
+; c'est la traduction de ce qu'il y avait Ã©crit. Correction si besoin.
 ;
 ;-
@@ -194,5 +194,4 @@
 ;------------------------------------------------------------
 
-
    IF keyword_set(key_performance) THEN print, 'temps triangule', systime(1)-tempsun
 
Index: trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro
===================================================================
--- trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro	(revision 495)
@@ -14,5 +14,4 @@
 ; tu fais
 
-
 ; extra=get_extra(/ok, year=1999, age_capitaine=35 )
 
@@ -25,5 +24,5 @@
 ;+
 ;
-; @todo 
+; @todo
 ; seb
 ;
@@ -34,3 +33,3 @@
 ;
     return, extra
-END 
+END
Index: trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro
===================================================================
--- trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro	(revision 495)
@@ -3,6 +3,6 @@
 ; @file_comments
 ; Kind of UNDO:
-; Allows to redo all the chain of drawing since the opening of the last window 
-; without reexecute the last order 
+; Allows to redo all the chain of drawing since the opening of the last window
+; without reexecute the last order
 ;
 ; Example: I do a drawing with 10 plot over it, if I make a
Index: trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro
===================================================================
--- trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro	(revision 495)
@@ -61,6 +61,4 @@
  IF strpos(vectjournal[i],',pos=' ) EQ -1 then $
  vectjournal[i] = vectjournal[i]+strmid(vectjournal[i+1], 1) & endfor
-
-
 ;
 ; we rewrite idlsave.pro
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro	(revision 495)
@@ -15,5 +15,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -86,7 +86,7 @@
   drawover = (flags[where(options EQ 'Overlay')])[0]
 ;
-  alreadyread = extractatt(top_uvalue, 'alreadyread')
+  alreadyread   = extractatt(top_uvalue, 'alreadyread')
   alreadyvector = extractatt(top_uvalue, 'alreadyvector')
-  alreadyover = extractatt(top_uvalue, 'alreadyoer')
+  alreadyover   = extractatt(top_uvalue, 'alreadyover')
 ; What must we read ?
   case 1 of
@@ -414,4 +414,2 @@
   return, Cmd
 end
-
-
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro	(revision 495)
@@ -18,5 +18,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -40,5 +40,4 @@
 FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM=boxzoom $
                      , COMPLETE=complete, NAMEFIELD=namefield
-;
 ;
   compile_opt idl2, strictarrsubs
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro	(revision 495)
@@ -18,5 +18,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro	(revision 495)
@@ -18,5 +18,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -46,5 +46,4 @@
 PRO changefile, base, newfilename, BOXZOOM=boxzoom $
               , DATE1=date1, DATE2=date2, FIELDNAME=fieldname
-;
 ;
   compile_opt idl2, strictarrsubs
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro	(revision 495)
@@ -52,5 +52,4 @@
 ; help,mixstru(top_uvalue.exextra,top_uvalue.extra), /struct
 ;
-;
 ; we recuperate the id of the graphic associated to the widget of id base.
    graphid = extractatt(top_uvalue, 'graphid')
@@ -63,5 +62,4 @@
 ;
    tracecadre, smallout, /fill
-;
 ;
    options = extractatt(top_uvalue, 'options')
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro	(revision 495)
@@ -24,5 +24,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
@@ -58,5 +58,5 @@
       res = lec(name,debut,nomexp, BOXZOOM=boxzoom, _EXTRA = ex)
    ENDIF ELSE res = lect(name,debut,fin, nomexp, BOXZOOM=boxzoom, _EXTRA = ex)
-;------------------------------------------------------------ 
+;------------------------------------------------------------
    return, {tab:res, grille:vargrid, unite:'', experience:varexp, nom:varname}
 end
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro	(revision 495)
@@ -11,5 +11,5 @@
 ;
 ; @keyword _EXTRA
-; Used to pass keywords to <pro>isafile</pro>, 
+; Used to pass keywords to <pro>isafile</pro>,
 ; <pro>ncdf_getaxis</pro> and <pro>ncdf_gettime</pro>
 ;
@@ -47,5 +47,5 @@
 ;       qu''une dimension et etant la dimension temporelle. cette
 ;       variable sera prise comme axe des temps. Rq: si plusieurs
-;       variables verifient ces criteres on considere la premiere
+;       variables vÃ©rifient ces criteres on considere la premiere
 ;       variable
 ;       5) Cette variable axe des temps doit contenir l''attribut
@@ -59,9 +59,8 @@
 ; je crois que c''est tout!
 ;
-;        GRID='[UTVWF]' to specify the type of grid. Defaut is (1)
+;        GRID='[UTVWF]' to specify the type of grid. Default is (1)
 ;        based on the name of the file if the file ends by
 ;        GRID[._][TUVFW].NC (not case sensible) or (2) T if case (1)
 ;        is not found.
-;
 ;
   compile_opt idl2, strictarrsubs
@@ -157,5 +156,5 @@
     jpt = abs(time)
     fakecal = 1
-  ENDIF ELSE jpt = n_elements(time) 
+  ENDIF ELSE jpt = n_elements(time)
 ; high frequency calendar: more than one element per day
   IF max(histogram([long(time-time[0])])) GT 1 THEN fakecal = 1 ELSE fakecal = 0
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro	(revision 495)
@@ -177,7 +177,5 @@
 ; @param DATAFILENAME
 ;
-;
 ; @param IDLFILE
-;
 ;
 ; @param ARGSPRO
Index: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro	(revision 495)
@@ -87,5 +87,4 @@
   window, /free, /pixmap, xsize = xsize, ysize = ysize
 
-
 ; indication of the number of the picture we are creating
   base = widget_base()
@@ -97,5 +96,4 @@
   IF keyword_set(fakecal) THEN date = index1 ELSE date = jul2date(calendar[index1])
   xxx2ps, /noerase, date1in = date, date2in = date
-;
 ;
   image = tvrd(true = depth GT 8)
@@ -112,5 +110,4 @@
 ;- Convert 24-bit image to 8-bit
   image = color_quan(image, 1, red, green, blue, colors = 256, get_translation = translation, /map_all)
-;
 ;
   write_gif, animdir+nomfic, image, red, green, blue, /multiple
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro	(revision 495)
@@ -53,6 +53,4 @@
 end
 
-
-
 ;+
 ; @file_comments
@@ -62,5 +60,4 @@
 ;
 ; @param ID
-;
 ;
 ; @param VALUE
@@ -167,8 +164,4 @@
   endelse
 end
-
-
-
-
 ;
 ;+
@@ -379,7 +372,4 @@
   IF (N_ELEMENTS(y_scroll_size) eq 0)   then y_scroll_size = 0
 
-
-
-
   top_base = 0L
   if (n_elements(label_top) ne 0) then begin
@@ -424,5 +414,4 @@
     EVENT_FUNC='CW_BGROUP_EVENT', $
     UVALUE=WIDGET_INFO(top_base, /child))
-
 
   n = n_elements(names)
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro	(revision 495)
@@ -35,6 +35,4 @@
 ;    return
 ; END
-;
-;
 ;+
 ;
@@ -72,5 +70,5 @@
   widget_control, winfo_id, get_uvalue = infowid
   key_caltype = infowid.caltype
-; high freqeuncy calendar
+; high frequency calendar
   IF keyword_set(infowid.fakecal) THEN BEGIN
     value2 = date2jul(long(value)) - infowid.fakecal
@@ -104,10 +102,8 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
 ;
 ; @param ID
-;
 ;
 ; @returns
@@ -137,5 +133,4 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
@@ -143,7 +138,5 @@
 ; @param ID
 ;
-;
 ; @param WINFOID
-;
 ;
 ; @returns
@@ -182,5 +175,5 @@
     month = (where(allmonths EQ wid_value.combobox_gettext))[0] + 1
     date = date + 100L * long(month)
-  ENDIF ELSE date = date + (oldate MOD 10000L)/100L*100L
+  ENDIF ELSE date = date + (oldate MOD 10000L)/ 100L * 100L
 ;-------------year----------------
   wid_id = widget_info(id, find_by_uname = 'year')
@@ -198,5 +191,4 @@
 ;+
 ; @file_comments
-;
 ;
 ; @categories
@@ -300,5 +292,4 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
@@ -306,7 +297,5 @@
 ; @param EVENT
 ;
-;
 ; @param CASENAME
-;
 ;
 ; @returns
@@ -359,5 +348,4 @@
 ;
 ; @param EVENT
-;
 ;
 ; @returns
@@ -424,5 +412,4 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
@@ -433,5 +420,4 @@
 ; @param CALENDAR
 ;
-;
 ; @param JDATE0
 ;
@@ -440,9 +426,7 @@
 ; @keyword FAKECAL
 ;
-;
 ; @keyword UVALUE
 ;
 ; @keyword UNAME
-;
 ;
 ; @keyword _EXTRA
@@ -524,5 +508,5 @@
       monthindex = where(yearcal EQ year0)
       currentmonth = long(monthcal[monthindex])
-; we suppress the repeted months
+; we suppress the repeated months
       monthindexbis = uniq(currentmonth, sort(currentmonth))
       monthindex = monthindex[monthindexbis]
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro	(revision 495)
@@ -37,5 +37,4 @@
 ; end
 ;
-;
 ;+
 ;
@@ -46,5 +45,4 @@
 ;
 ; @param ID
-;
 ;
 ; @param VALUE
@@ -516,5 +514,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro>!
 ;
@@ -541,5 +539,4 @@
 FUNCTION cw_domain, parent, BOXZOOM=boxzoom, STRICT=strict $
                   , UVALUE=uvalue, UNAME=uname, UNZOOM=unzoom, _EXTRA=ex
-;
 ;
   compile_opt idl2, strictarrsubs
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro	(revision 495)
@@ -116,5 +116,4 @@
 
 ;   widget_control, uniteid, get_value = unite
-;
 ;
 ;    if uval.name EQ 'unite' then begin
@@ -162,5 +161,4 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
@@ -177,5 +175,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
+; Where lon1, lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro	(revision 495)
@@ -145,5 +145,4 @@
 ; @file_comments
 ;
-;
 ; @categories
 ; Compound widget
@@ -210,5 +209,5 @@
   IF uval EQ 'decimal' THEN value = float(event.str) $
   ELSE value = float(widget_info(dcid, /combobox_gettext))
-  out = 0 ; defaut case
+  out = 0 ; default case
   case uval OF
     'plus': if (value + 1) LE minmax[1] then value2 = value + 1 ELSE out = 1
@@ -320,5 +319,4 @@
 ;            slider widget.
 ;
-;
 ; @examples
 ; See the program provided above (testwid and the associated procedure, testwid_event).
Index: trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro	(revision 495)
@@ -249,6 +249,4 @@
    rien = widget_text(base2, value = colvalue, /editable, xsize = 2, uname = 'palnum', uvalue = 'palnum')
 
-
-
 ; widget text containing other keywords pass into top_uvalue.exextra
 ; Does it remain some? If yes, we have to put them as string
Index: trunk/SRC/ToBeReviewed/WIDGET/slec.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/slec.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/slec.pro	(revision 495)
@@ -24,5 +24,5 @@
 ;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]]
 ;   6 elements: The extraction is made on Boxzoom
-; where lon1,lon2,lat1,lat2 are global variables defined at the last 
+; where lon1,lon2,lat1,lat2 are global variables defined at the last
 ; <pro>domdef</pro> !
 ;
Index: trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro	(revision 495)
@@ -65,5 +65,4 @@
   ENDIF ELSE noticebase = -1
 
-
   return, noticebase
 end
Index: trunk/SRC/ToBeReviewed/WIDGET/xx.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/xx.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/xx.pro	(revision 495)
@@ -77,5 +77,4 @@
 ;----------------------------------------------------------------------
 ;
-;
    fileparameters = {filename: 'many !' $
                      , time_counter: calendar $
Index: trunk/SRC/ToBeReviewed/WIDGET/xxx.pro
===================================================================
--- trunk/SRC/ToBeReviewed/WIDGET/xxx.pro	(revision 494)
+++ trunk/SRC/ToBeReviewed/WIDGET/xxx.pro	(revision 495)
@@ -134,7 +134,5 @@
 ; @keyword REDRAW
 ;
-;
 ; @keyword SEPARATE
-;
 ;
 ; @keyword UVALUE
@@ -404,5 +402,5 @@
 ; we find homedir
         homedir = isadirectory(io = homedir, title = 'Bad definition of homedir')
-; We recuperae the list of instructions
+; We recuperate the list of instructions
         globalcommand = extractatt(top_uvalue, 'globalcommand')
 ; We complete by first and last lines of the program
@@ -468,5 +466,5 @@
 ; creation of the pointer we will hook at the widget.
     top_uvalue = ptrarr(2, 29, /allocate_heap)
-; variables refering to the widget
+; variables referring to the widget
     *top_uvalue[0, 0] = 'options' & *top_uvalue[1, 0] = options
     *top_uvalue[0, 1] = 'smallin' & *top_uvalue[1, 1] = smallin
@@ -482,5 +480,5 @@
     *top_uvalue[0, 11] = 'noticebase' & *top_uvalue[1, 11] = 0l
     *top_uvalue[0, 12] = 'extra' & *top_uvalue[1, 12] = ex
-; variables refering to different files we can read
+; variables referring to different files we can read
     *top_uvalue[0, 13] = 'currentfile' & *top_uvalue[1, 13] = currentfile
     *top_uvalue[0, 14] = 'filelist' & *top_uvalue[1, 14] = filelist
@@ -488,5 +486,5 @@
     *top_uvalue[0, 16] = 'readparameters' & *top_uvalue[1, 16] = readparameters
     *top_uvalue[0, 17] = 'meshparameters' & *top_uvalue[1, 17] = meshparameters
-; variables refering to different drawing we can do
+; variables referring to different drawing we can do
     *top_uvalue[0, 18] = 'penvs' & *top_uvalue[1, 18] = replicate(!p, nbredessin)
     *top_uvalue[0, 19] = 'xenvs' & *top_uvalue[1, 19] = replicate(!x, nbredessin)
