module fncorpmod

      integer*8, allocatable :: fncorp(:)

      end module