program essai
!     Version: 01/06/2003

      real*16 p(2,10)
      integer i,j

      do i=1,2
       do j=1,5
        p(i,j)=i*100.+j
       enddo
       do j=6,10
        p(i,j)=0.
       enddo
      enddo

      write(*,*)p

      write(*,'(10f8.2)')p

      write(*,'(10f8.2)')((p(i,j),i=1,2),j=1,10)

      write(*,*)
      write(*,*)int(1.5),nint(1.5),int(-1.5),nint(-1.5)

      end