source: trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro @ 267

Last change on this file since 267 was 232, checked in by pinsard, 17 years ago

improvements/corrections of some *.pro headers
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.2 KB
Line 
1;+
2;
3; @file_comments
4;
5;
6; @categories
7;
8;
9; @param TIMAVE
10;
11;
12; @param DATE
13;
14;
15; @returns
16;
17;
18; @uses
19;
20;
21; @restrictions
22;
23;
24; @examples
25;
26;
27; @history
28;
29;
30; @version
31; $Id$
32;
33; @todo seb
34;-
35FUNCTION def_month, timave, date
36;
37; translate month number in string
38;
39;
40  compile_opt idl2, strictarrsubs
41;
42   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
43   CASE strmid(timave, 0, 2) OF
44      '1m': BEGIN
45         CASE strmid(date, strlen(date)-2, 2) OF
46            '01': mn = 'January'
47            '02': mn = 'February'
48            '03': mn = 'March'
49            '04': mn = 'April'
50            '05': mn = 'May'
51            '06': mn = 'June'
52            '07': mn = 'July'
53            '08': mn = 'August'
54            '09': mn = 'September'
55            '10': mn = 'October'
56            '11': mn = 'November'
57            '12': mn = 'December'
58            ELSE: mn = '???'
59         ENDCASE
60      END
61      '3m': BEGIN
62         CASE strmid(date, strlen(date)-2, 2) OF
63            '01': mn = 'DJF'
64            '02': mn = 'MMA'
65            '03': mn = 'JJA'
66            '04': mn = 'SON'
67            ELSE: mn = '???'
68         ENDCASE
69      END
70      ELSE:
71   ENDCASE 
72
73   return, mn
74END
Note: See TracBrowser for help on using the repository browser.