Sub SIMP1(A(), MP, NP, MM, LL(), NLL, IABF, KP, BMAX)
    KP = LL(1)
    BMAX = A(MM + 1, KP + 1)
    For K = 2 To NLL
        If IABF = 0 Then
            TEST = A(MM + 1, LL(K) + 1) - BMAX
        Else
            TEST = Abs(A(MM + 1, LL(K) + 1)) - Abs(BMAX)
        End If
        If TEST > 0# Then
            BMAX = A(MM + 1, LL(K) + 1)
            KP = LL(K)
        End If
    Next K
End Sub