1*10167291SKenneth E. Jansen module fncorpmod 2*10167291SKenneth E. Jansen 3*10167291SKenneth E. Jansen integer*8, allocatable :: fncorp(:) 4*10167291SKenneth E. Jansen 5*10167291SKenneth E. Jansen end module 6