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
