program amatris
integer::i,j
real,dimension(4,5)::a,b
open(unit=1,file="a.dat",status="old",action="read")
open(unit=2,file="b.dat",status="unknown",action="write")

do i=1,4
   read(unit=1,fmt="(5f6.1)")a(i,1:5)
   print"(5f6.1)",a(i,1:5)
enddo
do j=1,5
   b(1,j)=sum(a(1:4,j))
   b(2,j)=b(1,j)/4.0
   b(3,j)=maxval(a(1:4,j))
   b(4,j)=minval(a(1:4,j))
end do
close(unit=1)
print*,
do i=1,4
  write(unit=*,fmt="(5f6.1)")b(i,1:5)
  write(unit=2,fmt="(5f6.1)")b(i,1:5)
 end do
close(unit=2)
end