xref: /phasta/phSolver/common/fncorp.f (revision 43c56ca5a35722d85cb4464ff0683d63f8eb4a00) 
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