Fortran

[OnlyGet]

subroutine GG(i,j,k,A,m,n)
integer:: i, n, k, j, m
real, dimension (i,j,k):: A
real, allocatable :: D( :,:,: )
print*, "D"
read*, D
allocate (D(n))
print*, " "
do i=1,n
D(i)= d(i,k)
end do
deallocate (D)
end subroutine GG

Program SS
integer:: i, j, k, A, D, m, n
real, allocatable :: A( :,:,: )
print*, " : i, j,k"
read*, i,j, k
allocate (A(i,j,k))
print*, " A"
do j=1,i
do i=1,j
do i=1,k
read*, A(i,j,k)
end do
end do
end do
print*, " A"
do i=1,l
print*, A( i,: )
end do
call GG(i,j,k,A,m,n)
print*, " D"
do i=1,l
print*, A( i,: )
end do
deallocate(A)
End programНаписал код и не понимаю, как исправить ошибку, чтобы сформатировать матрицу из главных диагоналей для всех матриц