fn square_internal()

in src/backend/serial/u64/scalar.rs [214:233]


    fn square_internal(a: &Scalar52) -> [u128; 9] {
        let aa = [
            a[0]*2,
            a[1]*2,
            a[2]*2,
            a[3]*2,
        ];

        [
            m( a[0],a[0]),
            m(aa[0],a[1]),
            m(aa[0],a[2]) + m( a[1],a[1]),
            m(aa[0],a[3]) + m(aa[1],a[2]),
            m(aa[0],a[4]) + m(aa[1],a[3]) + m( a[2],a[2]),
                            m(aa[1],a[4]) + m(aa[2],a[3]),
                                            m(aa[2],a[4]) + m( a[3],a[3]),
                                                            m(aa[3],a[4]),
                                                                            m(a[4],a[4])
        ]
    }