Ignore:
Timestamp:
03/19/07 18:15:51 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r163 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    6 ; @file_comments  
    7 ; We give a min and a max, and the procedure send back  
     3; @file_comments 
     4; We give a min and a max, and the procedure send back 
    85; the good contour interval and labels's value. 
    96; 
    10 ; @categories  
     7; @categories 
    118; Graphics 
    129; 
    … …  
    3128; 
    3229;- 
    33 ;------------------------------------------------------------ 
    34 ;------------------------------------------------------------ 
    35 ;------------------------------------------------------------ 
     30; 
    3631PRO autoscale, min, max, ci 
    3732; 
    … …  
    5348; until the number of contour is inferior to 30. 
    5449; 
    55     WHILE ceil((max-min)/ci) GE 30 DO BEGIN  
     50    WHILE ceil((max-min)/ci) GE 30 DO BEGIN 
    5651          ci = ci0*coef[n] 
    5752          n = n+1 
    58     ENDWHILE  
     53    ENDWHILE 
    5954 
    6055    min = floor(min/ci/2)*ci*2 
    6156    max = ceil(max/ci/2)*ci*2 
    62      
    63     nlevels = round((max-min)/ci)     
     57 
     58    nlevels = round((max-min)/ci) 
    6459 
    6560; 
    6661;  We force the number of contour to be even 
    6762; 
    68     IF nlevels MOD 2 EQ 1 THEN BEGIN  
     63    IF nlevels MOD 2 EQ 1 THEN BEGIN 
    6964          nlevels = nlevels+1 
    7065          max = max+ci 
    71     END  
    72  
    73  
    74 END  
    75  
    76  
    77  
    78  
     66    END 
     67END 
Note: See TracChangeset for help on using the changeset viewer.