Ignore:
Timestamp:
06/29/06 16:59:33 (18 years ago)
Author:
pinsard
Message:

correction of some *.pro using aspell list; introduction of default idldoc syntax

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/ReadWrite/scanctl.pro

    r114 r121  
    11;+ 
    2 ;       @file_comments GLAMBOUNDARY 2 elements vector, {lon1,lon2], the longitute 
     2; @file_comments GLAMBOUNDARY 2 elements vector, {lon1,lon2], the longitude 
    33;       boundaries that should be used to visualize the data. 
    44;         lon2 > lon1 
     
    3434   spawn, '\grep -i "^FILEHEADER" '+filename, fileheader 
    3535   fileheader = strtrim(fileheader, 2) 
    36    if keyword_set(fileheader) then BEGIN  
     36   if keyword_set(fileheader) then BEGIN 
    3737      fileheader = strsplit(fileheader[0],/extract) 
    3838      fileheader = long(fileheader[1]) 
     
    4040   spawn, '\grep -i "^THEADER" '+filename, theader 
    4141   theader = strtrim(theader, 2) 
    42    if keyword_set(theader) then BEGIN  
     42   if keyword_set(theader) then BEGIN 
    4343      theader = strsplit(theader[0],/extract) 
    4444      theader = long(theader[1]) 
     
    4646   spawn, '\grep -i "^XYHEADER" '+filename, xyheader 
    4747   xyheader = strtrim(xyheader, 2) 
    48    if keyword_set(xyheader) then BEGIN  
     48   if keyword_set(xyheader) then BEGIN 
    4949      xyheader = strsplit(xyheader[0],/extract) 
    5050      xyheader = long(xyheader[1]) 
     
    148148   monthsname = string(format='(C(CMOA))',31*(indgen(12))) 
    149149   case 1 OF 
    150 ; h[h]:mmZd[d]mmmyy[yy]  
     150; h[h]:mmZd[d]mmmyy[yy] 
    151151      strpos(t0, ':') NE -1:BEGIN 
    152152         pp = strpos(t0, ':') 
     
    359359      endcase 
    360360; 
    361 ; number of files  
     361; number of files 
    362362; 
    363363      nof = ceil(jpt/(1.*jpt1file)) 
     
    374374;------------------------ 
    375375;------------------------ 
    376 ; extracting the variables  
     376; extracting the variables 
    377377;------------------------ 
    378378;------------------------ 
     
    386386      stop 
    387387   endif 
    388    varlist = varlist[1:n_elements(varlist)-2]  
     388   varlist = varlist[1:n_elements(varlist)-2] 
    389389   if n_elements(varlist) NE nvars  then begin 
    390390      print, 'Number of variables indicated by VARS ('+strtrim(nvars, 1)+') differs from number of lines (without ''#'' at the beginning) located between VARS and ENDVARS: '+strtrim(n_elements(varlist), 1) 
Note: See TracChangeset for help on using the changeset viewer.