c     ex002304.f
      program ex002304
      implicit real*8(a-h, o-z)
      parameter( nx=3, ny=5 )
      real*8 mtx( nx, ny )
      data mtx/1d0,  2d0,  3d0,  4d0,  5d0,  6d0,  7d0, 8d0,
     &          9d0, 10d0, 11d0, 12d0, 13d0, 14d0, 15d0/
      do i=1, nx
        write(*,*) ( mtx( i, j ), j=1, ny )
      enddo
      stop
      end