pro date2euro,hdr
;+
; PROCEDURE
;  DATE2EURO
;
; CALLING SEQUENCE
;   DATE2EURO,HDR
;
; PURPOSE 
;  CHANGE FORMAT OF DATE-0BS PARAMETER IN A FITS HEADER FROM
;  'DD-MON-YYYY' TO 'DD/MM/YY'. 
;
; INPUT/OUTPUT
;  HDR  - HEADER TO BE FIXED
;
; REVISION HISTORY
;  WRITTEN BY N. COLLINS, HUGHES/STX, 30-JAN-1992
;
;-
;
on_error,2
if n_params() lt 1 then message,'date2euro,hdr'
;
date = sxpar(hdr,'date-obs')
dd = strmid(date,0,2)
mon = strmid(date,3,3)
yy = strmid(date,9,2)
;
case mon of 
  'JAN':  mm = '01'
  'FEB':  mm = '02'
  'MAR':  mm = '03'
  'APR':  mm = '04'
  'MAY':  mm = '05'
  'JUN':  mm = '06'
  'JUL':  mm = '07'
  'AUG':  mm = '08
  'SEP':  mm = '09'
  'OCT':  mm = '10'
  'NOV':  mm = '11'
  'DEC':  mm = '12'
endcase
;
date = dd + '/' + mm + '/' + yy
sxaddpar,hdr,'date-obs',date,'DATE OF OBSERVATION'
;
return
end