use crate::consts::{DAS2R, TURNAS};

use std::ops::Rem;

/// Fundamental argument, IERS Conventions (2003):

/// mean longitude of the Moon's ascending node.

///

/// Status:  canonical model.

///

/// Given:

///    t     f64    TDB, Julian centuries since J2000.0 (Note 1)

///

/// Returned (function value):

///          f64    Omega, radians (Note 2)

///

/// Notes:

///

/// 1) Though t is strictly TDB, it is usually more convenient to use

///    TT, which makes no significant difference.

///

/// 2) The expression used is as adopted in IERS Conventions (2003) and

///    is from Simon et al. (1994).

///

/// References:

///

///    McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003),

///    IERS Technical Note No. 32, BKG (2004)

///

///    Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M.,

///    Francou, G., Laskar, J., 1994, Astron.Astrophys. 282, 663-683.

pub fn faom03(t: f64) -> f64 {

    /* Mean longitude of the Moon's ascending node */

    /* (IERS Conventions 2003).                    */

    (450160.398036 + t * (-6962890.5431 + t * (7.4722 + t * (0.007702 + t * -0.00005939))))

        .rem(TURNAS)

        * DAS2R

}