MODULE factrl_Module
!-----------------------------------------------------------------------
! factrl_Module
!
!  ftl   An array containing
!-----------------------------------------------------------------------
   USE numeric_kinds_Module
   SAVE
   REAL (KIND=dp) :: ftl(0:101)
END MODULE factrl_Module