;+ ; Contains the ephatt_to_angles procedure ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2004/12/03: Created ; ; 2004/12/03: Last Edit ;- ; ;+ ; ephatt_to_angles is a procedure that <behavior desc here> ; ; :Params: ; vect: in, required, type=sometype ; vector Cas_to_Source in XSE ; mm: in, required, type=sometype ; attitude matrix ; co: in, required, type=sometype ; colatitude of Cas_to_Source in S/C frame [deg] ; az: in, required, type=sometype ; azimuth of Cas_to_Source in S/C frame [deg] ;- pro ephatt_to_angles, vect,mm,co,az rr=sqrt(vect(0)^2+vect(1)^2+vect(2)^2) res=mm#(vect/rr) ; unit vector Cas_to_Source in S/C frame co = acos(res(2)<1.>(-1.))*!radeg az = atan(res(1),res(0))*!radeg return end