source: trunk/LECTURE/fictype.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:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME: fictype
6;
7; PURPOSE:  gives fictype ('DA' 'MO' 'AN' 'SE' 'EX') corresponding
8;           to the given date in vairmer format ( yymmdd )
9;
10; CATEGORY:
11;
12; CALLING SEQUENCE:  fictype = fictype(930124)
13;
14; INPUTS:
15;
16; KEYWORD PARAMETERS:
17;
18; OUTPUTS:
19;
20; COMMON BLOCKS:
21;       common.pro
22;
23; SIDE EFFECTS:
24;
25; RESTRICTIONS:
26;
27; EXAMPLE:
28;
29; MODIFICATION HISTORY: Jerome Vialard  (jv@lodyc.jussieu.fr)
30;                       2/7/98
31;-
32;------------------------------------------------------------
33;------------------------------------------------------------
34;------------------------------------------------------------
35function fictype, vdate, dim
36@common
37;------------------------------------------------------------
38;   constitution de l'adresse ou aller chercher le fichier
39;--------------------------------------------------------------
40; date yymmdd = vdate
41   jul = juldate(vdate)
42;
43   case 1 of
44      (year eq 0) and (month eq 0) : return, 'EX'
45      (year eq 0) and (month ne 0) and (day eq 0) : return, 'SE'
46      (year ne 0) and (month eq 0) : return, 'AN'
47      (year ne 0) and (day eq 0)   : return, 'MO'
48      else                         : return, 'DA'
49   endcase
50;
51;------------------------------------------------------------
52   fini:
53;
54   return, -1
55end
56;------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.