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 i2d64 32 integer*8, pointer :: p(:,:) 33 end type 34c 35 type i3d 36 integer, pointer :: p(:,:,:) 37 end type 38c 39c.... pointer declarations 40c 41 type (i1d), dimension(MAXBLK2) :: mmat, mmatb 42 type (i2d), dimension(MAXBLK2) :: mien 43 type (i2d64), dimension(MAXBLK2) :: mienG 44 type (i2d), dimension(MAXBLK2) :: mienb, miBCB 45 type (r2d), dimension(MAXBLK2) :: mxmudmi 46 type (r3d), dimension(MAXBLK2) :: mBCB 47c 48 real*8, allocatable :: gmass(:) 49 end module 50c 51c 52c 53