program a1

!HPF$  DISTRIBUTE  jv  (BLOCK)  ONTO bvj


end
