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