;====================================================================
;
;                          ATTEXAMP.PRO
;  Example of interface level 2 to INTERBALL-TAIL ATTITUDES
;
;  A.Fedorov, Apr. 13, 2002
;====================================================================

;--------------------- Interface ------------------- 
   STime = '1996045220000000'   ; Start Time of requested interval
                                ; 1996 year, Feb. 15 (DDday = 045)
                                ; 22:00:00:000
   TimeInt = double(120.0)      ; Time interval to output, sec
   TimeStep = double(5.0)               ; Time step for output, sec
   Size = long(TimeInt/TimeStep) ; Size of requested data array  
   Attid = fltarr(9,Size)       ; Array of attitudes.
   flag = intarr(Size)          ; 1 if attitudes are correct, 0 if no.
 
   DDLIB = getenv('DDLIB')      ; Get environment variable to find right path
                                ; to procedure

;--------------------- Call data -----------------------------------
; Formatting of Time array
  StartTD = call_external('DD_idl.so','GetDTime',STime, /D_VALUE)
  Time = dindgen(Size)*TimeStep+ StartTD 
                                
; Call the database
                                 
   Ret=call_external(DDLIB+'libIDLAT.so',$
                         'getframe',$
                         Size,$
                         Time,$
                         Attid,$
                         flag)
; Attitudes virtuual instrument coses automatically
 
   print, 'Returned Size of data : ',RetSize
   print, 'Time              XSCx   XSCy   XSCz   YSCx   YSCy   YSCz   ZSCx   ZSCy   ZSCz(GSE) flag
   for i = 0, Size - 1 do begin
      Td = Time(i)
      TimeStr=''
      TimeStr = call_external('DD_idl.so','GetTime',TD, /S_VALUE)
      print, TimeStr, Attid(*,i),flag(i), format='(A16,9F7.3,I2)'
   endfor
end
;===================================================================