integer c(100)
      c(1) = 1
      call suba(c)
      end
      subroutine suba(c)
      integer c
      print *,c
      end