planets/planets.c
/*
 * Display Greenwich and local apparent sidereal time and Earth Rotation Angle.
 *
 * These values help explain the instantaneous transalation between ICRS and ITRS.
 */
Display Greenwich and local apparent sidereal time and Earth Rotation Angle.
These values help explain the instantaneous transalation between ICRS and ITRS.
Display Greenwich and local apparent sidereal time and Earth Rotation Angle . These values help explain the instantaneous transalation between ICRS and ITRS .
short int display_rotation(time_parameters_t *tp, on_surface *lp, short int accuracy)
{
    double gast;
    short int error = sidereal_time(tp->jd_ut1, 0.0, tp->delta_t, 1, 1, accuracy, &gast);
    if (error != 0) {
        printf_if(3, "ERRCODE %d from sidereal_time.", error);
        goto out;
    }
    double last = gast + lp->longitude / 15.0;
    if (last >= 24.0) {
        last -= 24.0;
    } else if (last < 0.0) {
        last += 24.0;
    }
    double theta = era(tp->jd_ut1, 0.0);
    printf_if(1, "Sidereal time: Greenwich=%16.11f, local=%16.11f\n", gast, last);
    printf_if(1, "ERA %15.10f\n\n", theta);
out:
    return error;
}
short int display_rotation ( time_parameters_t * tp , on_surface * lp , short int accuracy ) { double gast ; short int error = sidereal_time ( tp -> jd_ut1 , 0.0 , tp -> delta_t , 1 , 1 , accuracy , & gast ) ; if ( error != 0 ) { printf_if ( 3 , " " , error ) ; goto out ; } double last = gast + lp -> longitude / 15.0 ; if ( last >= 24.0 ) { last -= 24.0 ; } else if ( last < 0.0 ) { last += 24.0 ; } double theta = era ( tp -> jd_ut1 , 0.0 ) ; printf_if ( 1 , " \n " , gast , last ) ; printf_if ( 1 , " \n \n " , theta ) ; out : return error ; }
Display Greenwich and local apparent sidereal time and Earth Rotation Angle.
Display Greenwich and local apparent sidereal time and Earth Rotation Angle .