[FORTRAN] Calcolo media elementi della diagonale di una matrice

[anna2312]

Salve a tutti! ho un problema...
Devo risolvere quest algoritmo
Avendo una matrice A, calcolare la media degli elementi della diagonale e verificare per ogni colonna se la somma degli elementi è uguale alla media!
Io l'ho provato a risolvere in questo modo, ma nn funziona!

integer function colonna(n,a) 
integer::n 
integer,dimension(100,100)::a 
integer::somma,i,media,j 

somma=0 
do i=1,n 
    somma=somma+a(i,i) 
end do 
media=somma/n 
j=1 
colonna=0 
do i=1,n 
    somma=somma+a(i,j) 
    do 
       if (somma/=media.or.j==n)exit 
          colonna=1 
   end do 
somma=0 
j=j+1 
end do 
return  
end function

Grazie mille!