Ignore:
Timestamp:
04/17/14 10:49:43 (10 years ago)
Author:
pinsard
Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro

    r232 r495  
    33; @file_comments 
    44; 
    5 ; 
    65; @categories 
    7 ; 
    86; 
    97; @param TIMAVE 
    108; 
    11 ; 
    129; @param DATE 
    13 ; 
    1410; 
    1511; @returns 
    1612; 
    17 ; 
    1813; @uses 
    19 ; 
    2014; 
    2115; @restrictions 
    2216; 
    23 ; 
    2417; @examples 
    2518; 
    26 ; 
    2719; @history 
    28 ; 
    2920; 
    3021; @version 
    … …  
    3728; translate month number in string 
    3829; 
    39 ; 
    4030  compile_opt idl2, strictarrsubs 
    4131; 
    4232   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_')) 
    43    CASE strmid(timave, 0, 2) OF  
     33   CASE strmid(timave, 0, 2) OF 
    4434      '1m': BEGIN 
    45          CASE strmid(date, strlen(date)-2, 2) OF  
     35         CASE strmid(date, strlen(date)-2, 2) OF 
    4636            '01': mn = 'January' 
    4737            '02': mn = 'February' 
    … …  
    5747            '12': mn = 'December' 
    5848            ELSE: mn = '???' 
    59          ENDCASE  
    60       END  
     49         ENDCASE 
     50      END 
    6151      '3m': BEGIN 
    62          CASE strmid(date, strlen(date)-2, 2) OF  
     52         CASE strmid(date, strlen(date)-2, 2) OF 
    6353            '01': mn = 'DJF' 
    6454            '02': mn = 'MMA' 
    … …  
    6656            '04': mn = 'SON' 
    6757            ELSE: mn = '???' 
    68          ENDCASE  
    69       END  
     58         ENDCASE 
     59      END 
    7060      ELSE: 
    71    ENDCASE   
     61   ENDCASE 
    7262 
    7363   return, mn 
    74 END  
     64END 
Note: See TracChangeset for help on using the changeset viewer.