n行m列（n,mは２以上８以下）を指定して要素を入力させ、逆行列を出すプログラムを組みたいのですが、うまく走りません。
本などを参考にやってみたので、どなたか見ていただけないでしょうか？

real AB(8,8),l
integer n,m
10 continue
write(*,*)'INPUT n,m 2.le.n.m.le.8'
read(*,*) ((AB(i,j),j=1,n),i=1,m)
if((n.lt.2.).or.(m.le.2).or.(n.gt.8).or.(m.gt.8)) then
write(*,*) 'PLEASE INPUT AGAIN'
go to 10
else
do 20 i=1,m
do 30 j=1,n
l=AB(j,i)
AB(j,i)=AB(i,j)
AB=(i,j)=l
30 continue
write(*,*)AB(i,j)
20 continue
endif
stop
end