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