       common /block/ a, b, c, /mem/ r, f, t 
       integer :: a
       real :: b
       double precision :: c
       integer :: r, f, t

       common /names/ q, w, e 
       integer q, w, e
       
       common /block/ d, j, g
       integer :: d
       real :: j
       double precision :: g
       
       integer :: x
       real    :: y
       real    :: z