110167291SKenneth E. Jansen module fncorpmod 210167291SKenneth E. Jansen 310167291SKenneth E. Jansen integer*8, allocatable :: fncorp(:) 4ec121c45SKenneth E. Jansen integer, allocatable :: ltg(:) 510167291SKenneth E. Jansen 6*92e15685SCameron Smith contains 7*92e15685SCameron Smith 8*92e15685SCameron Smith subroutine destroyfncorp() 9*92e15685SCameron Smith if ( allocated(fncorp) ) then 10*92e15685SCameron Smith deallocate(fncorp) 11*92e15685SCameron Smith endif 12*92e15685SCameron Smith if ( allocated(ltg) ) then 13*92e15685SCameron Smith deallocate(ltg) 14*92e15685SCameron Smith endif 15*92e15685SCameron Smith end subroutine destroyfncorp 16*92e15685SCameron Smith 1710167291SKenneth E. Jansen end module 18