请问在fortran77里，这样求子矩阵（分解矩阵）有没问题？

littletop

S为80*20的矩阵，S2为20*20的S的第二个子矩阵，程序如下：
   DO 490 I=1,20
         DO 500 J=1,20
         K2=I+20
         L2=J
         S2(I,J)=S(K2,L2)
         S2(J,I)=S2(I,J)
500   CONTINUE
490 CONTINUE
不知道这样求S2有没问题？另外，用“S2(J,I)=S2(I,J)
”求转置有没问题？请高手们不吝赐教，不甚感激。