1 MODULE vshear 2 3 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: VSH 4 DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: VSHE 5 6 END MODULE vshear 7