1      SUBROUTINE TFTRAB(A,NA)
2      DIMENSION A(NA,NA)
3      DO 160 K=1,NA
4         DUM = DUM + A(K,I)
5 160  CONTINUE
6      DO 180 I=1,NA
7         A(I,J) = DUM
8 180  CONTINUE
9      END
10