added sun_ra C function