PROGRAM vettori
  IMPLICIT NONE
  INTEGER :: m(4,6)
  INTEGER :: i, j

  DO i=1, 4, 1
    DO j=1, 6, 1
      m(i, j) = i*10+j
    END DO
  END DO

  WRITE (*, fmt="(4i8)") m
  WRITE (*,*) SUM(m)

  STOP
END PROGRAM vettori