[Fortran] Запись массива в файл

SUBROUTINE ZAPIS(K,I,otto)



character otto
character(30) namefile
integer l(4,10)

Print*, 'Do you want to record results into file?(y/n)'
read(*,*) otto
if (otto.eq.'y') then
Print *, 'Enter filename(do 30 simvoliv):'
read(*,*) namefile
open(10,file=namefile)
 do K=1,4
  write(10,'(i3,a1,$)') x,')'
  do I=1,10
   write(10,'(f9.2,$)') l(I,K)
  end do
  write(10,*)
 end do
endfile 10
end if
close(10, status='keep')

END SUBROUTINE ZAPIS