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