1 module fncorpmod 2 3 integer*8, allocatable :: fncorp(:) 4 integer, allocatable :: ltg(:) 5 6 end module 7