subroutine sps(a)
implicit none

real*8 a(1:*)

a(1:9)=3

return
end
