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/checktypeminmax.pro

    r199 r231  
    22; @file_comments 
    33; 
    4 ; 
    54; @categories 
    6 ; 
    75; 
    86; @param PROCEDURE 
    97; 
    10 ; 
    118; @keyword TYPE 
    12 ; 
    139; 
    1410; @keyword MIN 
    1511; 
    16 ; 
    1712; @keyword MAX 
    18 ; 
    1913; 
    2014; @keyword XY 
    2115; 
    22 ; 
    2316; @keyword XZ 
    24 ; 
    2517; 
    2618; @keyword YZ 
    2719; 
    28 ; 
    2920; @keyword XT 
    30 ; 
    3121; 
    3222; @keyword YT 
    3323; 
    34 ; 
    3524; @keyword ZT 
    36 ; 
    3725; 
    3826; @keyword TT 
    3927; 
    40 ; 
    4128; @keyword XX 
    42 ; 
    4329; 
    4430; @keyword YY 
    4531; 
    46 ; 
    4732; @keyword ZZ 
    48 ; 
    4933; 
    5034; @keyword XINDEX 
    5135; 
    52 ; 
    5336; @keyword YINDEX 
    54 ; 
    5537; 
    5638; @keyword ENDPOINTS 
    5739; 
    58 ; 
    5940; @keyword _EXTRA 
    60 ; Used to pass your keywords 
     41; Used to pass keywords 
    6142; 
    6243; @returns 
    63 ; 
    6444; 
    6545; @uses 
    … …  
    6848; @restrictions 
    6949; 
    70 ; 
    7150; @examples 
    72 ; 
    7351; 
    7452; @history 
    … …  
    8159;- 
    8260; 
    83 ; 
    8461PRO checktypeminmax, procedure, TYPE = type, MIN = min, MAX = max, XY = xy $ 
    8562                     , XZ = xz, YZ = yz, XT = XT, YT = YT, ZT = zt $ 
    … …  
    8764                     , XINDEX = xindex, YINDEX = yindex $ 
    8865                     , ENDPOINTS = endpoints, _extra = ex 
     66; 
    8967  compile_opt idl2, strictarrsubs 
    9068; 
    … …  
    9775         vraimin = type 
    9876         case size(min, /type) of 
    99             0:BEGIN  
     77            0:BEGIN 
    10078               min = vraimin 
    10179               type = 0 
    10280            END 
    103             7:BEGIN  
     81            7:BEGIN 
    10482               type = min 
    10583               min = vraimin 
    … …  
    11290                     type = 0 
    11391                  END 
    114                   7:BEGIN  
     92                  7:BEGIN 
    11593                     type = max 
    11694                     max = min 
    … …  
    152130        'plt':type = 'xy' 
    153131        'pltz':BEGIN 
    154           if keyword_set(endpoints) then BEGIN  
     132          if keyword_set(endpoints) then BEGIN 
    155133            lon1 = min([endpoints[0], endpoints[2]], max = lon2) 
    156134            lat1 = min([endpoints[1], endpoints[3]], max = lat2) 
    … …  
    159137        END 
    160138        'pltt':BEGIN 
    161           if keyword_set(endpoints) then BEGIN  
     139          if keyword_set(endpoints) then BEGIN 
    162140            lon1 = min([endpoints[0], endpoints[2]], max = lon2) 
    163141            lat1 = min([endpoints[1], endpoints[3]], max = lat2) 
    … …  
    167145        END 
    168146        'plt1d':BEGIN 
    169           if keyword_set(endpoints) then BEGIN  
     147          if keyword_set(endpoints) then BEGIN 
    170148            lon1 = min([endpoints[0], endpoints[2]], max = lon2) 
    171149            lat1 = min([endpoints[1], endpoints[3]], max = lat2) 
    … …  
    181159        END 
    182160      endcase 
    183     ENDIF  
     161    ENDIF 
    184162    WHILE type NE 'xy' AND type NE 'xz' AND type NE 'yz' $ 
    185163      AND type NE 'xt' AND type NE 'yt' AND type NE 'zt' $ 
    … …  
    189167                       , /chkwidget) 
    190168      type = strlowcase(type) 
    191     ENDWHILE  
     169    ENDWHILE 
    192170; 
    193171; 
    194      
     172 
    195173    return 
    196174  end 
Note: See TracChangeset for help on using the changeset viewer.