common/blah/i,j,k double precision d equivalence (d,i),(x,i) write(*,*) loc(i), loc(d), loc(x), loc(z) end