Sub POLIN2(X1A(), X2A(), YA(), M, N, X1, X2, Y, DY)
    Dim YNTMP(20), YMTMP(20)
    For J = 1 To M
        For K = 1 To N
            YNTMP(K) = YA(J, K)
        Next K
        Call POLINT(X2A(), YNTMP(), N, X2, YMTMP(J), DY)
    Next J
    Call POLINT(X1A(), YMTMP, M, X1, Y, DY)
End Sub