Changeset 10
- Timestamp:
- 11/27/07 17:23:47 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/nc_read.pro
r4 r10 21 21 ; decide which subdomain of data to read 22 22 ; 23 23 24 IF debug_w THEN print, 'keyword_set(ALL_DATA) : ', keyword_set(ALL_DATA) 24 25 … … 537 538 ENDFOR 538 539 540 ; set valmask to 1.e20 541 542 ; ensure valmask is positive 543 544 IF valmask LT 0 THEN BEGIN 545 print, ' *** Warning valmask is negative - changing sign: ', valmask 546 idx_t = where (field.data EQ valmask) 547 IF idx_t(0) NE -1 THEN field.data(idx_t) = -valmask 548 valmask = -valmask 549 idx_t=0 ; free memory 550 ENDIF 551 539 552 ; min/max 540 553
Note: See TracChangeset
for help on using the changeset viewer.