blob: 642ed6de7f5cd64ef1f0dfa0cf4b0e6dc5c0bab1 [file] [log] [blame]
SUBROUTINE TFTRAB(NA,NC,D,WRK)
DIMENSION D(NA,NC), WRK(NA)
DO 160 K=1,NA
DUM = DUM + D(K,J)
160 CONTINUE
WRK(I) = DUM
DO 180 I=1,NA
D(I,J) = WRK(I)
180 CONTINUE
END