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