Index: trunk/SRC/ToBeReviewed/HOPE/read_hope.pro
===================================================================
--- trunk/SRC/ToBeReviewed/HOPE/read_hope.pro	(revision 163)
+++ trunk/SRC/ToBeReviewed/HOPE/read_hope.pro	(revision 226)
@@ -7,5 +7,5 @@
 ;
 ; @param EVENT
-; 
+;
 ;
 ; @returns
@@ -16,6 +16,5 @@
 ;
 ; @examples
-; 
-; 
+;
 ; @history
 ;
@@ -244,13 +243,13 @@
 ; A two elements vector [date1, date2]]
 ; the boundary of the calendar with date1 and date2
-; folowing the syntax yyyymmdd
+; following the syntax yyyymmdd
 ;
 ; @keyword ODDPT
 ; Activate to read only the sections located on ODD
-; points 
+; points
 ;
 ; @keyword EVENPT
 ; Activate to read only the sections located on even
-; points 
+; points
 ;
 ; @keyword ODDEVENPT
@@ -332,14 +331,14 @@
   compile_opt idl2, strictarrsubs
 ;
-@common                         ; usefull only for the definition of iodir 
+@common                         ; usefull only for the definition of iodir
   if n_elements(filename) EQ 0 then filename = isafile(iodirectory = iodir, _extra = ex)
   IF size(filename, /type) NE 7 THEN return, -1
   filename = isafile(filename = filename, iodirectory = iodir, _extra = ex)
 ;
-  cdfid = ncdf_open(filename)       ; id of the netcdf file 
+  cdfid = ncdf_open(filename)       ; id of the netcdf file
   wathinside = ncdf_inquire(cdfid)  ; structure with global informations
-;------------------------------- 
+;-------------------------------
 ;  dimensions
-;------------------------------- 
+;-------------------------------
   namedim = strarr(wathinside.ndims)  ; name of the dimensions
   typedim = strarr(wathinside.ndims)  ; type of the dimensions (x,y,z,t)
@@ -349,5 +348,5 @@
     ncdf_diminq, cdfid, dimiq, name, value
     namedim[dimiq] = name
-    case 1 of 
+    case 1 of
       STRCMP(name, 'lon', 3, /FOLD_CASE):typedim[dimiq] = 'x'
       STRCMP(name, 'lat', 3, /FOLD_CASE):typedim[dimiq] = 'y'
@@ -363,5 +362,5 @@
 ; dimlist: structure which contains the name and the value of each
 ; dimension
-; we suppose that there is always a variable which has the 
+; we suppose that there is always a variable which has the
 ; same name that the dimension and which gives the values of
 ; this dimension
@@ -372,7 +371,7 @@
     dimlist = create_struct(dimlist, namedim[dimiq], value)
   endfor
-;------------------------------- 
+;-------------------------------
 ;  variables
-;------------------------------- 
+;-------------------------------
   namevar = strarr(wathinside.nvars)   ; names of the variables
   ndimsvar = lonarr(wathinside.nvars)  ; number of dim for each variable
@@ -388,5 +387,5 @@
 ; we cut dimvar to select only the interessant part
   dimvar = dimvar[0:max(ndimsvar)-1, *]
-; selection of the data variables which are diffrent from the
+; selection of the data variables which are different from the
 ; dimension variables
 ; we suppose that that data variables are 4D array (with sometime
@@ -412,18 +411,18 @@
   endfor
 ;
-;---------------------------------------------------  
-;---------------------------------------------------  
-;---------------------------------------------------  
+;---------------------------------------------------
+;---------------------------------------------------
+;---------------------------------------------------
 ;  definition of the widget
-;---------------------------------------------------  
-;---------------------------------------------------  
-;---------------------------------------------------  
+;---------------------------------------------------
+;---------------------------------------------------
+;---------------------------------------------------
   base = widget_base(/column)
-;---------------------------------------------------  
-; first base: 
+;---------------------------------------------------
+; first base:
 ;    droplist to select the type of section
 ;    droplist to select the variable
 ;    button to select type of line : odd, even or odd-even
-;---------------------------------------------------  
+;---------------------------------------------------
   base1 = widget_base(base, /row, /frame)
   typechoice = sectype[uniq(sectype, sort(sectype))]
@@ -435,5 +434,5 @@
                     = 0L > (where(typechoice EQ selectedtype))[0]
   ENDIF ELSE selectedtype = typechoice[0]
-; 
+;
   varchoice = namevar[uniq(namevar, sort(namevar))]
   base12 = widget_droplist(base1, title = 'Available data', value = varchoice, uvalue = {name:'var choice'}, uname = 'var choice')
@@ -445,17 +444,17 @@
 ;
   base13 = widget_base(base1, /row, uname = 'linechoicebase')
-;---------------------------------------------------  
+;---------------------------------------------------
 ; base 2: base to select the domain of the odd points
 ;---------------------------------------------------
   base2 = widget_base(base, /column, uname = 'basedomainodd', /frame)
-;---------------------------------------------------  
+;---------------------------------------------------
 ; base 3: base to select the domain of the even points
 ;---------------------------------------------------
   base3 = widget_base(base, /column, uname = 'basedomaineven', /frame)
-;---------------------------------------------------  
+;---------------------------------------------------
 ; base 4: base to select the domain of the odd-even points
 ;---------------------------------------------------
   base4 = widget_base(base, /column, uname = 'basedomainodd-even', /frame)
-;---------------------------------------------------  
+;---------------------------------------------------
 ; base 5: calendar
 ;---------------------------------------------------
@@ -468,9 +467,9 @@
   base51 = cw_calendar(base5, time, uname = 'date1', uvalue = {name:'date1'})
   base52 = cw_calendar(base5, time, uname = 'date2', uvalue = {name:'date2'})
-;---------------------------------------------------  
+;---------------------------------------------------
 ;  base 6: base to select the min, max, ... and others keywords
 ;---------------------------------------------------
   base6 = cw_specifie(base, /column, uname = 'specifie', uvalue = {name:'specifie'})
-;---------------------------------------------------  
+;---------------------------------------------------
 ;  base 7: last base with the action buttons
 ;---------------------------------------------------
@@ -478,7 +477,7 @@
   base71 = widget_button(base7, value = 'Plot', uvalue = {name:'plot'})
   base72 = widget_button(base7, value = 'Cancel', uvalue = {name:'cancel'})
-;---------------------------------------------------  
+;---------------------------------------------------
 ; determination of the selected variable ......
-;---------------------------------------------------  
+;---------------------------------------------------
   goodname = 0 > where(strlowcase(namevar) EQ strlowcase(selectedname))
   goodtype = 0 > where(sectype EQ selectedtype)
@@ -568,8 +567,8 @@
     endif
   ENDIF
-;---------------------------------------------------  
+;---------------------------------------------------
 ; definition of the uvalue of the base which allows to share the
-; variables between programs. 
-;---------------------------------------------------  
+; variables between programs.
+;---------------------------------------------------
   top_uvalue = ptrarr(2, 18, /allocate_heap)
   *top_uvalue[0, 0] = 'type choice' & *top_uvalue[1, 0] = temporary(typechoice)
