PROGRAM main IMPLICIT NONE INTEGER :: i, j REAL(KIND=8), DIMENSION(4,4) :: A, C REAL(KIND=8), DIMENSION(4,4) :: B A = 1.D0 B = 1.D0 C = A + B DO i = 1,4 WRITE(6,FMT='(4(E14.8,1X))') (C(j,i), j =1,4) END DO END PROGRAM main