1      subroutine bar()
2      integer a
3      real*8 b,c(3)
4      common /foodata/ a,b,c
5      a = 4
6      b = 6.7
7      c(2) = 3.0
8      write(*,*) "bar:a=",a
9      write(*,*) "bar:b=",b
10      write(*,*) "bar:c=",c
11      end
12