1 !MODULE vshear 2 !Dimension and common block for VSH and VSHE 3 ! 4 5 6 7 MODULE vshear 8 9 Use param 10 Use param1 11 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: VSH 12 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: VSHE 13 END MODULE vshear 14