c c COMMON block contains geometry offsets for sensitive SHOWER volumes c c modified last on 9/1/04 c real*4 showerdx(3), showerdy(3) integer*1 padshow(3) character*5 showershape common /showerdconst/ showerdx, showerdy, showershape, padshow