program main
  INTEGER,PARAMETER :: N = 100
  REAL,DIMENSION(N,N) :: A
  INTEGER :: i, k
   
  ! Initialisieren von A
  do i=1, N
    do k=1, N
      A(i,k) = i*1000+k;
    enddo
  enddo
    
  ! Ausgabe von A   
  do i=1, N
    write (*, '(6HZeile , I3 / (1X, 8E10.2))') i, (A(i,j),j=1,N)
  enddo
end program