Last change
on this file since 162 was
162,
checked in by pinsard, 15 years ago
|
start to modify unformal header to idldoc 2. header syntax
|
File size:
372 bytes
|
Line | |
---|
1 | ;+ |
---|
2 | ; |
---|
3 | ; @version |
---|
4 | ; $Id$ |
---|
5 | ; |
---|
6 | ;- |
---|
7 | FUNCTION trans_month, month |
---|
8 | |
---|
9 | CASE month OF |
---|
10 | 01: mn = 'JAN' |
---|
11 | 02: mn = 'FEB' |
---|
12 | 03: mn = 'MAR' |
---|
13 | 04: mn = 'APR' |
---|
14 | 05: mn = 'MAY' |
---|
15 | 06: mn = 'JUN' |
---|
16 | 07: mn = 'JUL' |
---|
17 | 08: mn = 'AUG' |
---|
18 | 09: mn = 'SEP' |
---|
19 | 10: mn = 'OCT' |
---|
20 | 11: mn = 'NOV' |
---|
21 | 12: mn = 'DEC' |
---|
22 | ELSE: |
---|
23 | ENDCASE |
---|
24 | |
---|
25 | return, mn |
---|
26 | END |
---|
Note: See
TracBrowser
for help on using the repository browser.