EIS-AIA offset calculation (developed by John Mariska);

$HOME/ssw/hinode/eis/idl/atest/mariska/eis_aia_offsets.pro

;+
; Return the EIS/AIA offset values for any given date.
; :params:
;    date:
;      Date in any of the usual formats
; :keywords:
;    infile:
;      Optional location of interpolation data file. It should be
;      found automatically.
; :returns:
;    Array contiaining x-offset and y-offset values
; :uses:
;   anytim2idljd - generate JD as a double instead of a struct
; :author:
;   John Mariska, GMU jtmariska@gmail.com
; :history:
;   (2014-Jan-09) JTM: initial version, single date values only,
;   minimal error checking.
;   (2014-Jan-27) HPW: modified file search and date handling.
;-
function eis_aia_offsets, input_date, infile=infile
    compile_opt idl2



Running;

JAR_IDL>r = eis_aia_offsets('12-Mar-2014 00:00:00')
JAR_IDL>help,r
R               DOUBLE    = Array[2]
JAR_IDL>print,r
       5.8011228       2.8085563