!hpf$	distribute (*,block), shadow(0,4) :: s1,s2,s3,s4
!hpf$	distribute (*,block), shadow(0,4) :: s1o,s2o,s3o,s4o
