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