SUBROUTINE factor
!
USE FileUnits_Module
USE factrl_Module
USE vector_Module
USE vwaste_Module
IMPLICIT NONE
INTEGER I
REAL(Kind=dp) a
ftl(0)=1.d0
ftl(1)=1.d0
DO i=2,101
ftl(i)=ftl(i-1)*i
ENDDO

!DO 10 i=2, 64
!   vscr(i)=log(fpn(i))
! 10   CONTINUE

!DO 20 i=65, 101
!   vscr(i)=log(fpn(i-64)+64d0)
! 20   CONTINUE

!ftl(1)=0d0
!DO 30 i=2, 101
!   a=i-1
!   ftl(i)=ftl(i-1)+vscr(i)
! 30   CONTINUE

RETURN
END