prprogram main implicit none integer :: a(3:3) data ((a(i,j),j=1,3)i=1,3)/1,2,3,4,5,6,7,8,9/ write(*,*) a(1,1) write(*,*) a(1,2) write(*,*) a(1,3) write(*,*) a(2,1) end program