subroutine sub1a
      common /scr/ i, j(2)
      i = 12
      j(1) = 34
      j(2) = 65
      end

      subroutine sub1b
      common /scr/ i, j, k
      write(6, '(i2,x,i2,x,i2)') i, j, k
      end

      subroutine sub2a
      common /scr/ i, x
      x = 56.78
      end

      subroutine sub2b
      common /scr/ i, x
      write(6, '(i2,x,f5.2)') i, x
      i = 91
      end

      subroutine sub3
      common /scr/ i, j
      j = 23
      end

      subroutine sub4
      common /scr/ i(2), j
      j = 45
      end

      program prog
      call sub1a
      call sub1b
      call sub2a
      call sub2b
      call sub3
      call sub1b
      call sub4
      call sub1b
      end