разыскание собственных векторов и собственных значений матрицы

[vova_]

подскадите нету ли в Delphi аналога фортрановской команды
CALL EVCSF (200, a, 200, EIGENvalue, EVEC, 200)?

пример:
use IMSL
implicit none
integer i,j
real a(1:200,1:200),EIGENvalue(1:200), EVEC(1:200,1:200)
do i=1,200
do j=1,200
a(i,j)=произвольная функция от i,j
enddo
enddo
CALL EVCSF (200, a, 200, EIGENvalue, EVEC, 200)
................
вивод значений или операции с ними
................
end

масив EVEC(i,j) - собственные вектора
масив EIGENvalue(i) - собственные значения

[vova_]

ВОПРОС АКТУАЛЕН