blob: 323d6c958f076bafb7b5cb90d47e147fd95056ea [file] [log] [blame]
SUBROUTINE BFN(X,BF)
DIMENSION BF(13)
DIMENSION FACT(17)
DO 70 M=0,LAST
XF = 1
IF(M.NE.0) XF = FACT(M)
Y = Y + XF
70 CONTINUE
BF(1)=Y
END