PROGRAM Array456 IMPLICIT NONE INTEGER, DIMENSION(3,3) :: A = & RESHAPE((/1,0,0,0,1,0,0,0,1/),(/3,3/)) INTEGER i DO i=1,3 A(i,:) = (/4,5,6/) END DO PRINT*, A(1,:) PRINT*, A(2,:) PRINT*, A(3,:) PRINT*, " " A(1,:) = (/4,5,6/) A(2,:) = (/4,5,6/) A(3,:) = (/4,5,6/) PRINT*, A(1,:) PRINT*, A(2,:) PRINT*, A(3,:) PRINT*, " " A = SPREAD((/4,5,6/),DIM=1,NCOPIES=3) PRINT*, A(1,:) PRINT*, A(2,:) PRINT*, A(3,:) PRINT*, " " END PROGRAM