1 character *8 c8,c7*7 2 character c1 3 common /chars/ c1,c8,c7 4 integer iplain 5 integer *4 ifour 6 integer*2 itwo 7 common /ints/ iplain,ifour,itwo 8 common /bk1/ a,b,c,d,e,f,g 9 c1 = 'A' 10 call foo 11 end 12 subroutine foo 13 character *8 c8,c7*7 14 character c1 15 common /chars/ c7,c8,c1 16 integer iplain 17 integer *4 ifour 18 integer*2 itwo 19 common /ints/ iplain,itwo,ifour 20 common /bk1/ i,j,k,l,m,n,o 21 c1 = 'A' 22 call bar 23 end 24 subroutine bar 25 character *8 c8,c7*7 26 character c1 27 common /chars/ c7,c8 28 integer iplain 29 integer *4 ifour 30 common /ints/ ifour,iplain 31 common /bk1/ a(3),j,x,y,z 32 c1 = 'A' 33 c7 = c1//c8 34 end 35 36