Sub SPLIE2(X1A(), X2A(), YA(), M, N, Y2A())
    Dim YTMP(100), Y2TMP(100)
    For J = 1 To M
        For K = 1 To N
            YTMP(K) = YA(J, K)
        Next K
        Call SPLINE(X2A(), YTMP(), N, 1E+30, 1E+30, Y2TMP())
        For K = 1 To N
            Y2A(J, K) = Y2TMP(K)
        Next K
    Next J
End Sub