interface skyToCartesian function skyToCartesianSingle(ra, dec) result(vector) real(single), intent(in) :: ra, dec real(single) :: vector(3) end function skyToCartesian function skyToCartesianDouble(ra, dec) result(vector) real(double), intent(in) :: ra, dec real(double) :: vector(3) end function skyToCartesian end interface
Returns a vector of direction cosines of the celestial coordinates and . NOTE and must be in radians.