xref: /phasta/phSolver/common/local_mass.f (revision 595995161822a203c8467e0e4a253d7bd7d6df32) 
1      module local_mass
2
3      parameter (MAXBLK2 = 5000)
4
5      integer :: iblock = 0
6      integer :: have_local_mass = 0
7
8      type r2da
9      real*8, pointer :: p(:,:,:)
10      end type
11
12      type (r2da), dimension(MAXBLK2) :: lmassinv
13
14      end module
15
16