(TranslationUnit
    [(Function
        a
        []
        [(AttrType
            TypeInteger
            []
            ()
            ()
            None
        )]
        ()
        ()
        ()
        []
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(b
            []
            []
            ()
            ()
            None
            ())
            (c
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(d
            []
            []
            ()
            ()
            None
            ())
            (e
            []
            []
            ()
            ()
            None
            ())
            (f
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(d1
            []
            []
            ()
            ()
            None
            ())
            (e1
            []
            []
            ()
            ()
            None
            ())
            (f1
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                [(()
                8
                Value)]
                ()
                ()
                None
            )
            []
            [(g
            []
            []
            ()
            ()
            None
            ())
            (h
            []
            []
            ()
            ()
            None
            ())
            (i
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeComplex
                []
                ()
                ()
                None
            )
            []
            [(j
            []
            []
            ()
            ()
            None
            ())
            (k
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeComplex
                [(()
                4
                Value)]
                ()
                ()
                None
            )
            []
            [(l
            []
            []
            ()
            ()
            None
            ())
            (m
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeComplex
                [(()
                8
                Value)]
                ()
                ()
                None
            )
            []
            [(n
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeDoublePrecision
                []
                ()
                ()
                None
            )
            []
            [(o
            []
            []
            ()
            ()
            None
            ())
            (p
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(Y
            [(1
            e1
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(X
            [(1
            d1
            DimensionExpr)
            (1
            e1
            DimensionExpr)
            (1
            f1
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            (FuncCallOrArray
                Y
                []
                [(()
                1
                ()
                0)]
                []
                []
                []
            )
            3
            ()
        )
        (Assignment
            0
            (FuncCallOrArray
                X
                []
                [(()
                1
                ()
                0)
                (()
                1
                ()
                0)
                (()
                1
                ()
                0)]
                []
                []
                []
            )
            3
            ()
        )
        (Assignment
            0
            a
            1
            ()
        )
        (Assignment
            0
            b
            2
            ()
        )
        (Assignment
            0
            d
            3
            ()
        )
        (Assignment
            0
            f
            4
            ()
        )
        (Assignment
            0
            h
            5
            ()
        )
        (Assignment
            0
            i
            6
            ()
        )
        (Assignment
            0
            l
            7
            ()
        )
        (Assignment
            0
            m
            8
            ()
        )
        (Assignment
            0
            o
            9
            ()
        )
        (Assignment
            0
            p
            10
            ()
        )]
        []
        []
    )]
)
