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