Buonasera,
non so' se è la sezione più adatta per il topic in gioco, in quanto è la prima volta che inserisco un topic su questo forum, per cui vi chiedo di scusarmi se ho commesso qualche errore tecnico
sto provando a srivere un algortitmo che mi calcoli la trasposta $A^t$ di una generica matrice $A$, vi riporto il code :
program traspostamatrice
integer:: i,j,n,m
real:: a(10,20),b(20,10)
print*, 'inserire ordine matrice'
read*, n,m
print*, 'inserire elementi della matrice A'
do i= 1,n
do j= 1,m
read*, a(i,j)
end do
end do
do i =1,n
do j =1,m
a(i,j)=b(j,i)
end do
end do
do i= 1,m
do j= 1,n
print*, b(i,j)
end do
end do
end
con l'auspicio di un vostro chiarimento.
Ciao