program assign3_6
implicit none
integer :: n=2
real,allocatable :: a(:,:)
allocate(a(n,n))
a=reshape((/1.1234,2.1234,3.1234,5.1234/),(/n,n/))

call printnice_r(a,n)

end program assign3_6

subroutine printnice_r(x,n)
integer :: n,i
real :: x(n,n)

do i=1,n
   print'(100g12.5)',x(i,:)
enddo

end subroutine