(TranslationUnit
    [(Subroutine
        dcstep
        []
        []
        ()
        ()
        []
        []
        []
        [(Declaration
            (AttrType
                TypeDoublePrecision
                []
                ()
                ()
                None
            )
            []
            [(zero
            []
            []
            ()
            ()
            None
            ())
            (p66
            []
            []
            ()
            ()
            None
            ())
            (two
            []
            []
            ()
            ()
            None
            ())
            (three
            []
            []
            ()
            ()
            None
            ())
            (s
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrParameter
            )]
            [(zero
            []
            []
            ()
            (Real "0.0d0")
            Equal
            ())
            (p66
            []
            []
            ()
            (Real "0.66d0")
            Equal
            ())
            (two
            []
            []
            ()
            (Real "2.0d0")
            Equal
            ())
            (three
            []
            []
            ()
            (Real "3.0d0")
            Equal
            ())]
            ()
        )]
        [(Assignment
            0
            s
            (FuncCallOrArray
                max
                []
                [(()
                (FuncCallOrArray
                    abs
                    []
                    [(()
                    three
                    ()
                    0)]
                    []
                    []
                    []
                )
                ()
                0)
                (()
                (FuncCallOrArray
                    abs
                    []
                    [(()
                    two
                    ()
                    0)]
                    []
                    []
                    []
                )
                ()
                0)
                (()
                (FuncCallOrArray
                    abs
                    []
                    [(()
                    p66
                    ()
                    0)]
                    []
                    []
                    []
                )
                ()
                0)]
                []
                []
                []
            )
            ()
        )]
        []
        []
    )]
)
