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

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

modification of some headers (+some corrections) to prepare usage of the new idldoc
  • 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;-
26function fictype, vdate, dim
27;
28  compile_opt idl2, strictarrsubs, obsolete
29;
30@common
31;------------------------------------------------------------
32;   constitution de l'adresse ou aller chercher le fichier
33;--------------------------------------------------------------
34; date yymmdd = vdate
35   jul = juldate(vdate)
36;
37   case 1 of
38      (year eq 0) and (month eq 0) : return, 'EX'
39      (year eq 0) and (month ne 0) and (day eq 0) : return, 'SE'
40      (year ne 0) and (month eq 0) : return, 'AN'
41      (year ne 0) and (day eq 0)   : return, 'MO'
42      else                         : return, 'DA'
43   endcase
44;
45;------------------------------------------------------------
46   fini:
47;
48   return, -1
49end
50;------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.