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