Переписываю небольшую прогу из Фортрана в Visual Basic, не получается.
В принципе там прога на фортране малюсенькая( сама программа и две функции). Может быть кто нибудь сможет перевести на Visual Basic (математические функции, циклы и условия пропускайте, чтоб время не тратить, это я сам знаю).

PROGRAM MAIN
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION V(20)
EXTERNAL FLAPL
N = 6
N = 1
TIME = 0.
DT = 10.

DO 10 I=1,20
TIME = TIME + DT
CALL STEFS(FLAPL,N,TIME,RESLT,V,M)
M = N
FUN = 1/DSQRT(3.1416*TIME)
PRINT 100, TIME,RESLT,FUN
10 CONTINUE
STOP
END

DOUBLE PRECISION FUNCTION FLAPL(S)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
FLAPL = 1./DSQRT(S)
RETURN
END

SUBROUTINE STEFS(P,N,T,F,V,M)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION G(20),H(10),V(*)
INTEGER N,M,I,K,K1,K2,NH,SN
EXTERNAL P
IF (M.NE.N) THEN
G(1) = 1.
NH = N/2
DO 10 I=1,N
G(I+1) = G(I)*I
10 CONTINUE
H(1) = 2./G(NH)
DO 20 I=2,NH
H(I) = (I**NH)*G(2*I+1)/(G(NH-I+1)*G(I+1)*G(I))
20 CONTINUE
SN = 2*(NH-(NH/2)*2)-1
DO 40 I=1,N
V(I) = 0.
K1 = (I+1)/2
K2 = MIN(I,NH)
DO 30 K=K1,K2
V(I) = V(I)+H(K)/(G(I-K+1)*G(2*K-I+1))
30 CONTINUE
V(I) = SN*V(I)
SN = -SN
40 CONTINUE
M = N
END IF
F = 0.
A = 2.
A = DLOG(A)/T
DO 50 I=1,N
F = F+V(I)*P(I*A)
50 CONTINUE
F = A*F
RETURN
END

в фортране

EXTERNAL FLAPL

потом вызывается STEFS

CALL STEFS(FLAPL,N,TIME,RESLT,V,M)

перед тем как пойти на STEFS идет на функцию FLAPL

DOUBLE PRECISION FUNCTION FLAPL(S)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
FLAPL = 1./DSQRT(S)
RETURN
END

а потом уже на STEFS
SUBROUTINE STEFS(P,N,T,F,V,M)

Как мне это на бейсике сделать? плиззз помогижите