$debug
USE NrType
USE Nr
!REAL(SP), ALLOCATABLE :: A(:,:), B(:), X(:),AA(:,:)
!INTEGER(I4B), ALLOCATABLE :: indx(:)
!EXTERNAL Func
INTEGER(I4B) N,K

N=3
K=2
PRINT '(F10.4)', bico_s(n,k)

end