module fncorpmod integer*8, allocatable :: fncorp(:) integer, allocatable :: ltg(:) end module