pro rd_sol,filnam,time,semiax,eccent,yyyy,dang1
;+
; NAME:
;   rd_sol
; PURPOSE:
;   Read the Yohkoh orbital elements file
; HISTORY:
;   7-jul-93, J. Lemen, Written
;-

time = lonarr(7)
wmjd = 1d0  & semiax=1d0 & eccent=1d0 & dang1=1d0 & dang3=1d0 & dang2=1d0
dang4 = 1d0 & ang8=1d0   & dang5=1d0 & dang6=1d0 & xxxx=1d0 & yyyy = 1d0
openr,lun,filnam,/get_lun
for i=0,6 do begin
  buff = '' & readf,lun,buff
  if strlen(buff) ne 80 then begin
     print,' **  rd_sol:  Unexpected buffer counter = ',strlen(buff)
     print,'              Line number = ',i
     print,'                    File  = ',filnam
     ans = '' & read,'* Type <cr> to continue:, ans
  endif
  if i eq 0 then begin
      jar  = buff 
      jar0 = buff
  endif else begin
      jar0 = [jar0,buff]
      jar  = jar + buff
  endelse
endfor
free_lun,lun

  time(6) = long(strmid(jar,0,2))		; year
  time(5) = long(strmid(jar,2,2))		; month
  time(4) = long(strmid(jar,4,2))		; day
  time(0) = long(strmid(jar,6,2))		; hours
  time(1) = long(strmid(jar,8,2))		; minutes
  time(2) = long(strmid(jar,10,2))		; seconds
  time = anytim2ints(time)

  reads,jar,WMJD,SEMIAX,ECCENT,DANG1,DANG3,DANG2,	$
	DANG4, ANG8,DANG5,DANG6, XXXX, YYYY,		$
	format='(16X,D16.0,240X,7D16.0,32X,2D16.0,32X,D16.0,16x,d16.0)'
;print,'wmjd  :',wmjd
;print,'semiax:',semiax
;print,'eccent:',eccent
;print,'yyyy  :',yyyy
end