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

Last change on this file since 114 was 114, checked in by smasson, 18 years ago

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