1*59599516SKenneth E. Jansen module local_mass 2*59599516SKenneth E. Jansen 3*59599516SKenneth E. Jansen parameter (MAXBLK2 = 5000) 4*59599516SKenneth E. Jansen 5*59599516SKenneth E. Jansen integer :: iblock = 0 6*59599516SKenneth E. Jansen integer :: have_local_mass = 0 7*59599516SKenneth E. Jansen 8*59599516SKenneth E. Jansen type r2da 9*59599516SKenneth E. Jansen real*8, pointer :: p(:,:,:) 10*59599516SKenneth E. Jansen end type 11*59599516SKenneth E. Jansen 12*59599516SKenneth E. Jansen type (r2da), dimension(MAXBLK2) :: lmassinv 13*59599516SKenneth E. Jansen 14*59599516SKenneth E. Jansen end module 15*59599516SKenneth E. Jansen 16