[Fortran] Trasposta matrice

[galles90]

Buonasera,
sto lavorando sull'algoritmo per la trasposta di matrice vi riporto il mio algoritmo. Vi chiedo umilmente aiuto su come procedere per la risoluzione.

program traspmat
real:: a(100,100),b(100,100),c(100,100)
integer:: i,j,n,c,x,y
read*, n
do i=1,n
do j=1,n
read*, a(i,j)
enddo
enddo
read*,n
do i=1,n
do j=1,n
c(i,j)=x(i,j)
enddo
enddo
do i=1,n
do j=1,n
print*, c(j,i)
enddo
enddo
end

Grazie in anticipo.

[apatriarca]

Non capisco perché leggi n due volte, una volta prima del primo ciclo e la seconda nel secondo ciclo.. Nel secondo ciclo credo inoltre tu volessi scrivere a (la matrice che hai letto) al posto di x (che è dichiarato intero).