1 module pointer_data 2c 3c.... maximum number of blocks 4c 5 parameter ( MAXBLK2 = 50000 ) ! Note compiler was complaining 6c because MAXBLK in common.h be careful 7c to chang both places 8c 9c.... data type definitions 10c 11 type r1d 12 real*8, pointer :: p(:) 13 end type 14c 15 type r2d 16 real*8, pointer :: p(:,:) 17 end type 18c 19 type r3d 20 real*8, pointer :: p(:,:,:) 21 end type 22c 23 type i1d 24 integer, pointer :: p(:) 25 end type 26c 27 type i2d 28 integer, pointer :: p(:,:) 29 end type 30c 31 type i3d 32 integer, pointer :: p(:,:,:) 33 end type 34c 35c.... pointer declarations 36c 37 type (i1d), dimension(MAXBLK2) :: mmat, mmatb 38 type (i2d), dimension(MAXBLK2) :: mien 39 type (i2d), dimension(MAXBLK2) :: mienb, miBCB 40 type (r2d), dimension(MAXBLK2) :: mxmudmi 41 type (r3d), dimension(MAXBLK2) :: mBCB 42c 43 real*8, allocatable :: gmass(:) 44 end module 45c 46c 47c 48