subroutine sam()
      common /namn/ i, r
      i = 786
      r = 3.2
      return
      end