dimension m(-4:4)
      data (m(i),i=-4,4) /9*1/
      call sr(4,m)
      print *,'test f051 passed'
      end
      subroutine sr(n,m)
      dimension m(-n:n)
      write(6,*)(M(i),i=n,-n,-1)
      return
      end