Ввод элементов из файла в матрицу заданного размера

 program mm
       implicit none
       integer i
       real A(2,3)
       !использую лишь только один файл из трех!!
       open (1, file="D:\krf\f1.txt", status="old")
       open (1, file="D:\krf\f2.txt", status="old")
       open (1, file="D:\krf\f3.txt", status="old")
 
       do i=1,3
          read (1,*) A(1,i)
       enddo
       do i=1,3
          read (1,*) A(2,i)
       end do
 
       write (*,*) A(1,1),A(1,2), A(1,3)
       write (*,*) A(2,1),A(2,2), A(2,3)
       write (*,*) A
 
       read (*,*)
       end

 program mm
       implicit none
       integer i,j
       integer A(2,3)
       open (1, file="f1.txt", status="old")
       open (2, file="f2.txt", status="old")
       open (3, file="f3.txt")
       
       !read(1,*) A
       ! или
       read(2,*) A
       
       write (3,'(3i6)') A       
       pause
end

program mm
       implicit none
       integer i,j
       integer A(2,3)
       open (1, file="f1.txt", status="old")
       !open (1, file="f2.txt", status="old")
       !open (1, file="f3.txt")
       
       read(1,*) A
       
       write (*,'(3i6)') A       
       pause
end

program test
implicit none
real :: a(2,3) 
integer :: i
 
    open(1,file='data.txt')    
    read(1,*) (a(i,:),i=1,2)     
    close (1)                   
 
    !Печатаем
    write (*,*) A(1,1),A(1,2), A(1,3)
    write (*,*) A(2,1),A(2,2), A(2,3)
    
   !То же можно вывести циклом 
    write(*,2) (a(i,:),i=1,2) 
       
2 format (3(f12.3)) !Задаем повтор 3-х позиций для вещественного цисла, 12 знаков, 3 после запятой
end

real qv, alfa, lambd
....
lambd=0.03
....
print *, lambd

real qv, alfa, lambd
lambd=0.03
print 2, lambd
2 format (f8.3)
end