Changeset 121 for trunk/SRC/ReadWrite/scanctl.pro
- Timestamp:
- 06/29/06 16:59:33 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ReadWrite/scanctl.pro
r114 r121 1 1 ;+ 2 ; @file_comments GLAMBOUNDARY 2 elements vector, {lon1,lon2], the longitute2 ; @file_comments GLAMBOUNDARY 2 elements vector, {lon1,lon2], the longitude 3 3 ; boundaries that should be used to visualize the data. 4 4 ; lon2 > lon1 … … 34 34 spawn, '\grep -i "^FILEHEADER" '+filename, fileheader 35 35 fileheader = strtrim(fileheader, 2) 36 if keyword_set(fileheader) then BEGIN 36 if keyword_set(fileheader) then BEGIN 37 37 fileheader = strsplit(fileheader[0],/extract) 38 38 fileheader = long(fileheader[1]) … … 40 40 spawn, '\grep -i "^THEADER" '+filename, theader 41 41 theader = strtrim(theader, 2) 42 if keyword_set(theader) then BEGIN 42 if keyword_set(theader) then BEGIN 43 43 theader = strsplit(theader[0],/extract) 44 44 theader = long(theader[1]) … … 46 46 spawn, '\grep -i "^XYHEADER" '+filename, xyheader 47 47 xyheader = strtrim(xyheader, 2) 48 if keyword_set(xyheader) then BEGIN 48 if keyword_set(xyheader) then BEGIN 49 49 xyheader = strsplit(xyheader[0],/extract) 50 50 xyheader = long(xyheader[1]) … … 148 148 monthsname = string(format='(C(CMOA))',31*(indgen(12))) 149 149 case 1 OF 150 ; h[h]:mmZd[d]mmmyy[yy] 150 ; h[h]:mmZd[d]mmmyy[yy] 151 151 strpos(t0, ':') NE -1:BEGIN 152 152 pp = strpos(t0, ':') … … 359 359 endcase 360 360 ; 361 ; number of files 361 ; number of files 362 362 ; 363 363 nof = ceil(jpt/(1.*jpt1file)) … … 374 374 ;------------------------ 375 375 ;------------------------ 376 ; extracting the variables 376 ; extracting the variables 377 377 ;------------------------ 378 378 ;------------------------ … … 386 386 stop 387 387 endif 388 varlist = varlist[1:n_elements(varlist)-2] 388 varlist = varlist[1:n_elements(varlist)-2] 389 389 if n_elements(varlist) NE nvars then begin 390 390 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.