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

Last change on this file since 103 was 103, checked in by pinsard, 18 years ago

start to modify headers of Grid .pro files for better idldoc output
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 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@common
20;------------------------------------------------------------
21;   constitution de l'adresse ou aller chercher le fichier
22;--------------------------------------------------------------
23; date yymmdd = vdate
24   jul = juldate(vdate)
25;
26   case 1 of
27      (year eq 0) and (month eq 0) : return, 'EX'
28      (year eq 0) and (month ne 0) and (day eq 0) : return, 'SE'
29      (year ne 0) and (month eq 0) : return, 'AN'
30      (year ne 0) and (day eq 0)   : return, 'MO'
31      else                         : return, 'DA'
32   endcase
33;
34;------------------------------------------------------------
35   fini:
36;
37   return, -1
38end
39;------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.