Changeset 9 for trunk/Obsolete/vraidate.pro

Timestamp:

04/26/06 16:29:38 (18 years ago)

Author:

pinsard

Message:

upgrade of CALENDRIER/Calendar according to cerbere.lodyc.jussieu.fr:/usr/home/smasson/SAXO_RD/ : files

File:

• trunk/Obsolete/vraidate.pro (copied) (copied from trunk/CALENDRIER/vraidate.pro) (2 diffs)

trunk/Obsolete/vraidate.pro

@@ -5 +5 @@
 ; NAME:vraidate
 ;
-; PURPOSE:donne la date en long et avec le siecle s'il n'est pas specifie.
+; PURPOSE:donne la date en long
 ;
-; CATEGORY:compatibile an 2000 bien-sur
+; CATEGORY:
 ;
-; CALLING SEQUENCE:res=varidate(date)
+; CALLING SEQUENCE:res=vraidate(date)
 ;
-; INPUTS:date:une date vairmer du type yymmdd ou yyyymmdd
+; INPUTS:date:une date du type yyyymmdd
 ;
 ; KEYWORD PARAMETERS:
-;       VRAIDATE: pour ne pasa transformer l''annnee 01 en 1901 
+;
+;       /GRADS: if  1 le year le 49 then year = 2000+year
+;               if 50 le year le 99 then year = 1900+year
 ;
 ; OUTPUTS:une date vairmer du type yyyymmdd
@@ -24 +26 @@
 ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
 ;                       3/7/98
+; remove automatic change from year 1 to 1901... Aug 2004
 ;-
 ;------------------------------------------------------------
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-function vraidate, date, VRAIDATE = vraidate, _EXTRA = ex
+function vraidate, date, GRADS = grads, _EXTRA = ex
 ;------------------------------------------------------------
-   date=long(date)
-   annee=date/10000
-   if keyword_set(VRAIDATE) then return, date ELSE $
-   return, date+19000000*(annee ne 0 and annee ne -1 and date lt 1000000 and date GT 0)
+  IF NOT keyword_set(GRADS) THEN return, long(date)
+;
+  date = long(date)
+  annee = date/10000
+  return, date+19000000L*(annee GE 50 and date lt 1000000)+20000000L*(annee LT 50 and date lt 1000000)
 ;------------------------------------------------------------
 end