source: trunk/CALENDRIER/monthname.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 864 bytes
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:monthname
6;
7; PURPOSE:gives the name of a month
8;
9; CATEGORY:
10;
11; CALLING SEQUENCE:name=monthname(number)
12;
13; INPUTS: number, the month number (from 1 to 12)
14;
15; KEYWORD PARAMETERS:
16;
17; OUTPUTS: an integer, the month's name
18;
19; COMMON BLOCKS:
20;
21; SIDE EFFECTS:
22;
23; RESTRICTIONS:
24;
25; EXAMPLE:
26;
27; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
28;                      1 October 2001
29;-
30;------------------------------------------------------------
31;------------------------------------------------------------
32;------------------------------------------------------------
33FUNCTION monthname,  mm1
34   return, string(format='(C(CMoA0))',31*(mm1-1))
35end
Note: See TracBrowser for help on using the repository browser.