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