source: trunk/SRC/Obsolete/fictype.pro @ 272

Last change on this file since 272 was 238, checked in by pinsard, 17 years ago

improvements/corrections of some *.pro headers
  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1;+
2;
3; @file_comments
4; gives fictype ('DA' 'MO' 'AN' 'SE' 'EX') corresponding
5; to the given date in vairmer format ( yymmdd )
6;
7; @param vdate {in}{required}
8;
9; @param dim
10; unused
11;
12; @uses
13; common.pro
14;
15; @examples
16; IDL> fictype = fictype(930124)
17;
18; @history
19; Jerome Vialard  (jv\@lodyc.jussieu.fr)
20; 2/7/98
21;
22; @version
23; $Id$
24;
25;-
26;
27function fictype, vdate, dim
28;
29  compile_opt idl2, strictarrsubs, obsolete
30;
31@common
32;------------------------------------------------------------
33;   constitution de l'adresse ou aller chercher le fichier
34;--------------------------------------------------------------
35; date yymmdd = vdate
36   jul = juldate(vdate)
37;
38   case 1 of
39      (year eq 0) and (month eq 0) : return, 'EX'
40      (year eq 0) and (month ne 0) and (day eq 0) : return, 'SE'
41      (year ne 0) and (month eq 0) : return, 'AN'
42      (year ne 0) and (day eq 0)   : return, 'MO'
43      else                         : return, 'DA'
44   endcase
45;
46;------------------------------------------------------------
47   fini:
48;
49   return, -1
50end
51;------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.