source: trunk/Calendar/jul2date.pro @ 54

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

upgrade of CALENDRIER/Calendar according to cerbere.lodyc.jussieu.fr:/usr/home/smasson/SAXO_RD/ : files
  • Property svn:executable set to *
File size: 957 bytes
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME: jul2date
6;
7; PURPOSE: gives yyyymmdd date equivalent of a julian day
8;
9; CATEGORY: calendar
10;
11; CALLING SEQUENCE: date = jul2date(jday)
12;
13; INPUTS:jday: julian day
14;
15; KEYWORD PARAMETERS: None
16;
17; OUTPUTS: date in yyyymmdd format
18;
19; COMMON BLOCKS: None
20;
21; SIDE EFFECTS:
22;
23; RESTRICTIONS:
24;
25; EXAMPLE:
26;
27;    IDL> print, jul2date(julday(12,23,1999))
28;        19991223
29;
30; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
31;                       June 2005
32;-
33;------------------------------------------------------------
34;------------------------------------------------------------
35;------------------------------------------------------------
36function jul2date, jday
37  caldat, jday, month, day, year
38  return, 10000L*year+100L*month+day
39end
Note: See TracBrowser for help on using the repository browser.