В общем имеется такая функция на фортране.
SUBROUTINE DECOMP(NDIM,N,A,COND,IPVT,WORK)
C
INTEGER NDIM,N
REAL A(NDIM,N),COND,WORK(N)
INTEGER IPVT(N)
C Дальше собственно функция
END
В общем имеется такая функция на фортране.
SUBROUTINE DECOMP(NDIM,N,A,COND,IPVT,WORK)
C
INTEGER NDIM,N
REAL A(NDIM,N),COND,WORK(N)
INTEGER IPVT(N)
C Дальше собственно функция
END