program com
common /c/na,n1
common m1,/d/m2
namelist /e/k1,k2,/f/k3
equivalence (a1,b1),(c1,d1)
end
