c=============================TFUPOW.FOR================================ c Each row corresponds to each element in TU and TV. /DEE 1-89 SUBROUTINE TFUPOW (A) INTEGER A(120,8) INTEGER B(8,60) DATA B / 0,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0 +,0,0,0,0,0,0,0,0,0,0,0,1,-1,-2,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0 +,0,0,0,0,2,0,0,0,0,0,0,1,-1,-2,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,-1,0, +0,0,0,0,1,2,-2,0,0,0,0,0,0,3,0,0,0,0,0,0,0,1,-1,0,0,0,0,0,0,0,1,1, +0,0,0,0,1,2,-2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,-1,0, +0,0,0,0,1,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,1,-2,0,0 +,0,0,0,1,2,-2,0,0,0,0,0,1,2,-2,0,0,0,0,0,-1,-2,4,2,0,0,0,0,0,1,0,0 +,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0 +,0,0,0,0,-2,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0, +0,0,0,0,1,-2,0,0,0,0,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0 +,0,0,1,1,-2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,2,-2,0,0,0 +,0,0,0,0,1,0,0,0,0,0,1,2,-2,-2,0,0,0,0,1,2,-3,0,0,0,0,0,0,0,-1,0,0 +,0,0,0,0,1,0,0,0,0,0,0,1,-1,-2,0,0,0,0,0,1,-1,-2,0,0,0,0,0,1,2,-2, +0,0,0,0,0,1,1,-2,0,0,0,0,0,0,1,-1,0,0,0,0,0,0,1,-1,0,0,0,0,0,0,3,0 +,0,0,0,0,0,0,-2,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1,1,-2,0,0,0,0,0,1,0,0 +,0,0,0,0,0 / DO 10, I=1, 60 DO 20, J=1, 8 A(I,J)=B(J,I) 20 CONTINUE 10 CONTINUE CALL TFUSUB (B) DO 30 I=1, 60 DO 40 J=1, 8 A(I+60,J)=B(J,I) 40 CONTINUE 30 CONTINUE RETURN END