Перевести функцию из фортрана в VBA

[meigas]

Перевести функцию из фортрана в VBA:

Subroutine KGAUSS(Ab, N, X, IAI) 
Real(8) Ab(N,N+1), X(N) ! Описание массивов 
IAI=1 
Do k=1, N ! Перебор строк - шаги прямого хода 
Call CMEHA ! Выбор и анализ гл. элемента 
If( IAI == 0 ) Return ! Выход, если гл. элемент = 0 
Do i=k+1, N ! Перебор строк с k+1-ой по N-ую 
Ab(i,k) = Ab(i,k)/Ab(k,k) 
Ab(i,k+1:N+1) = Ab(i,k+1:N+1) - Ab(i,k)*Ab(k,k+1:N+1) 
End Do 
End Do 
Do k = N, 1,-1 ! Обратная подстановка (обратный ход) 
X(k)=Ab(k,N+1)/Ab(k,k) 
Ab(1:N-1,N+1) = Ab(1:N-1,N+1) - Ab(1:N-1,k)*X(k) 
End Do 
Contains ! -------Внутренние подпрограммы: ----------------------------------------
Subroutine CMEHA ! Процедура выбора гл. элемента и перестановки строк 
Real(8) W(N+1) ; Integer L(1) ! Описание массивов 
L=MaxLoc(abs(Ab(K:N,K))) ! Опр. номера строки с гл. элементом 
W=Ab(K,:); Ab(K,:)=Ab(L(1)+K-1,:); Ab(L(1)+K-1,:)=W ! Перестановки 
If(abs(Ab(K,K) )== 0D0) IAI=0 ! IAI - признак вырожденности системы 
End Subroutine 
End