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