Changeset 32


Ignore:
Timestamp:
01/15/08 16:26:07 (16 years ago)
Author:
kolasinski
Message:

Just to conform to Eric's version - pb with spaces - nothing new

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/procs/data_read.pro

    r26 r32  
    1515   read = 1 
    1616 
    17 IF cmd.var EQ cmd_prev.var AND cmd.grid EQ cmd_prev.grid AND cmd.plt EQ cmd_prev.plt AND cmd.timave EQ cmd_prev.timave AND cmd.date1 EQ cmd_prev.date1 THEN BEGIN  
    18    IF hotyp NE '-' THEN BEGIN  
    19       ; time serie 
    20       IF cmd.spec EQ cmd_prev.spec THEN BEGIN  
    21          fldr = field  
    22          read = 0 
    23       ENDIF ELSE read = 1 
    24        
    25    ENDIF ELSE BEGIN  
    26       read = 1 
    27       IF strpos(cmd.plt, '#') NE -1 THEN BEGIN 
    28          IF  cmd.plt EQ cmd_prev.plt THEN BEGIN ; not same zoom 
     17   IF cmd.var EQ cmd_prev.var AND cmd.grid EQ cmd_prev.grid AND cmd.plt EQ cmd_prev.plt AND cmd.timave EQ cmd_prev.timave AND cmd.date1 EQ cmd_prev.date1 THEN BEGIN  
     18      IF hotyp NE '-' THEN BEGIN  
     19                                ; time serie 
     20         IF cmd.spec EQ cmd_prev.spec THEN BEGIN  
    2921            fldr = field  
    3022            read = 0 
    31          ENDIF ELSE begin 
    32             read = 1 
    33          ENDELSE 
    34       ENDIF  
    35    ENDELSE  
    36 ENDIF ELSE read = 1 
    37  
    38 read = 1 
    39  
     23         ENDIF ELSE read = 1 
     24          
     25      ENDIF ELSE BEGIN  
     26         read = 1 
     27         IF strpos(cmd.plt, '#') NE -1 THEN BEGIN 
     28            IF  cmd.plt EQ cmd_prev.plt THEN BEGIN ; not same zoom 
     29               fldr = field  
     30               read = 0 
     31            ENDIF ELSE begin 
     32               read = 1 
     33            ENDELSE 
     34         ENDIF  
     35      ENDELSE  
     36   ENDIF ELSE read = 1 
     37    
     38   read = 1 
     39    
    4040IF read EQ 1 THEN BEGIN  
    4141 
Note: See TracChangeset for help on using the changeset viewer.