c================================TFUSUB.FOR=============================
c  This is the rest of TFUPOW; when all the data is grouped in one file
c  the compiler pukes and says it ran out of memory!          /DEE 1-89


      SUBROUTINE TFUSUB (C)
      INTEGER C(8,60)
      INTEGER D(8,60)
      DATA D / 0,0,0,0,1,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,-2,3,2,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,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,0,0,0,0,0,0,0,1,0,1,-1,0
     +,0,0,0,0,1,1,-2,0,0,0,0,0,0,1,0,0,0,0,0,0,1,2,-3,-2,0,0,0,0,1,0,0,
     +0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,1,-1,-1,
     +0,0,0,0,0,1,-1,-2,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,-2,0,0,0,0,0,0,-2,
     +0,0,1,0,0,0,0,3,0,0,0,0,0,0,1,-1,-2,0,0,0,0,0,0,3,0,0,0,0,0,0,0,3,
     +0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,1,1,0,0,0,0,0,2,-2,0,0,0,0,0,0,1,
     +0,0,0,0,0,0,0,2,-2,0,0,0,0,0,0,0,1,0,0,0,0,0,-1,-2,3,2,0,0,0,0,0,-
     +2,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,2,
     +-1,0,0,0,0,0,0,2,-2,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,-2,-1,0,0,0,0,0,
     +3,0,0,0,0,0,0,1,2,-2,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,-
     +1,-2,0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,2,-3,-1,0,0,0,0,1
     +,2,-3,0,0,0,0,0,1,2,-2,-1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
     +0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,
     +0,0,0,0,1,0,0 /                                                   
C40   FORMAT(1X,'C(',I2,',',I1,')= ',I5)
      DO 10, I=1, 8
      DO 20, J=1, 60
      C(I,J)=D(I,J)
C     WRITE(*,40) I,J,C(I,J)
 20   CONTINUE
 10   CONTINUE
      RETURN
      END
