integer m,n,i
complex(4) c(m,n)
integer d(m,2)
integer a(4,4),b(4)
data a /1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/

b(:)=a(:,2)
do m=1,4
write (*,*) a(m,:)
end do
stop
end