xref: /phasta/phSolver/common/fncorp.f (revision 92e15685ac3a1598ed717a98b2352f8a2e74aba6) 
1      module fncorpmod
2
3      integer*8, allocatable :: fncorp(:)
4      integer, allocatable :: ltg(:)
5
6      contains
7
8        subroutine destroyfncorp()
9          if ( allocated(fncorp) ) then
10            deallocate(fncorp)
11          endif
12          if ( allocated(ltg) ) then
13            deallocate(ltg)
14          endif
15        end subroutine destroyfncorp
16
17      end module
18