(TranslationUnit
    [(Subroutine
        f
        []
        []
        ()
        ()
        []
        []
        []
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(nq
            []
            []
            ()
            ()
            None
            ())
            (m
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(wrk5
            [(1
            5
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (v
            [(1
            3
            DimensionExpr)
            (1
            4
            DimensionExpr)
            (1
            5
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(ve
            [(1
            3
            DimensionExpr)
            (1
            4
            DimensionExpr)
            (1
            5
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (vev
            [(1
            3
            DimensionExpr)
            (1
            4
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(zero
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(l1
            []
            []
            ()
            ()
            None
            ())
            (j
            []
            []
            ()
            ()
            None
            ())
            (l2
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(indx
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(DoLoop
            0
            ()
            140
            l1
            1
            nq
            ()
            [(DoLoop
                0
                ()
                110
                j
                1
                m
                ()
                [(Assignment
                    0
                    (FuncCallOrArray
                        wrk5
                        []
                        [(()
                        j
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    (FuncCallOrArray
                        v
                        []
                        [(()
                        indx
                        ()
                        0)
                        (()
                        j
                        ()
                        0)
                        (()
                        l1
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    ()
                )]
                ()
                ()
            )
            (DoLoop
                0
                ()
                120
                j
                1
                m
                ()
                [(Assignment
                    0
                    (FuncCallOrArray
                        ve
                        []
                        [(()
                        indx
                        ()
                        0)
                        (()
                        l1
                        ()
                        0)
                        (()
                        j
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    (FuncCallOrArray
                        wrk5
                        []
                        [(()
                        j
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    ()
                )]
                ()
                ()
            )]
            ()
            ()
        )
        (Assignment
            0
            indx
            1
            ()
        )
        (Assignment
            0
            zero
            (Real "0.0d00")
            ()
        )
        (DoLoop
            0
            ()
            230
            l1
            1
            nq
            ()
            [(DoLoop
                0
                ()
                220
                l2
                1
                l1
                ()
                [(Assignment
                    0
                    (FuncCallOrArray
                        vev
                        []
                        [(()
                        l1
                        ()
                        0)
                        (()
                        l2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    zero
                    ()
                )
                (DoLoop
                    0
                    ()
                    210
                    j
                    1
                    m
                    ()
                    [(Assignment
                        0
                        (FuncCallOrArray
                            vev
                            []
                            [(()
                            l1
                            ()
                            0)
                            (()
                            l2
                            ()
                            0)]
                            []
                            []
                            []
                        )
                        (+ (FuncCallOrArray
                            vev
                            []
                            [(()
                            l1
                            ()
                            0)
                            (()
                            l2
                            ()
                            0)]
                            []
                            []
                            []
                        ) (* (FuncCallOrArray
                            ve
                            []
                            [(()
                            indx
                            ()
                            0)
                            (()
                            l1
                            ()
                            0)
                            (()
                            j
                            ()
                            0)]
                            []
                            []
                            []
                        ) (FuncCallOrArray
                            ve
                            []
                            [(()
                            indx
                            ()
                            0)
                            (()
                            l2
                            ()
                            0)
                            (()
                            j
                            ()
                            0)]
                            []
                            []
                            []
                        )))
                        ()
                    )]
                    ()
                    ()
                )
                (Assignment
                    0
                    (FuncCallOrArray
                        vev
                        []
                        [(()
                        l2
                        ()
                        0)
                        (()
                        l1
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    (FuncCallOrArray
                        vev
                        []
                        [(()
                        l1
                        ()
                        0)
                        (()
                        l2
                        ()
                        0)]
                        []
                        []
                        []
                    )
                    ()
                )]
                ()
                ()
            )]
            ()
            ()
        )
        (Return
            0
            ()
            ()
        )]
        []
        []
    )]
)
