三元函数如何做二重积分

aili

我要对三元函数做二重积分，也就是积分的结果是个一元函数。
大家有什么方法啊

qinxl

给一个函数原型,看看对你有没有参考意义:
    !Integration function: G(x, y, z)
    !Integration bounds: y from Y1 to Y2; z from Z1 to Z2.
    REAL FUNCTION MY_FUN(X, Y1, Y2, Z1, Z2, G)
        REAL, INTENT(IN):: X
        REAL, INTENT(IN):: Y1, Y2, Z1, Z2
        INTERFACE
            REAL FUNCTION G(X, Y, Z)
                REAL, INTENT(IN):: X, Y, Z
            END FUNCTION G
        END INTERFACE
    END FUNCTION MY_FUN