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/LABEL/label_gmt.pro

    r157 r231  
    11;+ 
    2 ; @file_comments  
     2; 
     3; @file_comments 
    34; Apply GMT palette into IDL color/intervals system 
    4 ;  
     5; 
    56; @categories 
    6 ;  
    7 ;  
     7; 
    88; @param MIN {in}{required} 
    99; A reel number specifying above what value we want to trace a contour 
    … …  
    1111; @param MAX {in}{required} 
    1212; A reel number specifying below what value we want to trace a contour 
    13 ;  
    14 ; @param INTERVALLE  
    1513; 
    16 ;  
    17 ; @param NCOUL  
     14; @param INTERVALLE 
    1815; 
    19 ;  
     16; @param NCOUL 
     17; 
    2018; @param NCONTOUR {out} 
    2119; Number of contour to be drawn. 
    … …  
    2624; @param COUL 
    2725; 
    28 ;  
    2926; @restrictions 
    30 ;  
    31 ;  
     27; 
    3228; @examples 
    3329; 
    34 ; 
    3530; @history 
    36 ;  
    3731; 
    3832; @version 
    3933; $Id$ 
    4034;- 
     35; 
    4136PRO label_gmt, min, max, intervalle, ncoul, ncontour, level_z2d, coul 
    4237; 
    … …  
    4641@com_eg 
    4742 
    48    IF pal_type NE '2dom' THEN BEGIN  
     43   IF pal_type NE '2dom' THEN BEGIN 
    4944 
    5045;  color defined in lec_pal_gmt.pro 
    … …  
    5651      intervalle =  -1 
    5752 
    58    ENDIF ELSE BEGIN  
     53   ENDIF ELSE BEGIN 
    5954 
    6055      ; grey_shade palette (case 1 in label) 
    6156      IF finite(min) EQ 0 THEN read, ' Grey shade needs a min,max :', min, max 
    6257      ncontour  = fix((max-min)/intervalle) 
    63       level_z2d = min + intervalle*findgen(Ncontour)  
     58      level_z2d = min + intervalle*findgen(Ncontour) 
    6459      max=level_z2d[Ncontour-1]+intervalle 
    6560 
    … …  
    6964      ; color index 
    7065 
    71       IF idx_pal EQ 0 THEN BEGIN  
     66      IF idx_pal EQ 0 THEN BEGIN 
    7267 
    7368         ; build palette 
    … …  
    7671         red[50:98] = long((100.-float(grey_shade))/100.*255.) 
    7772 
    78          IF field.origin EQ 'diff' THEN BEGIN  
    79        
     73         IF field.origin EQ 'diff' THEN BEGIN 
     74 
    8075           ; difference plot : lighter below first negative interval 
    8176            red[51:98] = long((100.-float(grey_shade_2))/100.*255.) 
    … …  
    8378            red[50] = 255 
    8479 
    85          ENDIF  
     80         ENDIF 
    8681 
    8782         ; first color=black 
    … …  
    9590         tvlct, red, green, blue 
    9691 
    97       ENDIF   
    98   
     92      ENDIF 
     93 
    9994      mid_index = max(where(level_z2d LE fldatt.mid)) 
    10095      coul = findgen(Ncontour)+49-mid_index +2 
    10196 
    102    ENDELSE  
    103  
    104  
    105 END  
     97   ENDELSE 
     98END 
Note: See TracChangeset for help on using the changeset viewer.