← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_970226/PROC_970226/SubProcesses/P0_gg_gggg/matrix1.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_970226/PROC_970226/SubProcesses/P0_gg_gggg/matrix1.f
 
1
      SUBROUTINE SMATRIX1(P,ANS)
 
2
C     
 
3
C     Generated by MadGraph 5 v. 2.0.0.beta3, 2013-02-14
 
4
C     By the MadGraph Development Team
 
5
C     Please visit us at https://launchpad.net/madgraph5
 
6
C     
 
7
C     MadGraph for Madevent Version
 
8
C     
 
9
C     Returns amplitude squared summed/avg over colors
 
10
C     and helicities
 
11
C     for the point in phase space P(0:3,NEXTERNAL)
 
12
C     
 
13
C     Process: g g > g g g g WEIGHTED=4
 
14
C     
 
15
      IMPLICIT NONE
 
16
C     
 
17
C     CONSTANTS
 
18
C     
 
19
      INCLUDE 'genps.inc'
 
20
      INCLUDE 'maxconfigs.inc'
 
21
      INCLUDE 'nexternal.inc'
 
22
      INCLUDE 'maxamps.inc'
 
23
      INTEGER                 NCOMB
 
24
      PARAMETER (             NCOMB=64)
 
25
      INTEGER    NGRAPHS
 
26
      PARAMETER (NGRAPHS=510)
 
27
      INTEGER    NDIAGS
 
28
      PARAMETER (NDIAGS=220)
 
29
      INTEGER    THEL
 
30
      PARAMETER (THEL=2*NCOMB)
 
31
C     
 
32
C     ARGUMENTS 
 
33
C     
 
34
      REAL*8 P(0:3,NEXTERNAL),ANS
 
35
C     
 
36
C     LOCAL VARIABLES 
 
37
C     
 
38
      INTEGER NHEL(NEXTERNAL,NCOMB),NTRY(2)
 
39
      INTEGER ISHEL(2)
 
40
      REAL*8 T,MATRIX1
 
41
      REAL*8 R,SUMHEL,TS(NCOMB)
 
42
      INTEGER I,IDEN
 
43
      INTEGER JC(NEXTERNAL),II
 
44
      LOGICAL GOODHEL(NCOMB,2)
 
45
      REAL*8 HWGT, XTOT, XTRY, XREJ, XR, YFRAC(0:NCOMB)
 
46
      INTEGER NGOOD(2), IGOOD(NCOMB,2)
 
47
      INTEGER JHEL(2), J, JJ
 
48
C     
 
49
C     GLOBAL VARIABLES
 
50
C     
 
51
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXFLOW)
 
52
      COMMON/TO_AMPS/  AMP2,       JAMP2
 
53
 
 
54
      CHARACTER*101         HEL_BUFF
 
55
      COMMON/TO_HELICITY/  HEL_BUFF
 
56
 
 
57
      INTEGER IMIRROR
 
58
      COMMON/TO_MIRROR/ IMIRROR
 
59
 
 
60
      REAL*8 POL(2)
 
61
      COMMON/TO_POLARIZATION/ POL
 
62
 
 
63
      INTEGER          ISUM_HEL
 
64
      LOGICAL                    MULTI_CHANNEL
 
65
      COMMON/TO_MATRIX/ISUM_HEL, MULTI_CHANNEL
 
66
      INTEGER MAPCONFIG(0:LMAXCONFIGS), ICONFIG
 
67
      COMMON/TO_MCONFIGS/MAPCONFIG, ICONFIG
 
68
      INTEGER SUBDIAG(MAXSPROC),IB(2)
 
69
      COMMON/TO_SUB_DIAG/SUBDIAG,IB
 
70
      DATA XTRY, XREJ /0,0/
 
71
      DATA NTRY /0,0/
 
72
      DATA NGOOD /0,0/
 
73
      DATA ISHEL/0,0/
 
74
      SAVE YFRAC, IGOOD, JHEL
 
75
      DATA GOODHEL/THEL*.FALSE./
 
76
      DATA (NHEL(I,   1),I=1,6) /-1,-1,-1,-1,-1,-1/
 
77
      DATA (NHEL(I,   2),I=1,6) /-1,-1,-1,-1,-1, 1/
 
78
      DATA (NHEL(I,   3),I=1,6) /-1,-1,-1,-1, 1,-1/
 
79
      DATA (NHEL(I,   4),I=1,6) /-1,-1,-1,-1, 1, 1/
 
80
      DATA (NHEL(I,   5),I=1,6) /-1,-1,-1, 1,-1,-1/
 
81
      DATA (NHEL(I,   6),I=1,6) /-1,-1,-1, 1,-1, 1/
 
82
      DATA (NHEL(I,   7),I=1,6) /-1,-1,-1, 1, 1,-1/
 
83
      DATA (NHEL(I,   8),I=1,6) /-1,-1,-1, 1, 1, 1/
 
84
      DATA (NHEL(I,   9),I=1,6) /-1,-1, 1,-1,-1,-1/
 
85
      DATA (NHEL(I,  10),I=1,6) /-1,-1, 1,-1,-1, 1/
 
86
      DATA (NHEL(I,  11),I=1,6) /-1,-1, 1,-1, 1,-1/
 
87
      DATA (NHEL(I,  12),I=1,6) /-1,-1, 1,-1, 1, 1/
 
88
      DATA (NHEL(I,  13),I=1,6) /-1,-1, 1, 1,-1,-1/
 
89
      DATA (NHEL(I,  14),I=1,6) /-1,-1, 1, 1,-1, 1/
 
90
      DATA (NHEL(I,  15),I=1,6) /-1,-1, 1, 1, 1,-1/
 
91
      DATA (NHEL(I,  16),I=1,6) /-1,-1, 1, 1, 1, 1/
 
92
      DATA (NHEL(I,  17),I=1,6) /-1, 1,-1,-1,-1,-1/
 
93
      DATA (NHEL(I,  18),I=1,6) /-1, 1,-1,-1,-1, 1/
 
94
      DATA (NHEL(I,  19),I=1,6) /-1, 1,-1,-1, 1,-1/
 
95
      DATA (NHEL(I,  20),I=1,6) /-1, 1,-1,-1, 1, 1/
 
96
      DATA (NHEL(I,  21),I=1,6) /-1, 1,-1, 1,-1,-1/
 
97
      DATA (NHEL(I,  22),I=1,6) /-1, 1,-1, 1,-1, 1/
 
98
      DATA (NHEL(I,  23),I=1,6) /-1, 1,-1, 1, 1,-1/
 
99
      DATA (NHEL(I,  24),I=1,6) /-1, 1,-1, 1, 1, 1/
 
100
      DATA (NHEL(I,  25),I=1,6) /-1, 1, 1,-1,-1,-1/
 
101
      DATA (NHEL(I,  26),I=1,6) /-1, 1, 1,-1,-1, 1/
 
102
      DATA (NHEL(I,  27),I=1,6) /-1, 1, 1,-1, 1,-1/
 
103
      DATA (NHEL(I,  28),I=1,6) /-1, 1, 1,-1, 1, 1/
 
104
      DATA (NHEL(I,  29),I=1,6) /-1, 1, 1, 1,-1,-1/
 
105
      DATA (NHEL(I,  30),I=1,6) /-1, 1, 1, 1,-1, 1/
 
106
      DATA (NHEL(I,  31),I=1,6) /-1, 1, 1, 1, 1,-1/
 
107
      DATA (NHEL(I,  32),I=1,6) /-1, 1, 1, 1, 1, 1/
 
108
      DATA (NHEL(I,  33),I=1,6) / 1,-1,-1,-1,-1,-1/
 
109
      DATA (NHEL(I,  34),I=1,6) / 1,-1,-1,-1,-1, 1/
 
110
      DATA (NHEL(I,  35),I=1,6) / 1,-1,-1,-1, 1,-1/
 
111
      DATA (NHEL(I,  36),I=1,6) / 1,-1,-1,-1, 1, 1/
 
112
      DATA (NHEL(I,  37),I=1,6) / 1,-1,-1, 1,-1,-1/
 
113
      DATA (NHEL(I,  38),I=1,6) / 1,-1,-1, 1,-1, 1/
 
114
      DATA (NHEL(I,  39),I=1,6) / 1,-1,-1, 1, 1,-1/
 
115
      DATA (NHEL(I,  40),I=1,6) / 1,-1,-1, 1, 1, 1/
 
116
      DATA (NHEL(I,  41),I=1,6) / 1,-1, 1,-1,-1,-1/
 
117
      DATA (NHEL(I,  42),I=1,6) / 1,-1, 1,-1,-1, 1/
 
118
      DATA (NHEL(I,  43),I=1,6) / 1,-1, 1,-1, 1,-1/
 
119
      DATA (NHEL(I,  44),I=1,6) / 1,-1, 1,-1, 1, 1/
 
120
      DATA (NHEL(I,  45),I=1,6) / 1,-1, 1, 1,-1,-1/
 
121
      DATA (NHEL(I,  46),I=1,6) / 1,-1, 1, 1,-1, 1/
 
122
      DATA (NHEL(I,  47),I=1,6) / 1,-1, 1, 1, 1,-1/
 
123
      DATA (NHEL(I,  48),I=1,6) / 1,-1, 1, 1, 1, 1/
 
124
      DATA (NHEL(I,  49),I=1,6) / 1, 1,-1,-1,-1,-1/
 
125
      DATA (NHEL(I,  50),I=1,6) / 1, 1,-1,-1,-1, 1/
 
126
      DATA (NHEL(I,  51),I=1,6) / 1, 1,-1,-1, 1,-1/
 
127
      DATA (NHEL(I,  52),I=1,6) / 1, 1,-1,-1, 1, 1/
 
128
      DATA (NHEL(I,  53),I=1,6) / 1, 1,-1, 1,-1,-1/
 
129
      DATA (NHEL(I,  54),I=1,6) / 1, 1,-1, 1,-1, 1/
 
130
      DATA (NHEL(I,  55),I=1,6) / 1, 1,-1, 1, 1,-1/
 
131
      DATA (NHEL(I,  56),I=1,6) / 1, 1,-1, 1, 1, 1/
 
132
      DATA (NHEL(I,  57),I=1,6) / 1, 1, 1,-1,-1,-1/
 
133
      DATA (NHEL(I,  58),I=1,6) / 1, 1, 1,-1,-1, 1/
 
134
      DATA (NHEL(I,  59),I=1,6) / 1, 1, 1,-1, 1,-1/
 
135
      DATA (NHEL(I,  60),I=1,6) / 1, 1, 1,-1, 1, 1/
 
136
      DATA (NHEL(I,  61),I=1,6) / 1, 1, 1, 1,-1,-1/
 
137
      DATA (NHEL(I,  62),I=1,6) / 1, 1, 1, 1,-1, 1/
 
138
      DATA (NHEL(I,  63),I=1,6) / 1, 1, 1, 1, 1,-1/
 
139
      DATA (NHEL(I,  64),I=1,6) / 1, 1, 1, 1, 1, 1/
 
140
      DATA IDEN/6144/
 
141
C     ----------
 
142
C     BEGIN CODE
 
143
C     ----------
 
144
      NTRY(IMIRROR)=NTRY(IMIRROR)+1
 
145
      DO I=1,NEXTERNAL
 
146
        JC(I) = +1
 
147
      ENDDO
 
148
 
 
149
      IF (MULTI_CHANNEL) THEN
 
150
        DO I=1,NDIAGS
 
151
          AMP2(I)=0D0
 
152
        ENDDO
 
153
        JAMP2(0)=120
 
154
        DO I=1,INT(JAMP2(0))
 
155
          JAMP2(I)=0D0
 
156
        ENDDO
 
157
      ENDIF
 
158
      ANS = 0D0
 
159
      WRITE(HEL_BUFF,'(20I5)') (0,I=1,NEXTERNAL)
 
160
      DO I=1,NCOMB
 
161
        TS(I)=0D0
 
162
      ENDDO
 
163
      IF (ISHEL(IMIRROR) .EQ. 0 .OR. NTRY(IMIRROR) .LE. MAXTRIES) THEN
 
164
        DO I=1,NCOMB
 
165
          IF (GOODHEL(I,IMIRROR) .OR. NTRY(IMIRROR).LE.MAXTRIES) THEN
 
166
            T=MATRIX1(P ,NHEL(1,I),JC(1))
 
167
            DO JJ=1,NINCOMING
 
168
              IF(POL(JJ).NE.1D0.AND.NHEL(JJ,I).EQ.INT(SIGN(1D0
 
169
     $         ,POL(JJ)))) THEN
 
170
                T=T*ABS(POL(JJ))
 
171
              ELSE IF(POL(JJ).NE.1D0)THEN
 
172
                T=T*(2D0-ABS(POL(JJ)))
 
173
              ENDIF
 
174
            ENDDO
 
175
            ANS=ANS+DABS(T)
 
176
            TS(I)=T
 
177
          ENDIF
 
178
        ENDDO
 
179
        JHEL(IMIRROR) = 1
 
180
        IF(NTRY(IMIRROR).LE.MAXTRIES)THEN
 
181
          DO I=1,NCOMB
 
182
            IF (.NOT.GOODHEL(I,IMIRROR) .AND. (DABS(TS(I)).GT.ANS
 
183
     $       *LIMHEL/NCOMB)) THEN
 
184
              GOODHEL(I,IMIRROR)=.TRUE.
 
185
              NGOOD(IMIRROR) = NGOOD(IMIRROR) +1
 
186
              IGOOD(NGOOD(IMIRROR),IMIRROR) = I
 
187
              PRINT *,'Added good helicity ',I,TS(I)*NCOMB/ANS
 
188
     $         ,' in event ',NTRY(IMIRROR)
 
189
            ENDIF
 
190
          ENDDO
 
191
        ENDIF
 
192
        IF(NTRY(IMIRROR).EQ.MAXTRIES)THEN
 
193
          ISHEL(IMIRROR)=MIN(ISUM_HEL,NGOOD(IMIRROR))
 
194
        ENDIF
 
195
      ELSE  !LOOP OVER GOOD HELICITIES
 
196
        DO J=1,ISHEL(IMIRROR)
 
197
          JHEL(IMIRROR)=JHEL(IMIRROR)+1
 
198
          IF (JHEL(IMIRROR) .GT. NGOOD(IMIRROR)) JHEL(IMIRROR)=1
 
199
          HWGT = REAL(NGOOD(IMIRROR))/REAL(ISHEL(IMIRROR))
 
200
          I = IGOOD(JHEL(IMIRROR),IMIRROR)
 
201
          T=MATRIX1(P ,NHEL(1,I),JC(1))
 
202
          DO JJ=1,NINCOMING
 
203
            IF(POL(JJ).NE.1D0.AND.NHEL(JJ,I).EQ.INT(SIGN(1D0,POL(JJ)))
 
204
     $       ) THEN
 
205
              T=T*ABS(POL(JJ))
 
206
            ELSE IF(POL(JJ).NE.1D0)THEN
 
207
              T=T*(2D0-ABS(POL(JJ)))
 
208
            ENDIF
 
209
          ENDDO
 
210
          ANS=ANS+DABS(T)*HWGT
 
211
          TS(I)=T*HWGT
 
212
        ENDDO
 
213
        IF (ISHEL(IMIRROR) .EQ. 1) THEN
 
214
          WRITE(HEL_BUFF,'(20i5)')(NHEL(II,I),II=1,NEXTERNAL)
 
215
C         Set right sign for ANS, based on sign of chosen helicity
 
216
          ANS=DSIGN(ANS,TS(I))
 
217
        ENDIF
 
218
      ENDIF
 
219
      IF (ISHEL(IMIRROR) .NE. 1) THEN
 
220
        CALL RANMAR(R)
 
221
        SUMHEL=0D0
 
222
        DO I=1,NCOMB
 
223
          SUMHEL=SUMHEL+DABS(TS(I))/ANS
 
224
          IF(R.LT.SUMHEL)THEN
 
225
            WRITE(HEL_BUFF,'(20i5)')(NHEL(II,I),II=1,NEXTERNAL)
 
226
C           Set right sign for ANS, based on sign of chosen helicity
 
227
            ANS=DSIGN(ANS,TS(I))
 
228
            GOTO 10
 
229
          ENDIF
 
230
        ENDDO
 
231
 10     CONTINUE
 
232
      ENDIF
 
233
      IF (MULTI_CHANNEL) THEN
 
234
        XTOT=0D0
 
235
        DO I=1,NDIAGS
 
236
          XTOT=XTOT+AMP2(I)
 
237
        ENDDO
 
238
        IF (XTOT.NE.0D0) THEN
 
239
          ANS=ANS*AMP2(SUBDIAG(1))/XTOT
 
240
        ELSE
 
241
          ANS=0D0
 
242
        ENDIF
 
243
      ENDIF
 
244
      ANS=ANS/DBLE(IDEN)
 
245
      END
 
246
 
 
247
 
 
248
      REAL*8 FUNCTION MATRIX1(P,NHEL,IC)
 
249
C     
 
250
C     Generated by MadGraph 5 v. 2.0.0.beta3, 2013-02-14
 
251
C     By the MadGraph Development Team
 
252
C     Please visit us at https://launchpad.net/madgraph5
 
253
C     
 
254
C     Returns amplitude squared summed/avg over colors
 
255
C     for the point with external lines W(0:6,NEXTERNAL)
 
256
C     
 
257
C     Process: g g > g g g g WEIGHTED=4
 
258
C     
 
259
      IMPLICIT NONE
 
260
C     
 
261
C     CONSTANTS
 
262
C     
 
263
      INTEGER    NGRAPHS
 
264
      PARAMETER (NGRAPHS=510)
 
265
      INCLUDE 'genps.inc'
 
266
      INCLUDE 'nexternal.inc'
 
267
      INCLUDE 'maxamps.inc'
 
268
      INTEGER    NWAVEFUNCS,     NCOLOR
 
269
      PARAMETER (NWAVEFUNCS=51, NCOLOR=120)
 
270
      REAL*8     ZERO
 
271
      PARAMETER (ZERO=0D0)
 
272
      COMPLEX*16 IMAG1
 
273
      PARAMETER (IMAG1=(0D0,1D0))
 
274
C     
 
275
C     ARGUMENTS 
 
276
C     
 
277
      REAL*8 P(0:3,NEXTERNAL)
 
278
      INTEGER NHEL(NEXTERNAL), IC(NEXTERNAL)
 
279
C     
 
280
C     LOCAL VARIABLES 
 
281
C     
 
282
      INTEGER I,J
 
283
      COMPLEX*16 ZTEMP
 
284
      REAL*8 DENOM(NCOLOR), CF(NCOLOR,NCOLOR)
 
285
      COMPLEX*16 AMP(NGRAPHS), JAMP(NCOLOR)
 
286
      COMPLEX*16 W(6,NWAVEFUNCS)
 
287
C     Needed for v4 models
 
288
      COMPLEX*16 DUM0,DUM1
 
289
      DATA DUM0, DUM1/(0D0, 0D0), (1D0, 0D0)/
 
290
C     
 
291
C     GLOBAL VARIABLES
 
292
C     
 
293
      DOUBLE PRECISION AMP2(MAXAMPS), JAMP2(0:MAXFLOW)
 
294
      COMMON/TO_AMPS/  AMP2,       JAMP2
 
295
      INCLUDE 'coupl.inc'
 
296
C     
 
297
C     COLOR DATA
 
298
C     
 
299
      DATA DENOM(1)/648/
 
300
      DATA (CF(I,  1),I=  1,  6) / 3641, -454, -454,   50,   50,  572/
 
301
      DATA (CF(I,  1),I=  7, 12) / -454,   68,   50,   50,  -13,  -76/
 
302
      DATA (CF(I,  1),I= 13, 18) /   50,  -13,  572,  -76,  554,  428/
 
303
      DATA (CF(I,  1),I= 19, 24) /   50,  -76,  -76,  428,  428, -184/
 
304
      DATA (CF(I,  1),I= 25, 30) / -454,   68,   68,  -76,  -76,  -40/
 
305
      DATA (CF(I,  1),I= 31, 36) /   50,  -76,   50, -454,  -13,   68/
 
306
      DATA (CF(I,  1),I= 37, 42) /  -13,    5,  -76,   68,  -13,  -76/
 
307
      DATA (CF(I,  1),I= 43, 48) /  -13,  -58,    5,  -76,  -58,  -40/
 
308
      DATA (CF(I,  1),I= 49, 54) /   50,  -76,  -13,  -13,    5,  -58/
 
309
      DATA (CF(I,  1),I= 55, 60) /  572,  -40,  -76,   68,  -58,  104/
 
310
      DATA (CF(I,  1),I= 61, 66) /  554,  -13,  428,  -76,   50,  572/
 
311
      DATA (CF(I,  1),I= 67, 72) /  -13,    5,  -58,  -58,  -76,  -40/
 
312
      DATA (CF(I,  1),I= 73, 78) /   50,  -13,  -76,    5,  -13,  -58/
 
313
      DATA (CF(I,  1),I= 79, 84) /  -76,  -58,  428,  -76,    5,  -58/
 
314
      DATA (CF(I,  1),I= 85, 90) /  428,  -58, -184,  -40,  -76,  -40/
 
315
      DATA (CF(I,  1),I= 91, 96) /   50,  -76,  -76,  428,  428, -184/
 
316
      DATA (CF(I,  1),I= 97,102) / -454,   68,   68,  -76,  -76,  -40/
 
317
      DATA (CF(I,  1),I=103,108) /   68,  104,  -76,  572,  -58,  -40/
 
318
      DATA (CF(I,  1),I=109,114) /  -76,  -58,  -40,  -40,  428, -184/
 
319
      DATA (CF(I,  1),I=115,120) /  572,  -40,  -40, -184, -184,  176/
 
320
C     1 Tr(1,2,3,4,5,6)
 
321
      DATA DENOM(2)/648/
 
322
      DATA (CF(I,  2),I=  1,  6) / -454, 3641,   50,  572, -454,   50/
 
323
      DATA (CF(I,  2),I=  7, 12) /   68, -454,  -13,  -76,   50,   50/
 
324
      DATA (CF(I,  2),I= 13, 18) /   50,  -76,  -76,  428,  428, -184/
 
325
      DATA (CF(I,  2),I= 19, 24) /   50,  -13,  572,  -76,  554,  428/
 
326
      DATA (CF(I,  2),I= 25, 30) /   68, -454,  -76,  -40,   68,  -76/
 
327
      DATA (CF(I,  2),I= 31, 36) /  -76,   50,  -13,   68,   50, -454/
 
328
      DATA (CF(I,  2),I= 37, 42) /  -13,  -58,    5,  -76,  -58,  -40/
 
329
      DATA (CF(I,  2),I= 43, 48) /  -13,    5,  -76,   68,  -13,  -76/
 
330
      DATA (CF(I,  2),I= 49, 54) /  -76,   50,    5,  -58,  -13,  -13/
 
331
      DATA (CF(I,  2),I= 55, 60) /  -40,  572,  -58,  104,  -76,   68/
 
332
      DATA (CF(I,  2),I= 61, 66) /  -13,    5,  -58,  -58,  -76,  -40/
 
333
      DATA (CF(I,  2),I= 67, 72) /  554,  -13,  428,  -76,   50,  572/
 
334
      DATA (CF(I,  2),I= 73, 78) / -454,   68,   68,  -76,  -76,  -40/
 
335
      DATA (CF(I,  2),I= 79, 84) /   68,  104,  -76,  572,  -58,  -40/
 
336
      DATA (CF(I,  2),I= 85, 90) /  -76,  -58,  -40,  -40,  428, -184/
 
337
      DATA (CF(I,  2),I= 91, 96) /  572,  -40,  -40, -184, -184,  176/
 
338
      DATA (CF(I,  2),I= 97,102) /   50,  -13,  -76,    5,  -13,  -58/
 
339
      DATA (CF(I,  2),I=103,108) /  -76,  -58,  428,  -76,    5,  -58/
 
340
      DATA (CF(I,  2),I=109,114) /  428,  -58, -184,  -40,  -76,  -40/
 
341
      DATA (CF(I,  2),I=115,120) /   50,  -76,  -76,  428,  428, -184/
 
342
C     1 Tr(1,2,3,4,6,5)
 
343
      DATA DENOM(3)/648/
 
344
      DATA (CF(I,  3),I=  1,  6) / -454,   50, 3641, -454,  572,   50/
 
345
      DATA (CF(I,  3),I=  7, 12) /   50,  -13,  572,  -76,  554,  428/
 
346
      DATA (CF(I,  3),I= 13, 18) / -454,   68,   50,   50,  -13,  -76/
 
347
      DATA (CF(I,  3),I= 19, 24) /  -76,   50,  428, -184,  -76,  428/
 
348
      DATA (CF(I,  3),I= 25, 30) /   68,  -76, -454,   68,  -40,  -76/
 
349
      DATA (CF(I,  3),I= 31, 36) /  -13,    5,  -76,   68,  -13,  -76/
 
350
      DATA (CF(I,  3),I= 37, 42) /   50,  -76,   50, -454,  -13,   68/
 
351
      DATA (CF(I,  3),I= 43, 48) /  -58,  -13,  -58,  -40,    5,  -76/
 
352
      DATA (CF(I,  3),I= 49, 54) /   50,  -13,  -76,    5,  -13,  -58/
 
353
      DATA (CF(I,  3),I= 55, 60) /  -76,  -58,  428,  -76,    5,  -58/
 
354
      DATA (CF(I,  3),I= 61, 66) /  428,  -58, -184,  -40,  -76,  -40/
 
355
      DATA (CF(I,  3),I= 67, 72) /   50,  -76,  -76,  428,  428, -184/
 
356
      DATA (CF(I,  3),I= 73, 78) /   50,  -76,  -13,  -13,    5,  -58/
 
357
      DATA (CF(I,  3),I= 79, 84) /  572,  -40,  -76,   68,  -58,  104/
 
358
      DATA (CF(I,  3),I= 85, 90) /  554,  -13,  428,  -76,   50,  572/
 
359
      DATA (CF(I,  3),I= 91, 96) /  -13,    5,  -58,  -58,  -76,  -40/
 
360
      DATA (CF(I,  3),I= 97,102) /   68, -454,  -76,  -40,   68,  -76/
 
361
      DATA (CF(I,  3),I=103,108) /  104,   68,  -58,  -40,  -76,  572/
 
362
      DATA (CF(I,  3),I=109,114) /  572,  -40,  -40, -184, -184,  176/
 
363
      DATA (CF(I,  3),I=115,120) /  -76,  -58,  -40,  -40,  428, -184/
 
364
C     1 Tr(1,2,3,5,4,6)
 
365
      DATA DENOM(4)/648/
 
366
      DATA (CF(I,  4),I=  1,  6) /   50,  572, -454, 3641,   50, -454/
 
367
      DATA (CF(I,  4),I=  7, 12) /   50,  -76,  -76,  428,  428, -184/
 
368
      DATA (CF(I,  4),I= 13, 18) /   68, -454,  -13,  -76,   50,   50/
 
369
      DATA (CF(I,  4),I= 19, 24) /  -13,   50,  554,  428,  572,  -76/
 
370
      DATA (CF(I,  4),I= 25, 30) /  -76,  -40,   68, -454,  -76,   68/
 
371
      DATA (CF(I,  4),I= 31, 36) /  -13,  -58,    5,  -76,  -58,  -40/
 
372
      DATA (CF(I,  4),I= 37, 42) /  -76,   50,  -13,   68,   50, -454/
 
373
      DATA (CF(I,  4),I= 43, 48) /    5,  -13,  -13,  -76,  -76,   68/
 
374
      DATA (CF(I,  4),I= 49, 54) / -454,   68,   68,  -76,  -76,  -40/
 
375
      DATA (CF(I,  4),I= 55, 60) /   68,  104,  -76,  572,  -58,  -40/
 
376
      DATA (CF(I,  4),I= 61, 66) /  -76,  -58,  -40,  -40,  428, -184/
 
377
      DATA (CF(I,  4),I= 67, 72) /  572,  -40,  -40, -184, -184,  176/
 
378
      DATA (CF(I,  4),I= 73, 78) /  -76,   50,    5,  -58,  -13,  -13/
 
379
      DATA (CF(I,  4),I= 79, 84) /  -40,  572,  -58,  104,  -76,   68/
 
380
      DATA (CF(I,  4),I= 85, 90) /  -13,    5,  -58,  -58,  -76,  -40/
 
381
      DATA (CF(I,  4),I= 91, 96) /  554,  -13,  428,  -76,   50,  572/
 
382
      DATA (CF(I,  4),I= 97,102) /  -13,   50,  -13,  -58,  -76,    5/
 
383
      DATA (CF(I,  4),I=103,108) /  -58,  -76,    5,  -58,  428,  -76/
 
384
      DATA (CF(I,  4),I=109,114) /   50,  -76,  -76,  428,  428, -184/
 
385
      DATA (CF(I,  4),I=115,120) /  428,  -58, -184,  -40,  -76,  -40/
 
386
C     1 Tr(1,2,3,5,6,4)
 
387
      DATA DENOM(5)/648/
 
388
      DATA (CF(I,  5),I=  1,  6) /   50, -454,  572,   50, 3641, -454/
 
389
      DATA (CF(I,  5),I=  7, 12) /  -13,   50,  554,  428,  572,  -76/
 
390
      DATA (CF(I,  5),I= 13, 18) /  -76,   50,  428, -184,  -76,  428/
 
391
      DATA (CF(I,  5),I= 19, 24) / -454,   68,   50,   50,  -13,  -76/
 
392
      DATA (CF(I,  5),I= 25, 30) /  -76,   68,  -40,  -76, -454,   68/
 
393
      DATA (CF(I,  5),I= 31, 36) /    5,  -13,  -13,  -76,  -76,   68/
 
394
      DATA (CF(I,  5),I= 37, 42) /  -58,  -13,  -58,  -40,    5,  -76/
 
395
      DATA (CF(I,  5),I= 43, 48) /   50,  -76,   50, -454,  -13,   68/
 
396
      DATA (CF(I,  5),I= 49, 54) /  -13,   50,  -13,  -58,  -76,    5/
 
397
      DATA (CF(I,  5),I= 55, 60) /  -58,  -76,    5,  -58,  428,  -76/
 
398
      DATA (CF(I,  5),I= 61, 66) /   50,  -76,  -76,  428,  428, -184/
 
399
      DATA (CF(I,  5),I= 67, 72) /  428,  -58, -184,  -40,  -76,  -40/
 
400
      DATA (CF(I,  5),I= 73, 78) /   68, -454,  -76,  -40,   68,  -76/
 
401
      DATA (CF(I,  5),I= 79, 84) /  104,   68,  -58,  -40,  -76,  572/
 
402
      DATA (CF(I,  5),I= 85, 90) /  572,  -40,  -40, -184, -184,  176/
 
403
      DATA (CF(I,  5),I= 91, 96) /  -76,  -58,  -40,  -40,  428, -184/
 
404
      DATA (CF(I,  5),I= 97,102) /   50,  -76,  -13,  -13,    5,  -58/
 
405
      DATA (CF(I,  5),I=103,108) /  572,  -40,  -76,   68,  -58,  104/
 
406
      DATA (CF(I,  5),I=109,114) /  554,  -13,  428,  -76,   50,  572/
 
407
      DATA (CF(I,  5),I=115,120) /  -13,    5,  -58,  -58,  -76,  -40/
 
408
C     1 Tr(1,2,3,6,4,5)
 
409
      DATA DENOM(6)/648/
 
410
      DATA (CF(I,  6),I=  1,  6) /  572,   50,   50, -454, -454, 3641/
 
411
      DATA (CF(I,  6),I=  7, 12) /  -76,   50,  428, -184,  -76,  428/
 
412
      DATA (CF(I,  6),I= 13, 18) /  -13,   50,  554,  428,  572,  -76/
 
413
      DATA (CF(I,  6),I= 19, 24) /   68, -454,  -13,  -76,   50,   50/
 
414
      DATA (CF(I,  6),I= 25, 30) /  -40,  -76,  -76,   68,   68, -454/
 
415
      DATA (CF(I,  6),I= 31, 36) /  -58,  -13,  -58,  -40,    5,  -76/
 
416
      DATA (CF(I,  6),I= 37, 42) /    5,  -13,  -13,  -76,  -76,   68/
 
417
      DATA (CF(I,  6),I= 43, 48) /  -76,   50,  -13,   68,   50, -454/
 
418
      DATA (CF(I,  6),I= 49, 54) /   68, -454,  -76,  -40,   68,  -76/
 
419
      DATA (CF(I,  6),I= 55, 60) /  104,   68,  -58,  -40,  -76,  572/
 
420
      DATA (CF(I,  6),I= 61, 66) /  572,  -40,  -40, -184, -184,  176/
 
421
      DATA (CF(I,  6),I= 67, 72) /  -76,  -58,  -40,  -40,  428, -184/
 
422
      DATA (CF(I,  6),I= 73, 78) /  -13,   50,  -13,  -58,  -76,    5/
 
423
      DATA (CF(I,  6),I= 79, 84) /  -58,  -76,    5,  -58,  428,  -76/
 
424
      DATA (CF(I,  6),I= 85, 90) /   50,  -76,  -76,  428,  428, -184/
 
425
      DATA (CF(I,  6),I= 91, 96) /  428,  -58, -184,  -40,  -76,  -40/
 
426
      DATA (CF(I,  6),I= 97,102) /  -76,   50,    5,  -58,  -13,  -13/
 
427
      DATA (CF(I,  6),I=103,108) /  -40,  572,  -58,  104,  -76,   68/
 
428
      DATA (CF(I,  6),I=109,114) /  -13,    5,  -58,  -58,  -76,  -40/
 
429
      DATA (CF(I,  6),I=115,120) /  554,  -13,  428,  -76,   50,  572/
 
430
C     1 Tr(1,2,3,6,5,4)
 
431
      DATA DENOM(7)/648/
 
432
      DATA (CF(I,  7),I=  1,  6) / -454,   68,   50,   50,  -13,  -76/
 
433
      DATA (CF(I,  7),I=  7, 12) / 3641, -454, -454,   50,   50,  572/
 
434
      DATA (CF(I,  7),I= 13, 18) /  572,  -76,   50,  -13,  428,  554/
 
435
      DATA (CF(I,  7),I= 19, 24) /  -76,  428,   50,  -76, -184,  428/
 
436
      DATA (CF(I,  7),I= 25, 30) /   50,  -76,  -13,  -13,    5,  -58/
 
437
      DATA (CF(I,  7),I= 31, 36) /  572,  -40,  -76,   68,  -58,  104/
 
438
      DATA (CF(I,  7),I= 37, 42) /  554,  -13,  428,  -76,   50,  572/
 
439
      DATA (CF(I,  7),I= 43, 48) /  -13,    5,  -58,  -58,  -76,  -40/
 
440
      DATA (CF(I,  7),I= 49, 54) / -454,   68,   68,  -76,  -76,  -40/
 
441
      DATA (CF(I,  7),I= 55, 60) /   50,  -76,   50, -454,  -13,   68/
 
442
      DATA (CF(I,  7),I= 61, 66) /  -13,    5,  -76,   68,  -13,  -76/
 
443
      DATA (CF(I,  7),I= 67, 72) /  -13,  -58,    5,  -76,  -58,  -40/
 
444
      DATA (CF(I,  7),I= 73, 78) /  -76,    5,   50,  -13,  -58,  -13/
 
445
      DATA (CF(I,  7),I= 79, 84) /  428,  -58, -184,  -40,  -76,  -40/
 
446
      DATA (CF(I,  7),I= 85, 90) /  -76,  -58,  428,  -76,    5,  -58/
 
447
      DATA (CF(I,  7),I= 91, 96) /  -76,   50,  428, -184,  -76,  428/
 
448
      DATA (CF(I,  7),I= 97,102) /   68,  -76, -454,   68,  -40,  -76/
 
449
      DATA (CF(I,  7),I=103,108) /  -76,  -58,  -40,  -40,  428, -184/
 
450
      DATA (CF(I,  7),I=109,114) /   68,  104,  -76,  572,  -58,  -40/
 
451
      DATA (CF(I,  7),I=115,120) /  -40,  572, -184,  176,  -40, -184/
 
452
C     1 Tr(1,2,4,3,5,6)
 
453
      DATA DENOM(8)/648/
 
454
      DATA (CF(I,  8),I=  1,  6) /   68, -454,  -13,  -76,   50,   50/
 
455
      DATA (CF(I,  8),I=  7, 12) / -454, 3641,   50,  572, -454,   50/
 
456
      DATA (CF(I,  8),I= 13, 18) /  -76,  428,   50,  -76, -184,  428/
 
457
      DATA (CF(I,  8),I= 19, 24) /  572,  -76,   50,  -13,  428,  554/
 
458
      DATA (CF(I,  8),I= 25, 30) /  -76,   50,    5,  -58,  -13,  -13/
 
459
      DATA (CF(I,  8),I= 31, 36) /  -40,  572,  -58,  104,  -76,   68/
 
460
      DATA (CF(I,  8),I= 37, 42) /  -13,    5,  -58,  -58,  -76,  -40/
 
461
      DATA (CF(I,  8),I= 43, 48) /  554,  -13,  428,  -76,   50,  572/
 
462
      DATA (CF(I,  8),I= 49, 54) /   68, -454,  -76,  -40,   68,  -76/
 
463
      DATA (CF(I,  8),I= 55, 60) /  -76,   50,  -13,   68,   50, -454/
 
464
      DATA (CF(I,  8),I= 61, 66) /  -13,  -58,    5,  -76,  -58,  -40/
 
465
      DATA (CF(I,  8),I= 67, 72) /  -13,    5,  -76,   68,  -13,  -76/
 
466
      DATA (CF(I,  8),I= 73, 78) /   68,  -76, -454,   68,  -40,  -76/
 
467
      DATA (CF(I,  8),I= 79, 84) /  -76,  -58,  -40,  -40,  428, -184/
 
468
      DATA (CF(I,  8),I= 85, 90) /   68,  104,  -76,  572,  -58,  -40/
 
469
      DATA (CF(I,  8),I= 91, 96) /  -40,  572, -184,  176,  -40, -184/
 
470
      DATA (CF(I,  8),I= 97,102) /  -76,    5,   50,  -13,  -58,  -13/
 
471
      DATA (CF(I,  8),I=103,108) /  428,  -58, -184,  -40,  -76,  -40/
 
472
      DATA (CF(I,  8),I=109,114) /  -76,  -58,  428,  -76,    5,  -58/
 
473
      DATA (CF(I,  8),I=115,120) /  -76,   50,  428, -184,  -76,  428/
 
474
C     1 Tr(1,2,4,3,6,5)
 
475
      DATA DENOM(9)/648/
 
476
      DATA (CF(I,  9),I=  1,  6) /   50,  -13,  572,  -76,  554,  428/
 
477
      DATA (CF(I,  9),I=  7, 12) / -454,   50, 3641, -454,  572,   50/
 
478
      DATA (CF(I,  9),I= 13, 18) /   50,   50, -454,   68,  -76,  -13/
 
479
      DATA (CF(I,  9),I= 19, 24) /  428, -184,  -76,   50,  428,  -76/
 
480
      DATA (CF(I,  9),I= 25, 30) /   50,  -13,  -76,    5,  -13,  -58/
 
481
      DATA (CF(I,  9),I= 31, 36) /  -76,  -58,  428,  -76,    5,  -58/
 
482
      DATA (CF(I,  9),I= 37, 42) /  428,  -58, -184,  -40,  -76,  -40/
 
483
      DATA (CF(I,  9),I= 43, 48) /   50,  -76,  -76,  428,  428, -184/
 
484
      DATA (CF(I,  9),I= 49, 54) /   68,  -76, -454,   68,  -40,  -76/
 
485
      DATA (CF(I,  9),I= 55, 60) /  -13,    5,  -76,   68,  -13,  -76/
 
486
      DATA (CF(I,  9),I= 61, 66) /   50,  -76,   50, -454,  -13,   68/
 
487
      DATA (CF(I,  9),I= 67, 72) /  -58,  -13,  -58,  -40,    5,  -76/
 
488
      DATA (CF(I,  9),I= 73, 78) /  -13,  -13,   50,  -76,  -58,    5/
 
489
      DATA (CF(I,  9),I= 79, 84) /  554,  -13,  428,  -76,   50,  572/
 
490
      DATA (CF(I,  9),I= 85, 90) /  572,  -40,  -76,   68,  -58,  104/
 
491
      DATA (CF(I,  9),I= 91, 96) /    5,  -13,  -76,  -40,  -58,  -58/
 
492
      DATA (CF(I,  9),I= 97,102) /  -76,  -40,   68, -454,  -76,   68/
 
493
      DATA (CF(I,  9),I=103,108) /  572,  -40,  -40, -184, -184,  176/
 
494
      DATA (CF(I,  9),I=109,114) /  104,   68,  -58,  -40,  -76,  572/
 
495
      DATA (CF(I,  9),I=115,120) /  -58,  -76,  428, -184,  -40,  -40/
 
496
C     1 Tr(1,2,4,5,3,6)
 
497
      DATA DENOM(10)/648/
 
498
      DATA (CF(I, 10),I=  1,  6) /   50,  -76,  -76,  428,  428, -184/
 
499
      DATA (CF(I, 10),I=  7, 12) /   50,  572, -454, 3641,   50, -454/
 
500
      DATA (CF(I, 10),I= 13, 18) /  -13,  -76,   68, -454,   50,   50/
 
501
      DATA (CF(I, 10),I= 19, 24) /  554,  428,  -13,   50,  -76,  572/
 
502
      DATA (CF(I, 10),I= 25, 30) / -454,   68,   68,  -76,  -76,  -40/
 
503
      DATA (CF(I, 10),I= 31, 36) /   68,  104,  -76,  572,  -58,  -40/
 
504
      DATA (CF(I, 10),I= 37, 42) /  -76,  -58,  -40,  -40,  428, -184/
 
505
      DATA (CF(I, 10),I= 43, 48) /  572,  -40,  -40, -184, -184,  176/
 
506
      DATA (CF(I, 10),I= 49, 54) /  -76,  -40,   68, -454,  -76,   68/
 
507
      DATA (CF(I, 10),I= 55, 60) /  -13,  -58,    5,  -76,  -58,  -40/
 
508
      DATA (CF(I, 10),I= 61, 66) /  -76,   50,  -13,   68,   50, -454/
 
509
      DATA (CF(I, 10),I= 67, 72) /    5,  -13,  -13,  -76,  -76,   68/
 
510
      DATA (CF(I, 10),I= 73, 78) /    5,  -58,  -76,   50,  -13,  -13/
 
511
      DATA (CF(I, 10),I= 79, 84) /  -13,    5,  -58,  -58,  -76,  -40/
 
512
      DATA (CF(I, 10),I= 85, 90) /  -40,  572,  -58,  104,  -76,   68/
 
513
      DATA (CF(I, 10),I= 91, 96) /  -13,  554,   50,  572,  428,  -76/
 
514
      DATA (CF(I, 10),I= 97,102) /  -13,  -58,  -13,   50,    5,  -76/
 
515
      DATA (CF(I, 10),I=103,108) /   50,  -76,  -76,  428,  428, -184/
 
516
      DATA (CF(I, 10),I=109,114) /  -58,  -76,    5,  -58,  428,  -76/
 
517
      DATA (CF(I, 10),I=115,120) /  -58,  428,  -76,  -40, -184,  -40/
 
518
C     1 Tr(1,2,4,5,6,3)
 
519
      DATA DENOM(11)/648/
 
520
      DATA (CF(I, 11),I=  1,  6) /  -13,   50,  554,  428,  572,  -76/
 
521
      DATA (CF(I, 11),I=  7, 12) /   50, -454,  572,   50, 3641, -454/
 
522
      DATA (CF(I, 11),I= 13, 18) /  428, -184,  -76,   50,  428,  -76/
 
523
      DATA (CF(I, 11),I= 19, 24) /   50,   50, -454,   68,  -76,  -13/
 
524
      DATA (CF(I, 11),I= 25, 30) /  -13,   50,  -13,  -58,  -76,    5/
 
525
      DATA (CF(I, 11),I= 31, 36) /  -58,  -76,    5,  -58,  428,  -76/
 
526
      DATA (CF(I, 11),I= 37, 42) /   50,  -76,  -76,  428,  428, -184/
 
527
      DATA (CF(I, 11),I= 43, 48) /  428,  -58, -184,  -40,  -76,  -40/
 
528
      DATA (CF(I, 11),I= 49, 54) /  -76,   68,  -40,  -76, -454,   68/
 
529
      DATA (CF(I, 11),I= 55, 60) /    5,  -13,  -13,  -76,  -76,   68/
 
530
      DATA (CF(I, 11),I= 61, 66) /  -58,  -13,  -58,  -40,    5,  -76/
 
531
      DATA (CF(I, 11),I= 67, 72) /   50,  -76,   50, -454,  -13,   68/
 
532
      DATA (CF(I, 11),I= 73, 78) /  -76,  -40,   68, -454,  -76,   68/
 
533
      DATA (CF(I, 11),I= 79, 84) /  572,  -40,  -40, -184, -184,  176/
 
534
      DATA (CF(I, 11),I= 85, 90) /  104,   68,  -58,  -40,  -76,  572/
 
535
      DATA (CF(I, 11),I= 91, 96) /  -58,  -76,  428, -184,  -40,  -40/
 
536
      DATA (CF(I, 11),I= 97,102) /  -13,  -13,   50,  -76,  -58,    5/
 
537
      DATA (CF(I, 11),I=103,108) /  554,  -13,  428,  -76,   50,  572/
 
538
      DATA (CF(I, 11),I=109,114) /  572,  -40,  -76,   68,  -58,  104/
 
539
      DATA (CF(I, 11),I=115,120) /    5,  -13,  -76,  -40,  -58,  -58/
 
540
C     1 Tr(1,2,4,6,3,5)
 
541
      DATA DENOM(12)/648/
 
542
      DATA (CF(I, 12),I=  1,  6) /  -76,   50,  428, -184,  -76,  428/
 
543
      DATA (CF(I, 12),I=  7, 12) /  572,   50,   50, -454, -454, 3641/
 
544
      DATA (CF(I, 12),I= 13, 18) /  554,  428,  -13,   50,  -76,  572/
 
545
      DATA (CF(I, 12),I= 19, 24) /  -13,  -76,   68, -454,   50,   50/
 
546
      DATA (CF(I, 12),I= 25, 30) /   68, -454,  -76,  -40,   68,  -76/
 
547
      DATA (CF(I, 12),I= 31, 36) /  104,   68,  -58,  -40,  -76,  572/
 
548
      DATA (CF(I, 12),I= 37, 42) /  572,  -40,  -40, -184, -184,  176/
 
549
      DATA (CF(I, 12),I= 43, 48) /  -76,  -58,  -40,  -40,  428, -184/
 
550
      DATA (CF(I, 12),I= 49, 54) /  -40,  -76,  -76,   68,   68, -454/
 
551
      DATA (CF(I, 12),I= 55, 60) /  -58,  -13,  -58,  -40,    5,  -76/
 
552
      DATA (CF(I, 12),I= 61, 66) /    5,  -13,  -13,  -76,  -76,   68/
 
553
      DATA (CF(I, 12),I= 67, 72) /  -76,   50,  -13,   68,   50, -454/
 
554
      DATA (CF(I, 12),I= 73, 78) /  -13,  -58,  -13,   50,    5,  -76/
 
555
      DATA (CF(I, 12),I= 79, 84) /   50,  -76,  -76,  428,  428, -184/
 
556
      DATA (CF(I, 12),I= 85, 90) /  -58,  -76,    5,  -58,  428,  -76/
 
557
      DATA (CF(I, 12),I= 91, 96) /  -58,  428,  -76,  -40, -184,  -40/
 
558
      DATA (CF(I, 12),I= 97,102) /    5,  -58,  -76,   50,  -13,  -13/
 
559
      DATA (CF(I, 12),I=103,108) /  -13,    5,  -58,  -58,  -76,  -40/
 
560
      DATA (CF(I, 12),I=109,114) /  -40,  572,  -58,  104,  -76,   68/
 
561
      DATA (CF(I, 12),I=115,120) /  -13,  554,   50,  572,  428,  -76/
 
562
C     1 Tr(1,2,4,6,5,3)
 
563
      DATA DENOM(13)/648/
 
564
      DATA (CF(I, 13),I=  1,  6) /   50,   50, -454,   68,  -76,  -13/
 
565
      DATA (CF(I, 13),I=  7, 12) /  572,  -76,   50,  -13,  428,  554/
 
566
      DATA (CF(I, 13),I= 13, 18) / 3641, -454, -454,   50,   50,  572/
 
567
      DATA (CF(I, 13),I= 19, 24) /  428,  -76, -184,  428,   50,  -76/
 
568
      DATA (CF(I, 13),I= 25, 30) /  -13,  -13,   50,  -76,  -58,    5/
 
569
      DATA (CF(I, 13),I= 31, 36) /  554,  -13,  428,  -76,   50,  572/
 
570
      DATA (CF(I, 13),I= 37, 42) /  572,  -40,  -76,   68,  -58,  104/
 
571
      DATA (CF(I, 13),I= 43, 48) /    5,  -13,  -76,  -40,  -58,  -58/
 
572
      DATA (CF(I, 13),I= 49, 54) /  -76,    5,   50,  -13,  -58,  -13/
 
573
      DATA (CF(I, 13),I= 55, 60) /  428,  -58, -184,  -40,  -76,  -40/
 
574
      DATA (CF(I, 13),I= 61, 66) /  -76,  -58,  428,  -76,    5,  -58/
 
575
      DATA (CF(I, 13),I= 67, 72) /  -76,   50,  428, -184,  -76,  428/
 
576
      DATA (CF(I, 13),I= 73, 78) / -454,   68,   68,  -76,  -76,  -40/
 
577
      DATA (CF(I, 13),I= 79, 84) /   50,  -76,   50, -454,  -13,   68/
 
578
      DATA (CF(I, 13),I= 85, 90) /  -13,    5,  -76,   68,  -13,  -76/
 
579
      DATA (CF(I, 13),I= 91, 96) /  -13,  -58,    5,  -76,  -58,  -40/
 
580
      DATA (CF(I, 13),I= 97,102) /  -76,   68,  -40,  -76, -454,   68/
 
581
      DATA (CF(I, 13),I=103,108) /  -58,  -76,  428, -184,  -40,  -40/
 
582
      DATA (CF(I, 13),I=109,114) /  -40,  572, -184,  176,  -40, -184/
 
583
      DATA (CF(I, 13),I=115,120) /   68,  104,  -76,  572,  -58,  -40/
 
584
C     1 Tr(1,2,5,3,4,6)
 
585
      DATA DENOM(14)/648/
 
586
      DATA (CF(I, 14),I=  1,  6) /  -13,  -76,   68, -454,   50,   50/
 
587
      DATA (CF(I, 14),I=  7, 12) /  -76,  428,   50,  -76, -184,  428/
 
588
      DATA (CF(I, 14),I= 13, 18) / -454, 3641,   50,  572, -454,   50/
 
589
      DATA (CF(I, 14),I= 19, 24) /  -76,  572,  428,  554,   50,  -13/
 
590
      DATA (CF(I, 14),I= 25, 30) /    5,  -58,  -76,   50,  -13,  -13/
 
591
      DATA (CF(I, 14),I= 31, 36) /  -13,    5,  -58,  -58,  -76,  -40/
 
592
      DATA (CF(I, 14),I= 37, 42) /  -40,  572,  -58,  104,  -76,   68/
 
593
      DATA (CF(I, 14),I= 43, 48) /  -13,  554,   50,  572,  428,  -76/
 
594
      DATA (CF(I, 14),I= 49, 54) /   68,  -76, -454,   68,  -40,  -76/
 
595
      DATA (CF(I, 14),I= 55, 60) /  -76,  -58,  -40,  -40,  428, -184/
 
596
      DATA (CF(I, 14),I= 61, 66) /   68,  104,  -76,  572,  -58,  -40/
 
597
      DATA (CF(I, 14),I= 67, 72) /  -40,  572, -184,  176,  -40, -184/
 
598
      DATA (CF(I, 14),I= 73, 78) /   68, -454,  -76,  -40,   68,  -76/
 
599
      DATA (CF(I, 14),I= 79, 84) /  -76,   50,  -13,   68,   50, -454/
 
600
      DATA (CF(I, 14),I= 85, 90) /  -13,  -58,    5,  -76,  -58,  -40/
 
601
      DATA (CF(I, 14),I= 91, 96) /  -13,    5,  -76,   68,  -13,  -76/
 
602
      DATA (CF(I, 14),I= 97,102) /    5,  -76,  -58,  -13,   50,  -13/
 
603
      DATA (CF(I, 14),I=103,108) /  -58,  428,  -76,  -40, -184,  -40/
 
604
      DATA (CF(I, 14),I=109,114) /  -76,   50,  428, -184,  -76,  428/
 
605
      DATA (CF(I, 14),I=115,120) /  -76,  -58,  428,  -76,    5,  -58/
 
606
C     1 Tr(1,2,5,3,6,4)
 
607
      DATA DENOM(15)/648/
 
608
      DATA (CF(I, 15),I=  1,  6) /  572,  -76,   50,  -13,  428,  554/
 
609
      DATA (CF(I, 15),I=  7, 12) /   50,   50, -454,   68,  -76,  -13/
 
610
      DATA (CF(I, 15),I= 13, 18) / -454,   50, 3641, -454,  572,   50/
 
611
      DATA (CF(I, 15),I= 19, 24) / -184,  428,  428,  -76,  -76,   50/
 
612
      DATA (CF(I, 15),I= 25, 30) /  -76,    5,   50,  -13,  -58,  -13/
 
613
      DATA (CF(I, 15),I= 31, 36) /  428,  -58, -184,  -40,  -76,  -40/
 
614
      DATA (CF(I, 15),I= 37, 42) /  -76,  -58,  428,  -76,    5,  -58/
 
615
      DATA (CF(I, 15),I= 43, 48) /  -76,   50,  428, -184,  -76,  428/
 
616
      DATA (CF(I, 15),I= 49, 54) /  -13,  -13,   50,  -76,  -58,    5/
 
617
      DATA (CF(I, 15),I= 55, 60) /  554,  -13,  428,  -76,   50,  572/
 
618
      DATA (CF(I, 15),I= 61, 66) /  572,  -40,  -76,   68,  -58,  104/
 
619
      DATA (CF(I, 15),I= 67, 72) /    5,  -13,  -76,  -40,  -58,  -58/
 
620
      DATA (CF(I, 15),I= 73, 78) /   68,  -76, -454,   68,  -40,  -76/
 
621
      DATA (CF(I, 15),I= 79, 84) /  -13,    5,  -76,   68,  -13,  -76/
 
622
      DATA (CF(I, 15),I= 85, 90) /   50,  -76,   50, -454,  -13,   68/
 
623
      DATA (CF(I, 15),I= 91, 96) /  -58,  -13,  -58,  -40,    5,  -76/
 
624
      DATA (CF(I, 15),I= 97,102) /  -40,  -76,  -76,   68,   68, -454/
 
625
      DATA (CF(I, 15),I=103,108) /  -40,  572, -184,  176,  -40, -184/
 
626
      DATA (CF(I, 15),I=109,114) /  -58,  -76,  428, -184,  -40,  -40/
 
627
      DATA (CF(I, 15),I=115,120) /  104,   68,  -58,  -40,  -76,  572/
 
628
C     1 Tr(1,2,5,4,3,6)
 
629
      DATA DENOM(16)/648/
 
630
      DATA (CF(I, 16),I=  1,  6) /  -76,  428,   50,  -76, -184,  428/
 
631
      DATA (CF(I, 16),I=  7, 12) /  -13,  -76,   68, -454,   50,   50/
 
632
      DATA (CF(I, 16),I= 13, 18) /   50,  572, -454, 3641,   50, -454/
 
633
      DATA (CF(I, 16),I= 19, 24) /  428,  554,  -76,  572,  -13,   50/
 
634
      DATA (CF(I, 16),I= 25, 30) /   68,  -76, -454,   68,  -40,  -76/
 
635
      DATA (CF(I, 16),I= 31, 36) /  -76,  -58,  -40,  -40,  428, -184/
 
636
      DATA (CF(I, 16),I= 37, 42) /   68,  104,  -76,  572,  -58,  -40/
 
637
      DATA (CF(I, 16),I= 43, 48) /  -40,  572, -184,  176,  -40, -184/
 
638
      DATA (CF(I, 16),I= 49, 54) /    5,  -58,  -76,   50,  -13,  -13/
 
639
      DATA (CF(I, 16),I= 55, 60) /  -13,    5,  -58,  -58,  -76,  -40/
 
640
      DATA (CF(I, 16),I= 61, 66) /  -40,  572,  -58,  104,  -76,   68/
 
641
      DATA (CF(I, 16),I= 67, 72) /  -13,  554,   50,  572,  428,  -76/
 
642
      DATA (CF(I, 16),I= 73, 78) /  -76,  -40,   68, -454,  -76,   68/
 
643
      DATA (CF(I, 16),I= 79, 84) /  -13,  -58,    5,  -76,  -58,  -40/
 
644
      DATA (CF(I, 16),I= 85, 90) /  -76,   50,  -13,   68,   50, -454/
 
645
      DATA (CF(I, 16),I= 91, 96) /    5,  -13,  -13,  -76,  -76,   68/
 
646
      DATA (CF(I, 16),I= 97,102) /  -58,  -13,    5,  -76,  -13,   50/
 
647
      DATA (CF(I, 16),I=103,108) /  -76,   50,  428, -184,  -76,  428/
 
648
      DATA (CF(I, 16),I=109,114) /  -58,  428,  -76,  -40, -184,  -40/
 
649
      DATA (CF(I, 16),I=115,120) /  -58,  -76,    5,  -58,  428,  -76/
 
650
C     1 Tr(1,2,5,4,6,3)
 
651
      DATA DENOM(17)/648/
 
652
      DATA (CF(I, 17),I=  1,  6) /  554,  428,  -13,   50,  -76,  572/
 
653
      DATA (CF(I, 17),I=  7, 12) /  428, -184,  -76,   50,  428,  -76/
 
654
      DATA (CF(I, 17),I= 13, 18) /   50, -454,  572,   50, 3641, -454/
 
655
      DATA (CF(I, 17),I= 19, 24) /   50,   50,  -76,  -13, -454,   68/
 
656
      DATA (CF(I, 17),I= 25, 30) /  -13,  -58,  -13,   50,    5,  -76/
 
657
      DATA (CF(I, 17),I= 31, 36) /   50,  -76,  -76,  428,  428, -184/
 
658
      DATA (CF(I, 17),I= 37, 42) /  -58,  -76,    5,  -58,  428,  -76/
 
659
      DATA (CF(I, 17),I= 43, 48) /  -58,  428,  -76,  -40, -184,  -40/
 
660
      DATA (CF(I, 17),I= 49, 54) /  -76,  -40,   68, -454,  -76,   68/
 
661
      DATA (CF(I, 17),I= 55, 60) /  572,  -40,  -40, -184, -184,  176/
 
662
      DATA (CF(I, 17),I= 61, 66) /  104,   68,  -58,  -40,  -76,  572/
 
663
      DATA (CF(I, 17),I= 67, 72) /  -58,  -76,  428, -184,  -40,  -40/
 
664
      DATA (CF(I, 17),I= 73, 78) /  -76,   68,  -40,  -76, -454,   68/
 
665
      DATA (CF(I, 17),I= 79, 84) /    5,  -13,  -13,  -76,  -76,   68/
 
666
      DATA (CF(I, 17),I= 85, 90) /  -58,  -13,  -58,  -40,    5,  -76/
 
667
      DATA (CF(I, 17),I= 91, 96) /   50,  -76,   50, -454,  -13,   68/
 
668
      DATA (CF(I, 17),I= 97,102) /  -13,  -13,  -58,    5,   50,  -76/
 
669
      DATA (CF(I, 17),I=103,108) /  -13,  554,   50,  572,  428,  -76/
 
670
      DATA (CF(I, 17),I=109,114) /    5,  -13,  -76,  -40,  -58,  -58/
 
671
      DATA (CF(I, 17),I=115,120) /  572,  -40,  -76,   68,  -58,  104/
 
672
C     1 Tr(1,2,5,6,3,4)
 
673
      DATA DENOM(18)/648/
 
674
      DATA (CF(I, 18),I=  1,  6) /  428, -184,  -76,   50,  428,  -76/
 
675
      DATA (CF(I, 18),I=  7, 12) /  554,  428,  -13,   50,  -76,  572/
 
676
      DATA (CF(I, 18),I= 13, 18) /  572,   50,   50, -454, -454, 3641/
 
677
      DATA (CF(I, 18),I= 19, 24) /  -76,  -13,   50,   50,   68, -454/
 
678
      DATA (CF(I, 18),I= 25, 30) /  -76,  -40,   68, -454,  -76,   68/
 
679
      DATA (CF(I, 18),I= 31, 36) /  572,  -40,  -40, -184, -184,  176/
 
680
      DATA (CF(I, 18),I= 37, 42) /  104,   68,  -58,  -40,  -76,  572/
 
681
      DATA (CF(I, 18),I= 43, 48) /  -58,  -76,  428, -184,  -40,  -40/
 
682
      DATA (CF(I, 18),I= 49, 54) /  -13,  -58,  -13,   50,    5,  -76/
 
683
      DATA (CF(I, 18),I= 55, 60) /   50,  -76,  -76,  428,  428, -184/
 
684
      DATA (CF(I, 18),I= 61, 66) /  -58,  -76,    5,  -58,  428,  -76/
 
685
      DATA (CF(I, 18),I= 67, 72) /  -58,  428,  -76,  -40, -184,  -40/
 
686
      DATA (CF(I, 18),I= 73, 78) /  -40,  -76,  -76,   68,   68, -454/
 
687
      DATA (CF(I, 18),I= 79, 84) /  -58,  -13,  -58,  -40,    5,  -76/
 
688
      DATA (CF(I, 18),I= 85, 90) /    5,  -13,  -13,  -76,  -76,   68/
 
689
      DATA (CF(I, 18),I= 91, 96) /  -76,   50,  -13,   68,   50, -454/
 
690
      DATA (CF(I, 18),I= 97,102) /  -58,    5,  -13,  -13,  -76,   50/
 
691
      DATA (CF(I, 18),I=103,108) /    5,  -13,  -76,  -40,  -58,  -58/
 
692
      DATA (CF(I, 18),I=109,114) /  -13,  554,   50,  572,  428,  -76/
 
693
      DATA (CF(I, 18),I=115,120) /  -40,  572,  -58,  104,  -76,   68/
 
694
C     1 Tr(1,2,5,6,4,3)
 
695
      DATA DENOM(19)/648/
 
696
      DATA (CF(I, 19),I=  1,  6) /   50,   50,  -76,  -13, -454,   68/
 
697
      DATA (CF(I, 19),I=  7, 12) /  -76,  572,  428,  554,   50,  -13/
 
698
      DATA (CF(I, 19),I= 13, 18) /  428,  -76, -184,  428,   50,  -76/
 
699
      DATA (CF(I, 19),I= 19, 24) / 3641, -454, -454,   50,   50,  572/
 
700
      DATA (CF(I, 19),I= 25, 30) /  -13,  -13,  -58,    5,   50,  -76/
 
701
      DATA (CF(I, 19),I= 31, 36) /  -13,  554,   50,  572,  428,  -76/
 
702
      DATA (CF(I, 19),I= 37, 42) /    5,  -13,  -76,  -40,  -58,  -58/
 
703
      DATA (CF(I, 19),I= 43, 48) /  572,  -40,  -76,   68,  -58,  104/
 
704
      DATA (CF(I, 19),I= 49, 54) /    5,  -76,  -58,  -13,   50,  -13/
 
705
      DATA (CF(I, 19),I= 55, 60) /  -58,  428,  -76,  -40, -184,  -40/
 
706
      DATA (CF(I, 19),I= 61, 66) /  -76,   50,  428, -184,  -76,  428/
 
707
      DATA (CF(I, 19),I= 67, 72) /  -76,  -58,  428,  -76,    5,  -58/
 
708
      DATA (CF(I, 19),I= 73, 78) /  -76,   68,  -40,  -76, -454,   68/
 
709
      DATA (CF(I, 19),I= 79, 84) /  -58,  -76,  428, -184,  -40,  -40/
 
710
      DATA (CF(I, 19),I= 85, 90) /  -40,  572, -184,  176,  -40, -184/
 
711
      DATA (CF(I, 19),I= 91, 96) /   68,  104,  -76,  572,  -58,  -40/
 
712
      DATA (CF(I, 19),I= 97,102) / -454,   68,   68,  -76,  -76,  -40/
 
713
      DATA (CF(I, 19),I=103,108) /   50,  -76,   50, -454,  -13,   68/
 
714
      DATA (CF(I, 19),I=109,114) /  -13,    5,  -76,   68,  -13,  -76/
 
715
      DATA (CF(I, 19),I=115,120) /  -13,  -58,    5,  -76,  -58,  -40/
 
716
C     1 Tr(1,2,6,3,4,5)
 
717
      DATA DENOM(20)/648/
 
718
      DATA (CF(I, 20),I=  1,  6) /  -76,  -13,   50,   50,   68, -454/
 
719
      DATA (CF(I, 20),I=  7, 12) /  428,  -76, -184,  428,   50,  -76/
 
720
      DATA (CF(I, 20),I= 13, 18) /  -76,  572,  428,  554,   50,  -13/
 
721
      DATA (CF(I, 20),I= 19, 24) / -454, 3641,   50,  572, -454,   50/
 
722
      DATA (CF(I, 20),I= 25, 30) /  -58,    5,  -13,  -13,  -76,   50/
 
723
      DATA (CF(I, 20),I= 31, 36) /    5,  -13,  -76,  -40,  -58,  -58/
 
724
      DATA (CF(I, 20),I= 37, 42) /  -13,  554,   50,  572,  428,  -76/
 
725
      DATA (CF(I, 20),I= 43, 48) /  -40,  572,  -58,  104,  -76,   68/
 
726
      DATA (CF(I, 20),I= 49, 54) /  -76,   68,  -40,  -76, -454,   68/
 
727
      DATA (CF(I, 20),I= 55, 60) /  -58,  -76,  428, -184,  -40,  -40/
 
728
      DATA (CF(I, 20),I= 61, 66) /  -40,  572, -184,  176,  -40, -184/
 
729
      DATA (CF(I, 20),I= 67, 72) /   68,  104,  -76,  572,  -58,  -40/
 
730
      DATA (CF(I, 20),I= 73, 78) /    5,  -76,  -58,  -13,   50,  -13/
 
731
      DATA (CF(I, 20),I= 79, 84) /  -58,  428,  -76,  -40, -184,  -40/
 
732
      DATA (CF(I, 20),I= 85, 90) /  -76,   50,  428, -184,  -76,  428/
 
733
      DATA (CF(I, 20),I= 91, 96) /  -76,  -58,  428,  -76,    5,  -58/
 
734
      DATA (CF(I, 20),I= 97,102) /   68, -454,  -76,  -40,   68,  -76/
 
735
      DATA (CF(I, 20),I=103,108) /  -76,   50,  -13,   68,   50, -454/
 
736
      DATA (CF(I, 20),I=109,114) /  -13,  -58,    5,  -76,  -58,  -40/
 
737
      DATA (CF(I, 20),I=115,120) /  -13,    5,  -76,   68,  -13,  -76/
 
738
C     1 Tr(1,2,6,3,5,4)
 
739
      DATA DENOM(21)/648/
 
740
      DATA (CF(I, 21),I=  1,  6) /  -76,  572,  428,  554,   50,  -13/
 
741
      DATA (CF(I, 21),I=  7, 12) /   50,   50,  -76,  -13, -454,   68/
 
742
      DATA (CF(I, 21),I= 13, 18) / -184,  428,  428,  -76,  -76,   50/
 
743
      DATA (CF(I, 21),I= 19, 24) / -454,   50, 3641, -454,  572,   50/
 
744
      DATA (CF(I, 21),I= 25, 30) /    5,  -76,  -58,  -13,   50,  -13/
 
745
      DATA (CF(I, 21),I= 31, 36) /  -58,  428,  -76,  -40, -184,  -40/
 
746
      DATA (CF(I, 21),I= 37, 42) /  -76,   50,  428, -184,  -76,  428/
 
747
      DATA (CF(I, 21),I= 43, 48) /  -76,  -58,  428,  -76,    5,  -58/
 
748
      DATA (CF(I, 21),I= 49, 54) /  -13,  -13,  -58,    5,   50,  -76/
 
749
      DATA (CF(I, 21),I= 55, 60) /  -13,  554,   50,  572,  428,  -76/
 
750
      DATA (CF(I, 21),I= 61, 66) /    5,  -13,  -76,  -40,  -58,  -58/
 
751
      DATA (CF(I, 21),I= 67, 72) /  572,  -40,  -76,   68,  -58,  104/
 
752
      DATA (CF(I, 21),I= 73, 78) /  -40,  -76,  -76,   68,   68, -454/
 
753
      DATA (CF(I, 21),I= 79, 84) /  -40,  572, -184,  176,  -40, -184/
 
754
      DATA (CF(I, 21),I= 85, 90) /  -58,  -76,  428, -184,  -40,  -40/
 
755
      DATA (CF(I, 21),I= 91, 96) /  104,   68,  -58,  -40,  -76,  572/
 
756
      DATA (CF(I, 21),I= 97,102) /   68,  -76, -454,   68,  -40,  -76/
 
757
      DATA (CF(I, 21),I=103,108) /  -13,    5,  -76,   68,  -13,  -76/
 
758
      DATA (CF(I, 21),I=109,114) /   50,  -76,   50, -454,  -13,   68/
 
759
      DATA (CF(I, 21),I=115,120) /  -58,  -13,  -58,  -40,    5,  -76/
 
760
C     1 Tr(1,2,6,4,3,5)
 
761
      DATA DENOM(22)/648/
 
762
      DATA (CF(I, 22),I=  1,  6) /  428,  -76, -184,  428,   50,  -76/
 
763
      DATA (CF(I, 22),I=  7, 12) /  -76,  -13,   50,   50,   68, -454/
 
764
      DATA (CF(I, 22),I= 13, 18) /  428,  554,  -76,  572,  -13,   50/
 
765
      DATA (CF(I, 22),I= 19, 24) /   50,  572, -454, 3641,   50, -454/
 
766
      DATA (CF(I, 22),I= 25, 30) /  -76,   68,  -40,  -76, -454,   68/
 
767
      DATA (CF(I, 22),I= 31, 36) /  -58,  -76,  428, -184,  -40,  -40/
 
768
      DATA (CF(I, 22),I= 37, 42) /  -40,  572, -184,  176,  -40, -184/
 
769
      DATA (CF(I, 22),I= 43, 48) /   68,  104,  -76,  572,  -58,  -40/
 
770
      DATA (CF(I, 22),I= 49, 54) /  -58,    5,  -13,  -13,  -76,   50/
 
771
      DATA (CF(I, 22),I= 55, 60) /    5,  -13,  -76,  -40,  -58,  -58/
 
772
      DATA (CF(I, 22),I= 61, 66) /  -13,  554,   50,  572,  428,  -76/
 
773
      DATA (CF(I, 22),I= 67, 72) /  -40,  572,  -58,  104,  -76,   68/
 
774
      DATA (CF(I, 22),I= 73, 78) /  -58,  -13,    5,  -76,  -13,   50/
 
775
      DATA (CF(I, 22),I= 79, 84) /  -76,   50,  428, -184,  -76,  428/
 
776
      DATA (CF(I, 22),I= 85, 90) /  -58,  428,  -76,  -40, -184,  -40/
 
777
      DATA (CF(I, 22),I= 91, 96) /  -58,  -76,    5,  -58,  428,  -76/
 
778
      DATA (CF(I, 22),I= 97,102) /  -76,  -40,   68, -454,  -76,   68/
 
779
      DATA (CF(I, 22),I=103,108) /  -13,  -58,    5,  -76,  -58,  -40/
 
780
      DATA (CF(I, 22),I=109,114) /  -76,   50,  -13,   68,   50, -454/
 
781
      DATA (CF(I, 22),I=115,120) /    5,  -13,  -13,  -76,  -76,   68/
 
782
C     1 Tr(1,2,6,4,5,3)
 
783
      DATA DENOM(23)/648/
 
784
      DATA (CF(I, 23),I=  1,  6) /  428,  554,  -76,  572,  -13,   50/
 
785
      DATA (CF(I, 23),I=  7, 12) / -184,  428,  428,  -76,  -76,   50/
 
786
      DATA (CF(I, 23),I= 13, 18) /   50,   50,  -76,  -13, -454,   68/
 
787
      DATA (CF(I, 23),I= 19, 24) /   50, -454,  572,   50, 3641, -454/
 
788
      DATA (CF(I, 23),I= 25, 30) /  -58,  -13,    5,  -76,  -13,   50/
 
789
      DATA (CF(I, 23),I= 31, 36) /  -76,   50,  428, -184,  -76,  428/
 
790
      DATA (CF(I, 23),I= 37, 42) /  -58,  428,  -76,  -40, -184,  -40/
 
791
      DATA (CF(I, 23),I= 43, 48) /  -58,  -76,    5,  -58,  428,  -76/
 
792
      DATA (CF(I, 23),I= 49, 54) /  -40,  -76,  -76,   68,   68, -454/
 
793
      DATA (CF(I, 23),I= 55, 60) /  -40,  572, -184,  176,  -40, -184/
 
794
      DATA (CF(I, 23),I= 61, 66) /  -58,  -76,  428, -184,  -40,  -40/
 
795
      DATA (CF(I, 23),I= 67, 72) /  104,   68,  -58,  -40,  -76,  572/
 
796
      DATA (CF(I, 23),I= 73, 78) /  -13,  -13,  -58,    5,   50,  -76/
 
797
      DATA (CF(I, 23),I= 79, 84) /  -13,  554,   50,  572,  428,  -76/
 
798
      DATA (CF(I, 23),I= 85, 90) /    5,  -13,  -76,  -40,  -58,  -58/
 
799
      DATA (CF(I, 23),I= 91, 96) /  572,  -40,  -76,   68,  -58,  104/
 
800
      DATA (CF(I, 23),I= 97,102) /  -76,   68,  -40,  -76, -454,   68/
 
801
      DATA (CF(I, 23),I=103,108) /    5,  -13,  -13,  -76,  -76,   68/
 
802
      DATA (CF(I, 23),I=109,114) /  -58,  -13,  -58,  -40,    5,  -76/
 
803
      DATA (CF(I, 23),I=115,120) /   50,  -76,   50, -454,  -13,   68/
 
804
C     1 Tr(1,2,6,5,3,4)
 
805
      DATA DENOM(24)/648/
 
806
      DATA (CF(I, 24),I=  1,  6) / -184,  428,  428,  -76,  -76,   50/
 
807
      DATA (CF(I, 24),I=  7, 12) /  428,  554,  -76,  572,  -13,   50/
 
808
      DATA (CF(I, 24),I= 13, 18) /  -76,  -13,   50,   50,   68, -454/
 
809
      DATA (CF(I, 24),I= 19, 24) /  572,   50,   50, -454, -454, 3641/
 
810
      DATA (CF(I, 24),I= 25, 30) /  -40,  -76,  -76,   68,   68, -454/
 
811
      DATA (CF(I, 24),I= 31, 36) /  -40,  572, -184,  176,  -40, -184/
 
812
      DATA (CF(I, 24),I= 37, 42) /  -58,  -76,  428, -184,  -40,  -40/
 
813
      DATA (CF(I, 24),I= 43, 48) /  104,   68,  -58,  -40,  -76,  572/
 
814
      DATA (CF(I, 24),I= 49, 54) /  -58,  -13,    5,  -76,  -13,   50/
 
815
      DATA (CF(I, 24),I= 55, 60) /  -76,   50,  428, -184,  -76,  428/
 
816
      DATA (CF(I, 24),I= 61, 66) /  -58,  428,  -76,  -40, -184,  -40/
 
817
      DATA (CF(I, 24),I= 67, 72) /  -58,  -76,    5,  -58,  428,  -76/
 
818
      DATA (CF(I, 24),I= 73, 78) /  -58,    5,  -13,  -13,  -76,   50/
 
819
      DATA (CF(I, 24),I= 79, 84) /    5,  -13,  -76,  -40,  -58,  -58/
 
820
      DATA (CF(I, 24),I= 85, 90) /  -13,  554,   50,  572,  428,  -76/
 
821
      DATA (CF(I, 24),I= 91, 96) /  -40,  572,  -58,  104,  -76,   68/
 
822
      DATA (CF(I, 24),I= 97,102) /  -40,  -76,  -76,   68,   68, -454/
 
823
      DATA (CF(I, 24),I=103,108) /  -58,  -13,  -58,  -40,    5,  -76/
 
824
      DATA (CF(I, 24),I=109,114) /    5,  -13,  -13,  -76,  -76,   68/
 
825
      DATA (CF(I, 24),I=115,120) /  -76,   50,  -13,   68,   50, -454/
 
826
C     1 Tr(1,2,6,5,4,3)
 
827
      DATA DENOM(25)/648/
 
828
      DATA (CF(I, 25),I=  1,  6) / -454,   68,   68,  -76,  -76,  -40/
 
829
      DATA (CF(I, 25),I=  7, 12) /   50,  -76,   50, -454,  -13,   68/
 
830
      DATA (CF(I, 25),I= 13, 18) /  -13,    5,  -76,   68,  -13,  -76/
 
831
      DATA (CF(I, 25),I= 19, 24) /  -13,  -58,    5,  -76,  -58,  -40/
 
832
      DATA (CF(I, 25),I= 25, 30) / 3641, -454, -454,   50,   50,  572/
 
833
      DATA (CF(I, 25),I= 31, 36) / -454,   68,   50,   50,  -13,  -76/
 
834
      DATA (CF(I, 25),I= 37, 42) /   50,  -13,  572,  -76,  554,  428/
 
835
      DATA (CF(I, 25),I= 43, 48) /   50,  -76,  -76,  428,  428, -184/
 
836
      DATA (CF(I, 25),I= 49, 54) /  572,  -40,  -76,   68,  -58,  104/
 
837
      DATA (CF(I, 25),I= 55, 60) /   50,  -76,  -13,  -13,    5,  -58/
 
838
      DATA (CF(I, 25),I= 61, 66) /  428,  -76,  554,  -13,  572,   50/
 
839
      DATA (CF(I, 25),I= 67, 72) /  -58,  -58,  -13,    5,  -40,  -76/
 
840
      DATA (CF(I, 25),I= 73, 78) /  -76,  -58,  428,  -76,    5,  -58/
 
841
      DATA (CF(I, 25),I= 79, 84) /   50,  -13,  -76,    5,  -13,  -58/
 
842
      DATA (CF(I, 25),I= 85, 90) / -184,  -40,  428,  -58,  -40,  -76/
 
843
      DATA (CF(I, 25),I= 91, 96) /  -76,  428,   50,  -76, -184,  428/
 
844
      DATA (CF(I, 25),I= 97,102) /   68,  104,  -76,  572,  -58,  -40/
 
845
      DATA (CF(I, 25),I=103,108) / -454,   68,   68,  -76,  -76,  -40/
 
846
      DATA (CF(I, 25),I=109,114) /  -40,  -40,  -76,  -58, -184,  428/
 
847
      DATA (CF(I, 25),I=115,120) /  -40, -184,  572,  -40,  176, -184/
 
848
C     1 Tr(1,3,2,4,5,6)
 
849
      DATA DENOM(26)/648/
 
850
      DATA (CF(I, 26),I=  1,  6) /   68, -454,  -76,  -40,   68,  -76/
 
851
      DATA (CF(I, 26),I=  7, 12) /  -76,   50,  -13,   68,   50, -454/
 
852
      DATA (CF(I, 26),I= 13, 18) /  -13,  -58,    5,  -76,  -58,  -40/
 
853
      DATA (CF(I, 26),I= 19, 24) /  -13,    5,  -76,   68,  -13,  -76/
 
854
      DATA (CF(I, 26),I= 25, 30) / -454, 3641,   50,  572, -454,   50/
 
855
      DATA (CF(I, 26),I= 31, 36) /   68, -454,  -13,  -76,   50,   50/
 
856
      DATA (CF(I, 26),I= 37, 42) /   50,  -76,  -76,  428,  428, -184/
 
857
      DATA (CF(I, 26),I= 43, 48) /   50,  -13,  572,  -76,  554,  428/
 
858
      DATA (CF(I, 26),I= 49, 54) /  -40,  572,  -58,  104,  -76,   68/
 
859
      DATA (CF(I, 26),I= 55, 60) /  -76,   50,    5,  -58,  -13,  -13/
 
860
      DATA (CF(I, 26),I= 61, 66) /  -58,  -58,  -13,    5,  -40,  -76/
 
861
      DATA (CF(I, 26),I= 67, 72) /  428,  -76,  554,  -13,  572,   50/
 
862
      DATA (CF(I, 26),I= 73, 78) /   68,  104,  -76,  572,  -58,  -40/
 
863
      DATA (CF(I, 26),I= 79, 84) / -454,   68,   68,  -76,  -76,  -40/
 
864
      DATA (CF(I, 26),I= 85, 90) /  -40,  -40,  -76,  -58, -184,  428/
 
865
      DATA (CF(I, 26),I= 91, 96) /  -40, -184,  572,  -40,  176, -184/
 
866
      DATA (CF(I, 26),I= 97,102) /  -76,  -58,  428,  -76,    5,  -58/
 
867
      DATA (CF(I, 26),I=103,108) /   50,  -13,  -76,    5,  -13,  -58/
 
868
      DATA (CF(I, 26),I=109,114) / -184,  -40,  428,  -58,  -40,  -76/
 
869
      DATA (CF(I, 26),I=115,120) /  -76,  428,   50,  -76, -184,  428/
 
870
C     1 Tr(1,3,2,4,6,5)
 
871
      DATA DENOM(27)/648/
 
872
      DATA (CF(I, 27),I=  1,  6) /   68,  -76, -454,   68,  -40,  -76/
 
873
      DATA (CF(I, 27),I=  7, 12) /  -13,    5,  -76,   68,  -13,  -76/
 
874
      DATA (CF(I, 27),I= 13, 18) /   50,  -76,   50, -454,  -13,   68/
 
875
      DATA (CF(I, 27),I= 19, 24) /  -58,  -13,  -58,  -40,    5,  -76/
 
876
      DATA (CF(I, 27),I= 25, 30) / -454,   50, 3641, -454,  572,   50/
 
877
      DATA (CF(I, 27),I= 31, 36) /   50,  -13,  572,  -76,  554,  428/
 
878
      DATA (CF(I, 27),I= 37, 42) / -454,   68,   50,   50,  -13,  -76/
 
879
      DATA (CF(I, 27),I= 43, 48) /  -76,   50,  428, -184,  -76,  428/
 
880
      DATA (CF(I, 27),I= 49, 54) /  -76,  -58,  428,  -76,    5,  -58/
 
881
      DATA (CF(I, 27),I= 55, 60) /   50,  -13,  -76,    5,  -13,  -58/
 
882
      DATA (CF(I, 27),I= 61, 66) / -184,  -40,  428,  -58,  -40,  -76/
 
883
      DATA (CF(I, 27),I= 67, 72) /  -76,  428,   50,  -76, -184,  428/
 
884
      DATA (CF(I, 27),I= 73, 78) /  572,  -40,  -76,   68,  -58,  104/
 
885
      DATA (CF(I, 27),I= 79, 84) /   50,  -76,  -13,  -13,    5,  -58/
 
886
      DATA (CF(I, 27),I= 85, 90) /  428,  -76,  554,  -13,  572,   50/
 
887
      DATA (CF(I, 27),I= 91, 96) /  -58,  -58,  -13,    5,  -40,  -76/
 
888
      DATA (CF(I, 27),I= 97,102) /  104,   68,  -58,  -40,  -76,  572/
 
889
      DATA (CF(I, 27),I=103,108) /   68, -454,  -76,  -40,   68,  -76/
 
890
      DATA (CF(I, 27),I=109,114) /  -40, -184,  572,  -40,  176, -184/
 
891
      DATA (CF(I, 27),I=115,120) /  -40,  -40,  -76,  -58, -184,  428/
 
892
C     1 Tr(1,3,2,5,4,6)
 
893
      DATA DENOM(28)/648/
 
894
      DATA (CF(I, 28),I=  1,  6) /  -76,  -40,   68, -454,  -76,   68/
 
895
      DATA (CF(I, 28),I=  7, 12) /  -13,  -58,    5,  -76,  -58,  -40/
 
896
      DATA (CF(I, 28),I= 13, 18) /  -76,   50,  -13,   68,   50, -454/
 
897
      DATA (CF(I, 28),I= 19, 24) /    5,  -13,  -13,  -76,  -76,   68/
 
898
      DATA (CF(I, 28),I= 25, 30) /   50,  572, -454, 3641,   50, -454/
 
899
      DATA (CF(I, 28),I= 31, 36) /   50,  -76,  -76,  428,  428, -184/
 
900
      DATA (CF(I, 28),I= 37, 42) /   68, -454,  -13,  -76,   50,   50/
 
901
      DATA (CF(I, 28),I= 43, 48) /  -13,   50,  554,  428,  572,  -76/
 
902
      DATA (CF(I, 28),I= 49, 54) /   68,  104,  -76,  572,  -58,  -40/
 
903
      DATA (CF(I, 28),I= 55, 60) / -454,   68,   68,  -76,  -76,  -40/
 
904
      DATA (CF(I, 28),I= 61, 66) /  -40,  -40,  -76,  -58, -184,  428/
 
905
      DATA (CF(I, 28),I= 67, 72) /  -40, -184,  572,  -40,  176, -184/
 
906
      DATA (CF(I, 28),I= 73, 78) /  -40,  572,  -58,  104,  -76,   68/
 
907
      DATA (CF(I, 28),I= 79, 84) /  -76,   50,    5,  -58,  -13,  -13/
 
908
      DATA (CF(I, 28),I= 85, 90) /  -58,  -58,  -13,    5,  -40,  -76/
 
909
      DATA (CF(I, 28),I= 91, 96) /  428,  -76,  554,  -13,  572,   50/
 
910
      DATA (CF(I, 28),I= 97,102) /  -58,  -76,    5,  -58,  428,  -76/
 
911
      DATA (CF(I, 28),I=103,108) /  -13,   50,  -13,  -58,  -76,    5/
 
912
      DATA (CF(I, 28),I=109,114) /  -76,  428,   50,  -76, -184,  428/
 
913
      DATA (CF(I, 28),I=115,120) / -184,  -40,  428,  -58,  -40,  -76/
 
914
C     1 Tr(1,3,2,5,6,4)
 
915
      DATA DENOM(29)/648/
 
916
      DATA (CF(I, 29),I=  1,  6) /  -76,   68,  -40,  -76, -454,   68/
 
917
      DATA (CF(I, 29),I=  7, 12) /    5,  -13,  -13,  -76,  -76,   68/
 
918
      DATA (CF(I, 29),I= 13, 18) /  -58,  -13,  -58,  -40,    5,  -76/
 
919
      DATA (CF(I, 29),I= 19, 24) /   50,  -76,   50, -454,  -13,   68/
 
920
      DATA (CF(I, 29),I= 25, 30) /   50, -454,  572,   50, 3641, -454/
 
921
      DATA (CF(I, 29),I= 31, 36) /  -13,   50,  554,  428,  572,  -76/
 
922
      DATA (CF(I, 29),I= 37, 42) /  -76,   50,  428, -184,  -76,  428/
 
923
      DATA (CF(I, 29),I= 43, 48) / -454,   68,   50,   50,  -13,  -76/
 
924
      DATA (CF(I, 29),I= 49, 54) /  -58,  -76,    5,  -58,  428,  -76/
 
925
      DATA (CF(I, 29),I= 55, 60) /  -13,   50,  -13,  -58,  -76,    5/
 
926
      DATA (CF(I, 29),I= 61, 66) /  -76,  428,   50,  -76, -184,  428/
 
927
      DATA (CF(I, 29),I= 67, 72) / -184,  -40,  428,  -58,  -40,  -76/
 
928
      DATA (CF(I, 29),I= 73, 78) /  104,   68,  -58,  -40,  -76,  572/
 
929
      DATA (CF(I, 29),I= 79, 84) /   68, -454,  -76,  -40,   68,  -76/
 
930
      DATA (CF(I, 29),I= 85, 90) /  -40, -184,  572,  -40,  176, -184/
 
931
      DATA (CF(I, 29),I= 91, 96) /  -40,  -40,  -76,  -58, -184,  428/
 
932
      DATA (CF(I, 29),I= 97,102) /  572,  -40,  -76,   68,  -58,  104/
 
933
      DATA (CF(I, 29),I=103,108) /   50,  -76,  -13,  -13,    5,  -58/
 
934
      DATA (CF(I, 29),I=109,114) /  428,  -76,  554,  -13,  572,   50/
 
935
      DATA (CF(I, 29),I=115,120) /  -58,  -58,  -13,    5,  -40,  -76/
 
936
C     1 Tr(1,3,2,6,4,5)
 
937
      DATA DENOM(30)/648/
 
938
      DATA (CF(I, 30),I=  1,  6) /  -40,  -76,  -76,   68,   68, -454/
 
939
      DATA (CF(I, 30),I=  7, 12) /  -58,  -13,  -58,  -40,    5,  -76/
 
940
      DATA (CF(I, 30),I= 13, 18) /    5,  -13,  -13,  -76,  -76,   68/
 
941
      DATA (CF(I, 30),I= 19, 24) /  -76,   50,  -13,   68,   50, -454/
 
942
      DATA (CF(I, 30),I= 25, 30) /  572,   50,   50, -454, -454, 3641/
 
943
      DATA (CF(I, 30),I= 31, 36) /  -76,   50,  428, -184,  -76,  428/
 
944
      DATA (CF(I, 30),I= 37, 42) /  -13,   50,  554,  428,  572,  -76/
 
945
      DATA (CF(I, 30),I= 43, 48) /   68, -454,  -13,  -76,   50,   50/
 
946
      DATA (CF(I, 30),I= 49, 54) /  104,   68,  -58,  -40,  -76,  572/
 
947
      DATA (CF(I, 30),I= 55, 60) /   68, -454,  -76,  -40,   68,  -76/
 
948
      DATA (CF(I, 30),I= 61, 66) /  -40, -184,  572,  -40,  176, -184/
 
949
      DATA (CF(I, 30),I= 67, 72) /  -40,  -40,  -76,  -58, -184,  428/
 
950
      DATA (CF(I, 30),I= 73, 78) /  -58,  -76,    5,  -58,  428,  -76/
 
951
      DATA (CF(I, 30),I= 79, 84) /  -13,   50,  -13,  -58,  -76,    5/
 
952
      DATA (CF(I, 30),I= 85, 90) /  -76,  428,   50,  -76, -184,  428/
 
953
      DATA (CF(I, 30),I= 91, 96) / -184,  -40,  428,  -58,  -40,  -76/
 
954
      DATA (CF(I, 30),I= 97,102) /  -40,  572,  -58,  104,  -76,   68/
 
955
      DATA (CF(I, 30),I=103,108) /  -76,   50,    5,  -58,  -13,  -13/
 
956
      DATA (CF(I, 30),I=109,114) /  -58,  -58,  -13,    5,  -40,  -76/
 
957
      DATA (CF(I, 30),I=115,120) /  428,  -76,  554,  -13,  572,   50/
 
958
C     1 Tr(1,3,2,6,5,4)
 
959
      DATA DENOM(31)/648/
 
960
      DATA (CF(I, 31),I=  1,  6) /   50,  -76,  -13,  -13,    5,  -58/
 
961
      DATA (CF(I, 31),I=  7, 12) /  572,  -40,  -76,   68,  -58,  104/
 
962
      DATA (CF(I, 31),I= 13, 18) /  554,  -13,  428,  -76,   50,  572/
 
963
      DATA (CF(I, 31),I= 19, 24) /  -13,    5,  -58,  -58,  -76,  -40/
 
964
      DATA (CF(I, 31),I= 25, 30) / -454,   68,   50,   50,  -13,  -76/
 
965
      DATA (CF(I, 31),I= 31, 36) / 3641, -454, -454,   50,   50,  572/
 
966
      DATA (CF(I, 31),I= 37, 42) /  572,  -76,   50,  -13,  428,  554/
 
967
      DATA (CF(I, 31),I= 43, 48) /  -76,  428,   50,  -76, -184,  428/
 
968
      DATA (CF(I, 31),I= 49, 54) /   50,  -76,   50, -454,  -13,   68/
 
969
      DATA (CF(I, 31),I= 55, 60) / -454,   68,   68,  -76,  -76,  -40/
 
970
      DATA (CF(I, 31),I= 61, 66) /  -76,   68,  -13,    5,  -76,  -13/
 
971
      DATA (CF(I, 31),I= 67, 72) /    5,  -76,  -13,  -58,  -40,  -58/
 
972
      DATA (CF(I, 31),I= 73, 78) /  428,  -58, -184,  -40,  -76,  -40/
 
973
      DATA (CF(I, 31),I= 79, 84) /  -76,    5,   50,  -13,  -58,  -13/
 
974
      DATA (CF(I, 31),I= 85, 90) /  428,  -76,  -76,  -58,  -58,    5/
 
975
      DATA (CF(I, 31),I= 91, 96) /  428, -184,  -76,   50,  428,  -76/
 
976
      DATA (CF(I, 31),I= 97,102) /  -76,  -58,  -40,  -40,  428, -184/
 
977
      DATA (CF(I, 31),I=103,108) /   68,  -76, -454,   68,  -40,  -76/
 
978
      DATA (CF(I, 31),I=109,114) /  -76,  572,   68,  104,  -40,  -58/
 
979
      DATA (CF(I, 31),I=115,120) / -184,  176,  -40,  572, -184,  -40/
 
980
C     1 Tr(1,3,4,2,5,6)
 
981
      DATA DENOM(32)/648/
 
982
      DATA (CF(I, 32),I=  1,  6) /  -76,   50,    5,  -58,  -13,  -13/
 
983
      DATA (CF(I, 32),I=  7, 12) /  -40,  572,  -58,  104,  -76,   68/
 
984
      DATA (CF(I, 32),I= 13, 18) /  -13,    5,  -58,  -58,  -76,  -40/
 
985
      DATA (CF(I, 32),I= 19, 24) /  554,  -13,  428,  -76,   50,  572/
 
986
      DATA (CF(I, 32),I= 25, 30) /   68, -454,  -13,  -76,   50,   50/
 
987
      DATA (CF(I, 32),I= 31, 36) / -454, 3641,   50,  572, -454,   50/
 
988
      DATA (CF(I, 32),I= 37, 42) /  -76,  428,   50,  -76, -184,  428/
 
989
      DATA (CF(I, 32),I= 43, 48) /  572,  -76,   50,  -13,  428,  554/
 
990
      DATA (CF(I, 32),I= 49, 54) /  -76,   50,  -13,   68,   50, -454/
 
991
      DATA (CF(I, 32),I= 55, 60) /   68, -454,  -76,  -40,   68,  -76/
 
992
      DATA (CF(I, 32),I= 61, 66) /    5,  -76,  -13,  -58,  -40,  -58/
 
993
      DATA (CF(I, 32),I= 67, 72) /  -76,   68,  -13,    5,  -76,  -13/
 
994
      DATA (CF(I, 32),I= 73, 78) /  -76,  -58,  -40,  -40,  428, -184/
 
995
      DATA (CF(I, 32),I= 79, 84) /   68,  -76, -454,   68,  -40,  -76/
 
996
      DATA (CF(I, 32),I= 85, 90) /  -76,  572,   68,  104,  -40,  -58/
 
997
      DATA (CF(I, 32),I= 91, 96) / -184,  176,  -40,  572, -184,  -40/
 
998
      DATA (CF(I, 32),I= 97,102) /  428,  -58, -184,  -40,  -76,  -40/
 
999
      DATA (CF(I, 32),I=103,108) /  -76,    5,   50,  -13,  -58,  -13/
 
1000
      DATA (CF(I, 32),I=109,114) /  428,  -76,  -76,  -58,  -58,    5/
 
1001
      DATA (CF(I, 32),I=115,120) /  428, -184,  -76,   50,  428,  -76/
 
1002
C     1 Tr(1,3,4,2,6,5)
 
1003
      DATA DENOM(33)/648/
 
1004
      DATA (CF(I, 33),I=  1,  6) /   50,  -13,  -76,    5,  -13,  -58/
 
1005
      DATA (CF(I, 33),I=  7, 12) /  -76,  -58,  428,  -76,    5,  -58/
 
1006
      DATA (CF(I, 33),I= 13, 18) /  428,  -58, -184,  -40,  -76,  -40/
 
1007
      DATA (CF(I, 33),I= 19, 24) /   50,  -76,  -76,  428,  428, -184/
 
1008
      DATA (CF(I, 33),I= 25, 30) /   50,  -13,  572,  -76,  554,  428/
 
1009
      DATA (CF(I, 33),I= 31, 36) / -454,   50, 3641, -454,  572,   50/
 
1010
      DATA (CF(I, 33),I= 37, 42) /   50,   50, -454,   68,  -76,  -13/
 
1011
      DATA (CF(I, 33),I= 43, 48) /  428, -184,  -76,   50,  428,  -76/
 
1012
      DATA (CF(I, 33),I= 49, 54) /  -13,    5,  -76,   68,  -13,  -76/
 
1013
      DATA (CF(I, 33),I= 55, 60) /   68,  -76, -454,   68,  -40,  -76/
 
1014
      DATA (CF(I, 33),I= 61, 66) /   50, -454,   50,  -76,   68,  -13/
 
1015
      DATA (CF(I, 33),I= 67, 72) /  -58,  -40,  -58,  -13,  -76,    5/
 
1016
      DATA (CF(I, 33),I= 73, 78) /  554,  -13,  428,  -76,   50,  572/
 
1017
      DATA (CF(I, 33),I= 79, 84) /  -13,  -13,   50,  -76,  -58,    5/
 
1018
      DATA (CF(I, 33),I= 85, 90) /  -76,   68,  572,  -40,  104,  -58/
 
1019
      DATA (CF(I, 33),I= 91, 96) /  -76,  -40,    5,  -13,  -58,  -58/
 
1020
      DATA (CF(I, 33),I= 97,102) /  572,  -40,  -40, -184, -184,  176/
 
1021
      DATA (CF(I, 33),I=103,108) /  -76,  -40,   68, -454,  -76,   68/
 
1022
      DATA (CF(I, 33),I=109,114) /  -58,  -40,  104,   68,  572,  -76/
 
1023
      DATA (CF(I, 33),I=115,120) /  428, -184,  -58,  -76,  -40,  -40/
 
1024
C     1 Tr(1,3,4,5,2,6)
 
1025
      DATA DENOM(34)/648/
 
1026
      DATA (CF(I, 34),I=  1,  6) / -454,   68,   68,  -76,  -76,  -40/
 
1027
      DATA (CF(I, 34),I=  7, 12) /   68,  104,  -76,  572,  -58,  -40/
 
1028
      DATA (CF(I, 34),I= 13, 18) /  -76,  -58,  -40,  -40,  428, -184/
 
1029
      DATA (CF(I, 34),I= 19, 24) /  572,  -40,  -40, -184, -184,  176/
 
1030
      DATA (CF(I, 34),I= 25, 30) /   50,  -76,  -76,  428,  428, -184/
 
1031
      DATA (CF(I, 34),I= 31, 36) /   50,  572, -454, 3641,   50, -454/
 
1032
      DATA (CF(I, 34),I= 37, 42) /  -13,  -76,   68, -454,   50,   50/
 
1033
      DATA (CF(I, 34),I= 43, 48) /  554,  428,  -13,   50,  -76,  572/
 
1034
      DATA (CF(I, 34),I= 49, 54) /  -13,  -58,    5,  -76,  -58,  -40/
 
1035
      DATA (CF(I, 34),I= 55, 60) /  -76,  -40,   68, -454,  -76,   68/
 
1036
      DATA (CF(I, 34),I= 61, 66) /  -13,   68,  -76,   50, -454,   50/
 
1037
      DATA (CF(I, 34),I= 67, 72) /  -13,  -76,    5,  -13,   68,  -76/
 
1038
      DATA (CF(I, 34),I= 73, 78) /  -13,    5,  -58,  -58,  -76,  -40/
 
1039
      DATA (CF(I, 34),I= 79, 84) /    5,  -58,  -76,   50,  -13,  -13/
 
1040
      DATA (CF(I, 34),I= 85, 90) /  -58,  104,  -40,  572,   68,  -76/
 
1041
      DATA (CF(I, 34),I= 91, 96) /   50,  572,  -13,  554,  -76,  428/
 
1042
      DATA (CF(I, 34),I= 97,102) /   50,  -76,  -76,  428,  428, -184/
 
1043
      DATA (CF(I, 34),I=103,108) /  -13,  -58,  -13,   50,    5,  -76/
 
1044
      DATA (CF(I, 34),I=109,114) /    5,  -58,  -58,  -76,  -76,  428/
 
1045
      DATA (CF(I, 34),I=115,120) /  -76,  -40,  -58,  428,  -40, -184/
 
1046
C     1 Tr(1,3,4,5,6,2)
 
1047
      DATA DENOM(35)/648/
 
1048
      DATA (CF(I, 35),I=  1,  6) /  -13,   50,  -13,  -58,  -76,    5/
 
1049
      DATA (CF(I, 35),I=  7, 12) /  -58,  -76,    5,  -58,  428,  -76/
 
1050
      DATA (CF(I, 35),I= 13, 18) /   50,  -76,  -76,  428,  428, -184/
 
1051
      DATA (CF(I, 35),I= 19, 24) /  428,  -58, -184,  -40,  -76,  -40/
 
1052
      DATA (CF(I, 35),I= 25, 30) /  -13,   50,  554,  428,  572,  -76/
 
1053
      DATA (CF(I, 35),I= 31, 36) /   50, -454,  572,   50, 3641, -454/
 
1054
      DATA (CF(I, 35),I= 37, 42) /  428, -184,  -76,   50,  428,  -76/
 
1055
      DATA (CF(I, 35),I= 43, 48) /   50,   50, -454,   68,  -76,  -13/
 
1056
      DATA (CF(I, 35),I= 49, 54) /    5,  -13,  -13,  -76,  -76,   68/
 
1057
      DATA (CF(I, 35),I= 55, 60) /  -76,   68,  -40,  -76, -454,   68/
 
1058
      DATA (CF(I, 35),I= 61, 66) /  -58,  -40,  -58,  -13,  -76,    5/
 
1059
      DATA (CF(I, 35),I= 67, 72) /   50, -454,   50,  -76,   68,  -13/
 
1060
      DATA (CF(I, 35),I= 73, 78) /  572,  -40,  -40, -184, -184,  176/
 
1061
      DATA (CF(I, 35),I= 79, 84) /  -76,  -40,   68, -454,  -76,   68/
 
1062
      DATA (CF(I, 35),I= 85, 90) /  -58,  -40,  104,   68,  572,  -76/
 
1063
      DATA (CF(I, 35),I= 91, 96) /  428, -184,  -58,  -76,  -40,  -40/
 
1064
      DATA (CF(I, 35),I= 97,102) /  554,  -13,  428,  -76,   50,  572/
 
1065
      DATA (CF(I, 35),I=103,108) /  -13,  -13,   50,  -76,  -58,    5/
 
1066
      DATA (CF(I, 35),I=109,114) /  -76,   68,  572,  -40,  104,  -58/
 
1067
      DATA (CF(I, 35),I=115,120) /  -76,  -40,    5,  -13,  -58,  -58/
 
1068
C     1 Tr(1,3,4,6,2,5)
 
1069
      DATA DENOM(36)/648/
 
1070
      DATA (CF(I, 36),I=  1,  6) /   68, -454,  -76,  -40,   68,  -76/
 
1071
      DATA (CF(I, 36),I=  7, 12) /  104,   68,  -58,  -40,  -76,  572/
 
1072
      DATA (CF(I, 36),I= 13, 18) /  572,  -40,  -40, -184, -184,  176/
 
1073
      DATA (CF(I, 36),I= 19, 24) /  -76,  -58,  -40,  -40,  428, -184/
 
1074
      DATA (CF(I, 36),I= 25, 30) /  -76,   50,  428, -184,  -76,  428/
 
1075
      DATA (CF(I, 36),I= 31, 36) /  572,   50,   50, -454, -454, 3641/
 
1076
      DATA (CF(I, 36),I= 37, 42) /  554,  428,  -13,   50,  -76,  572/
 
1077
      DATA (CF(I, 36),I= 43, 48) /  -13,  -76,   68, -454,   50,   50/
 
1078
      DATA (CF(I, 36),I= 49, 54) /  -58,  -13,  -58,  -40,    5,  -76/
 
1079
      DATA (CF(I, 36),I= 55, 60) /  -40,  -76,  -76,   68,   68, -454/
 
1080
      DATA (CF(I, 36),I= 61, 66) /  -13,  -76,    5,  -13,   68,  -76/
 
1081
      DATA (CF(I, 36),I= 67, 72) /  -13,   68,  -76,   50, -454,   50/
 
1082
      DATA (CF(I, 36),I= 73, 78) /   50,  -76,  -76,  428,  428, -184/
 
1083
      DATA (CF(I, 36),I= 79, 84) /  -13,  -58,  -13,   50,    5,  -76/
 
1084
      DATA (CF(I, 36),I= 85, 90) /    5,  -58,  -58,  -76,  -76,  428/
 
1085
      DATA (CF(I, 36),I= 91, 96) /  -76,  -40,  -58,  428,  -40, -184/
 
1086
      DATA (CF(I, 36),I= 97,102) /  -13,    5,  -58,  -58,  -76,  -40/
 
1087
      DATA (CF(I, 36),I=103,108) /    5,  -58,  -76,   50,  -13,  -13/
 
1088
      DATA (CF(I, 36),I=109,114) /  -58,  104,  -40,  572,   68,  -76/
 
1089
      DATA (CF(I, 36),I=115,120) /   50,  572,  -13,  554,  -76,  428/
 
1090
C     1 Tr(1,3,4,6,5,2)
 
1091
      DATA DENOM(37)/648/
 
1092
      DATA (CF(I, 37),I=  1,  6) /  -13,  -13,   50,  -76,  -58,    5/
 
1093
      DATA (CF(I, 37),I=  7, 12) /  554,  -13,  428,  -76,   50,  572/
 
1094
      DATA (CF(I, 37),I= 13, 18) /  572,  -40,  -76,   68,  -58,  104/
 
1095
      DATA (CF(I, 37),I= 19, 24) /    5,  -13,  -76,  -40,  -58,  -58/
 
1096
      DATA (CF(I, 37),I= 25, 30) /   50,   50, -454,   68,  -76,  -13/
 
1097
      DATA (CF(I, 37),I= 31, 36) /  572,  -76,   50,  -13,  428,  554/
 
1098
      DATA (CF(I, 37),I= 37, 42) / 3641, -454, -454,   50,   50,  572/
 
1099
      DATA (CF(I, 37),I= 43, 48) /  428,  -76, -184,  428,   50,  -76/
 
1100
      DATA (CF(I, 37),I= 49, 54) /  428,  -58, -184,  -40,  -76,  -40/
 
1101
      DATA (CF(I, 37),I= 55, 60) /  -76,    5,   50,  -13,  -58,  -13/
 
1102
      DATA (CF(I, 37),I= 61, 66) /  428,  -76,  -76,  -58,  -58,    5/
 
1103
      DATA (CF(I, 37),I= 67, 72) /  428, -184,  -76,   50,  428,  -76/
 
1104
      DATA (CF(I, 37),I= 73, 78) /   50,  -76,   50, -454,  -13,   68/
 
1105
      DATA (CF(I, 37),I= 79, 84) / -454,   68,   68,  -76,  -76,  -40/
 
1106
      DATA (CF(I, 37),I= 85, 90) /  -76,   68,  -13,    5,  -76,  -13/
 
1107
      DATA (CF(I, 37),I= 91, 96) /    5,  -76,  -13,  -58,  -40,  -58/
 
1108
      DATA (CF(I, 37),I= 97,102) /  -58,  -76,  428, -184,  -40,  -40/
 
1109
      DATA (CF(I, 37),I=103,108) /  -76,   68,  -40,  -76, -454,   68/
 
1110
      DATA (CF(I, 37),I=109,114) / -184,  176,  -40,  572, -184,  -40/
 
1111
      DATA (CF(I, 37),I=115,120) /  -76,  572,   68,  104,  -40,  -58/
 
1112
C     1 Tr(1,3,5,2,4,6)
 
1113
      DATA DENOM(38)/648/
 
1114
      DATA (CF(I, 38),I=  1,  6) /    5,  -58,  -76,   50,  -13,  -13/
 
1115
      DATA (CF(I, 38),I=  7, 12) /  -13,    5,  -58,  -58,  -76,  -40/
 
1116
      DATA (CF(I, 38),I= 13, 18) /  -40,  572,  -58,  104,  -76,   68/
 
1117
      DATA (CF(I, 38),I= 19, 24) /  -13,  554,   50,  572,  428,  -76/
 
1118
      DATA (CF(I, 38),I= 25, 30) /  -13,  -76,   68, -454,   50,   50/
 
1119
      DATA (CF(I, 38),I= 31, 36) /  -76,  428,   50,  -76, -184,  428/
 
1120
      DATA (CF(I, 38),I= 37, 42) / -454, 3641,   50,  572, -454,   50/
 
1121
      DATA (CF(I, 38),I= 43, 48) /  -76,  572,  428,  554,   50,  -13/
 
1122
      DATA (CF(I, 38),I= 49, 54) /  -76,  -58,  -40,  -40,  428, -184/
 
1123
      DATA (CF(I, 38),I= 55, 60) /   68,  -76, -454,   68,  -40,  -76/
 
1124
      DATA (CF(I, 38),I= 61, 66) /  -76,  572,   68,  104,  -40,  -58/
 
1125
      DATA (CF(I, 38),I= 67, 72) / -184,  176,  -40,  572, -184,  -40/
 
1126
      DATA (CF(I, 38),I= 73, 78) /  -76,   50,  -13,   68,   50, -454/
 
1127
      DATA (CF(I, 38),I= 79, 84) /   68, -454,  -76,  -40,   68,  -76/
 
1128
      DATA (CF(I, 38),I= 85, 90) /    5,  -76,  -13,  -58,  -40,  -58/
 
1129
      DATA (CF(I, 38),I= 91, 96) /  -76,   68,  -13,    5,  -76,  -13/
 
1130
      DATA (CF(I, 38),I= 97,102) /  -58,  428,  -76,  -40, -184,  -40/
 
1131
      DATA (CF(I, 38),I=103,108) /    5,  -76,  -58,  -13,   50,  -13/
 
1132
      DATA (CF(I, 38),I=109,114) /  428, -184,  -76,   50,  428,  -76/
 
1133
      DATA (CF(I, 38),I=115,120) /  428,  -76,  -76,  -58,  -58,    5/
 
1134
C     1 Tr(1,3,5,2,6,4)
 
1135
      DATA DENOM(39)/648/
 
1136
      DATA (CF(I, 39),I=  1,  6) /  -76,    5,   50,  -13,  -58,  -13/
 
1137
      DATA (CF(I, 39),I=  7, 12) /  428,  -58, -184,  -40,  -76,  -40/
 
1138
      DATA (CF(I, 39),I= 13, 18) /  -76,  -58,  428,  -76,    5,  -58/
 
1139
      DATA (CF(I, 39),I= 19, 24) /  -76,   50,  428, -184,  -76,  428/
 
1140
      DATA (CF(I, 39),I= 25, 30) /  572,  -76,   50,  -13,  428,  554/
 
1141
      DATA (CF(I, 39),I= 31, 36) /   50,   50, -454,   68,  -76,  -13/
 
1142
      DATA (CF(I, 39),I= 37, 42) / -454,   50, 3641, -454,  572,   50/
 
1143
      DATA (CF(I, 39),I= 43, 48) / -184,  428,  428,  -76,  -76,   50/
 
1144
      DATA (CF(I, 39),I= 49, 54) /  554,  -13,  428,  -76,   50,  572/
 
1145
      DATA (CF(I, 39),I= 55, 60) /  -13,  -13,   50,  -76,  -58,    5/
 
1146
      DATA (CF(I, 39),I= 61, 66) /  -76,   68,  572,  -40,  104,  -58/
 
1147
      DATA (CF(I, 39),I= 67, 72) /  -76,  -40,    5,  -13,  -58,  -58/
 
1148
      DATA (CF(I, 39),I= 73, 78) /  -13,    5,  -76,   68,  -13,  -76/
 
1149
      DATA (CF(I, 39),I= 79, 84) /   68,  -76, -454,   68,  -40,  -76/
 
1150
      DATA (CF(I, 39),I= 85, 90) /   50, -454,   50,  -76,   68,  -13/
 
1151
      DATA (CF(I, 39),I= 91, 96) /  -58,  -40,  -58,  -13,  -76,    5/
 
1152
      DATA (CF(I, 39),I= 97,102) /  -40,  572, -184,  176,  -40, -184/
 
1153
      DATA (CF(I, 39),I=103,108) /  -40,  -76,  -76,   68,   68, -454/
 
1154
      DATA (CF(I, 39),I=109,114) /  428, -184,  -58,  -76,  -40,  -40/
 
1155
      DATA (CF(I, 39),I=115,120) /  -58,  -40,  104,   68,  572,  -76/
 
1156
C     1 Tr(1,3,5,4,2,6)
 
1157
      DATA DENOM(40)/648/
 
1158
      DATA (CF(I, 40),I=  1,  6) /   68,  -76, -454,   68,  -40,  -76/
 
1159
      DATA (CF(I, 40),I=  7, 12) /  -76,  -58,  -40,  -40,  428, -184/
 
1160
      DATA (CF(I, 40),I= 13, 18) /   68,  104,  -76,  572,  -58,  -40/
 
1161
      DATA (CF(I, 40),I= 19, 24) /  -40,  572, -184,  176,  -40, -184/
 
1162
      DATA (CF(I, 40),I= 25, 30) /  -76,  428,   50,  -76, -184,  428/
 
1163
      DATA (CF(I, 40),I= 31, 36) /  -13,  -76,   68, -454,   50,   50/
 
1164
      DATA (CF(I, 40),I= 37, 42) /   50,  572, -454, 3641,   50, -454/
 
1165
      DATA (CF(I, 40),I= 43, 48) /  428,  554,  -76,  572,  -13,   50/
 
1166
      DATA (CF(I, 40),I= 49, 54) /  -13,    5,  -58,  -58,  -76,  -40/
 
1167
      DATA (CF(I, 40),I= 55, 60) /    5,  -58,  -76,   50,  -13,  -13/
 
1168
      DATA (CF(I, 40),I= 61, 66) /  -58,  104,  -40,  572,   68,  -76/
 
1169
      DATA (CF(I, 40),I= 67, 72) /   50,  572,  -13,  554,  -76,  428/
 
1170
      DATA (CF(I, 40),I= 73, 78) /  -13,  -58,    5,  -76,  -58,  -40/
 
1171
      DATA (CF(I, 40),I= 79, 84) /  -76,  -40,   68, -454,  -76,   68/
 
1172
      DATA (CF(I, 40),I= 85, 90) /  -13,   68,  -76,   50, -454,   50/
 
1173
      DATA (CF(I, 40),I= 91, 96) /  -13,  -76,    5,  -13,   68,  -76/
 
1174
      DATA (CF(I, 40),I= 97,102) /  -76,   50,  428, -184,  -76,  428/
 
1175
      DATA (CF(I, 40),I=103,108) /  -58,  -13,    5,  -76,  -13,   50/
 
1176
      DATA (CF(I, 40),I=109,114) /  -76,  -40,  -58,  428,  -40, -184/
 
1177
      DATA (CF(I, 40),I=115,120) /    5,  -58,  -58,  -76,  -76,  428/
 
1178
C     1 Tr(1,3,5,4,6,2)
 
1179
      DATA DENOM(41)/648/
 
1180
      DATA (CF(I, 41),I=  1,  6) /  -13,  -58,  -13,   50,    5,  -76/
 
1181
      DATA (CF(I, 41),I=  7, 12) /   50,  -76,  -76,  428,  428, -184/
 
1182
      DATA (CF(I, 41),I= 13, 18) /  -58,  -76,    5,  -58,  428,  -76/
 
1183
      DATA (CF(I, 41),I= 19, 24) /  -58,  428,  -76,  -40, -184,  -40/
 
1184
      DATA (CF(I, 41),I= 25, 30) /  554,  428,  -13,   50,  -76,  572/
 
1185
      DATA (CF(I, 41),I= 31, 36) /  428, -184,  -76,   50,  428,  -76/
 
1186
      DATA (CF(I, 41),I= 37, 42) /   50, -454,  572,   50, 3641, -454/
 
1187
      DATA (CF(I, 41),I= 43, 48) /   50,   50,  -76,  -13, -454,   68/
 
1188
      DATA (CF(I, 41),I= 49, 54) /  572,  -40,  -40, -184, -184,  176/
 
1189
      DATA (CF(I, 41),I= 55, 60) /  -76,  -40,   68, -454,  -76,   68/
 
1190
      DATA (CF(I, 41),I= 61, 66) /  -58,  -40,  104,   68,  572,  -76/
 
1191
      DATA (CF(I, 41),I= 67, 72) /  428, -184,  -58,  -76,  -40,  -40/
 
1192
      DATA (CF(I, 41),I= 73, 78) /    5,  -13,  -13,  -76,  -76,   68/
 
1193
      DATA (CF(I, 41),I= 79, 84) /  -76,   68,  -40,  -76, -454,   68/
 
1194
      DATA (CF(I, 41),I= 85, 90) /  -58,  -40,  -58,  -13,  -76,    5/
 
1195
      DATA (CF(I, 41),I= 91, 96) /   50, -454,   50,  -76,   68,  -13/
 
1196
      DATA (CF(I, 41),I= 97,102) /  -13,  554,   50,  572,  428,  -76/
 
1197
      DATA (CF(I, 41),I=103,108) /  -13,  -13,  -58,    5,   50,  -76/
 
1198
      DATA (CF(I, 41),I=109,114) /  -76,  -40,    5,  -13,  -58,  -58/
 
1199
      DATA (CF(I, 41),I=115,120) /  -76,   68,  572,  -40,  104,  -58/
 
1200
C     1 Tr(1,3,5,6,2,4)
 
1201
      DATA DENOM(42)/648/
 
1202
      DATA (CF(I, 42),I=  1,  6) /  -76,  -40,   68, -454,  -76,   68/
 
1203
      DATA (CF(I, 42),I=  7, 12) /  572,  -40,  -40, -184, -184,  176/
 
1204
      DATA (CF(I, 42),I= 13, 18) /  104,   68,  -58,  -40,  -76,  572/
 
1205
      DATA (CF(I, 42),I= 19, 24) /  -58,  -76,  428, -184,  -40,  -40/
 
1206
      DATA (CF(I, 42),I= 25, 30) /  428, -184,  -76,   50,  428,  -76/
 
1207
      DATA (CF(I, 42),I= 31, 36) /  554,  428,  -13,   50,  -76,  572/
 
1208
      DATA (CF(I, 42),I= 37, 42) /  572,   50,   50, -454, -454, 3641/
 
1209
      DATA (CF(I, 42),I= 43, 48) /  -76,  -13,   50,   50,   68, -454/
 
1210
      DATA (CF(I, 42),I= 49, 54) /   50,  -76,  -76,  428,  428, -184/
 
1211
      DATA (CF(I, 42),I= 55, 60) /  -13,  -58,  -13,   50,    5,  -76/
 
1212
      DATA (CF(I, 42),I= 61, 66) /    5,  -58,  -58,  -76,  -76,  428/
 
1213
      DATA (CF(I, 42),I= 67, 72) /  -76,  -40,  -58,  428,  -40, -184/
 
1214
      DATA (CF(I, 42),I= 73, 78) /  -58,  -13,  -58,  -40,    5,  -76/
 
1215
      DATA (CF(I, 42),I= 79, 84) /  -40,  -76,  -76,   68,   68, -454/
 
1216
      DATA (CF(I, 42),I= 85, 90) /  -13,  -76,    5,  -13,   68,  -76/
 
1217
      DATA (CF(I, 42),I= 91, 96) /  -13,   68,  -76,   50, -454,   50/
 
1218
      DATA (CF(I, 42),I= 97,102) /    5,  -13,  -76,  -40,  -58,  -58/
 
1219
      DATA (CF(I, 42),I=103,108) /  -58,    5,  -13,  -13,  -76,   50/
 
1220
      DATA (CF(I, 42),I=109,114) /   50,  572,  -13,  554,  -76,  428/
 
1221
      DATA (CF(I, 42),I=115,120) /  -58,  104,  -40,  572,   68,  -76/
 
1222
C     1 Tr(1,3,5,6,4,2)
 
1223
      DATA DENOM(43)/648/
 
1224
      DATA (CF(I, 43),I=  1,  6) /  -13,  -13,  -58,    5,   50,  -76/
 
1225
      DATA (CF(I, 43),I=  7, 12) /  -13,  554,   50,  572,  428,  -76/
 
1226
      DATA (CF(I, 43),I= 13, 18) /    5,  -13,  -76,  -40,  -58,  -58/
 
1227
      DATA (CF(I, 43),I= 19, 24) /  572,  -40,  -76,   68,  -58,  104/
 
1228
      DATA (CF(I, 43),I= 25, 30) /   50,   50,  -76,  -13, -454,   68/
 
1229
      DATA (CF(I, 43),I= 31, 36) /  -76,  572,  428,  554,   50,  -13/
 
1230
      DATA (CF(I, 43),I= 37, 42) /  428,  -76, -184,  428,   50,  -76/
 
1231
      DATA (CF(I, 43),I= 43, 48) / 3641, -454, -454,   50,   50,  572/
 
1232
      DATA (CF(I, 43),I= 49, 54) /  -58,  428,  -76,  -40, -184,  -40/
 
1233
      DATA (CF(I, 43),I= 55, 60) /    5,  -76,  -58,  -13,   50,  -13/
 
1234
      DATA (CF(I, 43),I= 61, 66) /  428, -184,  -76,   50,  428,  -76/
 
1235
      DATA (CF(I, 43),I= 67, 72) /  428,  -76,  -76,  -58,  -58,    5/
 
1236
      DATA (CF(I, 43),I= 73, 78) /  -58,  -76,  428, -184,  -40,  -40/
 
1237
      DATA (CF(I, 43),I= 79, 84) /  -76,   68,  -40,  -76, -454,   68/
 
1238
      DATA (CF(I, 43),I= 85, 90) / -184,  176,  -40,  572, -184,  -40/
 
1239
      DATA (CF(I, 43),I= 91, 96) /  -76,  572,   68,  104,  -40,  -58/
 
1240
      DATA (CF(I, 43),I= 97,102) /   50,  -76,   50, -454,  -13,   68/
 
1241
      DATA (CF(I, 43),I=103,108) / -454,   68,   68,  -76,  -76,  -40/
 
1242
      DATA (CF(I, 43),I=109,114) /  -76,   68,  -13,    5,  -76,  -13/
 
1243
      DATA (CF(I, 43),I=115,120) /    5,  -76,  -13,  -58,  -40,  -58/
 
1244
C     1 Tr(1,3,6,2,4,5)
 
1245
      DATA DENOM(44)/648/
 
1246
      DATA (CF(I, 44),I=  1,  6) /  -58,    5,  -13,  -13,  -76,   50/
 
1247
      DATA (CF(I, 44),I=  7, 12) /    5,  -13,  -76,  -40,  -58,  -58/
 
1248
      DATA (CF(I, 44),I= 13, 18) /  -13,  554,   50,  572,  428,  -76/
 
1249
      DATA (CF(I, 44),I= 19, 24) /  -40,  572,  -58,  104,  -76,   68/
 
1250
      DATA (CF(I, 44),I= 25, 30) /  -76,  -13,   50,   50,   68, -454/
 
1251
      DATA (CF(I, 44),I= 31, 36) /  428,  -76, -184,  428,   50,  -76/
 
1252
      DATA (CF(I, 44),I= 37, 42) /  -76,  572,  428,  554,   50,  -13/
 
1253
      DATA (CF(I, 44),I= 43, 48) / -454, 3641,   50,  572, -454,   50/
 
1254
      DATA (CF(I, 44),I= 49, 54) /  -58,  -76,  428, -184,  -40,  -40/
 
1255
      DATA (CF(I, 44),I= 55, 60) /  -76,   68,  -40,  -76, -454,   68/
 
1256
      DATA (CF(I, 44),I= 61, 66) / -184,  176,  -40,  572, -184,  -40/
 
1257
      DATA (CF(I, 44),I= 67, 72) /  -76,  572,   68,  104,  -40,  -58/
 
1258
      DATA (CF(I, 44),I= 73, 78) /  -58,  428,  -76,  -40, -184,  -40/
 
1259
      DATA (CF(I, 44),I= 79, 84) /    5,  -76,  -58,  -13,   50,  -13/
 
1260
      DATA (CF(I, 44),I= 85, 90) /  428, -184,  -76,   50,  428,  -76/
 
1261
      DATA (CF(I, 44),I= 91, 96) /  428,  -76,  -76,  -58,  -58,    5/
 
1262
      DATA (CF(I, 44),I= 97,102) /  -76,   50,  -13,   68,   50, -454/
 
1263
      DATA (CF(I, 44),I=103,108) /   68, -454,  -76,  -40,   68,  -76/
 
1264
      DATA (CF(I, 44),I=109,114) /    5,  -76,  -13,  -58,  -40,  -58/
 
1265
      DATA (CF(I, 44),I=115,120) /  -76,   68,  -13,    5,  -76,  -13/
 
1266
C     1 Tr(1,3,6,2,5,4)
 
1267
      DATA DENOM(45)/648/
 
1268
      DATA (CF(I, 45),I=  1,  6) /    5,  -76,  -58,  -13,   50,  -13/
 
1269
      DATA (CF(I, 45),I=  7, 12) /  -58,  428,  -76,  -40, -184,  -40/
 
1270
      DATA (CF(I, 45),I= 13, 18) /  -76,   50,  428, -184,  -76,  428/
 
1271
      DATA (CF(I, 45),I= 19, 24) /  -76,  -58,  428,  -76,    5,  -58/
 
1272
      DATA (CF(I, 45),I= 25, 30) /  -76,  572,  428,  554,   50,  -13/
 
1273
      DATA (CF(I, 45),I= 31, 36) /   50,   50,  -76,  -13, -454,   68/
 
1274
      DATA (CF(I, 45),I= 37, 42) / -184,  428,  428,  -76,  -76,   50/
 
1275
      DATA (CF(I, 45),I= 43, 48) / -454,   50, 3641, -454,  572,   50/
 
1276
      DATA (CF(I, 45),I= 49, 54) /  -13,  554,   50,  572,  428,  -76/
 
1277
      DATA (CF(I, 45),I= 55, 60) /  -13,  -13,  -58,    5,   50,  -76/
 
1278
      DATA (CF(I, 45),I= 61, 66) /  -76,  -40,    5,  -13,  -58,  -58/
 
1279
      DATA (CF(I, 45),I= 67, 72) /  -76,   68,  572,  -40,  104,  -58/
 
1280
      DATA (CF(I, 45),I= 73, 78) /  -40,  572, -184,  176,  -40, -184/
 
1281
      DATA (CF(I, 45),I= 79, 84) /  -40,  -76,  -76,   68,   68, -454/
 
1282
      DATA (CF(I, 45),I= 85, 90) /  428, -184,  -58,  -76,  -40,  -40/
 
1283
      DATA (CF(I, 45),I= 91, 96) /  -58,  -40,  104,   68,  572,  -76/
 
1284
      DATA (CF(I, 45),I= 97,102) /  -13,    5,  -76,   68,  -13,  -76/
 
1285
      DATA (CF(I, 45),I=103,108) /   68,  -76, -454,   68,  -40,  -76/
 
1286
      DATA (CF(I, 45),I=109,114) /   50, -454,   50,  -76,   68,  -13/
 
1287
      DATA (CF(I, 45),I=115,120) /  -58,  -40,  -58,  -13,  -76,    5/
 
1288
C     1 Tr(1,3,6,4,2,5)
 
1289
      DATA DENOM(46)/648/
 
1290
      DATA (CF(I, 46),I=  1,  6) /  -76,   68,  -40,  -76, -454,   68/
 
1291
      DATA (CF(I, 46),I=  7, 12) /  -58,  -76,  428, -184,  -40,  -40/
 
1292
      DATA (CF(I, 46),I= 13, 18) /  -40,  572, -184,  176,  -40, -184/
 
1293
      DATA (CF(I, 46),I= 19, 24) /   68,  104,  -76,  572,  -58,  -40/
 
1294
      DATA (CF(I, 46),I= 25, 30) /  428,  -76, -184,  428,   50,  -76/
 
1295
      DATA (CF(I, 46),I= 31, 36) /  -76,  -13,   50,   50,   68, -454/
 
1296
      DATA (CF(I, 46),I= 37, 42) /  428,  554,  -76,  572,  -13,   50/
 
1297
      DATA (CF(I, 46),I= 43, 48) /   50,  572, -454, 3641,   50, -454/
 
1298
      DATA (CF(I, 46),I= 49, 54) /    5,  -13,  -76,  -40,  -58,  -58/
 
1299
      DATA (CF(I, 46),I= 55, 60) /  -58,    5,  -13,  -13,  -76,   50/
 
1300
      DATA (CF(I, 46),I= 61, 66) /   50,  572,  -13,  554,  -76,  428/
 
1301
      DATA (CF(I, 46),I= 67, 72) /  -58,  104,  -40,  572,   68,  -76/
 
1302
      DATA (CF(I, 46),I= 73, 78) /  -76,   50,  428, -184,  -76,  428/
 
1303
      DATA (CF(I, 46),I= 79, 84) /  -58,  -13,    5,  -76,  -13,   50/
 
1304
      DATA (CF(I, 46),I= 85, 90) /  -76,  -40,  -58,  428,  -40, -184/
 
1305
      DATA (CF(I, 46),I= 91, 96) /    5,  -58,  -58,  -76,  -76,  428/
 
1306
      DATA (CF(I, 46),I= 97,102) /  -13,  -58,    5,  -76,  -58,  -40/
 
1307
      DATA (CF(I, 46),I=103,108) /  -76,  -40,   68, -454,  -76,   68/
 
1308
      DATA (CF(I, 46),I=109,114) /  -13,   68,  -76,   50, -454,   50/
 
1309
      DATA (CF(I, 46),I=115,120) /  -13,  -76,    5,  -13,   68,  -76/
 
1310
C     1 Tr(1,3,6,4,5,2)
 
1311
      DATA DENOM(47)/648/
 
1312
      DATA (CF(I, 47),I=  1,  6) /  -58,  -13,    5,  -76,  -13,   50/
 
1313
      DATA (CF(I, 47),I=  7, 12) /  -76,   50,  428, -184,  -76,  428/
 
1314
      DATA (CF(I, 47),I= 13, 18) /  -58,  428,  -76,  -40, -184,  -40/
 
1315
      DATA (CF(I, 47),I= 19, 24) /  -58,  -76,    5,  -58,  428,  -76/
 
1316
      DATA (CF(I, 47),I= 25, 30) /  428,  554,  -76,  572,  -13,   50/
 
1317
      DATA (CF(I, 47),I= 31, 36) / -184,  428,  428,  -76,  -76,   50/
 
1318
      DATA (CF(I, 47),I= 37, 42) /   50,   50,  -76,  -13, -454,   68/
 
1319
      DATA (CF(I, 47),I= 43, 48) /   50, -454,  572,   50, 3641, -454/
 
1320
      DATA (CF(I, 47),I= 49, 54) /  -40,  572, -184,  176,  -40, -184/
 
1321
      DATA (CF(I, 47),I= 55, 60) /  -40,  -76,  -76,   68,   68, -454/
 
1322
      DATA (CF(I, 47),I= 61, 66) /  428, -184,  -58,  -76,  -40,  -40/
 
1323
      DATA (CF(I, 47),I= 67, 72) /  -58,  -40,  104,   68,  572,  -76/
 
1324
      DATA (CF(I, 47),I= 73, 78) /  -13,  554,   50,  572,  428,  -76/
 
1325
      DATA (CF(I, 47),I= 79, 84) /  -13,  -13,  -58,    5,   50,  -76/
 
1326
      DATA (CF(I, 47),I= 85, 90) /  -76,  -40,    5,  -13,  -58,  -58/
 
1327
      DATA (CF(I, 47),I= 91, 96) /  -76,   68,  572,  -40,  104,  -58/
 
1328
      DATA (CF(I, 47),I= 97,102) /    5,  -13,  -13,  -76,  -76,   68/
 
1329
      DATA (CF(I, 47),I=103,108) /  -76,   68,  -40,  -76, -454,   68/
 
1330
      DATA (CF(I, 47),I=109,114) /  -58,  -40,  -58,  -13,  -76,    5/
 
1331
      DATA (CF(I, 47),I=115,120) /   50, -454,   50,  -76,   68,  -13/
 
1332
C     1 Tr(1,3,6,5,2,4)
 
1333
      DATA DENOM(48)/648/
 
1334
      DATA (CF(I, 48),I=  1,  6) /  -40,  -76,  -76,   68,   68, -454/
 
1335
      DATA (CF(I, 48),I=  7, 12) /  -40,  572, -184,  176,  -40, -184/
 
1336
      DATA (CF(I, 48),I= 13, 18) /  -58,  -76,  428, -184,  -40,  -40/
 
1337
      DATA (CF(I, 48),I= 19, 24) /  104,   68,  -58,  -40,  -76,  572/
 
1338
      DATA (CF(I, 48),I= 25, 30) / -184,  428,  428,  -76,  -76,   50/
 
1339
      DATA (CF(I, 48),I= 31, 36) /  428,  554,  -76,  572,  -13,   50/
 
1340
      DATA (CF(I, 48),I= 37, 42) /  -76,  -13,   50,   50,   68, -454/
 
1341
      DATA (CF(I, 48),I= 43, 48) /  572,   50,   50, -454, -454, 3641/
 
1342
      DATA (CF(I, 48),I= 49, 54) /  -76,   50,  428, -184,  -76,  428/
 
1343
      DATA (CF(I, 48),I= 55, 60) /  -58,  -13,    5,  -76,  -13,   50/
 
1344
      DATA (CF(I, 48),I= 61, 66) /  -76,  -40,  -58,  428,  -40, -184/
 
1345
      DATA (CF(I, 48),I= 67, 72) /    5,  -58,  -58,  -76,  -76,  428/
 
1346
      DATA (CF(I, 48),I= 73, 78) /    5,  -13,  -76,  -40,  -58,  -58/
 
1347
      DATA (CF(I, 48),I= 79, 84) /  -58,    5,  -13,  -13,  -76,   50/
 
1348
      DATA (CF(I, 48),I= 85, 90) /   50,  572,  -13,  554,  -76,  428/
 
1349
      DATA (CF(I, 48),I= 91, 96) /  -58,  104,  -40,  572,   68,  -76/
 
1350
      DATA (CF(I, 48),I= 97,102) /  -58,  -13,  -58,  -40,    5,  -76/
 
1351
      DATA (CF(I, 48),I=103,108) /  -40,  -76,  -76,   68,   68, -454/
 
1352
      DATA (CF(I, 48),I=109,114) /  -13,  -76,    5,  -13,   68,  -76/
 
1353
      DATA (CF(I, 48),I=115,120) /  -13,   68,  -76,   50, -454,   50/
 
1354
C     1 Tr(1,3,6,5,4,2)
 
1355
      DATA DENOM(49)/648/
 
1356
      DATA (CF(I, 49),I=  1,  6) /   50,  -76,   50, -454,  -13,   68/
 
1357
      DATA (CF(I, 49),I=  7, 12) / -454,   68,   68,  -76,  -76,  -40/
 
1358
      DATA (CF(I, 49),I= 13, 18) /  -76,   68,  -13,    5,  -76,  -13/
 
1359
      DATA (CF(I, 49),I= 19, 24) /    5,  -76,  -13,  -58,  -40,  -58/
 
1360
      DATA (CF(I, 49),I= 25, 30) /  572,  -40,  -76,   68,  -58,  104/
 
1361
      DATA (CF(I, 49),I= 31, 36) /   50,  -76,  -13,  -13,    5,  -58/
 
1362
      DATA (CF(I, 49),I= 37, 42) /  428,  -76,  554,  -13,  572,   50/
 
1363
      DATA (CF(I, 49),I= 43, 48) /  -58,  -58,  -13,    5,  -40,  -76/
 
1364
      DATA (CF(I, 49),I= 49, 54) / 3641, -454, -454,   50,   50,  572/
 
1365
      DATA (CF(I, 49),I= 55, 60) / -454,   68,   50,   50,  -13,  -76/
 
1366
      DATA (CF(I, 49),I= 61, 66) /   50,  -13,  572,  -76,  554,  428/
 
1367
      DATA (CF(I, 49),I= 67, 72) /   50,  -76,  -76,  428,  428, -184/
 
1368
      DATA (CF(I, 49),I= 73, 78) /  428,  -76,  -76,  -58,  -58,    5/
 
1369
      DATA (CF(I, 49),I= 79, 84) / -184,  -40,  428,  -58,  -40,  -76/
 
1370
      DATA (CF(I, 49),I= 85, 90) /   50,  -13,  -76,    5,  -13,  -58/
 
1371
      DATA (CF(I, 49),I= 91, 96) /  428,  -76, -184,  428,   50,  -76/
 
1372
      DATA (CF(I, 49),I= 97,102) /  -76,  572,   68,  104,  -40,  -58/
 
1373
      DATA (CF(I, 49),I=103,108) /  -40,  -40,  -76,  -58, -184,  428/
 
1374
      DATA (CF(I, 49),I=109,114) / -454,   68,   68,  -76,  -76,  -40/
 
1375
      DATA (CF(I, 49),I=115,120) / -184,  -40,  176, -184,  572,  -40/
 
1376
C     1 Tr(1,4,2,3,5,6)
 
1377
      DATA DENOM(50)/648/
 
1378
      DATA (CF(I, 50),I=  1,  6) /  -76,   50,  -13,   68,   50, -454/
 
1379
      DATA (CF(I, 50),I=  7, 12) /   68, -454,  -76,  -40,   68,  -76/
 
1380
      DATA (CF(I, 50),I= 13, 18) /    5,  -76,  -13,  -58,  -40,  -58/
 
1381
      DATA (CF(I, 50),I= 19, 24) /  -76,   68,  -13,    5,  -76,  -13/
 
1382
      DATA (CF(I, 50),I= 25, 30) /  -40,  572,  -58,  104,  -76,   68/
 
1383
      DATA (CF(I, 50),I= 31, 36) /  -76,   50,    5,  -58,  -13,  -13/
 
1384
      DATA (CF(I, 50),I= 37, 42) /  -58,  -58,  -13,    5,  -40,  -76/
 
1385
      DATA (CF(I, 50),I= 43, 48) /  428,  -76,  554,  -13,  572,   50/
 
1386
      DATA (CF(I, 50),I= 49, 54) / -454, 3641,   50,  572, -454,   50/
 
1387
      DATA (CF(I, 50),I= 55, 60) /   68, -454,  -13,  -76,   50,   50/
 
1388
      DATA (CF(I, 50),I= 61, 66) /   50,  -76,  -76,  428,  428, -184/
 
1389
      DATA (CF(I, 50),I= 67, 72) /   50,  -13,  572,  -76,  554,  428/
 
1390
      DATA (CF(I, 50),I= 73, 78) /  -76,  572,   68,  104,  -40,  -58/
 
1391
      DATA (CF(I, 50),I= 79, 84) /  -40,  -40,  -76,  -58, -184,  428/
 
1392
      DATA (CF(I, 50),I= 85, 90) / -454,   68,   68,  -76,  -76,  -40/
 
1393
      DATA (CF(I, 50),I= 91, 96) / -184,  -40,  176, -184,  572,  -40/
 
1394
      DATA (CF(I, 50),I= 97,102) /  428,  -76,  -76,  -58,  -58,    5/
 
1395
      DATA (CF(I, 50),I=103,108) / -184,  -40,  428,  -58,  -40,  -76/
 
1396
      DATA (CF(I, 50),I=109,114) /   50,  -13,  -76,    5,  -13,  -58/
 
1397
      DATA (CF(I, 50),I=115,120) /  428,  -76, -184,  428,   50,  -76/
 
1398
C     1 Tr(1,4,2,3,6,5)
 
1399
      DATA DENOM(51)/648/
 
1400
      DATA (CF(I, 51),I=  1,  6) /  -13,    5,  -76,   68,  -13,  -76/
 
1401
      DATA (CF(I, 51),I=  7, 12) /   68,  -76, -454,   68,  -40,  -76/
 
1402
      DATA (CF(I, 51),I= 13, 18) /   50, -454,   50,  -76,   68,  -13/
 
1403
      DATA (CF(I, 51),I= 19, 24) /  -58,  -40,  -58,  -13,  -76,    5/
 
1404
      DATA (CF(I, 51),I= 25, 30) /  -76,  -58,  428,  -76,    5,  -58/
 
1405
      DATA (CF(I, 51),I= 31, 36) /   50,  -13,  -76,    5,  -13,  -58/
 
1406
      DATA (CF(I, 51),I= 37, 42) / -184,  -40,  428,  -58,  -40,  -76/
 
1407
      DATA (CF(I, 51),I= 43, 48) /  -76,  428,   50,  -76, -184,  428/
 
1408
      DATA (CF(I, 51),I= 49, 54) / -454,   50, 3641, -454,  572,   50/
 
1409
      DATA (CF(I, 51),I= 55, 60) /   50,  -13,  572,  -76,  554,  428/
 
1410
      DATA (CF(I, 51),I= 61, 66) / -454,   68,   50,   50,  -13,  -76/
 
1411
      DATA (CF(I, 51),I= 67, 72) /  -76,   50,  428, -184,  -76,  428/
 
1412
      DATA (CF(I, 51),I= 73, 78) /  -76,   68,  572,  -40,  104,  -58/
 
1413
      DATA (CF(I, 51),I= 79, 84) /  428,  -76,  554,  -13,  572,   50/
 
1414
      DATA (CF(I, 51),I= 85, 90) /   50,  -76,  -13,  -13,    5,  -58/
 
1415
      DATA (CF(I, 51),I= 91, 96) /  -58,  -58,  -40,  -76,  -13,    5/
 
1416
      DATA (CF(I, 51),I= 97,102) /  -58,  -40,  104,   68,  572,  -76/
 
1417
      DATA (CF(I, 51),I=103,108) /  -40, -184,  572,  -40,  176, -184/
 
1418
      DATA (CF(I, 51),I=109,114) /   68, -454,  -76,  -40,   68,  -76/
 
1419
      DATA (CF(I, 51),I=115,120) /  -40,  -40, -184,  428,  -76,  -58/
 
1420
C     1 Tr(1,4,2,5,3,6)
 
1421
      DATA DENOM(52)/648/
 
1422
      DATA (CF(I, 52),I=  1,  6) /  -13,  -58,    5,  -76,  -58,  -40/
 
1423
      DATA (CF(I, 52),I=  7, 12) /  -76,  -40,   68, -454,  -76,   68/
 
1424
      DATA (CF(I, 52),I= 13, 18) /  -13,   68,  -76,   50, -454,   50/
 
1425
      DATA (CF(I, 52),I= 19, 24) /  -13,  -76,    5,  -13,   68,  -76/
 
1426
      DATA (CF(I, 52),I= 25, 30) /   68,  104,  -76,  572,  -58,  -40/
 
1427
      DATA (CF(I, 52),I= 31, 36) / -454,   68,   68,  -76,  -76,  -40/
 
1428
      DATA (CF(I, 52),I= 37, 42) /  -40,  -40,  -76,  -58, -184,  428/
 
1429
      DATA (CF(I, 52),I= 43, 48) /  -40, -184,  572,  -40,  176, -184/
 
1430
      DATA (CF(I, 52),I= 49, 54) /   50,  572, -454, 3641,   50, -454/
 
1431
      DATA (CF(I, 52),I= 55, 60) /   50,  -76,  -76,  428,  428, -184/
 
1432
      DATA (CF(I, 52),I= 61, 66) /   68, -454,  -13,  -76,   50,   50/
 
1433
      DATA (CF(I, 52),I= 67, 72) /  -13,   50,  554,  428,  572,  -76/
 
1434
      DATA (CF(I, 52),I= 73, 78) /  -58,  104,  -40,  572,   68,  -76/
 
1435
      DATA (CF(I, 52),I= 79, 84) /  -58,  -58,  -13,    5,  -40,  -76/
 
1436
      DATA (CF(I, 52),I= 85, 90) /  -76,   50,    5,  -58,  -13,  -13/
 
1437
      DATA (CF(I, 52),I= 91, 96) /  -76,  428,  572,   50,  554,  -13/
 
1438
      DATA (CF(I, 52),I= 97,102) /    5,  -58,  -58,  -76,  -76,  428/
 
1439
      DATA (CF(I, 52),I=103,108) /  -76,  428,   50,  -76, -184,  428/
 
1440
      DATA (CF(I, 52),I=109,114) /  -13,   50,  -13,  -58,  -76,    5/
 
1441
      DATA (CF(I, 52),I=115,120) /  -40, -184,  -40,  -76,  428,  -58/
 
1442
C     1 Tr(1,4,2,5,6,3)
 
1443
      DATA DENOM(53)/648/
 
1444
      DATA (CF(I, 53),I=  1,  6) /    5,  -13,  -13,  -76,  -76,   68/
 
1445
      DATA (CF(I, 53),I=  7, 12) /  -76,   68,  -40,  -76, -454,   68/
 
1446
      DATA (CF(I, 53),I= 13, 18) /  -58,  -40,  -58,  -13,  -76,    5/
 
1447
      DATA (CF(I, 53),I= 19, 24) /   50, -454,   50,  -76,   68,  -13/
 
1448
      DATA (CF(I, 53),I= 25, 30) /  -58,  -76,    5,  -58,  428,  -76/
 
1449
      DATA (CF(I, 53),I= 31, 36) /  -13,   50,  -13,  -58,  -76,    5/
 
1450
      DATA (CF(I, 53),I= 37, 42) /  -76,  428,   50,  -76, -184,  428/
 
1451
      DATA (CF(I, 53),I= 43, 48) / -184,  -40,  428,  -58,  -40,  -76/
 
1452
      DATA (CF(I, 53),I= 49, 54) /   50, -454,  572,   50, 3641, -454/
 
1453
      DATA (CF(I, 53),I= 55, 60) /  -13,   50,  554,  428,  572,  -76/
 
1454
      DATA (CF(I, 53),I= 61, 66) /  -76,   50,  428, -184,  -76,  428/
 
1455
      DATA (CF(I, 53),I= 67, 72) / -454,   68,   50,   50,  -13,  -76/
 
1456
      DATA (CF(I, 53),I= 73, 78) /  -58,  -40,  104,   68,  572,  -76/
 
1457
      DATA (CF(I, 53),I= 79, 84) /  -40, -184,  572,  -40,  176, -184/
 
1458
      DATA (CF(I, 53),I= 85, 90) /   68, -454,  -76,  -40,   68,  -76/
 
1459
      DATA (CF(I, 53),I= 91, 96) /  -40,  -40, -184,  428,  -76,  -58/
 
1460
      DATA (CF(I, 53),I= 97,102) /  -76,   68,  572,  -40,  104,  -58/
 
1461
      DATA (CF(I, 53),I=103,108) /  428,  -76,  554,  -13,  572,   50/
 
1462
      DATA (CF(I, 53),I=109,114) /   50,  -76,  -13,  -13,    5,  -58/
 
1463
      DATA (CF(I, 53),I=115,120) /  -58,  -58,  -40,  -76,  -13,    5/
 
1464
C     1 Tr(1,4,2,6,3,5)
 
1465
      DATA DENOM(54)/648/
 
1466
      DATA (CF(I, 54),I=  1,  6) /  -58,  -13,  -58,  -40,    5,  -76/
 
1467
      DATA (CF(I, 54),I=  7, 12) /  -40,  -76,  -76,   68,   68, -454/
 
1468
      DATA (CF(I, 54),I= 13, 18) /  -13,  -76,    5,  -13,   68,  -76/
 
1469
      DATA (CF(I, 54),I= 19, 24) /  -13,   68,  -76,   50, -454,   50/
 
1470
      DATA (CF(I, 54),I= 25, 30) /  104,   68,  -58,  -40,  -76,  572/
 
1471
      DATA (CF(I, 54),I= 31, 36) /   68, -454,  -76,  -40,   68,  -76/
 
1472
      DATA (CF(I, 54),I= 37, 42) /  -40, -184,  572,  -40,  176, -184/
 
1473
      DATA (CF(I, 54),I= 43, 48) /  -40,  -40,  -76,  -58, -184,  428/
 
1474
      DATA (CF(I, 54),I= 49, 54) /  572,   50,   50, -454, -454, 3641/
 
1475
      DATA (CF(I, 54),I= 55, 60) /  -76,   50,  428, -184,  -76,  428/
 
1476
      DATA (CF(I, 54),I= 61, 66) /  -13,   50,  554,  428,  572,  -76/
 
1477
      DATA (CF(I, 54),I= 67, 72) /   68, -454,  -13,  -76,   50,   50/
 
1478
      DATA (CF(I, 54),I= 73, 78) /    5,  -58,  -58,  -76,  -76,  428/
 
1479
      DATA (CF(I, 54),I= 79, 84) /  -76,  428,   50,  -76, -184,  428/
 
1480
      DATA (CF(I, 54),I= 85, 90) /  -13,   50,  -13,  -58,  -76,    5/
 
1481
      DATA (CF(I, 54),I= 91, 96) /  -40, -184,  -40,  -76,  428,  -58/
 
1482
      DATA (CF(I, 54),I= 97,102) /  -58,  104,  -40,  572,   68,  -76/
 
1483
      DATA (CF(I, 54),I=103,108) /  -58,  -58,  -13,    5,  -40,  -76/
 
1484
      DATA (CF(I, 54),I=109,114) /  -76,   50,    5,  -58,  -13,  -13/
 
1485
      DATA (CF(I, 54),I=115,120) /  -76,  428,  572,   50,  554,  -13/
 
1486
C     1 Tr(1,4,2,6,5,3)
 
1487
      DATA DENOM(55)/648/
 
1488
      DATA (CF(I, 55),I=  1,  6) /  572,  -40,  -76,   68,  -58,  104/
 
1489
      DATA (CF(I, 55),I=  7, 12) /   50,  -76,  -13,  -13,    5,  -58/
 
1490
      DATA (CF(I, 55),I= 13, 18) /  428,  -76,  554,  -13,  572,   50/
 
1491
      DATA (CF(I, 55),I= 19, 24) /  -58,  -58,  -13,    5,  -40,  -76/
 
1492
      DATA (CF(I, 55),I= 25, 30) /   50,  -76,   50, -454,  -13,   68/
 
1493
      DATA (CF(I, 55),I= 31, 36) / -454,   68,   68,  -76,  -76,  -40/
 
1494
      DATA (CF(I, 55),I= 37, 42) /  -76,   68,  -13,    5,  -76,  -13/
 
1495
      DATA (CF(I, 55),I= 43, 48) /    5,  -76,  -13,  -58,  -40,  -58/
 
1496
      DATA (CF(I, 55),I= 49, 54) / -454,   68,   50,   50,  -13,  -76/
 
1497
      DATA (CF(I, 55),I= 55, 60) / 3641, -454, -454,   50,   50,  572/
 
1498
      DATA (CF(I, 55),I= 61, 66) /  572,  -76,   50,  -13,  428,  554/
 
1499
      DATA (CF(I, 55),I= 67, 72) /  -76,  428,   50,  -76, -184,  428/
 
1500
      DATA (CF(I, 55),I= 73, 78) / -184,  -40,  428,  -58,  -40,  -76/
 
1501
      DATA (CF(I, 55),I= 79, 84) /  428,  -76,  -76,  -58,  -58,    5/
 
1502
      DATA (CF(I, 55),I= 85, 90) /  -76,    5,   50,  -13,  -58,  -13/
 
1503
      DATA (CF(I, 55),I= 91, 96) / -184,  428,  428,  -76,  -76,   50/
 
1504
      DATA (CF(I, 55),I= 97,102) /  -40,  -40,  -76,  -58, -184,  428/
 
1505
      DATA (CF(I, 55),I=103,108) /  -76,  572,   68,  104,  -40,  -58/
 
1506
      DATA (CF(I, 55),I=109,114) /   68,  -76, -454,   68,  -40,  -76/
 
1507
      DATA (CF(I, 55),I=115,120) /  176, -184, -184,  -40,  -40,  572/
 
1508
C     1 Tr(1,4,3,2,5,6)
 
1509
      DATA DENOM(56)/648/
 
1510
      DATA (CF(I, 56),I=  1,  6) /  -40,  572,  -58,  104,  -76,   68/
 
1511
      DATA (CF(I, 56),I=  7, 12) /  -76,   50,    5,  -58,  -13,  -13/
 
1512
      DATA (CF(I, 56),I= 13, 18) /  -58,  -58,  -13,    5,  -40,  -76/
 
1513
      DATA (CF(I, 56),I= 19, 24) /  428,  -76,  554,  -13,  572,   50/
 
1514
      DATA (CF(I, 56),I= 25, 30) /  -76,   50,  -13,   68,   50, -454/
 
1515
      DATA (CF(I, 56),I= 31, 36) /   68, -454,  -76,  -40,   68,  -76/
 
1516
      DATA (CF(I, 56),I= 37, 42) /    5,  -76,  -13,  -58,  -40,  -58/
 
1517
      DATA (CF(I, 56),I= 43, 48) /  -76,   68,  -13,    5,  -76,  -13/
 
1518
      DATA (CF(I, 56),I= 49, 54) /   68, -454,  -13,  -76,   50,   50/
 
1519
      DATA (CF(I, 56),I= 55, 60) / -454, 3641,   50,  572, -454,   50/
 
1520
      DATA (CF(I, 56),I= 61, 66) /  -76,  428,   50,  -76, -184,  428/
 
1521
      DATA (CF(I, 56),I= 67, 72) /  572,  -76,   50,  -13,  428,  554/
 
1522
      DATA (CF(I, 56),I= 73, 78) /  -40,  -40,  -76,  -58, -184,  428/
 
1523
      DATA (CF(I, 56),I= 79, 84) /  -76,  572,   68,  104,  -40,  -58/
 
1524
      DATA (CF(I, 56),I= 85, 90) /   68,  -76, -454,   68,  -40,  -76/
 
1525
      DATA (CF(I, 56),I= 91, 96) /  176, -184, -184,  -40,  -40,  572/
 
1526
      DATA (CF(I, 56),I= 97,102) / -184,  -40,  428,  -58,  -40,  -76/
 
1527
      DATA (CF(I, 56),I=103,108) /  428,  -76,  -76,  -58,  -58,    5/
 
1528
      DATA (CF(I, 56),I=109,114) /  -76,    5,   50,  -13,  -58,  -13/
 
1529
      DATA (CF(I, 56),I=115,120) / -184,  428,  428,  -76,  -76,   50/
 
1530
C     1 Tr(1,4,3,2,6,5)
 
1531
      DATA DENOM(57)/648/
 
1532
      DATA (CF(I, 57),I=  1,  6) /  -76,  -58,  428,  -76,    5,  -58/
 
1533
      DATA (CF(I, 57),I=  7, 12) /   50,  -13,  -76,    5,  -13,  -58/
 
1534
      DATA (CF(I, 57),I= 13, 18) / -184,  -40,  428,  -58,  -40,  -76/
 
1535
      DATA (CF(I, 57),I= 19, 24) /  -76,  428,   50,  -76, -184,  428/
 
1536
      DATA (CF(I, 57),I= 25, 30) /  -13,    5,  -76,   68,  -13,  -76/
 
1537
      DATA (CF(I, 57),I= 31, 36) /   68,  -76, -454,   68,  -40,  -76/
 
1538
      DATA (CF(I, 57),I= 37, 42) /   50, -454,   50,  -76,   68,  -13/
 
1539
      DATA (CF(I, 57),I= 43, 48) /  -58,  -40,  -58,  -13,  -76,    5/
 
1540
      DATA (CF(I, 57),I= 49, 54) /   50,  -13,  572,  -76,  554,  428/
 
1541
      DATA (CF(I, 57),I= 55, 60) / -454,   50, 3641, -454,  572,   50/
 
1542
      DATA (CF(I, 57),I= 61, 66) /   50,   50, -454,   68,  -76,  -13/
 
1543
      DATA (CF(I, 57),I= 67, 72) /  428, -184,  -76,   50,  428,  -76/
 
1544
      DATA (CF(I, 57),I= 73, 78) /  428,  -76,  554,  -13,  572,   50/
 
1545
      DATA (CF(I, 57),I= 79, 84) /  -76,   68,  572,  -40,  104,  -58/
 
1546
      DATA (CF(I, 57),I= 85, 90) /  -13,  -13,   50,  -76,  -58,    5/
 
1547
      DATA (CF(I, 57),I= 91, 96) /  -40,  -76,  -58,  -58,    5,  -13/
 
1548
      DATA (CF(I, 57),I= 97,102) /  -40, -184,  572,  -40,  176, -184/
 
1549
      DATA (CF(I, 57),I=103,108) /  -58,  -40,  104,   68,  572,  -76/
 
1550
      DATA (CF(I, 57),I=109,114) /  -76,  -40,   68, -454,  -76,   68/
 
1551
      DATA (CF(I, 57),I=115,120) / -184,  428,  -40,  -40,  -58,  -76/
 
1552
C     1 Tr(1,4,3,5,2,6)
 
1553
      DATA DENOM(58)/648/
 
1554
      DATA (CF(I, 58),I=  1,  6) /   68,  104,  -76,  572,  -58,  -40/
 
1555
      DATA (CF(I, 58),I=  7, 12) / -454,   68,   68,  -76,  -76,  -40/
 
1556
      DATA (CF(I, 58),I= 13, 18) /  -40,  -40,  -76,  -58, -184,  428/
 
1557
      DATA (CF(I, 58),I= 19, 24) /  -40, -184,  572,  -40,  176, -184/
 
1558
      DATA (CF(I, 58),I= 25, 30) /  -13,  -58,    5,  -76,  -58,  -40/
 
1559
      DATA (CF(I, 58),I= 31, 36) /  -76,  -40,   68, -454,  -76,   68/
 
1560
      DATA (CF(I, 58),I= 37, 42) /  -13,   68,  -76,   50, -454,   50/
 
1561
      DATA (CF(I, 58),I= 43, 48) /  -13,  -76,    5,  -13,   68,  -76/
 
1562
      DATA (CF(I, 58),I= 49, 54) /   50,  -76,  -76,  428,  428, -184/
 
1563
      DATA (CF(I, 58),I= 55, 60) /   50,  572, -454, 3641,   50, -454/
 
1564
      DATA (CF(I, 58),I= 61, 66) /  -13,  -76,   68, -454,   50,   50/
 
1565
      DATA (CF(I, 58),I= 67, 72) /  554,  428,  -13,   50,  -76,  572/
 
1566
      DATA (CF(I, 58),I= 73, 78) /  -58,  -58,  -13,    5,  -40,  -76/
 
1567
      DATA (CF(I, 58),I= 79, 84) /  -58,  104,  -40,  572,   68,  -76/
 
1568
      DATA (CF(I, 58),I= 85, 90) /    5,  -58,  -76,   50,  -13,  -13/
 
1569
      DATA (CF(I, 58),I= 91, 96) /  572,   50,  -76,  428,  -13,  554/
 
1570
      DATA (CF(I, 58),I= 97,102) /  -76,  428,   50,  -76, -184,  428/
 
1571
      DATA (CF(I, 58),I=103,108) /    5,  -58,  -58,  -76,  -76,  428/
 
1572
      DATA (CF(I, 58),I=109,114) /  -13,  -58,  -13,   50,    5,  -76/
 
1573
      DATA (CF(I, 58),I=115,120) /  -40,  -76,  -40, -184,  -58,  428/
 
1574
C     1 Tr(1,4,3,5,6,2)
 
1575
      DATA DENOM(59)/648/
 
1576
      DATA (CF(I, 59),I=  1,  6) /  -58,  -76,    5,  -58,  428,  -76/
 
1577
      DATA (CF(I, 59),I=  7, 12) /  -13,   50,  -13,  -58,  -76,    5/
 
1578
      DATA (CF(I, 59),I= 13, 18) /  -76,  428,   50,  -76, -184,  428/
 
1579
      DATA (CF(I, 59),I= 19, 24) / -184,  -40,  428,  -58,  -40,  -76/
 
1580
      DATA (CF(I, 59),I= 25, 30) /    5,  -13,  -13,  -76,  -76,   68/
 
1581
      DATA (CF(I, 59),I= 31, 36) /  -76,   68,  -40,  -76, -454,   68/
 
1582
      DATA (CF(I, 59),I= 37, 42) /  -58,  -40,  -58,  -13,  -76,    5/
 
1583
      DATA (CF(I, 59),I= 43, 48) /   50, -454,   50,  -76,   68,  -13/
 
1584
      DATA (CF(I, 59),I= 49, 54) /  -13,   50,  554,  428,  572,  -76/
 
1585
      DATA (CF(I, 59),I= 55, 60) /   50, -454,  572,   50, 3641, -454/
 
1586
      DATA (CF(I, 59),I= 61, 66) /  428, -184,  -76,   50,  428,  -76/
 
1587
      DATA (CF(I, 59),I= 67, 72) /   50,   50, -454,   68,  -76,  -13/
 
1588
      DATA (CF(I, 59),I= 73, 78) /  -40, -184,  572,  -40,  176, -184/
 
1589
      DATA (CF(I, 59),I= 79, 84) /  -58,  -40,  104,   68,  572,  -76/
 
1590
      DATA (CF(I, 59),I= 85, 90) /  -76,  -40,   68, -454,  -76,   68/
 
1591
      DATA (CF(I, 59),I= 91, 96) / -184,  428,  -40,  -40,  -58,  -76/
 
1592
      DATA (CF(I, 59),I= 97,102) /  428,  -76,  554,  -13,  572,   50/
 
1593
      DATA (CF(I, 59),I=103,108) /  -76,   68,  572,  -40,  104,  -58/
 
1594
      DATA (CF(I, 59),I=109,114) /  -13,  -13,   50,  -76,  -58,    5/
 
1595
      DATA (CF(I, 59),I=115,120) /  -40,  -76,  -58,  -58,    5,  -13/
 
1596
C     1 Tr(1,4,3,6,2,5)
 
1597
      DATA DENOM(60)/648/
 
1598
      DATA (CF(I, 60),I=  1,  6) /  104,   68,  -58,  -40,  -76,  572/
 
1599
      DATA (CF(I, 60),I=  7, 12) /   68, -454,  -76,  -40,   68,  -76/
 
1600
      DATA (CF(I, 60),I= 13, 18) /  -40, -184,  572,  -40,  176, -184/
 
1601
      DATA (CF(I, 60),I= 19, 24) /  -40,  -40,  -76,  -58, -184,  428/
 
1602
      DATA (CF(I, 60),I= 25, 30) /  -58,  -13,  -58,  -40,    5,  -76/
 
1603
      DATA (CF(I, 60),I= 31, 36) /  -40,  -76,  -76,   68,   68, -454/
 
1604
      DATA (CF(I, 60),I= 37, 42) /  -13,  -76,    5,  -13,   68,  -76/
 
1605
      DATA (CF(I, 60),I= 43, 48) /  -13,   68,  -76,   50, -454,   50/
 
1606
      DATA (CF(I, 60),I= 49, 54) /  -76,   50,  428, -184,  -76,  428/
 
1607
      DATA (CF(I, 60),I= 55, 60) /  572,   50,   50, -454, -454, 3641/
 
1608
      DATA (CF(I, 60),I= 61, 66) /  554,  428,  -13,   50,  -76,  572/
 
1609
      DATA (CF(I, 60),I= 67, 72) /  -13,  -76,   68, -454,   50,   50/
 
1610
      DATA (CF(I, 60),I= 73, 78) /  -76,  428,   50,  -76, -184,  428/
 
1611
      DATA (CF(I, 60),I= 79, 84) /    5,  -58,  -58,  -76,  -76,  428/
 
1612
      DATA (CF(I, 60),I= 85, 90) /  -13,  -58,  -13,   50,    5,  -76/
 
1613
      DATA (CF(I, 60),I= 91, 96) /  -40,  -76,  -40, -184,  -58,  428/
 
1614
      DATA (CF(I, 60),I= 97,102) /  -58,  -58,  -13,    5,  -40,  -76/
 
1615
      DATA (CF(I, 60),I=103,108) /  -58,  104,  -40,  572,   68,  -76/
 
1616
      DATA (CF(I, 60),I=109,114) /    5,  -58,  -76,   50,  -13,  -13/
 
1617
      DATA (CF(I, 60),I=115,120) /  572,   50,  -76,  428,  -13,  554/
 
1618
C     1 Tr(1,4,3,6,5,2)
 
1619
      DATA DENOM(61)/648/
 
1620
      DATA (CF(I, 61),I=  1,  6) /  554,  -13,  428,  -76,   50,  572/
 
1621
      DATA (CF(I, 61),I=  7, 12) /  -13,  -13,   50,  -76,  -58,    5/
 
1622
      DATA (CF(I, 61),I= 13, 18) /  -76,   68,  572,  -40,  104,  -58/
 
1623
      DATA (CF(I, 61),I= 19, 24) /  -76,  -40,    5,  -13,  -58,  -58/
 
1624
      DATA (CF(I, 61),I= 25, 30) /  428,  -58, -184,  -40,  -76,  -40/
 
1625
      DATA (CF(I, 61),I= 31, 36) /  -76,    5,   50,  -13,  -58,  -13/
 
1626
      DATA (CF(I, 61),I= 37, 42) /  428,  -76,  -76,  -58,  -58,    5/
 
1627
      DATA (CF(I, 61),I= 43, 48) /  428, -184,  -76,   50,  428,  -76/
 
1628
      DATA (CF(I, 61),I= 49, 54) /   50,   50, -454,   68,  -76,  -13/
 
1629
      DATA (CF(I, 61),I= 55, 60) /  572,  -76,   50,  -13,  428,  554/
 
1630
      DATA (CF(I, 61),I= 61, 66) / 3641, -454, -454,   50,   50,  572/
 
1631
      DATA (CF(I, 61),I= 67, 72) /  428,  -76, -184,  428,   50,  -76/
 
1632
      DATA (CF(I, 61),I= 73, 78) /   50, -454,   50,  -76,   68,  -13/
 
1633
      DATA (CF(I, 61),I= 79, 84) /  -76,   68,  -13,    5,  -76,  -13/
 
1634
      DATA (CF(I, 61),I= 85, 90) / -454,   68,   68,  -76,  -76,  -40/
 
1635
      DATA (CF(I, 61),I= 91, 96) /  -76,    5,  -40,  -58,  -13,  -58/
 
1636
      DATA (CF(I, 61),I= 97,102) /  428, -184,  -58,  -76,  -40,  -40/
 
1637
      DATA (CF(I, 61),I=103,108) / -184,  176,  -40,  572, -184,  -40/
 
1638
      DATA (CF(I, 61),I=109,114) /  -76,   68,  -40,  -76, -454,   68/
 
1639
      DATA (CF(I, 61),I=115,120) /  572,  -76,  -40,  -58,   68,  104/
 
1640
C     1 Tr(1,4,5,2,3,6)
 
1641
      DATA DENOM(62)/648/
 
1642
      DATA (CF(I, 62),I=  1,  6) /  -13,    5,  -58,  -58,  -76,  -40/
 
1643
      DATA (CF(I, 62),I=  7, 12) /    5,  -58,  -76,   50,  -13,  -13/
 
1644
      DATA (CF(I, 62),I= 13, 18) /  -58,  104,  -40,  572,   68,  -76/
 
1645
      DATA (CF(I, 62),I= 19, 24) /   50,  572,  -13,  554,  -76,  428/
 
1646
      DATA (CF(I, 62),I= 25, 30) /  -76,  -58,  -40,  -40,  428, -184/
 
1647
      DATA (CF(I, 62),I= 31, 36) /   68,  -76, -454,   68,  -40,  -76/
 
1648
      DATA (CF(I, 62),I= 37, 42) /  -76,  572,   68,  104,  -40,  -58/
 
1649
      DATA (CF(I, 62),I= 43, 48) / -184,  176,  -40,  572, -184,  -40/
 
1650
      DATA (CF(I, 62),I= 49, 54) /  -13,  -76,   68, -454,   50,   50/
 
1651
      DATA (CF(I, 62),I= 55, 60) /  -76,  428,   50,  -76, -184,  428/
 
1652
      DATA (CF(I, 62),I= 61, 66) / -454, 3641,   50,  572, -454,   50/
 
1653
      DATA (CF(I, 62),I= 67, 72) /  -76,  572,  428,  554,   50,  -13/
 
1654
      DATA (CF(I, 62),I= 73, 78) /  -13,   68,  -76,   50, -454,   50/
 
1655
      DATA (CF(I, 62),I= 79, 84) /    5,  -76,  -13,  -58,  -40,  -58/
 
1656
      DATA (CF(I, 62),I= 85, 90) /   68, -454,  -76,  -40,   68,  -76/
 
1657
      DATA (CF(I, 62),I= 91, 96) /   68,  -76,  -76,  -13,  -13,    5/
 
1658
      DATA (CF(I, 62),I= 97,102) /  -76,  -40,  -58,  428,  -40, -184/
 
1659
      DATA (CF(I, 62),I=103,108) /  428, -184,  -76,   50,  428,  -76/
 
1660
      DATA (CF(I, 62),I=109,114) /    5,  -76,  -58,  -13,   50,  -13/
 
1661
      DATA (CF(I, 62),I=115,120) /  -76,  428,  -58,    5,  -76,  -58/
 
1662
C     1 Tr(1,4,5,2,6,3)
 
1663
      DATA DENOM(63)/648/
 
1664
      DATA (CF(I, 63),I=  1,  6) /  428,  -58, -184,  -40,  -76,  -40/
 
1665
      DATA (CF(I, 63),I=  7, 12) /  -76,    5,   50,  -13,  -58,  -13/
 
1666
      DATA (CF(I, 63),I= 13, 18) /  428,  -76,  -76,  -58,  -58,    5/
 
1667
      DATA (CF(I, 63),I= 19, 24) /  428, -184,  -76,   50,  428,  -76/
 
1668
      DATA (CF(I, 63),I= 25, 30) /  554,  -13,  428,  -76,   50,  572/
 
1669
      DATA (CF(I, 63),I= 31, 36) /  -13,  -13,   50,  -76,  -58,    5/
 
1670
      DATA (CF(I, 63),I= 37, 42) /  -76,   68,  572,  -40,  104,  -58/
 
1671
      DATA (CF(I, 63),I= 43, 48) /  -76,  -40,    5,  -13,  -58,  -58/
 
1672
      DATA (CF(I, 63),I= 49, 54) /  572,  -76,   50,  -13,  428,  554/
 
1673
      DATA (CF(I, 63),I= 55, 60) /   50,   50, -454,   68,  -76,  -13/
 
1674
      DATA (CF(I, 63),I= 61, 66) / -454,   50, 3641, -454,  572,   50/
 
1675
      DATA (CF(I, 63),I= 67, 72) / -184,  428,  428,  -76,  -76,   50/
 
1676
      DATA (CF(I, 63),I= 73, 78) /  -76,   68,  -13,    5,  -76,  -13/
 
1677
      DATA (CF(I, 63),I= 79, 84) /   50, -454,   50,  -76,   68,  -13/
 
1678
      DATA (CF(I, 63),I= 85, 90) /   68,  -76, -454,   68,  -40,  -76/
 
1679
      DATA (CF(I, 63),I= 91, 96) /  -40,  -58,  -76,    5,  -58,  -13/
 
1680
      DATA (CF(I, 63),I= 97,102) / -184,  176,  -40,  572, -184,  -40/
 
1681
      DATA (CF(I, 63),I=103,108) /  428, -184,  -58,  -76,  -40,  -40/
 
1682
      DATA (CF(I, 63),I=109,114) /  -40,  -76,  -76,   68,   68, -454/
 
1683
      DATA (CF(I, 63),I=115,120) /  -40,  -58,  572,  -76,  104,   68/
 
1684
C     1 Tr(1,4,5,3,2,6)
 
1685
      DATA DENOM(64)/648/
 
1686
      DATA (CF(I, 64),I=  1,  6) /  -76,  -58,  -40,  -40,  428, -184/
 
1687
      DATA (CF(I, 64),I=  7, 12) /   68,  -76, -454,   68,  -40,  -76/
 
1688
      DATA (CF(I, 64),I= 13, 18) /  -76,  572,   68,  104,  -40,  -58/
 
1689
      DATA (CF(I, 64),I= 19, 24) / -184,  176,  -40,  572, -184,  -40/
 
1690
      DATA (CF(I, 64),I= 25, 30) /  -13,    5,  -58,  -58,  -76,  -40/
 
1691
      DATA (CF(I, 64),I= 31, 36) /    5,  -58,  -76,   50,  -13,  -13/
 
1692
      DATA (CF(I, 64),I= 37, 42) /  -58,  104,  -40,  572,   68,  -76/
 
1693
      DATA (CF(I, 64),I= 43, 48) /   50,  572,  -13,  554,  -76,  428/
 
1694
      DATA (CF(I, 64),I= 49, 54) /  -76,  428,   50,  -76, -184,  428/
 
1695
      DATA (CF(I, 64),I= 55, 60) /  -13,  -76,   68, -454,   50,   50/
 
1696
      DATA (CF(I, 64),I= 61, 66) /   50,  572, -454, 3641,   50, -454/
 
1697
      DATA (CF(I, 64),I= 67, 72) /  428,  554,  -76,  572,  -13,   50/
 
1698
      DATA (CF(I, 64),I= 73, 78) /    5,  -76,  -13,  -58,  -40,  -58/
 
1699
      DATA (CF(I, 64),I= 79, 84) /  -13,   68,  -76,   50, -454,   50/
 
1700
      DATA (CF(I, 64),I= 85, 90) /  -76,  -40,   68, -454,  -76,   68/
 
1701
      DATA (CF(I, 64),I= 91, 96) /  -76,  -13,   68,  -76,    5,  -13/
 
1702
      DATA (CF(I, 64),I= 97,102) /  428, -184,  -76,   50,  428,  -76/
 
1703
      DATA (CF(I, 64),I=103,108) /  -76,  -40,  -58,  428,  -40, -184/
 
1704
      DATA (CF(I, 64),I=109,114) /  -58,  -13,    5,  -76,  -13,   50/
 
1705
      DATA (CF(I, 64),I=115,120) /  -58,    5,  -76,  428,  -58,  -76/
 
1706
C     1 Tr(1,4,5,3,6,2)
 
1707
      DATA DENOM(65)/648/
 
1708
      DATA (CF(I, 65),I=  1,  6) /   50,  -76,  -76,  428,  428, -184/
 
1709
      DATA (CF(I, 65),I=  7, 12) /  -13,  -58,  -13,   50,    5,  -76/
 
1710
      DATA (CF(I, 65),I= 13, 18) /    5,  -58,  -58,  -76,  -76,  428/
 
1711
      DATA (CF(I, 65),I= 19, 24) /  -76,  -40,  -58,  428,  -40, -184/
 
1712
      DATA (CF(I, 65),I= 25, 30) /  572,  -40,  -40, -184, -184,  176/
 
1713
      DATA (CF(I, 65),I= 31, 36) /  -76,  -40,   68, -454,  -76,   68/
 
1714
      DATA (CF(I, 65),I= 37, 42) /  -58,  -40,  104,   68,  572,  -76/
 
1715
      DATA (CF(I, 65),I= 43, 48) /  428, -184,  -58,  -76,  -40,  -40/
 
1716
      DATA (CF(I, 65),I= 49, 54) /  554,  428,  -13,   50,  -76,  572/
 
1717
      DATA (CF(I, 65),I= 55, 60) /  428, -184,  -76,   50,  428,  -76/
 
1718
      DATA (CF(I, 65),I= 61, 66) /   50, -454,  572,   50, 3641, -454/
 
1719
      DATA (CF(I, 65),I= 67, 72) /   50,   50,  -76,  -13, -454,   68/
 
1720
      DATA (CF(I, 65),I= 73, 78) /  -13,  -76,    5,  -13,   68,  -76/
 
1721
      DATA (CF(I, 65),I= 79, 84) /  -58,  -40,  -58,  -13,  -76,    5/
 
1722
      DATA (CF(I, 65),I= 85, 90) /  -76,   68,  -40,  -76, -454,   68/
 
1723
      DATA (CF(I, 65),I= 91, 96) / -454,   50,   68,  -13,   50,  -76/
 
1724
      DATA (CF(I, 65),I= 97,102) /   50,  572,  -13,  554,  -76,  428/
 
1725
      DATA (CF(I, 65),I=103,108) /  -76,  -40,    5,  -13,  -58,  -58/
 
1726
      DATA (CF(I, 65),I=109,114) /  -13,  -13,  -58,    5,   50,  -76/
 
1727
      DATA (CF(I, 65),I=115,120) /   68,  -76,  104,  -58,  572,  -40/
 
1728
C     1 Tr(1,4,5,6,2,3)
 
1729
      DATA DENOM(66)/648/
 
1730
      DATA (CF(I, 66),I=  1,  6) /  572,  -40,  -40, -184, -184,  176/
 
1731
      DATA (CF(I, 66),I=  7, 12) /  -76,  -40,   68, -454,  -76,   68/
 
1732
      DATA (CF(I, 66),I= 13, 18) /  -58,  -40,  104,   68,  572,  -76/
 
1733
      DATA (CF(I, 66),I= 19, 24) /  428, -184,  -58,  -76,  -40,  -40/
 
1734
      DATA (CF(I, 66),I= 25, 30) /   50,  -76,  -76,  428,  428, -184/
 
1735
      DATA (CF(I, 66),I= 31, 36) /  -13,  -58,  -13,   50,    5,  -76/
 
1736
      DATA (CF(I, 66),I= 37, 42) /    5,  -58,  -58,  -76,  -76,  428/
 
1737
      DATA (CF(I, 66),I= 43, 48) /  -76,  -40,  -58,  428,  -40, -184/
 
1738
      DATA (CF(I, 66),I= 49, 54) /  428, -184,  -76,   50,  428,  -76/
 
1739
      DATA (CF(I, 66),I= 55, 60) /  554,  428,  -13,   50,  -76,  572/
 
1740
      DATA (CF(I, 66),I= 61, 66) /  572,   50,   50, -454, -454, 3641/
 
1741
      DATA (CF(I, 66),I= 67, 72) /  -76,  -13,   50,   50,   68, -454/
 
1742
      DATA (CF(I, 66),I= 73, 78) /  -58,  -40,  -58,  -13,  -76,    5/
 
1743
      DATA (CF(I, 66),I= 79, 84) /  -13,  -76,    5,  -13,   68,  -76/
 
1744
      DATA (CF(I, 66),I= 85, 90) /  -40,  -76,  -76,   68,   68, -454/
 
1745
      DATA (CF(I, 66),I= 91, 96) /   68,  -13, -454,   50,  -76,   50/
 
1746
      DATA (CF(I, 66),I= 97,102) /  -76,  -40,    5,  -13,  -58,  -58/
 
1747
      DATA (CF(I, 66),I=103,108) /   50,  572,  -13,  554,  -76,  428/
 
1748
      DATA (CF(I, 66),I=109,114) /  -58,    5,  -13,  -13,  -76,   50/
 
1749
      DATA (CF(I, 66),I=115,120) /  104,  -58,   68,  -76,  -40,  572/
 
1750
C     1 Tr(1,4,5,6,3,2)
 
1751
      DATA DENOM(67)/648/
 
1752
      DATA (CF(I, 67),I=  1,  6) /  -13,  554,   50,  572,  428,  -76/
 
1753
      DATA (CF(I, 67),I=  7, 12) /  -13,  -13,  -58,    5,   50,  -76/
 
1754
      DATA (CF(I, 67),I= 13, 18) /  -76,  -40,    5,  -13,  -58,  -58/
 
1755
      DATA (CF(I, 67),I= 19, 24) /  -76,   68,  572,  -40,  104,  -58/
 
1756
      DATA (CF(I, 67),I= 25, 30) /  -58,  428,  -76,  -40, -184,  -40/
 
1757
      DATA (CF(I, 67),I= 31, 36) /    5,  -76,  -58,  -13,   50,  -13/
 
1758
      DATA (CF(I, 67),I= 37, 42) /  428, -184,  -76,   50,  428,  -76/
 
1759
      DATA (CF(I, 67),I= 43, 48) /  428,  -76,  -76,  -58,  -58,    5/
 
1760
      DATA (CF(I, 67),I= 49, 54) /   50,   50,  -76,  -13, -454,   68/
 
1761
      DATA (CF(I, 67),I= 55, 60) /  -76,  572,  428,  554,   50,  -13/
 
1762
      DATA (CF(I, 67),I= 61, 66) /  428,  -76, -184,  428,   50,  -76/
 
1763
      DATA (CF(I, 67),I= 67, 72) / 3641, -454, -454,   50,   50,  572/
 
1764
      DATA (CF(I, 67),I= 73, 78) /  428, -184,  -58,  -76,  -40,  -40/
 
1765
      DATA (CF(I, 67),I= 79, 84) / -184,  176,  -40,  572, -184,  -40/
 
1766
      DATA (CF(I, 67),I= 85, 90) /  -76,   68,  -40,  -76, -454,   68/
 
1767
      DATA (CF(I, 67),I= 91, 96) /  572,  -76,  -40,  -58,   68,  104/
 
1768
      DATA (CF(I, 67),I= 97,102) /   50, -454,   50,  -76,   68,  -13/
 
1769
      DATA (CF(I, 67),I=103,108) /  -76,   68,  -13,    5,  -76,  -13/
 
1770
      DATA (CF(I, 67),I=109,114) / -454,   68,   68,  -76,  -76,  -40/
 
1771
      DATA (CF(I, 67),I=115,120) /  -76,    5,  -40,  -58,  -13,  -58/
 
1772
C     1 Tr(1,4,6,2,3,5)
 
1773
      DATA DENOM(68)/648/
 
1774
      DATA (CF(I, 68),I=  1,  6) /    5,  -13,  -76,  -40,  -58,  -58/
 
1775
      DATA (CF(I, 68),I=  7, 12) /  -58,    5,  -13,  -13,  -76,   50/
 
1776
      DATA (CF(I, 68),I= 13, 18) /   50,  572,  -13,  554,  -76,  428/
 
1777
      DATA (CF(I, 68),I= 19, 24) /  -58,  104,  -40,  572,   68,  -76/
 
1778
      DATA (CF(I, 68),I= 25, 30) /  -58,  -76,  428, -184,  -40,  -40/
 
1779
      DATA (CF(I, 68),I= 31, 36) /  -76,   68,  -40,  -76, -454,   68/
 
1780
      DATA (CF(I, 68),I= 37, 42) / -184,  176,  -40,  572, -184,  -40/
 
1781
      DATA (CF(I, 68),I= 43, 48) /  -76,  572,   68,  104,  -40,  -58/
 
1782
      DATA (CF(I, 68),I= 49, 54) /  -76,  -13,   50,   50,   68, -454/
 
1783
      DATA (CF(I, 68),I= 55, 60) /  428,  -76, -184,  428,   50,  -76/
 
1784
      DATA (CF(I, 68),I= 61, 66) /  -76,  572,  428,  554,   50,  -13/
 
1785
      DATA (CF(I, 68),I= 67, 72) / -454, 3641,   50,  572, -454,   50/
 
1786
      DATA (CF(I, 68),I= 73, 78) /  -76,  -40,  -58,  428,  -40, -184/
 
1787
      DATA (CF(I, 68),I= 79, 84) /  428, -184,  -76,   50,  428,  -76/
 
1788
      DATA (CF(I, 68),I= 85, 90) /    5,  -76,  -58,  -13,   50,  -13/
 
1789
      DATA (CF(I, 68),I= 91, 96) /  -76,  428,  -58,    5,  -76,  -58/
 
1790
      DATA (CF(I, 68),I= 97,102) /  -13,   68,  -76,   50, -454,   50/
 
1791
      DATA (CF(I, 68),I=103,108) /    5,  -76,  -13,  -58,  -40,  -58/
 
1792
      DATA (CF(I, 68),I=109,114) /   68, -454,  -76,  -40,   68,  -76/
 
1793
      DATA (CF(I, 68),I=115,120) /   68,  -76,  -76,  -13,  -13,    5/
 
1794
C     1 Tr(1,4,6,2,5,3)
 
1795
      DATA DENOM(69)/648/
 
1796
      DATA (CF(I, 69),I=  1,  6) /  -58,  428,  -76,  -40, -184,  -40/
 
1797
      DATA (CF(I, 69),I=  7, 12) /    5,  -76,  -58,  -13,   50,  -13/
 
1798
      DATA (CF(I, 69),I= 13, 18) /  428, -184,  -76,   50,  428,  -76/
 
1799
      DATA (CF(I, 69),I= 19, 24) /  428,  -76,  -76,  -58,  -58,    5/
 
1800
      DATA (CF(I, 69),I= 25, 30) /  -13,  554,   50,  572,  428,  -76/
 
1801
      DATA (CF(I, 69),I= 31, 36) /  -13,  -13,  -58,    5,   50,  -76/
 
1802
      DATA (CF(I, 69),I= 37, 42) /  -76,  -40,    5,  -13,  -58,  -58/
 
1803
      DATA (CF(I, 69),I= 43, 48) /  -76,   68,  572,  -40,  104,  -58/
 
1804
      DATA (CF(I, 69),I= 49, 54) /  -76,  572,  428,  554,   50,  -13/
 
1805
      DATA (CF(I, 69),I= 55, 60) /   50,   50,  -76,  -13, -454,   68/
 
1806
      DATA (CF(I, 69),I= 61, 66) / -184,  428,  428,  -76,  -76,   50/
 
1807
      DATA (CF(I, 69),I= 67, 72) / -454,   50, 3641, -454,  572,   50/
 
1808
      DATA (CF(I, 69),I= 73, 78) / -184,  176,  -40,  572, -184,  -40/
 
1809
      DATA (CF(I, 69),I= 79, 84) /  428, -184,  -58,  -76,  -40,  -40/
 
1810
      DATA (CF(I, 69),I= 85, 90) /  -40,  -76,  -76,   68,   68, -454/
 
1811
      DATA (CF(I, 69),I= 91, 96) /  -40,  -58,  572,  -76,  104,   68/
 
1812
      DATA (CF(I, 69),I= 97,102) /  -76,   68,  -13,    5,  -76,  -13/
 
1813
      DATA (CF(I, 69),I=103,108) /   50, -454,   50,  -76,   68,  -13/
 
1814
      DATA (CF(I, 69),I=109,114) /   68,  -76, -454,   68,  -40,  -76/
 
1815
      DATA (CF(I, 69),I=115,120) /  -40,  -58,  -76,    5,  -58,  -13/
 
1816
C     1 Tr(1,4,6,3,2,5)
 
1817
      DATA DENOM(70)/648/
 
1818
      DATA (CF(I, 70),I=  1,  6) /  -58,  -76,  428, -184,  -40,  -40/
 
1819
      DATA (CF(I, 70),I=  7, 12) /  -76,   68,  -40,  -76, -454,   68/
 
1820
      DATA (CF(I, 70),I= 13, 18) / -184,  176,  -40,  572, -184,  -40/
 
1821
      DATA (CF(I, 70),I= 19, 24) /  -76,  572,   68,  104,  -40,  -58/
 
1822
      DATA (CF(I, 70),I= 25, 30) /    5,  -13,  -76,  -40,  -58,  -58/
 
1823
      DATA (CF(I, 70),I= 31, 36) /  -58,    5,  -13,  -13,  -76,   50/
 
1824
      DATA (CF(I, 70),I= 37, 42) /   50,  572,  -13,  554,  -76,  428/
 
1825
      DATA (CF(I, 70),I= 43, 48) /  -58,  104,  -40,  572,   68,  -76/
 
1826
      DATA (CF(I, 70),I= 49, 54) /  428,  -76, -184,  428,   50,  -76/
 
1827
      DATA (CF(I, 70),I= 55, 60) /  -76,  -13,   50,   50,   68, -454/
 
1828
      DATA (CF(I, 70),I= 61, 66) /  428,  554,  -76,  572,  -13,   50/
 
1829
      DATA (CF(I, 70),I= 67, 72) /   50,  572, -454, 3641,   50, -454/
 
1830
      DATA (CF(I, 70),I= 73, 78) /  428, -184,  -76,   50,  428,  -76/
 
1831
      DATA (CF(I, 70),I= 79, 84) /  -76,  -40,  -58,  428,  -40, -184/
 
1832
      DATA (CF(I, 70),I= 85, 90) /  -58,  -13,    5,  -76,  -13,   50/
 
1833
      DATA (CF(I, 70),I= 91, 96) /  -58,    5,  -76,  428,  -58,  -76/
 
1834
      DATA (CF(I, 70),I= 97,102) /    5,  -76,  -13,  -58,  -40,  -58/
 
1835
      DATA (CF(I, 70),I=103,108) /  -13,   68,  -76,   50, -454,   50/
 
1836
      DATA (CF(I, 70),I=109,114) /  -76,  -40,   68, -454,  -76,   68/
 
1837
      DATA (CF(I, 70),I=115,120) /  -76,  -13,   68,  -76,    5,  -13/
 
1838
C     1 Tr(1,4,6,3,5,2)
 
1839
      DATA DENOM(71)/648/
 
1840
      DATA (CF(I, 71),I=  1,  6) /  -76,   50,  428, -184,  -76,  428/
 
1841
      DATA (CF(I, 71),I=  7, 12) /  -58,  -13,    5,  -76,  -13,   50/
 
1842
      DATA (CF(I, 71),I= 13, 18) /  -76,  -40,  -58,  428,  -40, -184/
 
1843
      DATA (CF(I, 71),I= 19, 24) /    5,  -58,  -58,  -76,  -76,  428/
 
1844
      DATA (CF(I, 71),I= 25, 30) /  -40,  572, -184,  176,  -40, -184/
 
1845
      DATA (CF(I, 71),I= 31, 36) /  -40,  -76,  -76,   68,   68, -454/
 
1846
      DATA (CF(I, 71),I= 37, 42) /  428, -184,  -58,  -76,  -40,  -40/
 
1847
      DATA (CF(I, 71),I= 43, 48) /  -58,  -40,  104,   68,  572,  -76/
 
1848
      DATA (CF(I, 71),I= 49, 54) /  428,  554,  -76,  572,  -13,   50/
 
1849
      DATA (CF(I, 71),I= 55, 60) / -184,  428,  428,  -76,  -76,   50/
 
1850
      DATA (CF(I, 71),I= 61, 66) /   50,   50,  -76,  -13, -454,   68/
 
1851
      DATA (CF(I, 71),I= 67, 72) /   50, -454,  572,   50, 3641, -454/
 
1852
      DATA (CF(I, 71),I= 73, 78) /   50,  572,  -13,  554,  -76,  428/
 
1853
      DATA (CF(I, 71),I= 79, 84) /  -76,  -40,    5,  -13,  -58,  -58/
 
1854
      DATA (CF(I, 71),I= 85, 90) /  -13,  -13,  -58,    5,   50,  -76/
 
1855
      DATA (CF(I, 71),I= 91, 96) /   68,  -76,  104,  -58,  572,  -40/
 
1856
      DATA (CF(I, 71),I= 97,102) /  -13,  -76,    5,  -13,   68,  -76/
 
1857
      DATA (CF(I, 71),I=103,108) /  -58,  -40,  -58,  -13,  -76,    5/
 
1858
      DATA (CF(I, 71),I=109,114) /  -76,   68,  -40,  -76, -454,   68/
 
1859
      DATA (CF(I, 71),I=115,120) / -454,   50,   68,  -13,   50,  -76/
 
1860
C     1 Tr(1,4,6,5,2,3)
 
1861
      DATA DENOM(72)/648/
 
1862
      DATA (CF(I, 72),I=  1,  6) /  -40,  572, -184,  176,  -40, -184/
 
1863
      DATA (CF(I, 72),I=  7, 12) /  -40,  -76,  -76,   68,   68, -454/
 
1864
      DATA (CF(I, 72),I= 13, 18) /  428, -184,  -58,  -76,  -40,  -40/
 
1865
      DATA (CF(I, 72),I= 19, 24) /  -58,  -40,  104,   68,  572,  -76/
 
1866
      DATA (CF(I, 72),I= 25, 30) /  -76,   50,  428, -184,  -76,  428/
 
1867
      DATA (CF(I, 72),I= 31, 36) /  -58,  -13,    5,  -76,  -13,   50/
 
1868
      DATA (CF(I, 72),I= 37, 42) /  -76,  -40,  -58,  428,  -40, -184/
 
1869
      DATA (CF(I, 72),I= 43, 48) /    5,  -58,  -58,  -76,  -76,  428/
 
1870
      DATA (CF(I, 72),I= 49, 54) / -184,  428,  428,  -76,  -76,   50/
 
1871
      DATA (CF(I, 72),I= 55, 60) /  428,  554,  -76,  572,  -13,   50/
 
1872
      DATA (CF(I, 72),I= 61, 66) /  -76,  -13,   50,   50,   68, -454/
 
1873
      DATA (CF(I, 72),I= 67, 72) /  572,   50,   50, -454, -454, 3641/
 
1874
      DATA (CF(I, 72),I= 73, 78) /  -76,  -40,    5,  -13,  -58,  -58/
 
1875
      DATA (CF(I, 72),I= 79, 84) /   50,  572,  -13,  554,  -76,  428/
 
1876
      DATA (CF(I, 72),I= 85, 90) /  -58,    5,  -13,  -13,  -76,   50/
 
1877
      DATA (CF(I, 72),I= 91, 96) /  104,  -58,   68,  -76,  -40,  572/
 
1878
      DATA (CF(I, 72),I= 97,102) /  -58,  -40,  -58,  -13,  -76,    5/
 
1879
      DATA (CF(I, 72),I=103,108) /  -13,  -76,    5,  -13,   68,  -76/
 
1880
      DATA (CF(I, 72),I=109,114) /  -40,  -76,  -76,   68,   68, -454/
 
1881
      DATA (CF(I, 72),I=115,120) /   68,  -13, -454,   50,  -76,   50/
 
1882
C     1 Tr(1,4,6,5,3,2)
 
1883
      DATA DENOM(73)/648/
 
1884
      DATA (CF(I, 73),I=  1,  6) /   50, -454,   50,  -76,   68,  -13/
 
1885
      DATA (CF(I, 73),I=  7, 12) /  -76,   68,  -13,    5,  -76,  -13/
 
1886
      DATA (CF(I, 73),I= 13, 18) / -454,   68,   68,  -76,  -76,  -40/
 
1887
      DATA (CF(I, 73),I= 19, 24) /  -76,    5,  -40,  -58,  -13,  -58/
 
1888
      DATA (CF(I, 73),I= 25, 30) /  -76,   68,  572,  -40,  104,  -58/
 
1889
      DATA (CF(I, 73),I= 31, 36) /  428,  -76,  554,  -13,  572,   50/
 
1890
      DATA (CF(I, 73),I= 37, 42) /   50,  -76,  -13,  -13,    5,  -58/
 
1891
      DATA (CF(I, 73),I= 43, 48) /  -58,  -58,  -40,  -76,  -13,    5/
 
1892
      DATA (CF(I, 73),I= 49, 54) /  428,  -76,  -76,  -58,  -58,    5/
 
1893
      DATA (CF(I, 73),I= 55, 60) / -184,  -40,  428,  -58,  -40,  -76/
 
1894
      DATA (CF(I, 73),I= 61, 66) /   50,  -13,  -76,    5,  -13,  -58/
 
1895
      DATA (CF(I, 73),I= 67, 72) /  428,  -76, -184,  428,   50,  -76/
 
1896
      DATA (CF(I, 73),I= 73, 78) / 3641, -454, -454,   50,   50,  572/
 
1897
      DATA (CF(I, 73),I= 79, 84) / -454,   68,   50,   50,  -13,  -76/
 
1898
      DATA (CF(I, 73),I= 85, 90) /   50,  -13,  572,  -76,  554,  428/
 
1899
      DATA (CF(I, 73),I= 91, 96) /   50,  -76,  -76,  428,  428, -184/
 
1900
      DATA (CF(I, 73),I= 97,102) /  572,  -76,  -40,  -58,   68,  104/
 
1901
      DATA (CF(I, 73),I=103,108) /  -40,  -40, -184,  428,  -76,  -58/
 
1902
      DATA (CF(I, 73),I=109,114) / -184,  -40,  176, -184,  572,  -40/
 
1903
      DATA (CF(I, 73),I=115,120) / -454,   68,   68,  -76,  -76,  -40/
 
1904
C     1 Tr(1,5,2,3,4,6)
 
1905
      DATA DENOM(74)/648/
 
1906
      DATA (CF(I, 74),I=  1,  6) /  -13,   68,  -76,   50, -454,   50/
 
1907
      DATA (CF(I, 74),I=  7, 12) /    5,  -76,  -13,  -58,  -40,  -58/
 
1908
      DATA (CF(I, 74),I= 13, 18) /   68, -454,  -76,  -40,   68,  -76/
 
1909
      DATA (CF(I, 74),I= 19, 24) /   68,  -76,  -76,  -13,  -13,    5/
 
1910
      DATA (CF(I, 74),I= 25, 30) /  -58,  104,  -40,  572,   68,  -76/
 
1911
      DATA (CF(I, 74),I= 31, 36) /  -58,  -58,  -13,    5,  -40,  -76/
 
1912
      DATA (CF(I, 74),I= 37, 42) /  -76,   50,    5,  -58,  -13,  -13/
 
1913
      DATA (CF(I, 74),I= 43, 48) /  -76,  428,  572,   50,  554,  -13/
 
1914
      DATA (CF(I, 74),I= 49, 54) /  -76,  572,   68,  104,  -40,  -58/
 
1915
      DATA (CF(I, 74),I= 55, 60) /  -40,  -40,  -76,  -58, -184,  428/
 
1916
      DATA (CF(I, 74),I= 61, 66) / -454,   68,   68,  -76,  -76,  -40/
 
1917
      DATA (CF(I, 74),I= 67, 72) / -184,  -40,  176, -184,  572,  -40/
 
1918
      DATA (CF(I, 74),I= 73, 78) / -454, 3641,   50,  572, -454,   50/
 
1919
      DATA (CF(I, 74),I= 79, 84) /   68, -454,  -13,  -76,   50,   50/
 
1920
      DATA (CF(I, 74),I= 85, 90) /   50,  -76,  -76,  428,  428, -184/
 
1921
      DATA (CF(I, 74),I= 91, 96) /   50,  -13,  572,  -76,  554,  428/
 
1922
      DATA (CF(I, 74),I= 97,102) /  -76,  428,  -58,    5,  -76,  -58/
 
1923
      DATA (CF(I, 74),I=103,108) /  -40, -184,  -40,  -76,  428,  -58/
 
1924
      DATA (CF(I, 74),I=109,114) /  428,  -76, -184,  428,   50,  -76/
 
1925
      DATA (CF(I, 74),I=115,120) /   50,  -13,  -76,    5,  -13,  -58/
 
1926
C     1 Tr(1,5,2,3,6,4)
 
1927
      DATA DENOM(75)/648/
 
1928
      DATA (CF(I, 75),I=  1,  6) /  -76,   68,  -13,    5,  -76,  -13/
 
1929
      DATA (CF(I, 75),I=  7, 12) /   50, -454,   50,  -76,   68,  -13/
 
1930
      DATA (CF(I, 75),I= 13, 18) /   68,  -76, -454,   68,  -40,  -76/
 
1931
      DATA (CF(I, 75),I= 19, 24) /  -40,  -58,  -76,    5,  -58,  -13/
 
1932
      DATA (CF(I, 75),I= 25, 30) /  428,  -76,  -76,  -58,  -58,    5/
 
1933
      DATA (CF(I, 75),I= 31, 36) / -184,  -40,  428,  -58,  -40,  -76/
 
1934
      DATA (CF(I, 75),I= 37, 42) /   50,  -13,  -76,    5,  -13,  -58/
 
1935
      DATA (CF(I, 75),I= 43, 48) /  428,  -76, -184,  428,   50,  -76/
 
1936
      DATA (CF(I, 75),I= 49, 54) /  -76,   68,  572,  -40,  104,  -58/
 
1937
      DATA (CF(I, 75),I= 55, 60) /  428,  -76,  554,  -13,  572,   50/
 
1938
      DATA (CF(I, 75),I= 61, 66) /   50,  -76,  -13,  -13,    5,  -58/
 
1939
      DATA (CF(I, 75),I= 67, 72) /  -58,  -58,  -40,  -76,  -13,    5/
 
1940
      DATA (CF(I, 75),I= 73, 78) / -454,   50, 3641, -454,  572,   50/
 
1941
      DATA (CF(I, 75),I= 79, 84) /   50,  -13,  572,  -76,  554,  428/
 
1942
      DATA (CF(I, 75),I= 85, 90) / -454,   68,   50,   50,  -13,  -76/
 
1943
      DATA (CF(I, 75),I= 91, 96) /  -76,   50,  428, -184,  -76,  428/
 
1944
      DATA (CF(I, 75),I= 97,102) /  -40,  -58,  572,  -76,  104,   68/
 
1945
      DATA (CF(I, 75),I=103,108) / -184,  -40,  176, -184,  572,  -40/
 
1946
      DATA (CF(I, 75),I=109,114) /  -40,  -40, -184,  428,  -76,  -58/
 
1947
      DATA (CF(I, 75),I=115,120) /   68, -454,  -76,  -40,   68,  -76/
 
1948
C     1 Tr(1,5,2,4,3,6)
 
1949
      DATA DENOM(76)/648/
 
1950
      DATA (CF(I, 76),I=  1,  6) /    5,  -76,  -13,  -58,  -40,  -58/
 
1951
      DATA (CF(I, 76),I=  7, 12) /  -13,   68,  -76,   50, -454,   50/
 
1952
      DATA (CF(I, 76),I= 13, 18) /  -76,  -40,   68, -454,  -76,   68/
 
1953
      DATA (CF(I, 76),I= 19, 24) /  -76,  -13,   68,  -76,    5,  -13/
 
1954
      DATA (CF(I, 76),I= 25, 30) /  -76,  572,   68,  104,  -40,  -58/
 
1955
      DATA (CF(I, 76),I= 31, 36) /  -40,  -40,  -76,  -58, -184,  428/
 
1956
      DATA (CF(I, 76),I= 37, 42) / -454,   68,   68,  -76,  -76,  -40/
 
1957
      DATA (CF(I, 76),I= 43, 48) / -184,  -40,  176, -184,  572,  -40/
 
1958
      DATA (CF(I, 76),I= 49, 54) /  -58,  104,  -40,  572,   68,  -76/
 
1959
      DATA (CF(I, 76),I= 55, 60) /  -58,  -58,  -13,    5,  -40,  -76/
 
1960
      DATA (CF(I, 76),I= 61, 66) /  -76,   50,    5,  -58,  -13,  -13/
 
1961
      DATA (CF(I, 76),I= 67, 72) /  -76,  428,  572,   50,  554,  -13/
 
1962
      DATA (CF(I, 76),I= 73, 78) /   50,  572, -454, 3641,   50, -454/
 
1963
      DATA (CF(I, 76),I= 79, 84) /   50,  -76,  -76,  428,  428, -184/
 
1964
      DATA (CF(I, 76),I= 85, 90) /   68, -454,  -13,  -76,   50,   50/
 
1965
      DATA (CF(I, 76),I= 91, 96) /  -13,   50,  554,  428,  572,  -76/
 
1966
      DATA (CF(I, 76),I= 97,102) /  -58,    5,  -76,  428,  -58,  -76/
 
1967
      DATA (CF(I, 76),I=103,108) /  428,  -76, -184,  428,   50,  -76/
 
1968
      DATA (CF(I, 76),I=109,114) /  -40, -184,  -40,  -76,  428,  -58/
 
1969
      DATA (CF(I, 76),I=115,120) /  -13,   50,  -13,  -58,  -76,    5/
 
1970
C     1 Tr(1,5,2,4,6,3)
 
1971
      DATA DENOM(77)/648/
 
1972
      DATA (CF(I, 77),I=  1,  6) /  -13,  -76,    5,  -13,   68,  -76/
 
1973
      DATA (CF(I, 77),I=  7, 12) /  -58,  -40,  -58,  -13,  -76,    5/
 
1974
      DATA (CF(I, 77),I= 13, 18) /  -76,   68,  -40,  -76, -454,   68/
 
1975
      DATA (CF(I, 77),I= 19, 24) / -454,   50,   68,  -13,   50,  -76/
 
1976
      DATA (CF(I, 77),I= 25, 30) /    5,  -58,  -58,  -76,  -76,  428/
 
1977
      DATA (CF(I, 77),I= 31, 36) /  -76,  428,   50,  -76, -184,  428/
 
1978
      DATA (CF(I, 77),I= 37, 42) /  -13,   50,  -13,  -58,  -76,    5/
 
1979
      DATA (CF(I, 77),I= 43, 48) /  -40, -184,  -40,  -76,  428,  -58/
 
1980
      DATA (CF(I, 77),I= 49, 54) /  -58,  -40,  104,   68,  572,  -76/
 
1981
      DATA (CF(I, 77),I= 55, 60) /  -40, -184,  572,  -40,  176, -184/
 
1982
      DATA (CF(I, 77),I= 61, 66) /   68, -454,  -76,  -40,   68,  -76/
 
1983
      DATA (CF(I, 77),I= 67, 72) /  -40,  -40, -184,  428,  -76,  -58/
 
1984
      DATA (CF(I, 77),I= 73, 78) /   50, -454,  572,   50, 3641, -454/
 
1985
      DATA (CF(I, 77),I= 79, 84) /  -13,   50,  554,  428,  572,  -76/
 
1986
      DATA (CF(I, 77),I= 85, 90) /  -76,   50,  428, -184,  -76,  428/
 
1987
      DATA (CF(I, 77),I= 91, 96) / -454,   68,   50,   50,  -13,  -76/
 
1988
      DATA (CF(I, 77),I= 97,102) /   68,  -76,  104,  -58,  572,  -40/
 
1989
      DATA (CF(I, 77),I=103,108) /  -76,  428,  572,   50,  554,  -13/
 
1990
      DATA (CF(I, 77),I=109,114) /  -58,  -58,  -40,  -76,  -13,    5/
 
1991
      DATA (CF(I, 77),I=115,120) /   50,  -76,  -13,  -13,    5,  -58/
 
1992
C     1 Tr(1,5,2,6,3,4)
 
1993
      DATA DENOM(78)/648/
 
1994
      DATA (CF(I, 78),I=  1,  6) /  -58,  -40,  -58,  -13,  -76,    5/
 
1995
      DATA (CF(I, 78),I=  7, 12) /  -13,  -76,    5,  -13,   68,  -76/
 
1996
      DATA (CF(I, 78),I= 13, 18) /  -40,  -76,  -76,   68,   68, -454/
 
1997
      DATA (CF(I, 78),I= 19, 24) /   68,  -13, -454,   50,  -76,   50/
 
1998
      DATA (CF(I, 78),I= 25, 30) /  -58,  -40,  104,   68,  572,  -76/
 
1999
      DATA (CF(I, 78),I= 31, 36) /  -40, -184,  572,  -40,  176, -184/
 
2000
      DATA (CF(I, 78),I= 37, 42) /   68, -454,  -76,  -40,   68,  -76/
 
2001
      DATA (CF(I, 78),I= 43, 48) /  -40,  -40, -184,  428,  -76,  -58/
 
2002
      DATA (CF(I, 78),I= 49, 54) /    5,  -58,  -58,  -76,  -76,  428/
 
2003
      DATA (CF(I, 78),I= 55, 60) /  -76,  428,   50,  -76, -184,  428/
 
2004
      DATA (CF(I, 78),I= 61, 66) /  -13,   50,  -13,  -58,  -76,    5/
 
2005
      DATA (CF(I, 78),I= 67, 72) /  -40, -184,  -40,  -76,  428,  -58/
 
2006
      DATA (CF(I, 78),I= 73, 78) /  572,   50,   50, -454, -454, 3641/
 
2007
      DATA (CF(I, 78),I= 79, 84) /  -76,   50,  428, -184,  -76,  428/
 
2008
      DATA (CF(I, 78),I= 85, 90) /  -13,   50,  554,  428,  572,  -76/
 
2009
      DATA (CF(I, 78),I= 91, 96) /   68, -454,  -13,  -76,   50,   50/
 
2010
      DATA (CF(I, 78),I= 97,102) /  104,  -58,   68,  -76,  -40,  572/
 
2011
      DATA (CF(I, 78),I=103,108) /  -58,  -58,  -40,  -76,  -13,    5/
 
2012
      DATA (CF(I, 78),I=109,114) /  -76,  428,  572,   50,  554,  -13/
 
2013
      DATA (CF(I, 78),I=115,120) /  -76,   50,    5,  -58,  -13,  -13/
 
2014
C     1 Tr(1,5,2,6,4,3)
 
2015
      DATA DENOM(79)/648/
 
2016
      DATA (CF(I, 79),I=  1,  6) /  -76,   68,  572,  -40,  104,  -58/
 
2017
      DATA (CF(I, 79),I=  7, 12) /  428,  -76,  554,  -13,  572,   50/
 
2018
      DATA (CF(I, 79),I= 13, 18) /   50,  -76,  -13,  -13,    5,  -58/
 
2019
      DATA (CF(I, 79),I= 19, 24) /  -58,  -58,  -40,  -76,  -13,    5/
 
2020
      DATA (CF(I, 79),I= 25, 30) /   50, -454,   50,  -76,   68,  -13/
 
2021
      DATA (CF(I, 79),I= 31, 36) /  -76,   68,  -13,    5,  -76,  -13/
 
2022
      DATA (CF(I, 79),I= 37, 42) / -454,   68,   68,  -76,  -76,  -40/
 
2023
      DATA (CF(I, 79),I= 43, 48) /  -76,    5,  -40,  -58,  -13,  -58/
 
2024
      DATA (CF(I, 79),I= 49, 54) / -184,  -40,  428,  -58,  -40,  -76/
 
2025
      DATA (CF(I, 79),I= 55, 60) /  428,  -76,  -76,  -58,  -58,    5/
 
2026
      DATA (CF(I, 79),I= 61, 66) /  -76,    5,   50,  -13,  -58,  -13/
 
2027
      DATA (CF(I, 79),I= 67, 72) / -184,  428,  428,  -76,  -76,   50/
 
2028
      DATA (CF(I, 79),I= 73, 78) / -454,   68,   50,   50,  -13,  -76/
 
2029
      DATA (CF(I, 79),I= 79, 84) / 3641, -454, -454,   50,   50,  572/
 
2030
      DATA (CF(I, 79),I= 85, 90) /  572,  -76,   50,  -13,  428,  554/
 
2031
      DATA (CF(I, 79),I= 91, 96) /  -76,  428,   50,  -76, -184,  428/
 
2032
      DATA (CF(I, 79),I= 97,102) /  -40,  -40, -184,  428,  -76,  -58/
 
2033
      DATA (CF(I, 79),I=103,108) /  572,  -76,  -40,  -58,   68,  104/
 
2034
      DATA (CF(I, 79),I=109,114) /  176, -184, -184,  -40,  -40,  572/
 
2035
      DATA (CF(I, 79),I=115,120) /   68,  -76, -454,   68,  -40,  -76/
 
2036
C     1 Tr(1,5,3,2,4,6)
 
2037
      DATA DENOM(80)/648/
 
2038
      DATA (CF(I, 80),I=  1,  6) /  -58,  104,  -40,  572,   68,  -76/
 
2039
      DATA (CF(I, 80),I=  7, 12) /  -58,  -58,  -13,    5,  -40,  -76/
 
2040
      DATA (CF(I, 80),I= 13, 18) /  -76,   50,    5,  -58,  -13,  -13/
 
2041
      DATA (CF(I, 80),I= 19, 24) /  -76,  428,  572,   50,  554,  -13/
 
2042
      DATA (CF(I, 80),I= 25, 30) /  -13,   68,  -76,   50, -454,   50/
 
2043
      DATA (CF(I, 80),I= 31, 36) /    5,  -76,  -13,  -58,  -40,  -58/
 
2044
      DATA (CF(I, 80),I= 37, 42) /   68, -454,  -76,  -40,   68,  -76/
 
2045
      DATA (CF(I, 80),I= 43, 48) /   68,  -76,  -76,  -13,  -13,    5/
 
2046
      DATA (CF(I, 80),I= 49, 54) /  -40,  -40,  -76,  -58, -184,  428/
 
2047
      DATA (CF(I, 80),I= 55, 60) /  -76,  572,   68,  104,  -40,  -58/
 
2048
      DATA (CF(I, 80),I= 61, 66) /   68,  -76, -454,   68,  -40,  -76/
 
2049
      DATA (CF(I, 80),I= 67, 72) /  176, -184, -184,  -40,  -40,  572/
 
2050
      DATA (CF(I, 80),I= 73, 78) /   68, -454,  -13,  -76,   50,   50/
 
2051
      DATA (CF(I, 80),I= 79, 84) / -454, 3641,   50,  572, -454,   50/
 
2052
      DATA (CF(I, 80),I= 85, 90) /  -76,  428,   50,  -76, -184,  428/
 
2053
      DATA (CF(I, 80),I= 91, 96) /  572,  -76,   50,  -13,  428,  554/
 
2054
      DATA (CF(I, 80),I= 97,102) /  -40, -184,  -40,  -76,  428,  -58/
 
2055
      DATA (CF(I, 80),I=103,108) /  -76,  428,  -58,    5,  -76,  -58/
 
2056
      DATA (CF(I, 80),I=109,114) / -184,  428,  428,  -76,  -76,   50/
 
2057
      DATA (CF(I, 80),I=115,120) /  -76,    5,   50,  -13,  -58,  -13/
 
2058
C     1 Tr(1,5,3,2,6,4)
 
2059
      DATA DENOM(81)/648/
 
2060
      DATA (CF(I, 81),I=  1,  6) /  428,  -76,  -76,  -58,  -58,    5/
 
2061
      DATA (CF(I, 81),I=  7, 12) / -184,  -40,  428,  -58,  -40,  -76/
 
2062
      DATA (CF(I, 81),I= 13, 18) /   50,  -13,  -76,    5,  -13,  -58/
 
2063
      DATA (CF(I, 81),I= 19, 24) /  428,  -76, -184,  428,   50,  -76/
 
2064
      DATA (CF(I, 81),I= 25, 30) /  -76,   68,  -13,    5,  -76,  -13/
 
2065
      DATA (CF(I, 81),I= 31, 36) /   50, -454,   50,  -76,   68,  -13/
 
2066
      DATA (CF(I, 81),I= 37, 42) /   68,  -76, -454,   68,  -40,  -76/
 
2067
      DATA (CF(I, 81),I= 43, 48) /  -40,  -58,  -76,    5,  -58,  -13/
 
2068
      DATA (CF(I, 81),I= 49, 54) /  428,  -76,  554,  -13,  572,   50/
 
2069
      DATA (CF(I, 81),I= 55, 60) /  -76,   68,  572,  -40,  104,  -58/
 
2070
      DATA (CF(I, 81),I= 61, 66) /  -13,  -13,   50,  -76,  -58,    5/
 
2071
      DATA (CF(I, 81),I= 67, 72) /  -40,  -76,  -58,  -58,    5,  -13/
 
2072
      DATA (CF(I, 81),I= 73, 78) /   50,  -13,  572,  -76,  554,  428/
 
2073
      DATA (CF(I, 81),I= 79, 84) / -454,   50, 3641, -454,  572,   50/
 
2074
      DATA (CF(I, 81),I= 85, 90) /   50,   50, -454,   68,  -76,  -13/
 
2075
      DATA (CF(I, 81),I= 91, 96) /  428, -184,  -76,   50,  428,  -76/
 
2076
      DATA (CF(I, 81),I= 97,102) / -184,  -40,  176, -184,  572,  -40/
 
2077
      DATA (CF(I, 81),I=103,108) /  -40,  -58,  572,  -76,  104,   68/
 
2078
      DATA (CF(I, 81),I=109,114) / -184,  428,  -40,  -40,  -58,  -76/
 
2079
      DATA (CF(I, 81),I=115,120) /  -76,  -40,   68, -454,  -76,   68/
 
2080
C     1 Tr(1,5,3,4,2,6)
 
2081
      DATA DENOM(82)/648/
 
2082
      DATA (CF(I, 82),I=  1,  6) /  -76,  572,   68,  104,  -40,  -58/
 
2083
      DATA (CF(I, 82),I=  7, 12) /  -40,  -40,  -76,  -58, -184,  428/
 
2084
      DATA (CF(I, 82),I= 13, 18) / -454,   68,   68,  -76,  -76,  -40/
 
2085
      DATA (CF(I, 82),I= 19, 24) / -184,  -40,  176, -184,  572,  -40/
 
2086
      DATA (CF(I, 82),I= 25, 30) /    5,  -76,  -13,  -58,  -40,  -58/
 
2087
      DATA (CF(I, 82),I= 31, 36) /  -13,   68,  -76,   50, -454,   50/
 
2088
      DATA (CF(I, 82),I= 37, 42) /  -76,  -40,   68, -454,  -76,   68/
 
2089
      DATA (CF(I, 82),I= 43, 48) /  -76,  -13,   68,  -76,    5,  -13/
 
2090
      DATA (CF(I, 82),I= 49, 54) /  -58,  -58,  -13,    5,  -40,  -76/
 
2091
      DATA (CF(I, 82),I= 55, 60) /  -58,  104,  -40,  572,   68,  -76/
 
2092
      DATA (CF(I, 82),I= 61, 66) /    5,  -58,  -76,   50,  -13,  -13/
 
2093
      DATA (CF(I, 82),I= 67, 72) /  572,   50,  -76,  428,  -13,  554/
 
2094
      DATA (CF(I, 82),I= 73, 78) /   50,  -76,  -76,  428,  428, -184/
 
2095
      DATA (CF(I, 82),I= 79, 84) /   50,  572, -454, 3641,   50, -454/
 
2096
      DATA (CF(I, 82),I= 85, 90) /  -13,  -76,   68, -454,   50,   50/
 
2097
      DATA (CF(I, 82),I= 91, 96) /  554,  428,  -13,   50,  -76,  572/
 
2098
      DATA (CF(I, 82),I= 97,102) /  428,  -76, -184,  428,   50,  -76/
 
2099
      DATA (CF(I, 82),I=103,108) /  -58,    5,  -76,  428,  -58,  -76/
 
2100
      DATA (CF(I, 82),I=109,114) /  -40,  -76,  -40, -184,  -58,  428/
 
2101
      DATA (CF(I, 82),I=115,120) /  -13,  -58,  -13,   50,    5,  -76/
 
2102
C     1 Tr(1,5,3,4,6,2)
 
2103
      DATA DENOM(83)/648/
 
2104
      DATA (CF(I, 83),I=  1,  6) /    5,  -58,  -58,  -76,  -76,  428/
 
2105
      DATA (CF(I, 83),I=  7, 12) /  -76,  428,   50,  -76, -184,  428/
 
2106
      DATA (CF(I, 83),I= 13, 18) /  -13,   50,  -13,  -58,  -76,    5/
 
2107
      DATA (CF(I, 83),I= 19, 24) /  -40, -184,  -40,  -76,  428,  -58/
 
2108
      DATA (CF(I, 83),I= 25, 30) /  -13,  -76,    5,  -13,   68,  -76/
 
2109
      DATA (CF(I, 83),I= 31, 36) /  -58,  -40,  -58,  -13,  -76,    5/
 
2110
      DATA (CF(I, 83),I= 37, 42) /  -76,   68,  -40,  -76, -454,   68/
 
2111
      DATA (CF(I, 83),I= 43, 48) / -454,   50,   68,  -13,   50,  -76/
 
2112
      DATA (CF(I, 83),I= 49, 54) /  -40, -184,  572,  -40,  176, -184/
 
2113
      DATA (CF(I, 83),I= 55, 60) /  -58,  -40,  104,   68,  572,  -76/
 
2114
      DATA (CF(I, 83),I= 61, 66) /  -76,  -40,   68, -454,  -76,   68/
 
2115
      DATA (CF(I, 83),I= 67, 72) / -184,  428,  -40,  -40,  -58,  -76/
 
2116
      DATA (CF(I, 83),I= 73, 78) /  -13,   50,  554,  428,  572,  -76/
 
2117
      DATA (CF(I, 83),I= 79, 84) /   50, -454,  572,   50, 3641, -454/
 
2118
      DATA (CF(I, 83),I= 85, 90) /  428, -184,  -76,   50,  428,  -76/
 
2119
      DATA (CF(I, 83),I= 91, 96) /   50,   50, -454,   68,  -76,  -13/
 
2120
      DATA (CF(I, 83),I= 97,102) /  -76,  428,  572,   50,  554,  -13/
 
2121
      DATA (CF(I, 83),I=103,108) /   68,  -76,  104,  -58,  572,  -40/
 
2122
      DATA (CF(I, 83),I=109,114) /  -40,  -76,  -58,  -58,    5,  -13/
 
2123
      DATA (CF(I, 83),I=115,120) /  -13,  -13,   50,  -76,  -58,    5/
 
2124
C     1 Tr(1,5,3,6,2,4)
 
2125
      DATA DENOM(84)/648/
 
2126
      DATA (CF(I, 84),I=  1,  6) /  -58,  -40,  104,   68,  572,  -76/
 
2127
      DATA (CF(I, 84),I=  7, 12) /  -40, -184,  572,  -40,  176, -184/
 
2128
      DATA (CF(I, 84),I= 13, 18) /   68, -454,  -76,  -40,   68,  -76/
 
2129
      DATA (CF(I, 84),I= 19, 24) /  -40,  -40, -184,  428,  -76,  -58/
 
2130
      DATA (CF(I, 84),I= 25, 30) /  -58,  -40,  -58,  -13,  -76,    5/
 
2131
      DATA (CF(I, 84),I= 31, 36) /  -13,  -76,    5,  -13,   68,  -76/
 
2132
      DATA (CF(I, 84),I= 37, 42) /  -40,  -76,  -76,   68,   68, -454/
 
2133
      DATA (CF(I, 84),I= 43, 48) /   68,  -13, -454,   50,  -76,   50/
 
2134
      DATA (CF(I, 84),I= 49, 54) /  -76,  428,   50,  -76, -184,  428/
 
2135
      DATA (CF(I, 84),I= 55, 60) /    5,  -58,  -58,  -76,  -76,  428/
 
2136
      DATA (CF(I, 84),I= 61, 66) /  -13,  -58,  -13,   50,    5,  -76/
 
2137
      DATA (CF(I, 84),I= 67, 72) /  -40,  -76,  -40, -184,  -58,  428/
 
2138
      DATA (CF(I, 84),I= 73, 78) /  -76,   50,  428, -184,  -76,  428/
 
2139
      DATA (CF(I, 84),I= 79, 84) /  572,   50,   50, -454, -454, 3641/
 
2140
      DATA (CF(I, 84),I= 85, 90) /  554,  428,  -13,   50,  -76,  572/
 
2141
      DATA (CF(I, 84),I= 91, 96) /  -13,  -76,   68, -454,   50,   50/
 
2142
      DATA (CF(I, 84),I= 97,102) /  -58,  -58,  -40,  -76,  -13,    5/
 
2143
      DATA (CF(I, 84),I=103,108) /  104,  -58,   68,  -76,  -40,  572/
 
2144
      DATA (CF(I, 84),I=109,114) /  572,   50,  -76,  428,  -13,  554/
 
2145
      DATA (CF(I, 84),I=115,120) /    5,  -58,  -76,   50,  -13,  -13/
 
2146
C     1 Tr(1,5,3,6,4,2)
 
2147
      DATA DENOM(85)/648/
 
2148
      DATA (CF(I, 85),I=  1,  6) /  428,  -76,  554,  -13,  572,   50/
 
2149
      DATA (CF(I, 85),I=  7, 12) /  -76,   68,  572,  -40,  104,  -58/
 
2150
      DATA (CF(I, 85),I= 13, 18) /  -13,  -13,   50,  -76,  -58,    5/
 
2151
      DATA (CF(I, 85),I= 19, 24) /  -40,  -76,  -58,  -58,    5,  -13/
 
2152
      DATA (CF(I, 85),I= 25, 30) / -184,  -40,  428,  -58,  -40,  -76/
 
2153
      DATA (CF(I, 85),I= 31, 36) /  428,  -76,  -76,  -58,  -58,    5/
 
2154
      DATA (CF(I, 85),I= 37, 42) /  -76,    5,   50,  -13,  -58,  -13/
 
2155
      DATA (CF(I, 85),I= 43, 48) / -184,  428,  428,  -76,  -76,   50/
 
2156
      DATA (CF(I, 85),I= 49, 54) /   50, -454,   50,  -76,   68,  -13/
 
2157
      DATA (CF(I, 85),I= 55, 60) /  -76,   68,  -13,    5,  -76,  -13/
 
2158
      DATA (CF(I, 85),I= 61, 66) / -454,   68,   68,  -76,  -76,  -40/
 
2159
      DATA (CF(I, 85),I= 67, 72) /  -76,    5,  -40,  -58,  -13,  -58/
 
2160
      DATA (CF(I, 85),I= 73, 78) /   50,   50, -454,   68,  -76,  -13/
 
2161
      DATA (CF(I, 85),I= 79, 84) /  572,  -76,   50,  -13,  428,  554/
 
2162
      DATA (CF(I, 85),I= 85, 90) / 3641, -454, -454,   50,   50,  572/
 
2163
      DATA (CF(I, 85),I= 91, 96) /  428,  -76, -184,  428,   50,  -76/
 
2164
      DATA (CF(I, 85),I= 97,102) / -184,  428,  -40,  -40,  -58,  -76/
 
2165
      DATA (CF(I, 85),I=103,108) /  176, -184, -184,  -40,  -40,  572/
 
2166
      DATA (CF(I, 85),I=109,114) /  572,  -76,  -40,  -58,   68,  104/
 
2167
      DATA (CF(I, 85),I=115,120) /  -76,   68,  -40,  -76, -454,   68/
 
2168
C     1 Tr(1,5,4,2,3,6)
 
2169
      DATA DENOM(86)/648/
 
2170
      DATA (CF(I, 86),I=  1,  6) /  -58,  -58,  -13,    5,  -40,  -76/
 
2171
      DATA (CF(I, 86),I=  7, 12) /  -58,  104,  -40,  572,   68,  -76/
 
2172
      DATA (CF(I, 86),I= 13, 18) /    5,  -58,  -76,   50,  -13,  -13/
 
2173
      DATA (CF(I, 86),I= 19, 24) /  572,   50,  -76,  428,  -13,  554/
 
2174
      DATA (CF(I, 86),I= 25, 30) /  -40,  -40,  -76,  -58, -184,  428/
 
2175
      DATA (CF(I, 86),I= 31, 36) /  -76,  572,   68,  104,  -40,  -58/
 
2176
      DATA (CF(I, 86),I= 37, 42) /   68,  -76, -454,   68,  -40,  -76/
 
2177
      DATA (CF(I, 86),I= 43, 48) /  176, -184, -184,  -40,  -40,  572/
 
2178
      DATA (CF(I, 86),I= 49, 54) /  -13,   68,  -76,   50, -454,   50/
 
2179
      DATA (CF(I, 86),I= 55, 60) /    5,  -76,  -13,  -58,  -40,  -58/
 
2180
      DATA (CF(I, 86),I= 61, 66) /   68, -454,  -76,  -40,   68,  -76/
 
2181
      DATA (CF(I, 86),I= 67, 72) /   68,  -76,  -76,  -13,  -13,    5/
 
2182
      DATA (CF(I, 86),I= 73, 78) /  -13,  -76,   68, -454,   50,   50/
 
2183
      DATA (CF(I, 86),I= 79, 84) /  -76,  428,   50,  -76, -184,  428/
 
2184
      DATA (CF(I, 86),I= 85, 90) / -454, 3641,   50,  572, -454,   50/
 
2185
      DATA (CF(I, 86),I= 91, 96) /  -76,  572,  428,  554,   50,  -13/
 
2186
      DATA (CF(I, 86),I= 97,102) /  -40,  -76,  -40, -184,  -58,  428/
 
2187
      DATA (CF(I, 86),I=103,108) / -184,  428,  428,  -76,  -76,   50/
 
2188
      DATA (CF(I, 86),I=109,114) /  -76,  428,  -58,    5,  -76,  -58/
 
2189
      DATA (CF(I, 86),I=115,120) /    5,  -76,  -58,  -13,   50,  -13/
 
2190
C     1 Tr(1,5,4,2,6,3)
 
2191
      DATA DENOM(87)/648/
 
2192
      DATA (CF(I, 87),I=  1,  6) / -184,  -40,  428,  -58,  -40,  -76/
 
2193
      DATA (CF(I, 87),I=  7, 12) /  428,  -76,  -76,  -58,  -58,    5/
 
2194
      DATA (CF(I, 87),I= 13, 18) /  -76,    5,   50,  -13,  -58,  -13/
 
2195
      DATA (CF(I, 87),I= 19, 24) / -184,  428,  428,  -76,  -76,   50/
 
2196
      DATA (CF(I, 87),I= 25, 30) /  428,  -76,  554,  -13,  572,   50/
 
2197
      DATA (CF(I, 87),I= 31, 36) /  -76,   68,  572,  -40,  104,  -58/
 
2198
      DATA (CF(I, 87),I= 37, 42) /  -13,  -13,   50,  -76,  -58,    5/
 
2199
      DATA (CF(I, 87),I= 43, 48) /  -40,  -76,  -58,  -58,    5,  -13/
 
2200
      DATA (CF(I, 87),I= 49, 54) /  -76,   68,  -13,    5,  -76,  -13/
 
2201
      DATA (CF(I, 87),I= 55, 60) /   50, -454,   50,  -76,   68,  -13/
 
2202
      DATA (CF(I, 87),I= 61, 66) /   68,  -76, -454,   68,  -40,  -76/
 
2203
      DATA (CF(I, 87),I= 67, 72) /  -40,  -58,  -76,    5,  -58,  -13/
 
2204
      DATA (CF(I, 87),I= 73, 78) /  572,  -76,   50,  -13,  428,  554/
 
2205
      DATA (CF(I, 87),I= 79, 84) /   50,   50, -454,   68,  -76,  -13/
 
2206
      DATA (CF(I, 87),I= 85, 90) / -454,   50, 3641, -454,  572,   50/
 
2207
      DATA (CF(I, 87),I= 91, 96) / -184,  428,  428,  -76,  -76,   50/
 
2208
      DATA (CF(I, 87),I= 97,102) /  176, -184, -184,  -40,  -40,  572/
 
2209
      DATA (CF(I, 87),I=103,108) / -184,  428,  -40,  -40,  -58,  -76/
 
2210
      DATA (CF(I, 87),I=109,114) /  -40,  -58,  572,  -76,  104,   68/
 
2211
      DATA (CF(I, 87),I=115,120) /  -40,  -76,  -76,   68,   68, -454/
 
2212
C     1 Tr(1,5,4,3,2,6)
 
2213
      DATA DENOM(88)/648/
 
2214
      DATA (CF(I, 88),I=  1,  6) /  -40,  -40,  -76,  -58, -184,  428/
 
2215
      DATA (CF(I, 88),I=  7, 12) /  -76,  572,   68,  104,  -40,  -58/
 
2216
      DATA (CF(I, 88),I= 13, 18) /   68,  -76, -454,   68,  -40,  -76/
 
2217
      DATA (CF(I, 88),I= 19, 24) /  176, -184, -184,  -40,  -40,  572/
 
2218
      DATA (CF(I, 88),I= 25, 30) /  -58,  -58,  -13,    5,  -40,  -76/
 
2219
      DATA (CF(I, 88),I= 31, 36) /  -58,  104,  -40,  572,   68,  -76/
 
2220
      DATA (CF(I, 88),I= 37, 42) /    5,  -58,  -76,   50,  -13,  -13/
 
2221
      DATA (CF(I, 88),I= 43, 48) /  572,   50,  -76,  428,  -13,  554/
 
2222
      DATA (CF(I, 88),I= 49, 54) /    5,  -76,  -13,  -58,  -40,  -58/
 
2223
      DATA (CF(I, 88),I= 55, 60) /  -13,   68,  -76,   50, -454,   50/
 
2224
      DATA (CF(I, 88),I= 61, 66) /  -76,  -40,   68, -454,  -76,   68/
 
2225
      DATA (CF(I, 88),I= 67, 72) /  -76,  -13,   68,  -76,    5,  -13/
 
2226
      DATA (CF(I, 88),I= 73, 78) /  -76,  428,   50,  -76, -184,  428/
 
2227
      DATA (CF(I, 88),I= 79, 84) /  -13,  -76,   68, -454,   50,   50/
 
2228
      DATA (CF(I, 88),I= 85, 90) /   50,  572, -454, 3641,   50, -454/
 
2229
      DATA (CF(I, 88),I= 91, 96) /  428,  554,  -76,  572,  -13,   50/
 
2230
      DATA (CF(I, 88),I= 97,102) / -184,  428,  428,  -76,  -76,   50/
 
2231
      DATA (CF(I, 88),I=103,108) /  -40,  -76,  -40, -184,  -58,  428/
 
2232
      DATA (CF(I, 88),I=109,114) /  -58,    5,  -76,  428,  -58,  -76/
 
2233
      DATA (CF(I, 88),I=115,120) /  -58,  -13,    5,  -76,  -13,   50/
 
2234
C     1 Tr(1,5,4,3,6,2)
 
2235
      DATA DENOM(89)/648/
 
2236
      DATA (CF(I, 89),I=  1,  6) /  -76,  428,   50,  -76, -184,  428/
 
2237
      DATA (CF(I, 89),I=  7, 12) /    5,  -58,  -58,  -76,  -76,  428/
 
2238
      DATA (CF(I, 89),I= 13, 18) /  -13,  -58,  -13,   50,    5,  -76/
 
2239
      DATA (CF(I, 89),I= 19, 24) /  -40,  -76,  -40, -184,  -58,  428/
 
2240
      DATA (CF(I, 89),I= 25, 30) /  -40, -184,  572,  -40,  176, -184/
 
2241
      DATA (CF(I, 89),I= 31, 36) /  -58,  -40,  104,   68,  572,  -76/
 
2242
      DATA (CF(I, 89),I= 37, 42) /  -76,  -40,   68, -454,  -76,   68/
 
2243
      DATA (CF(I, 89),I= 43, 48) / -184,  428,  -40,  -40,  -58,  -76/
 
2244
      DATA (CF(I, 89),I= 49, 54) /  -13,  -76,    5,  -13,   68,  -76/
 
2245
      DATA (CF(I, 89),I= 55, 60) /  -58,  -40,  -58,  -13,  -76,    5/
 
2246
      DATA (CF(I, 89),I= 61, 66) /  -76,   68,  -40,  -76, -454,   68/
 
2247
      DATA (CF(I, 89),I= 67, 72) / -454,   50,   68,  -13,   50,  -76/
 
2248
      DATA (CF(I, 89),I= 73, 78) /  554,  428,  -13,   50,  -76,  572/
 
2249
      DATA (CF(I, 89),I= 79, 84) /  428, -184,  -76,   50,  428,  -76/
 
2250
      DATA (CF(I, 89),I= 85, 90) /   50, -454,  572,   50, 3641, -454/
 
2251
      DATA (CF(I, 89),I= 91, 96) /   50,   50,  -76,  -13, -454,   68/
 
2252
      DATA (CF(I, 89),I= 97,102) /  572,   50,  -76,  428,  -13,  554/
 
2253
      DATA (CF(I, 89),I=103,108) /  -40,  -76,  -58,  -58,    5,  -13/
 
2254
      DATA (CF(I, 89),I=109,114) /   68,  -76,  104,  -58,  572,  -40/
 
2255
      DATA (CF(I, 89),I=115,120) /  -13,  -13,  -58,    5,   50,  -76/
 
2256
C     1 Tr(1,5,4,6,2,3)
 
2257
      DATA DENOM(90)/648/
 
2258
      DATA (CF(I, 90),I=  1,  6) /  -40, -184,  572,  -40,  176, -184/
 
2259
      DATA (CF(I, 90),I=  7, 12) /  -58,  -40,  104,   68,  572,  -76/
 
2260
      DATA (CF(I, 90),I= 13, 18) /  -76,  -40,   68, -454,  -76,   68/
 
2261
      DATA (CF(I, 90),I= 19, 24) / -184,  428,  -40,  -40,  -58,  -76/
 
2262
      DATA (CF(I, 90),I= 25, 30) /  -76,  428,   50,  -76, -184,  428/
 
2263
      DATA (CF(I, 90),I= 31, 36) /    5,  -58,  -58,  -76,  -76,  428/
 
2264
      DATA (CF(I, 90),I= 37, 42) /  -13,  -58,  -13,   50,    5,  -76/
 
2265
      DATA (CF(I, 90),I= 43, 48) /  -40,  -76,  -40, -184,  -58,  428/
 
2266
      DATA (CF(I, 90),I= 49, 54) /  -58,  -40,  -58,  -13,  -76,    5/
 
2267
      DATA (CF(I, 90),I= 55, 60) /  -13,  -76,    5,  -13,   68,  -76/
 
2268
      DATA (CF(I, 90),I= 61, 66) /  -40,  -76,  -76,   68,   68, -454/
 
2269
      DATA (CF(I, 90),I= 67, 72) /   68,  -13, -454,   50,  -76,   50/
 
2270
      DATA (CF(I, 90),I= 73, 78) /  428, -184,  -76,   50,  428,  -76/
 
2271
      DATA (CF(I, 90),I= 79, 84) /  554,  428,  -13,   50,  -76,  572/
 
2272
      DATA (CF(I, 90),I= 85, 90) /  572,   50,   50, -454, -454, 3641/
 
2273
      DATA (CF(I, 90),I= 91, 96) /  -76,  -13,   50,   50,   68, -454/
 
2274
      DATA (CF(I, 90),I= 97,102) /  -40,  -76,  -58,  -58,    5,  -13/
 
2275
      DATA (CF(I, 90),I=103,108) /  572,   50,  -76,  428,  -13,  554/
 
2276
      DATA (CF(I, 90),I=109,114) /  104,  -58,   68,  -76,  -40,  572/
 
2277
      DATA (CF(I, 90),I=115,120) /  -58,    5,  -13,  -13,  -76,   50/
 
2278
C     1 Tr(1,5,4,6,3,2)
 
2279
      DATA DENOM(91)/648/
 
2280
      DATA (CF(I, 91),I=  1,  6) /   50,  572,  -13,  554,  -76,  428/
 
2281
      DATA (CF(I, 91),I=  7, 12) /  -76,  -40,    5,  -13,  -58,  -58/
 
2282
      DATA (CF(I, 91),I= 13, 18) /  -13,  -13,  -58,    5,   50,  -76/
 
2283
      DATA (CF(I, 91),I= 19, 24) /   68,  -76,  104,  -58,  572,  -40/
 
2284
      DATA (CF(I, 91),I= 25, 30) /  -76,  -40,  -58,  428,  -40, -184/
 
2285
      DATA (CF(I, 91),I= 31, 36) /  428, -184,  -76,   50,  428,  -76/
 
2286
      DATA (CF(I, 91),I= 37, 42) /    5,  -76,  -58,  -13,   50,  -13/
 
2287
      DATA (CF(I, 91),I= 43, 48) /  -76,  428,  -58,    5,  -76,  -58/
 
2288
      DATA (CF(I, 91),I= 49, 54) /  428, -184,  -58,  -76,  -40,  -40/
 
2289
      DATA (CF(I, 91),I= 55, 60) / -184,  176,  -40,  572, -184,  -40/
 
2290
      DATA (CF(I, 91),I= 61, 66) /  -76,   68,  -40,  -76, -454,   68/
 
2291
      DATA (CF(I, 91),I= 67, 72) /  572,  -76,  -40,  -58,   68,  104/
 
2292
      DATA (CF(I, 91),I= 73, 78) /   50,   50,  -76,  -13, -454,   68/
 
2293
      DATA (CF(I, 91),I= 79, 84) /  -76,  572,  428,  554,   50,  -13/
 
2294
      DATA (CF(I, 91),I= 85, 90) /  428,  -76, -184,  428,   50,  -76/
 
2295
      DATA (CF(I, 91),I= 91, 96) / 3641, -454, -454,   50,   50,  572/
 
2296
      DATA (CF(I, 91),I= 97,102) / -454,   50,   68,  -13,   50,  -76/
 
2297
      DATA (CF(I, 91),I=103,108) /   68,  -76,  -76,  -13,  -13,    5/
 
2298
      DATA (CF(I, 91),I=109,114) /  -76,    5,  -40,  -58,  -13,  -58/
 
2299
      DATA (CF(I, 91),I=115,120) / -454,   68,   68,  -76,  -76,  -40/
 
2300
C     1 Tr(1,5,6,2,3,4)
 
2301
      DATA DENOM(92)/648/
 
2302
      DATA (CF(I, 92),I=  1,  6) /  -76,  -40,    5,  -13,  -58,  -58/
 
2303
      DATA (CF(I, 92),I=  7, 12) /   50,  572,  -13,  554,  -76,  428/
 
2304
      DATA (CF(I, 92),I= 13, 18) /  -58,    5,  -13,  -13,  -76,   50/
 
2305
      DATA (CF(I, 92),I= 19, 24) /  104,  -58,   68,  -76,  -40,  572/
 
2306
      DATA (CF(I, 92),I= 25, 30) /  428, -184,  -58,  -76,  -40,  -40/
 
2307
      DATA (CF(I, 92),I= 31, 36) / -184,  176,  -40,  572, -184,  -40/
 
2308
      DATA (CF(I, 92),I= 37, 42) /  -76,   68,  -40,  -76, -454,   68/
 
2309
      DATA (CF(I, 92),I= 43, 48) /  572,  -76,  -40,  -58,   68,  104/
 
2310
      DATA (CF(I, 92),I= 49, 54) /  -76,  -40,  -58,  428,  -40, -184/
 
2311
      DATA (CF(I, 92),I= 55, 60) /  428, -184,  -76,   50,  428,  -76/
 
2312
      DATA (CF(I, 92),I= 61, 66) /    5,  -76,  -58,  -13,   50,  -13/
 
2313
      DATA (CF(I, 92),I= 67, 72) /  -76,  428,  -58,    5,  -76,  -58/
 
2314
      DATA (CF(I, 92),I= 73, 78) /  -76,  -13,   50,   50,   68, -454/
 
2315
      DATA (CF(I, 92),I= 79, 84) /  428,  -76, -184,  428,   50,  -76/
 
2316
      DATA (CF(I, 92),I= 85, 90) /  -76,  572,  428,  554,   50,  -13/
 
2317
      DATA (CF(I, 92),I= 91, 96) / -454, 3641,   50,  572, -454,   50/
 
2318
      DATA (CF(I, 92),I= 97,102) /   68,  -13, -454,   50,  -76,   50/
 
2319
      DATA (CF(I, 92),I=103,108) /  -76,    5,  -40,  -58,  -13,  -58/
 
2320
      DATA (CF(I, 92),I=109,114) /   68,  -76,  -76,  -13,  -13,    5/
 
2321
      DATA (CF(I, 92),I=115,120) /   68, -454,  -76,  -40,   68,  -76/
 
2322
C     1 Tr(1,5,6,2,4,3)
 
2323
      DATA DENOM(93)/648/
 
2324
      DATA (CF(I, 93),I=  1,  6) /  -76,  -40,  -58,  428,  -40, -184/
 
2325
      DATA (CF(I, 93),I=  7, 12) /  428, -184,  -76,   50,  428,  -76/
 
2326
      DATA (CF(I, 93),I= 13, 18) /    5,  -76,  -58,  -13,   50,  -13/
 
2327
      DATA (CF(I, 93),I= 19, 24) /  -76,  428,  -58,    5,  -76,  -58/
 
2328
      DATA (CF(I, 93),I= 25, 30) /   50,  572,  -13,  554,  -76,  428/
 
2329
      DATA (CF(I, 93),I= 31, 36) /  -76,  -40,    5,  -13,  -58,  -58/
 
2330
      DATA (CF(I, 93),I= 37, 42) /  -13,  -13,  -58,    5,   50,  -76/
 
2331
      DATA (CF(I, 93),I= 43, 48) /   68,  -76,  104,  -58,  572,  -40/
 
2332
      DATA (CF(I, 93),I= 49, 54) / -184,  176,  -40,  572, -184,  -40/
 
2333
      DATA (CF(I, 93),I= 55, 60) /  428, -184,  -58,  -76,  -40,  -40/
 
2334
      DATA (CF(I, 93),I= 61, 66) /  -40,  -76,  -76,   68,   68, -454/
 
2335
      DATA (CF(I, 93),I= 67, 72) /  -40,  -58,  572,  -76,  104,   68/
 
2336
      DATA (CF(I, 93),I= 73, 78) /  -76,  572,  428,  554,   50,  -13/
 
2337
      DATA (CF(I, 93),I= 79, 84) /   50,   50,  -76,  -13, -454,   68/
 
2338
      DATA (CF(I, 93),I= 85, 90) / -184,  428,  428,  -76,  -76,   50/
 
2339
      DATA (CF(I, 93),I= 91, 96) / -454,   50, 3641, -454,  572,   50/
 
2340
      DATA (CF(I, 93),I= 97,102) /   68,  -76,  -76,  -13,  -13,    5/
 
2341
      DATA (CF(I, 93),I=103,108) / -454,   50,   68,  -13,   50,  -76/
 
2342
      DATA (CF(I, 93),I=109,114) /  -40,  -58,  -76,    5,  -58,  -13/
 
2343
      DATA (CF(I, 93),I=115,120) /   68,  -76, -454,   68,  -40,  -76/
 
2344
C     1 Tr(1,5,6,3,2,4)
 
2345
      DATA DENOM(94)/648/
 
2346
      DATA (CF(I, 94),I=  1,  6) /  428, -184,  -58,  -76,  -40,  -40/
 
2347
      DATA (CF(I, 94),I=  7, 12) / -184,  176,  -40,  572, -184,  -40/
 
2348
      DATA (CF(I, 94),I= 13, 18) /  -76,   68,  -40,  -76, -454,   68/
 
2349
      DATA (CF(I, 94),I= 19, 24) /  572,  -76,  -40,  -58,   68,  104/
 
2350
      DATA (CF(I, 94),I= 25, 30) /  -76,  -40,    5,  -13,  -58,  -58/
 
2351
      DATA (CF(I, 94),I= 31, 36) /   50,  572,  -13,  554,  -76,  428/
 
2352
      DATA (CF(I, 94),I= 37, 42) /  -58,    5,  -13,  -13,  -76,   50/
 
2353
      DATA (CF(I, 94),I= 43, 48) /  104,  -58,   68,  -76,  -40,  572/
 
2354
      DATA (CF(I, 94),I= 49, 54) /  428, -184,  -76,   50,  428,  -76/
 
2355
      DATA (CF(I, 94),I= 55, 60) /  -76,  -40,  -58,  428,  -40, -184/
 
2356
      DATA (CF(I, 94),I= 61, 66) /  -58,  -13,    5,  -76,  -13,   50/
 
2357
      DATA (CF(I, 94),I= 67, 72) /  -58,    5,  -76,  428,  -58,  -76/
 
2358
      DATA (CF(I, 94),I= 73, 78) /  428,  -76, -184,  428,   50,  -76/
 
2359
      DATA (CF(I, 94),I= 79, 84) /  -76,  -13,   50,   50,   68, -454/
 
2360
      DATA (CF(I, 94),I= 85, 90) /  428,  554,  -76,  572,  -13,   50/
 
2361
      DATA (CF(I, 94),I= 91, 96) /   50,  572, -454, 3641,   50, -454/
 
2362
      DATA (CF(I, 94),I= 97,102) /  -76,    5,  -40,  -58,  -13,  -58/
 
2363
      DATA (CF(I, 94),I=103,108) /   68,  -13, -454,   50,  -76,   50/
 
2364
      DATA (CF(I, 94),I=109,114) /  -76,  -13,   68,  -76,    5,  -13/
 
2365
      DATA (CF(I, 94),I=115,120) /  -76,  -40,   68, -454,  -76,   68/
 
2366
C     1 Tr(1,5,6,3,4,2)
 
2367
      DATA DENOM(95)/648/
 
2368
      DATA (CF(I, 95),I=  1,  6) /  428, -184,  -76,   50,  428,  -76/
 
2369
      DATA (CF(I, 95),I=  7, 12) /  -76,  -40,  -58,  428,  -40, -184/
 
2370
      DATA (CF(I, 95),I= 13, 18) /  -58,  -13,    5,  -76,  -13,   50/
 
2371
      DATA (CF(I, 95),I= 19, 24) /  -58,    5,  -76,  428,  -58,  -76/
 
2372
      DATA (CF(I, 95),I= 25, 30) / -184,  176,  -40,  572, -184,  -40/
 
2373
      DATA (CF(I, 95),I= 31, 36) /  428, -184,  -58,  -76,  -40,  -40/
 
2374
      DATA (CF(I, 95),I= 37, 42) /  -40,  -76,  -76,   68,   68, -454/
 
2375
      DATA (CF(I, 95),I= 43, 48) /  -40,  -58,  572,  -76,  104,   68/
 
2376
      DATA (CF(I, 95),I= 49, 54) /   50,  572,  -13,  554,  -76,  428/
 
2377
      DATA (CF(I, 95),I= 55, 60) /  -76,  -40,    5,  -13,  -58,  -58/
 
2378
      DATA (CF(I, 95),I= 61, 66) /  -13,  -13,  -58,    5,   50,  -76/
 
2379
      DATA (CF(I, 95),I= 67, 72) /   68,  -76,  104,  -58,  572,  -40/
 
2380
      DATA (CF(I, 95),I= 73, 78) /  428,  554,  -76,  572,  -13,   50/
 
2381
      DATA (CF(I, 95),I= 79, 84) / -184,  428,  428,  -76,  -76,   50/
 
2382
      DATA (CF(I, 95),I= 85, 90) /   50,   50,  -76,  -13, -454,   68/
 
2383
      DATA (CF(I, 95),I= 91, 96) /   50, -454,  572,   50, 3641, -454/
 
2384
      DATA (CF(I, 95),I= 97,102) /  -76,  -13,   68,  -76,    5,  -13/
 
2385
      DATA (CF(I, 95),I=103,108) /  -40,  -58,  -76,    5,  -58,  -13/
 
2386
      DATA (CF(I, 95),I=109,114) / -454,   50,   68,  -13,   50,  -76/
 
2387
      DATA (CF(I, 95),I=115,120) /  -76,   68,  -40,  -76, -454,   68/
 
2388
C     1 Tr(1,5,6,4,2,3)
 
2389
      DATA DENOM(96)/648/
 
2390
      DATA (CF(I, 96),I=  1,  6) / -184,  176,  -40,  572, -184,  -40/
 
2391
      DATA (CF(I, 96),I=  7, 12) /  428, -184,  -58,  -76,  -40,  -40/
 
2392
      DATA (CF(I, 96),I= 13, 18) /  -40,  -76,  -76,   68,   68, -454/
 
2393
      DATA (CF(I, 96),I= 19, 24) /  -40,  -58,  572,  -76,  104,   68/
 
2394
      DATA (CF(I, 96),I= 25, 30) /  428, -184,  -76,   50,  428,  -76/
 
2395
      DATA (CF(I, 96),I= 31, 36) /  -76,  -40,  -58,  428,  -40, -184/
 
2396
      DATA (CF(I, 96),I= 37, 42) /  -58,  -13,    5,  -76,  -13,   50/
 
2397
      DATA (CF(I, 96),I= 43, 48) /  -58,    5,  -76,  428,  -58,  -76/
 
2398
      DATA (CF(I, 96),I= 49, 54) /  -76,  -40,    5,  -13,  -58,  -58/
 
2399
      DATA (CF(I, 96),I= 55, 60) /   50,  572,  -13,  554,  -76,  428/
 
2400
      DATA (CF(I, 96),I= 61, 66) /  -58,    5,  -13,  -13,  -76,   50/
 
2401
      DATA (CF(I, 96),I= 67, 72) /  104,  -58,   68,  -76,  -40,  572/
 
2402
      DATA (CF(I, 96),I= 73, 78) / -184,  428,  428,  -76,  -76,   50/
 
2403
      DATA (CF(I, 96),I= 79, 84) /  428,  554,  -76,  572,  -13,   50/
 
2404
      DATA (CF(I, 96),I= 85, 90) /  -76,  -13,   50,   50,   68, -454/
 
2405
      DATA (CF(I, 96),I= 91, 96) /  572,   50,   50, -454, -454, 3641/
 
2406
      DATA (CF(I, 96),I= 97,102) /  -40,  -58,  -76,    5,  -58,  -13/
 
2407
      DATA (CF(I, 96),I=103,108) /  -76,  -13,   68,  -76,    5,  -13/
 
2408
      DATA (CF(I, 96),I=109,114) /   68,  -13, -454,   50,  -76,   50/
 
2409
      DATA (CF(I, 96),I=115,120) /  -40,  -76,  -76,   68,   68, -454/
 
2410
C     1 Tr(1,5,6,4,3,2)
 
2411
      DATA DENOM(97)/648/
 
2412
      DATA (CF(I, 97),I=  1,  6) / -454,   50,   68,  -13,   50,  -76/
 
2413
      DATA (CF(I, 97),I=  7, 12) /   68,  -76,  -76,  -13,  -13,    5/
 
2414
      DATA (CF(I, 97),I= 13, 18) /  -76,    5,  -40,  -58,  -13,  -58/
 
2415
      DATA (CF(I, 97),I= 19, 24) / -454,   68,   68,  -76,  -76,  -40/
 
2416
      DATA (CF(I, 97),I= 25, 30) /   68,  -76,  104,  -58,  572,  -40/
 
2417
      DATA (CF(I, 97),I= 31, 36) /  -76,  428,  572,   50,  554,  -13/
 
2418
      DATA (CF(I, 97),I= 37, 42) /  -58,  -58,  -40,  -76,  -13,    5/
 
2419
      DATA (CF(I, 97),I= 43, 48) /   50,  -76,  -13,  -13,    5,  -58/
 
2420
      DATA (CF(I, 97),I= 49, 54) /  -76,  428,  -58,    5,  -76,  -58/
 
2421
      DATA (CF(I, 97),I= 55, 60) /  -40, -184,  -40,  -76,  428,  -58/
 
2422
      DATA (CF(I, 97),I= 61, 66) /  428,  -76, -184,  428,   50,  -76/
 
2423
      DATA (CF(I, 97),I= 67, 72) /   50,  -13,  -76,    5,  -13,  -58/
 
2424
      DATA (CF(I, 97),I= 73, 78) /  572,  -76,  -40,  -58,   68,  104/
 
2425
      DATA (CF(I, 97),I= 79, 84) /  -40,  -40, -184,  428,  -76,  -58/
 
2426
      DATA (CF(I, 97),I= 85, 90) / -184,  -40,  176, -184,  572,  -40/
 
2427
      DATA (CF(I, 97),I= 91, 96) / -454,   68,   68,  -76,  -76,  -40/
 
2428
      DATA (CF(I, 97),I= 97,102) / 3641, -454, -454,   50,   50,  572/
 
2429
      DATA (CF(I, 97),I=103,108) / -454,   68,   50,   50,  -13,  -76/
 
2430
      DATA (CF(I, 97),I=109,114) /   50,  -13,  572,  -76,  554,  428/
 
2431
      DATA (CF(I, 97),I=115,120) /   50,  -76,  -76,  428,  428, -184/
 
2432
C     1 Tr(1,6,2,3,4,5)
 
2433
      DATA DENOM(98)/648/
 
2434
      DATA (CF(I, 98),I=  1,  6) /   68,  -13, -454,   50,  -76,   50/
 
2435
      DATA (CF(I, 98),I=  7, 12) /  -76,    5,  -40,  -58,  -13,  -58/
 
2436
      DATA (CF(I, 98),I= 13, 18) /   68,  -76,  -76,  -13,  -13,    5/
 
2437
      DATA (CF(I, 98),I= 19, 24) /   68, -454,  -76,  -40,   68,  -76/
 
2438
      DATA (CF(I, 98),I= 25, 30) /  104,  -58,   68,  -76,  -40,  572/
 
2439
      DATA (CF(I, 98),I= 31, 36) /  -58,  -58,  -40,  -76,  -13,    5/
 
2440
      DATA (CF(I, 98),I= 37, 42) /  -76,  428,  572,   50,  554,  -13/
 
2441
      DATA (CF(I, 98),I= 43, 48) /  -76,   50,    5,  -58,  -13,  -13/
 
2442
      DATA (CF(I, 98),I= 49, 54) /  572,  -76,  -40,  -58,   68,  104/
 
2443
      DATA (CF(I, 98),I= 55, 60) /  -40,  -40, -184,  428,  -76,  -58/
 
2444
      DATA (CF(I, 98),I= 61, 66) / -184,  -40,  176, -184,  572,  -40/
 
2445
      DATA (CF(I, 98),I= 67, 72) / -454,   68,   68,  -76,  -76,  -40/
 
2446
      DATA (CF(I, 98),I= 73, 78) /  -76,  428,  -58,    5,  -76,  -58/
 
2447
      DATA (CF(I, 98),I= 79, 84) /  -40, -184,  -40,  -76,  428,  -58/
 
2448
      DATA (CF(I, 98),I= 85, 90) /  428,  -76, -184,  428,   50,  -76/
 
2449
      DATA (CF(I, 98),I= 91, 96) /   50,  -13,  -76,    5,  -13,  -58/
 
2450
      DATA (CF(I, 98),I= 97,102) / -454, 3641,   50,  572, -454,   50/
 
2451
      DATA (CF(I, 98),I=103,108) /   68, -454,  -13,  -76,   50,   50/
 
2452
      DATA (CF(I, 98),I=109,114) /   50,  -76,  -76,  428,  428, -184/
 
2453
      DATA (CF(I, 98),I=115,120) /   50,  -13,  572,  -76,  554,  428/
 
2454
C     1 Tr(1,6,2,3,5,4)
 
2455
      DATA DENOM(99)/648/
 
2456
      DATA (CF(I, 99),I=  1,  6) /   68,  -76,  -76,  -13,  -13,    5/
 
2457
      DATA (CF(I, 99),I=  7, 12) / -454,   50,   68,  -13,   50,  -76/
 
2458
      DATA (CF(I, 99),I= 13, 18) /  -40,  -58,  -76,    5,  -58,  -13/
 
2459
      DATA (CF(I, 99),I= 19, 24) /   68,  -76, -454,   68,  -40,  -76/
 
2460
      DATA (CF(I, 99),I= 25, 30) /  -76,  428,  -58,    5,  -76,  -58/
 
2461
      DATA (CF(I, 99),I= 31, 36) /  -40, -184,  -40,  -76,  428,  -58/
 
2462
      DATA (CF(I, 99),I= 37, 42) /  428,  -76, -184,  428,   50,  -76/
 
2463
      DATA (CF(I, 99),I= 43, 48) /   50,  -13,  -76,    5,  -13,  -58/
 
2464
      DATA (CF(I, 99),I= 49, 54) /   68,  -76,  104,  -58,  572,  -40/
 
2465
      DATA (CF(I, 99),I= 55, 60) /  -76,  428,  572,   50,  554,  -13/
 
2466
      DATA (CF(I, 99),I= 61, 66) /  -58,  -58,  -40,  -76,  -13,    5/
 
2467
      DATA (CF(I, 99),I= 67, 72) /   50,  -76,  -13,  -13,    5,  -58/
 
2468
      DATA (CF(I, 99),I= 73, 78) /  -40,  -58,  572,  -76,  104,   68/
 
2469
      DATA (CF(I, 99),I= 79, 84) / -184,  -40,  176, -184,  572,  -40/
 
2470
      DATA (CF(I, 99),I= 85, 90) /  -40,  -40, -184,  428,  -76,  -58/
 
2471
      DATA (CF(I, 99),I= 91, 96) /   68, -454,  -76,  -40,   68,  -76/
 
2472
      DATA (CF(I, 99),I= 97,102) / -454,   50, 3641, -454,  572,   50/
 
2473
      DATA (CF(I, 99),I=103,108) /   50,  -13,  572,  -76,  554,  428/
 
2474
      DATA (CF(I, 99),I=109,114) / -454,   68,   50,   50,  -13,  -76/
 
2475
      DATA (CF(I, 99),I=115,120) /  -76,   50,  428, -184,  -76,  428/
 
2476
C     1 Tr(1,6,2,4,3,5)
 
2477
      DATA DENOM(100)/648/
 
2478
      DATA (CF(I,100),I=  1,  6) /  -76,    5,  -40,  -58,  -13,  -58/
 
2479
      DATA (CF(I,100),I=  7, 12) /   68,  -13, -454,   50,  -76,   50/
 
2480
      DATA (CF(I,100),I= 13, 18) /  -76,  -13,   68,  -76,    5,  -13/
 
2481
      DATA (CF(I,100),I= 19, 24) /  -76,  -40,   68, -454,  -76,   68/
 
2482
      DATA (CF(I,100),I= 25, 30) /  572,  -76,  -40,  -58,   68,  104/
 
2483
      DATA (CF(I,100),I= 31, 36) /  -40,  -40, -184,  428,  -76,  -58/
 
2484
      DATA (CF(I,100),I= 37, 42) / -184,  -40,  176, -184,  572,  -40/
 
2485
      DATA (CF(I,100),I= 43, 48) / -454,   68,   68,  -76,  -76,  -40/
 
2486
      DATA (CF(I,100),I= 49, 54) /  104,  -58,   68,  -76,  -40,  572/
 
2487
      DATA (CF(I,100),I= 55, 60) /  -58,  -58,  -40,  -76,  -13,    5/
 
2488
      DATA (CF(I,100),I= 61, 66) /  -76,  428,  572,   50,  554,  -13/
 
2489
      DATA (CF(I,100),I= 67, 72) /  -76,   50,    5,  -58,  -13,  -13/
 
2490
      DATA (CF(I,100),I= 73, 78) /  -58,    5,  -76,  428,  -58,  -76/
 
2491
      DATA (CF(I,100),I= 79, 84) /  428,  -76, -184,  428,   50,  -76/
 
2492
      DATA (CF(I,100),I= 85, 90) /  -40, -184,  -40,  -76,  428,  -58/
 
2493
      DATA (CF(I,100),I= 91, 96) /  -13,   50,  -13,  -58,  -76,    5/
 
2494
      DATA (CF(I,100),I= 97,102) /   50,  572, -454, 3641,   50, -454/
 
2495
      DATA (CF(I,100),I=103,108) /   50,  -76,  -76,  428,  428, -184/
 
2496
      DATA (CF(I,100),I=109,114) /   68, -454,  -13,  -76,   50,   50/
 
2497
      DATA (CF(I,100),I=115,120) /  -13,   50,  554,  428,  572,  -76/
 
2498
C     1 Tr(1,6,2,4,5,3)
 
2499
      DATA DENOM(101)/648/
 
2500
      DATA (CF(I,101),I=  1,  6) /  -76,  -13,   68,  -76,    5,  -13/
 
2501
      DATA (CF(I,101),I=  7, 12) /  -40,  -58,  -76,    5,  -58,  -13/
 
2502
      DATA (CF(I,101),I= 13, 18) / -454,   50,   68,  -13,   50,  -76/
 
2503
      DATA (CF(I,101),I= 19, 24) /  -76,   68,  -40,  -76, -454,   68/
 
2504
      DATA (CF(I,101),I= 25, 30) /  -58,    5,  -76,  428,  -58,  -76/
 
2505
      DATA (CF(I,101),I= 31, 36) /  428,  -76, -184,  428,   50,  -76/
 
2506
      DATA (CF(I,101),I= 37, 42) /  -40, -184,  -40,  -76,  428,  -58/
 
2507
      DATA (CF(I,101),I= 43, 48) /  -13,   50,  -13,  -58,  -76,    5/
 
2508
      DATA (CF(I,101),I= 49, 54) /  -40,  -58,  572,  -76,  104,   68/
 
2509
      DATA (CF(I,101),I= 55, 60) / -184,  -40,  176, -184,  572,  -40/
 
2510
      DATA (CF(I,101),I= 61, 66) /  -40,  -40, -184,  428,  -76,  -58/
 
2511
      DATA (CF(I,101),I= 67, 72) /   68, -454,  -76,  -40,   68,  -76/
 
2512
      DATA (CF(I,101),I= 73, 78) /   68,  -76,  104,  -58,  572,  -40/
 
2513
      DATA (CF(I,101),I= 79, 84) /  -76,  428,  572,   50,  554,  -13/
 
2514
      DATA (CF(I,101),I= 85, 90) /  -58,  -58,  -40,  -76,  -13,    5/
 
2515
      DATA (CF(I,101),I= 91, 96) /   50,  -76,  -13,  -13,    5,  -58/
 
2516
      DATA (CF(I,101),I= 97,102) /   50, -454,  572,   50, 3641, -454/
 
2517
      DATA (CF(I,101),I=103,108) /  -13,   50,  554,  428,  572,  -76/
 
2518
      DATA (CF(I,101),I=109,114) /  -76,   50,  428, -184,  -76,  428/
 
2519
      DATA (CF(I,101),I=115,120) / -454,   68,   50,   50,  -13,  -76/
 
2520
C     1 Tr(1,6,2,5,3,4)
 
2521
      DATA DENOM(102)/648/
 
2522
      DATA (CF(I,102),I=  1,  6) /  -40,  -58,  -76,    5,  -58,  -13/
 
2523
      DATA (CF(I,102),I=  7, 12) /  -76,  -13,   68,  -76,    5,  -13/
 
2524
      DATA (CF(I,102),I= 13, 18) /   68,  -13, -454,   50,  -76,   50/
 
2525
      DATA (CF(I,102),I= 19, 24) /  -40,  -76,  -76,   68,   68, -454/
 
2526
      DATA (CF(I,102),I= 25, 30) /  -40,  -58,  572,  -76,  104,   68/
 
2527
      DATA (CF(I,102),I= 31, 36) / -184,  -40,  176, -184,  572,  -40/
 
2528
      DATA (CF(I,102),I= 37, 42) /  -40,  -40, -184,  428,  -76,  -58/
 
2529
      DATA (CF(I,102),I= 43, 48) /   68, -454,  -76,  -40,   68,  -76/
 
2530
      DATA (CF(I,102),I= 49, 54) /  -58,    5,  -76,  428,  -58,  -76/
 
2531
      DATA (CF(I,102),I= 55, 60) /  428,  -76, -184,  428,   50,  -76/
 
2532
      DATA (CF(I,102),I= 61, 66) /  -40, -184,  -40,  -76,  428,  -58/
 
2533
      DATA (CF(I,102),I= 67, 72) /  -13,   50,  -13,  -58,  -76,    5/
 
2534
      DATA (CF(I,102),I= 73, 78) /  104,  -58,   68,  -76,  -40,  572/
 
2535
      DATA (CF(I,102),I= 79, 84) /  -58,  -58,  -40,  -76,  -13,    5/
 
2536
      DATA (CF(I,102),I= 85, 90) /  -76,  428,  572,   50,  554,  -13/
 
2537
      DATA (CF(I,102),I= 91, 96) /  -76,   50,    5,  -58,  -13,  -13/
 
2538
      DATA (CF(I,102),I= 97,102) /  572,   50,   50, -454, -454, 3641/
 
2539
      DATA (CF(I,102),I=103,108) /  -76,   50,  428, -184,  -76,  428/
 
2540
      DATA (CF(I,102),I=109,114) /  -13,   50,  554,  428,  572,  -76/
 
2541
      DATA (CF(I,102),I=115,120) /   68, -454,  -13,  -76,   50,   50/
 
2542
C     1 Tr(1,6,2,5,4,3)
 
2543
      DATA DENOM(103)/648/
 
2544
      DATA (CF(I,103),I=  1,  6) /   68,  -76,  104,  -58,  572,  -40/
 
2545
      DATA (CF(I,103),I=  7, 12) /  -76,  428,  572,   50,  554,  -13/
 
2546
      DATA (CF(I,103),I= 13, 18) /  -58,  -58,  -40,  -76,  -13,    5/
 
2547
      DATA (CF(I,103),I= 19, 24) /   50,  -76,  -13,  -13,    5,  -58/
 
2548
      DATA (CF(I,103),I= 25, 30) / -454,   50,   68,  -13,   50,  -76/
 
2549
      DATA (CF(I,103),I= 31, 36) /   68,  -76,  -76,  -13,  -13,    5/
 
2550
      DATA (CF(I,103),I= 37, 42) /  -76,    5,  -40,  -58,  -13,  -58/
 
2551
      DATA (CF(I,103),I= 43, 48) / -454,   68,   68,  -76,  -76,  -40/
 
2552
      DATA (CF(I,103),I= 49, 54) /  -40, -184,  -40,  -76,  428,  -58/
 
2553
      DATA (CF(I,103),I= 55, 60) /  -76,  428,  -58,    5,  -76,  -58/
 
2554
      DATA (CF(I,103),I= 61, 66) / -184,  428,  428,  -76,  -76,   50/
 
2555
      DATA (CF(I,103),I= 67, 72) /  -76,    5,   50,  -13,  -58,  -13/
 
2556
      DATA (CF(I,103),I= 73, 78) /  -40,  -40, -184,  428,  -76,  -58/
 
2557
      DATA (CF(I,103),I= 79, 84) /  572,  -76,  -40,  -58,   68,  104/
 
2558
      DATA (CF(I,103),I= 85, 90) /  176, -184, -184,  -40,  -40,  572/
 
2559
      DATA (CF(I,103),I= 91, 96) /   68,  -76, -454,   68,  -40,  -76/
 
2560
      DATA (CF(I,103),I= 97,102) / -454,   68,   50,   50,  -13,  -76/
 
2561
      DATA (CF(I,103),I=103,108) / 3641, -454, -454,   50,   50,  572/
 
2562
      DATA (CF(I,103),I=109,114) /  572,  -76,   50,  -13,  428,  554/
 
2563
      DATA (CF(I,103),I=115,120) /  -76,  428,   50,  -76, -184,  428/
 
2564
C     1 Tr(1,6,3,2,4,5)
 
2565
      DATA DENOM(104)/648/
 
2566
      DATA (CF(I,104),I=  1,  6) /  104,  -58,   68,  -76,  -40,  572/
 
2567
      DATA (CF(I,104),I=  7, 12) /  -58,  -58,  -40,  -76,  -13,    5/
 
2568
      DATA (CF(I,104),I= 13, 18) /  -76,  428,  572,   50,  554,  -13/
 
2569
      DATA (CF(I,104),I= 19, 24) /  -76,   50,    5,  -58,  -13,  -13/
 
2570
      DATA (CF(I,104),I= 25, 30) /   68,  -13, -454,   50,  -76,   50/
 
2571
      DATA (CF(I,104),I= 31, 36) /  -76,    5,  -40,  -58,  -13,  -58/
 
2572
      DATA (CF(I,104),I= 37, 42) /   68,  -76,  -76,  -13,  -13,    5/
 
2573
      DATA (CF(I,104),I= 43, 48) /   68, -454,  -76,  -40,   68,  -76/
 
2574
      DATA (CF(I,104),I= 49, 54) /  -40,  -40, -184,  428,  -76,  -58/
 
2575
      DATA (CF(I,104),I= 55, 60) /  572,  -76,  -40,  -58,   68,  104/
 
2576
      DATA (CF(I,104),I= 61, 66) /  176, -184, -184,  -40,  -40,  572/
 
2577
      DATA (CF(I,104),I= 67, 72) /   68,  -76, -454,   68,  -40,  -76/
 
2578
      DATA (CF(I,104),I= 73, 78) /  -40, -184,  -40,  -76,  428,  -58/
 
2579
      DATA (CF(I,104),I= 79, 84) /  -76,  428,  -58,    5,  -76,  -58/
 
2580
      DATA (CF(I,104),I= 85, 90) / -184,  428,  428,  -76,  -76,   50/
 
2581
      DATA (CF(I,104),I= 91, 96) /  -76,    5,   50,  -13,  -58,  -13/
 
2582
      DATA (CF(I,104),I= 97,102) /   68, -454,  -13,  -76,   50,   50/
 
2583
      DATA (CF(I,104),I=103,108) / -454, 3641,   50,  572, -454,   50/
 
2584
      DATA (CF(I,104),I=109,114) /  -76,  428,   50,  -76, -184,  428/
 
2585
      DATA (CF(I,104),I=115,120) /  572,  -76,   50,  -13,  428,  554/
 
2586
C     1 Tr(1,6,3,2,5,4)
 
2587
      DATA DENOM(105)/648/
 
2588
      DATA (CF(I,105),I=  1,  6) /  -76,  428,  -58,    5,  -76,  -58/
 
2589
      DATA (CF(I,105),I=  7, 12) /  -40, -184,  -40,  -76,  428,  -58/
 
2590
      DATA (CF(I,105),I= 13, 18) /  428,  -76, -184,  428,   50,  -76/
 
2591
      DATA (CF(I,105),I= 19, 24) /   50,  -13,  -76,    5,  -13,  -58/
 
2592
      DATA (CF(I,105),I= 25, 30) /   68,  -76,  -76,  -13,  -13,    5/
 
2593
      DATA (CF(I,105),I= 31, 36) / -454,   50,   68,  -13,   50,  -76/
 
2594
      DATA (CF(I,105),I= 37, 42) /  -40,  -58,  -76,    5,  -58,  -13/
 
2595
      DATA (CF(I,105),I= 43, 48) /   68,  -76, -454,   68,  -40,  -76/
 
2596
      DATA (CF(I,105),I= 49, 54) /  -76,  428,  572,   50,  554,  -13/
 
2597
      DATA (CF(I,105),I= 55, 60) /   68,  -76,  104,  -58,  572,  -40/
 
2598
      DATA (CF(I,105),I= 61, 66) /  -40,  -76,  -58,  -58,    5,  -13/
 
2599
      DATA (CF(I,105),I= 67, 72) /  -13,  -13,   50,  -76,  -58,    5/
 
2600
      DATA (CF(I,105),I= 73, 78) / -184,  -40,  176, -184,  572,  -40/
 
2601
      DATA (CF(I,105),I= 79, 84) /  -40,  -58,  572,  -76,  104,   68/
 
2602
      DATA (CF(I,105),I= 85, 90) / -184,  428,  -40,  -40,  -58,  -76/
 
2603
      DATA (CF(I,105),I= 91, 96) /  -76,  -40,   68, -454,  -76,   68/
 
2604
      DATA (CF(I,105),I= 97,102) /   50,  -13,  572,  -76,  554,  428/
 
2605
      DATA (CF(I,105),I=103,108) / -454,   50, 3641, -454,  572,   50/
 
2606
      DATA (CF(I,105),I=109,114) /   50,   50, -454,   68,  -76,  -13/
 
2607
      DATA (CF(I,105),I=115,120) /  428, -184,  -76,   50,  428,  -76/
 
2608
C     1 Tr(1,6,3,4,2,5)
 
2609
      DATA DENOM(106)/648/
 
2610
      DATA (CF(I,106),I=  1,  6) /  572,  -76,  -40,  -58,   68,  104/
 
2611
      DATA (CF(I,106),I=  7, 12) /  -40,  -40, -184,  428,  -76,  -58/
 
2612
      DATA (CF(I,106),I= 13, 18) / -184,  -40,  176, -184,  572,  -40/
 
2613
      DATA (CF(I,106),I= 19, 24) / -454,   68,   68,  -76,  -76,  -40/
 
2614
      DATA (CF(I,106),I= 25, 30) /  -76,    5,  -40,  -58,  -13,  -58/
 
2615
      DATA (CF(I,106),I= 31, 36) /   68,  -13, -454,   50,  -76,   50/
 
2616
      DATA (CF(I,106),I= 37, 42) /  -76,  -13,   68,  -76,    5,  -13/
 
2617
      DATA (CF(I,106),I= 43, 48) /  -76,  -40,   68, -454,  -76,   68/
 
2618
      DATA (CF(I,106),I= 49, 54) /  -58,  -58,  -40,  -76,  -13,    5/
 
2619
      DATA (CF(I,106),I= 55, 60) /  104,  -58,   68,  -76,  -40,  572/
 
2620
      DATA (CF(I,106),I= 61, 66) /  572,   50,  -76,  428,  -13,  554/
 
2621
      DATA (CF(I,106),I= 67, 72) /    5,  -58,  -76,   50,  -13,  -13/
 
2622
      DATA (CF(I,106),I= 73, 78) /  428,  -76, -184,  428,   50,  -76/
 
2623
      DATA (CF(I,106),I= 79, 84) /  -58,    5,  -76,  428,  -58,  -76/
 
2624
      DATA (CF(I,106),I= 85, 90) /  -40,  -76,  -40, -184,  -58,  428/
 
2625
      DATA (CF(I,106),I= 91, 96) /  -13,  -58,  -13,   50,    5,  -76/
 
2626
      DATA (CF(I,106),I= 97,102) /   50,  -76,  -76,  428,  428, -184/
 
2627
      DATA (CF(I,106),I=103,108) /   50,  572, -454, 3641,   50, -454/
 
2628
      DATA (CF(I,106),I=109,114) /  -13,  -76,   68, -454,   50,   50/
 
2629
      DATA (CF(I,106),I=115,120) /  554,  428,  -13,   50,  -76,  572/
 
2630
C     1 Tr(1,6,3,4,5,2)
 
2631
      DATA DENOM(107)/648/
 
2632
      DATA (CF(I,107),I=  1,  6) /  -58,    5,  -76,  428,  -58,  -76/
 
2633
      DATA (CF(I,107),I=  7, 12) /  428,  -76, -184,  428,   50,  -76/
 
2634
      DATA (CF(I,107),I= 13, 18) /  -40, -184,  -40,  -76,  428,  -58/
 
2635
      DATA (CF(I,107),I= 19, 24) /  -13,   50,  -13,  -58,  -76,    5/
 
2636
      DATA (CF(I,107),I= 25, 30) /  -76,  -13,   68,  -76,    5,  -13/
 
2637
      DATA (CF(I,107),I= 31, 36) /  -40,  -58,  -76,    5,  -58,  -13/
 
2638
      DATA (CF(I,107),I= 37, 42) / -454,   50,   68,  -13,   50,  -76/
 
2639
      DATA (CF(I,107),I= 43, 48) /  -76,   68,  -40,  -76, -454,   68/
 
2640
      DATA (CF(I,107),I= 49, 54) / -184,  -40,  176, -184,  572,  -40/
 
2641
      DATA (CF(I,107),I= 55, 60) /  -40,  -58,  572,  -76,  104,   68/
 
2642
      DATA (CF(I,107),I= 61, 66) / -184,  428,  -40,  -40,  -58,  -76/
 
2643
      DATA (CF(I,107),I= 67, 72) /  -76,  -40,   68, -454,  -76,   68/
 
2644
      DATA (CF(I,107),I= 73, 78) /  -76,  428,  572,   50,  554,  -13/
 
2645
      DATA (CF(I,107),I= 79, 84) /   68,  -76,  104,  -58,  572,  -40/
 
2646
      DATA (CF(I,107),I= 85, 90) /  -40,  -76,  -58,  -58,    5,  -13/
 
2647
      DATA (CF(I,107),I= 91, 96) /  -13,  -13,   50,  -76,  -58,    5/
 
2648
      DATA (CF(I,107),I= 97,102) /  -13,   50,  554,  428,  572,  -76/
 
2649
      DATA (CF(I,107),I=103,108) /   50, -454,  572,   50, 3641, -454/
 
2650
      DATA (CF(I,107),I=109,114) /  428, -184,  -76,   50,  428,  -76/
 
2651
      DATA (CF(I,107),I=115,120) /   50,   50, -454,   68,  -76,  -13/
 
2652
C     1 Tr(1,6,3,5,2,4)
 
2653
      DATA DENOM(108)/648/
 
2654
      DATA (CF(I,108),I=  1,  6) /  -40,  -58,  572,  -76,  104,   68/
 
2655
      DATA (CF(I,108),I=  7, 12) / -184,  -40,  176, -184,  572,  -40/
 
2656
      DATA (CF(I,108),I= 13, 18) /  -40,  -40, -184,  428,  -76,  -58/
 
2657
      DATA (CF(I,108),I= 19, 24) /   68, -454,  -76,  -40,   68,  -76/
 
2658
      DATA (CF(I,108),I= 25, 30) /  -40,  -58,  -76,    5,  -58,  -13/
 
2659
      DATA (CF(I,108),I= 31, 36) /  -76,  -13,   68,  -76,    5,  -13/
 
2660
      DATA (CF(I,108),I= 37, 42) /   68,  -13, -454,   50,  -76,   50/
 
2661
      DATA (CF(I,108),I= 43, 48) /  -40,  -76,  -76,   68,   68, -454/
 
2662
      DATA (CF(I,108),I= 49, 54) /  428,  -76, -184,  428,   50,  -76/
 
2663
      DATA (CF(I,108),I= 55, 60) /  -58,    5,  -76,  428,  -58,  -76/
 
2664
      DATA (CF(I,108),I= 61, 66) /  -40,  -76,  -40, -184,  -58,  428/
 
2665
      DATA (CF(I,108),I= 67, 72) /  -13,  -58,  -13,   50,    5,  -76/
 
2666
      DATA (CF(I,108),I= 73, 78) /  -58,  -58,  -40,  -76,  -13,    5/
 
2667
      DATA (CF(I,108),I= 79, 84) /  104,  -58,   68,  -76,  -40,  572/
 
2668
      DATA (CF(I,108),I= 85, 90) /  572,   50,  -76,  428,  -13,  554/
 
2669
      DATA (CF(I,108),I= 91, 96) /    5,  -58,  -76,   50,  -13,  -13/
 
2670
      DATA (CF(I,108),I= 97,102) /  -76,   50,  428, -184,  -76,  428/
 
2671
      DATA (CF(I,108),I=103,108) /  572,   50,   50, -454, -454, 3641/
 
2672
      DATA (CF(I,108),I=109,114) /  554,  428,  -13,   50,  -76,  572/
 
2673
      DATA (CF(I,108),I=115,120) /  -13,  -76,   68, -454,   50,   50/
 
2674
C     1 Tr(1,6,3,5,4,2)
 
2675
      DATA DENOM(109)/648/
 
2676
      DATA (CF(I,109),I=  1,  6) /  -76,  428,  572,   50,  554,  -13/
 
2677
      DATA (CF(I,109),I=  7, 12) /   68,  -76,  104,  -58,  572,  -40/
 
2678
      DATA (CF(I,109),I= 13, 18) /  -40,  -76,  -58,  -58,    5,  -13/
 
2679
      DATA (CF(I,109),I= 19, 24) /  -13,  -13,   50,  -76,  -58,    5/
 
2680
      DATA (CF(I,109),I= 25, 30) /  -40, -184,  -40,  -76,  428,  -58/
 
2681
      DATA (CF(I,109),I= 31, 36) /  -76,  428,  -58,    5,  -76,  -58/
 
2682
      DATA (CF(I,109),I= 37, 42) / -184,  428,  428,  -76,  -76,   50/
 
2683
      DATA (CF(I,109),I= 43, 48) /  -76,    5,   50,  -13,  -58,  -13/
 
2684
      DATA (CF(I,109),I= 49, 54) / -454,   50,   68,  -13,   50,  -76/
 
2685
      DATA (CF(I,109),I= 55, 60) /   68,  -76,  -76,  -13,  -13,    5/
 
2686
      DATA (CF(I,109),I= 61, 66) /  -76,    5,  -40,  -58,  -13,  -58/
 
2687
      DATA (CF(I,109),I= 67, 72) / -454,   68,   68,  -76,  -76,  -40/
 
2688
      DATA (CF(I,109),I= 73, 78) / -184,  428,  -40,  -40,  -58,  -76/
 
2689
      DATA (CF(I,109),I= 79, 84) /  176, -184, -184,  -40,  -40,  572/
 
2690
      DATA (CF(I,109),I= 85, 90) /  572,  -76,  -40,  -58,   68,  104/
 
2691
      DATA (CF(I,109),I= 91, 96) /  -76,   68,  -40,  -76, -454,   68/
 
2692
      DATA (CF(I,109),I= 97,102) /   50,   50, -454,   68,  -76,  -13/
 
2693
      DATA (CF(I,109),I=103,108) /  572,  -76,   50,  -13,  428,  554/
 
2694
      DATA (CF(I,109),I=109,114) / 3641, -454, -454,   50,   50,  572/
 
2695
      DATA (CF(I,109),I=115,120) /  428,  -76, -184,  428,   50,  -76/
 
2696
C     1 Tr(1,6,4,2,3,5)
 
2697
      DATA DENOM(110)/648/
 
2698
      DATA (CF(I,110),I=  1,  6) /  -58,  -58,  -40,  -76,  -13,    5/
 
2699
      DATA (CF(I,110),I=  7, 12) /  104,  -58,   68,  -76,  -40,  572/
 
2700
      DATA (CF(I,110),I= 13, 18) /  572,   50,  -76,  428,  -13,  554/
 
2701
      DATA (CF(I,110),I= 19, 24) /    5,  -58,  -76,   50,  -13,  -13/
 
2702
      DATA (CF(I,110),I= 25, 30) /  -40,  -40, -184,  428,  -76,  -58/
 
2703
      DATA (CF(I,110),I= 31, 36) /  572,  -76,  -40,  -58,   68,  104/
 
2704
      DATA (CF(I,110),I= 37, 42) /  176, -184, -184,  -40,  -40,  572/
 
2705
      DATA (CF(I,110),I= 43, 48) /   68,  -76, -454,   68,  -40,  -76/
 
2706
      DATA (CF(I,110),I= 49, 54) /   68,  -13, -454,   50,  -76,   50/
 
2707
      DATA (CF(I,110),I= 55, 60) /  -76,    5,  -40,  -58,  -13,  -58/
 
2708
      DATA (CF(I,110),I= 61, 66) /   68,  -76,  -76,  -13,  -13,    5/
 
2709
      DATA (CF(I,110),I= 67, 72) /   68, -454,  -76,  -40,   68,  -76/
 
2710
      DATA (CF(I,110),I= 73, 78) /  -40,  -76,  -40, -184,  -58,  428/
 
2711
      DATA (CF(I,110),I= 79, 84) / -184,  428,  428,  -76,  -76,   50/
 
2712
      DATA (CF(I,110),I= 85, 90) /  -76,  428,  -58,    5,  -76,  -58/
 
2713
      DATA (CF(I,110),I= 91, 96) /    5,  -76,  -58,  -13,   50,  -13/
 
2714
      DATA (CF(I,110),I= 97,102) /  -13,  -76,   68, -454,   50,   50/
 
2715
      DATA (CF(I,110),I=103,108) /  -76,  428,   50,  -76, -184,  428/
 
2716
      DATA (CF(I,110),I=109,114) / -454, 3641,   50,  572, -454,   50/
 
2717
      DATA (CF(I,110),I=115,120) /  -76,  572,  428,  554,   50,  -13/
 
2718
C     1 Tr(1,6,4,2,5,3)
 
2719
      DATA DENOM(111)/648/
 
2720
      DATA (CF(I,111),I=  1,  6) /  -40, -184,  -40,  -76,  428,  -58/
 
2721
      DATA (CF(I,111),I=  7, 12) /  -76,  428,  -58,    5,  -76,  -58/
 
2722
      DATA (CF(I,111),I= 13, 18) / -184,  428,  428,  -76,  -76,   50/
 
2723
      DATA (CF(I,111),I= 19, 24) /  -76,    5,   50,  -13,  -58,  -13/
 
2724
      DATA (CF(I,111),I= 25, 30) /  -76,  428,  572,   50,  554,  -13/
 
2725
      DATA (CF(I,111),I= 31, 36) /   68,  -76,  104,  -58,  572,  -40/
 
2726
      DATA (CF(I,111),I= 37, 42) /  -40,  -76,  -58,  -58,    5,  -13/
 
2727
      DATA (CF(I,111),I= 43, 48) /  -13,  -13,   50,  -76,  -58,    5/
 
2728
      DATA (CF(I,111),I= 49, 54) /   68,  -76,  -76,  -13,  -13,    5/
 
2729
      DATA (CF(I,111),I= 55, 60) / -454,   50,   68,  -13,   50,  -76/
 
2730
      DATA (CF(I,111),I= 61, 66) /  -40,  -58,  -76,    5,  -58,  -13/
 
2731
      DATA (CF(I,111),I= 67, 72) /   68,  -76, -454,   68,  -40,  -76/
 
2732
      DATA (CF(I,111),I= 73, 78) /  176, -184, -184,  -40,  -40,  572/
 
2733
      DATA (CF(I,111),I= 79, 84) / -184,  428,  -40,  -40,  -58,  -76/
 
2734
      DATA (CF(I,111),I= 85, 90) /  -40,  -58,  572,  -76,  104,   68/
 
2735
      DATA (CF(I,111),I= 91, 96) /  -40,  -76,  -76,   68,   68, -454/
 
2736
      DATA (CF(I,111),I= 97,102) /  572,  -76,   50,  -13,  428,  554/
 
2737
      DATA (CF(I,111),I=103,108) /   50,   50, -454,   68,  -76,  -13/
 
2738
      DATA (CF(I,111),I=109,114) / -454,   50, 3641, -454,  572,   50/
 
2739
      DATA (CF(I,111),I=115,120) / -184,  428,  428,  -76,  -76,   50/
 
2740
C     1 Tr(1,6,4,3,2,5)
 
2741
      DATA DENOM(112)/648/
 
2742
      DATA (CF(I,112),I=  1,  6) /  -40,  -40, -184,  428,  -76,  -58/
 
2743
      DATA (CF(I,112),I=  7, 12) /  572,  -76,  -40,  -58,   68,  104/
 
2744
      DATA (CF(I,112),I= 13, 18) /  176, -184, -184,  -40,  -40,  572/
 
2745
      DATA (CF(I,112),I= 19, 24) /   68,  -76, -454,   68,  -40,  -76/
 
2746
      DATA (CF(I,112),I= 25, 30) /  -58,  -58,  -40,  -76,  -13,    5/
 
2747
      DATA (CF(I,112),I= 31, 36) /  104,  -58,   68,  -76,  -40,  572/
 
2748
      DATA (CF(I,112),I= 37, 42) /  572,   50,  -76,  428,  -13,  554/
 
2749
      DATA (CF(I,112),I= 43, 48) /    5,  -58,  -76,   50,  -13,  -13/
 
2750
      DATA (CF(I,112),I= 49, 54) /  -76,    5,  -40,  -58,  -13,  -58/
 
2751
      DATA (CF(I,112),I= 55, 60) /   68,  -13, -454,   50,  -76,   50/
 
2752
      DATA (CF(I,112),I= 61, 66) /  -76,  -13,   68,  -76,    5,  -13/
 
2753
      DATA (CF(I,112),I= 67, 72) /  -76,  -40,   68, -454,  -76,   68/
 
2754
      DATA (CF(I,112),I= 73, 78) / -184,  428,  428,  -76,  -76,   50/
 
2755
      DATA (CF(I,112),I= 79, 84) /  -40,  -76,  -40, -184,  -58,  428/
 
2756
      DATA (CF(I,112),I= 85, 90) /  -58,    5,  -76,  428,  -58,  -76/
 
2757
      DATA (CF(I,112),I= 91, 96) /  -58,  -13,    5,  -76,  -13,   50/
 
2758
      DATA (CF(I,112),I= 97,102) /  -76,  428,   50,  -76, -184,  428/
 
2759
      DATA (CF(I,112),I=103,108) /  -13,  -76,   68, -454,   50,   50/
 
2760
      DATA (CF(I,112),I=109,114) /   50,  572, -454, 3641,   50, -454/
 
2761
      DATA (CF(I,112),I=115,120) /  428,  554,  -76,  572,  -13,   50/
 
2762
C     1 Tr(1,6,4,3,5,2)
 
2763
      DATA DENOM(113)/648/
 
2764
      DATA (CF(I,113),I=  1,  6) /  428,  -76, -184,  428,   50,  -76/
 
2765
      DATA (CF(I,113),I=  7, 12) /  -58,    5,  -76,  428,  -58,  -76/
 
2766
      DATA (CF(I,113),I= 13, 18) /  -40,  -76,  -40, -184,  -58,  428/
 
2767
      DATA (CF(I,113),I= 19, 24) /  -13,  -58,  -13,   50,    5,  -76/
 
2768
      DATA (CF(I,113),I= 25, 30) / -184,  -40,  176, -184,  572,  -40/
 
2769
      DATA (CF(I,113),I= 31, 36) /  -40,  -58,  572,  -76,  104,   68/
 
2770
      DATA (CF(I,113),I= 37, 42) / -184,  428,  -40,  -40,  -58,  -76/
 
2771
      DATA (CF(I,113),I= 43, 48) /  -76,  -40,   68, -454,  -76,   68/
 
2772
      DATA (CF(I,113),I= 49, 54) /  -76,  -13,   68,  -76,    5,  -13/
 
2773
      DATA (CF(I,113),I= 55, 60) /  -40,  -58,  -76,    5,  -58,  -13/
 
2774
      DATA (CF(I,113),I= 61, 66) / -454,   50,   68,  -13,   50,  -76/
 
2775
      DATA (CF(I,113),I= 67, 72) /  -76,   68,  -40,  -76, -454,   68/
 
2776
      DATA (CF(I,113),I= 73, 78) /  572,   50,  -76,  428,  -13,  554/
 
2777
      DATA (CF(I,113),I= 79, 84) /  -40,  -76,  -58,  -58,    5,  -13/
 
2778
      DATA (CF(I,113),I= 85, 90) /   68,  -76,  104,  -58,  572,  -40/
 
2779
      DATA (CF(I,113),I= 91, 96) /  -13,  -13,  -58,    5,   50,  -76/
 
2780
      DATA (CF(I,113),I= 97,102) /  554,  428,  -13,   50,  -76,  572/
 
2781
      DATA (CF(I,113),I=103,108) /  428, -184,  -76,   50,  428,  -76/
 
2782
      DATA (CF(I,113),I=109,114) /   50, -454,  572,   50, 3641, -454/
 
2783
      DATA (CF(I,113),I=115,120) /   50,   50,  -76,  -13, -454,   68/
 
2784
C     1 Tr(1,6,4,5,2,3)
 
2785
      DATA DENOM(114)/648/
 
2786
      DATA (CF(I,114),I=  1,  6) / -184,  -40,  176, -184,  572,  -40/
 
2787
      DATA (CF(I,114),I=  7, 12) /  -40,  -58,  572,  -76,  104,   68/
 
2788
      DATA (CF(I,114),I= 13, 18) / -184,  428,  -40,  -40,  -58,  -76/
 
2789
      DATA (CF(I,114),I= 19, 24) /  -76,  -40,   68, -454,  -76,   68/
 
2790
      DATA (CF(I,114),I= 25, 30) /  428,  -76, -184,  428,   50,  -76/
 
2791
      DATA (CF(I,114),I= 31, 36) /  -58,    5,  -76,  428,  -58,  -76/
 
2792
      DATA (CF(I,114),I= 37, 42) /  -40,  -76,  -40, -184,  -58,  428/
 
2793
      DATA (CF(I,114),I= 43, 48) /  -13,  -58,  -13,   50,    5,  -76/
 
2794
      DATA (CF(I,114),I= 49, 54) /  -40,  -58,  -76,    5,  -58,  -13/
 
2795
      DATA (CF(I,114),I= 55, 60) /  -76,  -13,   68,  -76,    5,  -13/
 
2796
      DATA (CF(I,114),I= 61, 66) /   68,  -13, -454,   50,  -76,   50/
 
2797
      DATA (CF(I,114),I= 67, 72) /  -40,  -76,  -76,   68,   68, -454/
 
2798
      DATA (CF(I,114),I= 73, 78) /  -40,  -76,  -58,  -58,    5,  -13/
 
2799
      DATA (CF(I,114),I= 79, 84) /  572,   50,  -76,  428,  -13,  554/
 
2800
      DATA (CF(I,114),I= 85, 90) /  104,  -58,   68,  -76,  -40,  572/
 
2801
      DATA (CF(I,114),I= 91, 96) /  -58,    5,  -13,  -13,  -76,   50/
 
2802
      DATA (CF(I,114),I= 97,102) /  428, -184,  -76,   50,  428,  -76/
 
2803
      DATA (CF(I,114),I=103,108) /  554,  428,  -13,   50,  -76,  572/
 
2804
      DATA (CF(I,114),I=109,114) /  572,   50,   50, -454, -454, 3641/
 
2805
      DATA (CF(I,114),I=115,120) /  -76,  -13,   50,   50,   68, -454/
 
2806
C     1 Tr(1,6,4,5,3,2)
 
2807
      DATA DENOM(115)/648/
 
2808
      DATA (CF(I,115),I=  1,  6) /  572,   50,  -76,  428,  -13,  554/
 
2809
      DATA (CF(I,115),I=  7, 12) /  -40,  -76,  -58,  -58,    5,  -13/
 
2810
      DATA (CF(I,115),I= 13, 18) /   68,  -76,  104,  -58,  572,  -40/
 
2811
      DATA (CF(I,115),I= 19, 24) /  -13,  -13,  -58,    5,   50,  -76/
 
2812
      DATA (CF(I,115),I= 25, 30) /  -40,  -76,  -40, -184,  -58,  428/
 
2813
      DATA (CF(I,115),I= 31, 36) / -184,  428,  428,  -76,  -76,   50/
 
2814
      DATA (CF(I,115),I= 37, 42) /  -76,  428,  -58,    5,  -76,  -58/
 
2815
      DATA (CF(I,115),I= 43, 48) /    5,  -76,  -58,  -13,   50,  -13/
 
2816
      DATA (CF(I,115),I= 49, 54) / -184,  428,  -40,  -40,  -58,  -76/
 
2817
      DATA (CF(I,115),I= 55, 60) /  176, -184, -184,  -40,  -40,  572/
 
2818
      DATA (CF(I,115),I= 61, 66) /  572,  -76,  -40,  -58,   68,  104/
 
2819
      DATA (CF(I,115),I= 67, 72) /  -76,   68,  -40,  -76, -454,   68/
 
2820
      DATA (CF(I,115),I= 73, 78) / -454,   50,   68,  -13,   50,  -76/
 
2821
      DATA (CF(I,115),I= 79, 84) /   68,  -76,  -76,  -13,  -13,    5/
 
2822
      DATA (CF(I,115),I= 85, 90) /  -76,    5,  -40,  -58,  -13,  -58/
 
2823
      DATA (CF(I,115),I= 91, 96) / -454,   68,   68,  -76,  -76,  -40/
 
2824
      DATA (CF(I,115),I= 97,102) /   50,   50,  -76,  -13, -454,   68/
 
2825
      DATA (CF(I,115),I=103,108) /  -76,  572,  428,  554,   50,  -13/
 
2826
      DATA (CF(I,115),I=109,114) /  428,  -76, -184,  428,   50,  -76/
 
2827
      DATA (CF(I,115),I=115,120) / 3641, -454, -454,   50,   50,  572/
 
2828
C     1 Tr(1,6,5,2,3,4)
 
2829
      DATA DENOM(116)/648/
 
2830
      DATA (CF(I,116),I=  1,  6) /  -40,  -76,  -58,  -58,    5,  -13/
 
2831
      DATA (CF(I,116),I=  7, 12) /  572,   50,  -76,  428,  -13,  554/
 
2832
      DATA (CF(I,116),I= 13, 18) /  104,  -58,   68,  -76,  -40,  572/
 
2833
      DATA (CF(I,116),I= 19, 24) /  -58,    5,  -13,  -13,  -76,   50/
 
2834
      DATA (CF(I,116),I= 25, 30) / -184,  428,  -40,  -40,  -58,  -76/
 
2835
      DATA (CF(I,116),I= 31, 36) /  176, -184, -184,  -40,  -40,  572/
 
2836
      DATA (CF(I,116),I= 37, 42) /  572,  -76,  -40,  -58,   68,  104/
 
2837
      DATA (CF(I,116),I= 43, 48) /  -76,   68,  -40,  -76, -454,   68/
 
2838
      DATA (CF(I,116),I= 49, 54) /  -40,  -76,  -40, -184,  -58,  428/
 
2839
      DATA (CF(I,116),I= 55, 60) / -184,  428,  428,  -76,  -76,   50/
 
2840
      DATA (CF(I,116),I= 61, 66) /  -76,  428,  -58,    5,  -76,  -58/
 
2841
      DATA (CF(I,116),I= 67, 72) /    5,  -76,  -58,  -13,   50,  -13/
 
2842
      DATA (CF(I,116),I= 73, 78) /   68,  -13, -454,   50,  -76,   50/
 
2843
      DATA (CF(I,116),I= 79, 84) /  -76,    5,  -40,  -58,  -13,  -58/
 
2844
      DATA (CF(I,116),I= 85, 90) /   68,  -76,  -76,  -13,  -13,    5/
 
2845
      DATA (CF(I,116),I= 91, 96) /   68, -454,  -76,  -40,   68,  -76/
 
2846
      DATA (CF(I,116),I= 97,102) /  -76,  -13,   50,   50,   68, -454/
 
2847
      DATA (CF(I,116),I=103,108) /  428,  -76, -184,  428,   50,  -76/
 
2848
      DATA (CF(I,116),I=109,114) /  -76,  572,  428,  554,   50,  -13/
 
2849
      DATA (CF(I,116),I=115,120) / -454, 3641,   50,  572, -454,   50/
 
2850
C     1 Tr(1,6,5,2,4,3)
 
2851
      DATA DENOM(117)/648/
 
2852
      DATA (CF(I,117),I=  1,  6) /  -40,  -76,  -40, -184,  -58,  428/
 
2853
      DATA (CF(I,117),I=  7, 12) / -184,  428,  428,  -76,  -76,   50/
 
2854
      DATA (CF(I,117),I= 13, 18) /  -76,  428,  -58,    5,  -76,  -58/
 
2855
      DATA (CF(I,117),I= 19, 24) /    5,  -76,  -58,  -13,   50,  -13/
 
2856
      DATA (CF(I,117),I= 25, 30) /  572,   50,  -76,  428,  -13,  554/
 
2857
      DATA (CF(I,117),I= 31, 36) /  -40,  -76,  -58,  -58,    5,  -13/
 
2858
      DATA (CF(I,117),I= 37, 42) /   68,  -76,  104,  -58,  572,  -40/
 
2859
      DATA (CF(I,117),I= 43, 48) /  -13,  -13,  -58,    5,   50,  -76/
 
2860
      DATA (CF(I,117),I= 49, 54) /  176, -184, -184,  -40,  -40,  572/
 
2861
      DATA (CF(I,117),I= 55, 60) / -184,  428,  -40,  -40,  -58,  -76/
 
2862
      DATA (CF(I,117),I= 61, 66) /  -40,  -58,  572,  -76,  104,   68/
 
2863
      DATA (CF(I,117),I= 67, 72) /  -40,  -76,  -76,   68,   68, -454/
 
2864
      DATA (CF(I,117),I= 73, 78) /   68,  -76,  -76,  -13,  -13,    5/
 
2865
      DATA (CF(I,117),I= 79, 84) / -454,   50,   68,  -13,   50,  -76/
 
2866
      DATA (CF(I,117),I= 85, 90) /  -40,  -58,  -76,    5,  -58,  -13/
 
2867
      DATA (CF(I,117),I= 91, 96) /   68,  -76, -454,   68,  -40,  -76/
 
2868
      DATA (CF(I,117),I= 97,102) /  -76,  572,  428,  554,   50,  -13/
 
2869
      DATA (CF(I,117),I=103,108) /   50,   50,  -76,  -13, -454,   68/
 
2870
      DATA (CF(I,117),I=109,114) / -184,  428,  428,  -76,  -76,   50/
 
2871
      DATA (CF(I,117),I=115,120) / -454,   50, 3641, -454,  572,   50/
 
2872
C     1 Tr(1,6,5,3,2,4)
 
2873
      DATA DENOM(118)/648/
 
2874
      DATA (CF(I,118),I=  1,  6) / -184,  428,  -40,  -40,  -58,  -76/
 
2875
      DATA (CF(I,118),I=  7, 12) /  176, -184, -184,  -40,  -40,  572/
 
2876
      DATA (CF(I,118),I= 13, 18) /  572,  -76,  -40,  -58,   68,  104/
 
2877
      DATA (CF(I,118),I= 19, 24) /  -76,   68,  -40,  -76, -454,   68/
 
2878
      DATA (CF(I,118),I= 25, 30) /  -40,  -76,  -58,  -58,    5,  -13/
 
2879
      DATA (CF(I,118),I= 31, 36) /  572,   50,  -76,  428,  -13,  554/
 
2880
      DATA (CF(I,118),I= 37, 42) /  104,  -58,   68,  -76,  -40,  572/
 
2881
      DATA (CF(I,118),I= 43, 48) /  -58,    5,  -13,  -13,  -76,   50/
 
2882
      DATA (CF(I,118),I= 49, 54) / -184,  428,  428,  -76,  -76,   50/
 
2883
      DATA (CF(I,118),I= 55, 60) /  -40,  -76,  -40, -184,  -58,  428/
 
2884
      DATA (CF(I,118),I= 61, 66) /  -58,    5,  -76,  428,  -58,  -76/
 
2885
      DATA (CF(I,118),I= 67, 72) /  -58,  -13,    5,  -76,  -13,   50/
 
2886
      DATA (CF(I,118),I= 73, 78) /  -76,    5,  -40,  -58,  -13,  -58/
 
2887
      DATA (CF(I,118),I= 79, 84) /   68,  -13, -454,   50,  -76,   50/
 
2888
      DATA (CF(I,118),I= 85, 90) /  -76,  -13,   68,  -76,    5,  -13/
 
2889
      DATA (CF(I,118),I= 91, 96) /  -76,  -40,   68, -454,  -76,   68/
 
2890
      DATA (CF(I,118),I= 97,102) /  428,  -76, -184,  428,   50,  -76/
 
2891
      DATA (CF(I,118),I=103,108) /  -76,  -13,   50,   50,   68, -454/
 
2892
      DATA (CF(I,118),I=109,114) /  428,  554,  -76,  572,  -13,   50/
 
2893
      DATA (CF(I,118),I=115,120) /   50,  572, -454, 3641,   50, -454/
 
2894
C     1 Tr(1,6,5,3,4,2)
 
2895
      DATA DENOM(119)/648/
 
2896
      DATA (CF(I,119),I=  1,  6) / -184,  428,  428,  -76,  -76,   50/
 
2897
      DATA (CF(I,119),I=  7, 12) /  -40,  -76,  -40, -184,  -58,  428/
 
2898
      DATA (CF(I,119),I= 13, 18) /  -58,    5,  -76,  428,  -58,  -76/
 
2899
      DATA (CF(I,119),I= 19, 24) /  -58,  -13,    5,  -76,  -13,   50/
 
2900
      DATA (CF(I,119),I= 25, 30) /  176, -184, -184,  -40,  -40,  572/
 
2901
      DATA (CF(I,119),I= 31, 36) / -184,  428,  -40,  -40,  -58,  -76/
 
2902
      DATA (CF(I,119),I= 37, 42) /  -40,  -58,  572,  -76,  104,   68/
 
2903
      DATA (CF(I,119),I= 43, 48) /  -40,  -76,  -76,   68,   68, -454/
 
2904
      DATA (CF(I,119),I= 49, 54) /  572,   50,  -76,  428,  -13,  554/
 
2905
      DATA (CF(I,119),I= 55, 60) /  -40,  -76,  -58,  -58,    5,  -13/
 
2906
      DATA (CF(I,119),I= 61, 66) /   68,  -76,  104,  -58,  572,  -40/
 
2907
      DATA (CF(I,119),I= 67, 72) /  -13,  -13,  -58,    5,   50,  -76/
 
2908
      DATA (CF(I,119),I= 73, 78) /  -76,  -13,   68,  -76,    5,  -13/
 
2909
      DATA (CF(I,119),I= 79, 84) /  -40,  -58,  -76,    5,  -58,  -13/
 
2910
      DATA (CF(I,119),I= 85, 90) / -454,   50,   68,  -13,   50,  -76/
 
2911
      DATA (CF(I,119),I= 91, 96) /  -76,   68,  -40,  -76, -454,   68/
 
2912
      DATA (CF(I,119),I= 97,102) /  428,  554,  -76,  572,  -13,   50/
 
2913
      DATA (CF(I,119),I=103,108) / -184,  428,  428,  -76,  -76,   50/
 
2914
      DATA (CF(I,119),I=109,114) /   50,   50,  -76,  -13, -454,   68/
 
2915
      DATA (CF(I,119),I=115,120) /   50, -454,  572,   50, 3641, -454/
 
2916
C     1 Tr(1,6,5,4,2,3)
 
2917
      DATA DENOM(120)/648/
 
2918
      DATA (CF(I,120),I=  1,  6) /  176, -184, -184,  -40,  -40,  572/
 
2919
      DATA (CF(I,120),I=  7, 12) / -184,  428,  -40,  -40,  -58,  -76/
 
2920
      DATA (CF(I,120),I= 13, 18) /  -40,  -58,  572,  -76,  104,   68/
 
2921
      DATA (CF(I,120),I= 19, 24) /  -40,  -76,  -76,   68,   68, -454/
 
2922
      DATA (CF(I,120),I= 25, 30) / -184,  428,  428,  -76,  -76,   50/
 
2923
      DATA (CF(I,120),I= 31, 36) /  -40,  -76,  -40, -184,  -58,  428/
 
2924
      DATA (CF(I,120),I= 37, 42) /  -58,    5,  -76,  428,  -58,  -76/
 
2925
      DATA (CF(I,120),I= 43, 48) /  -58,  -13,    5,  -76,  -13,   50/
 
2926
      DATA (CF(I,120),I= 49, 54) /  -40,  -76,  -58,  -58,    5,  -13/
 
2927
      DATA (CF(I,120),I= 55, 60) /  572,   50,  -76,  428,  -13,  554/
 
2928
      DATA (CF(I,120),I= 61, 66) /  104,  -58,   68,  -76,  -40,  572/
 
2929
      DATA (CF(I,120),I= 67, 72) /  -58,    5,  -13,  -13,  -76,   50/
 
2930
      DATA (CF(I,120),I= 73, 78) /  -40,  -58,  -76,    5,  -58,  -13/
 
2931
      DATA (CF(I,120),I= 79, 84) /  -76,  -13,   68,  -76,    5,  -13/
 
2932
      DATA (CF(I,120),I= 85, 90) /   68,  -13, -454,   50,  -76,   50/
 
2933
      DATA (CF(I,120),I= 91, 96) /  -40,  -76,  -76,   68,   68, -454/
 
2934
      DATA (CF(I,120),I= 97,102) / -184,  428,  428,  -76,  -76,   50/
 
2935
      DATA (CF(I,120),I=103,108) /  428,  554,  -76,  572,  -13,   50/
 
2936
      DATA (CF(I,120),I=109,114) /  -76,  -13,   50,   50,   68, -454/
 
2937
      DATA (CF(I,120),I=115,120) /  572,   50,   50, -454, -454, 3641/
 
2938
C     1 Tr(1,6,5,4,3,2)
 
2939
C     ----------
 
2940
C     BEGIN CODE
 
2941
C     ----------
 
2942
      CALL VXXXXX(P(0,1),ZERO,NHEL(1),-1*IC(1),W(1,1))
 
2943
      CALL VXXXXX(P(0,2),ZERO,NHEL(2),-1*IC(2),W(1,2))
 
2944
      CALL VXXXXX(P(0,3),ZERO,NHEL(3),+1*IC(3),W(1,3))
 
2945
      CALL VXXXXX(P(0,4),ZERO,NHEL(4),+1*IC(4),W(1,4))
 
2946
      CALL VXXXXX(P(0,5),ZERO,NHEL(5),+1*IC(5),W(1,5))
 
2947
      CALL VXXXXX(P(0,6),ZERO,NHEL(6),+1*IC(6),W(1,6))
 
2948
      CALL VVV1_1(W(1,1),W(1,2),GC_10,ZERO,ZERO,W(1,7))
 
2949
      CALL VVV1_1(W(1,3),W(1,4),GC_10,ZERO,ZERO,W(1,8))
 
2950
C     Amplitude(s) for diagram number 1
 
2951
      CALL VVVV1_0(W(1,7),W(1,8),W(1,5),W(1,6),GC_12,AMP(1))
 
2952
      CALL VVVV3_0(W(1,7),W(1,8),W(1,5),W(1,6),GC_12,AMP(2))
 
2953
      CALL VVVV4_0(W(1,7),W(1,8),W(1,5),W(1,6),GC_12,AMP(3))
 
2954
      CALL VVV1_1(W(1,7),W(1,5),GC_10,ZERO,ZERO,W(1,9))
 
2955
C     Amplitude(s) for diagram number 2
 
2956
      CALL VVV1_0(W(1,8),W(1,6),W(1,9),GC_10,AMP(4))
 
2957
      CALL VVV1_1(W(1,7),W(1,6),GC_10,ZERO,ZERO,W(1,10))
 
2958
C     Amplitude(s) for diagram number 3
 
2959
      CALL VVV1_0(W(1,8),W(1,5),W(1,10),GC_10,AMP(5))
 
2960
      CALL VVV1_1(W(1,5),W(1,6),GC_10,ZERO,ZERO,W(1,11))
 
2961
C     Amplitude(s) for diagram number 4
 
2962
      CALL VVV1_0(W(1,7),W(1,8),W(1,11),GC_10,AMP(6))
 
2963
      CALL VVV1_1(W(1,3),W(1,5),GC_10,ZERO,ZERO,W(1,12))
 
2964
C     Amplitude(s) for diagram number 5
 
2965
      CALL VVVV1_0(W(1,7),W(1,12),W(1,4),W(1,6),GC_12,AMP(7))
 
2966
      CALL VVVV3_0(W(1,7),W(1,12),W(1,4),W(1,6),GC_12,AMP(8))
 
2967
      CALL VVVV4_0(W(1,7),W(1,12),W(1,4),W(1,6),GC_12,AMP(9))
 
2968
      CALL VVV1_1(W(1,7),W(1,4),GC_10,ZERO,ZERO,W(1,13))
 
2969
C     Amplitude(s) for diagram number 6
 
2970
      CALL VVV1_0(W(1,12),W(1,6),W(1,13),GC_10,AMP(10))
 
2971
C     Amplitude(s) for diagram number 7
 
2972
      CALL VVV1_0(W(1,12),W(1,4),W(1,10),GC_10,AMP(11))
 
2973
      CALL VVV1_1(W(1,4),W(1,6),GC_10,ZERO,ZERO,W(1,14))
 
2974
C     Amplitude(s) for diagram number 8
 
2975
      CALL VVV1_0(W(1,7),W(1,12),W(1,14),GC_10,AMP(12))
 
2976
      CALL VVV1_1(W(1,3),W(1,6),GC_10,ZERO,ZERO,W(1,15))
 
2977
C     Amplitude(s) for diagram number 9
 
2978
      CALL VVVV1_0(W(1,7),W(1,15),W(1,4),W(1,5),GC_12,AMP(13))
 
2979
      CALL VVVV3_0(W(1,7),W(1,15),W(1,4),W(1,5),GC_12,AMP(14))
 
2980
      CALL VVVV4_0(W(1,7),W(1,15),W(1,4),W(1,5),GC_12,AMP(15))
 
2981
C     Amplitude(s) for diagram number 10
 
2982
      CALL VVV1_0(W(1,15),W(1,5),W(1,13),GC_10,AMP(16))
 
2983
C     Amplitude(s) for diagram number 11
 
2984
      CALL VVV1_0(W(1,15),W(1,4),W(1,9),GC_10,AMP(17))
 
2985
      CALL VVV1_1(W(1,4),W(1,5),GC_10,ZERO,ZERO,W(1,16))
 
2986
C     Amplitude(s) for diagram number 12
 
2987
      CALL VVV1_0(W(1,7),W(1,15),W(1,16),GC_10,AMP(18))
 
2988
C     Amplitude(s) for diagram number 13
 
2989
      CALL VVVV1_0(W(1,7),W(1,3),W(1,16),W(1,6),GC_12,AMP(19))
 
2990
      CALL VVVV3_0(W(1,7),W(1,3),W(1,16),W(1,6),GC_12,AMP(20))
 
2991
      CALL VVVV4_0(W(1,7),W(1,3),W(1,16),W(1,6),GC_12,AMP(21))
 
2992
      CALL VVV1_1(W(1,7),W(1,3),GC_10,ZERO,ZERO,W(1,17))
 
2993
C     Amplitude(s) for diagram number 14
 
2994
      CALL VVV1_0(W(1,16),W(1,6),W(1,17),GC_10,AMP(22))
 
2995
C     Amplitude(s) for diagram number 15
 
2996
      CALL VVV1_0(W(1,3),W(1,16),W(1,10),GC_10,AMP(23))
 
2997
C     Amplitude(s) for diagram number 16
 
2998
      CALL VVVV1_0(W(1,7),W(1,3),W(1,14),W(1,5),GC_12,AMP(24))
 
2999
      CALL VVVV3_0(W(1,7),W(1,3),W(1,14),W(1,5),GC_12,AMP(25))
 
3000
      CALL VVVV4_0(W(1,7),W(1,3),W(1,14),W(1,5),GC_12,AMP(26))
 
3001
C     Amplitude(s) for diagram number 17
 
3002
      CALL VVV1_0(W(1,14),W(1,5),W(1,17),GC_10,AMP(27))
 
3003
C     Amplitude(s) for diagram number 18
 
3004
      CALL VVV1_0(W(1,3),W(1,14),W(1,9),GC_10,AMP(28))
 
3005
C     Amplitude(s) for diagram number 19
 
3006
      CALL VVVV1_0(W(1,7),W(1,3),W(1,4),W(1,11),GC_12,AMP(29))
 
3007
      CALL VVVV3_0(W(1,7),W(1,3),W(1,4),W(1,11),GC_12,AMP(30))
 
3008
      CALL VVVV4_0(W(1,7),W(1,3),W(1,4),W(1,11),GC_12,AMP(31))
 
3009
C     Amplitude(s) for diagram number 20
 
3010
      CALL VVV1_0(W(1,4),W(1,11),W(1,17),GC_10,AMP(32))
 
3011
C     Amplitude(s) for diagram number 21
 
3012
      CALL VVV1_0(W(1,3),W(1,11),W(1,13),GC_10,AMP(33))
 
3013
      CALL VVVV1_1(W(1,3),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,13))
 
3014
      CALL VVVV3_1(W(1,3),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,17))
 
3015
      CALL VVVV4_1(W(1,3),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,9))
 
3016
C     Amplitude(s) for diagram number 22
 
3017
      CALL VVV1_0(W(1,7),W(1,13),W(1,6),GC_10,AMP(34))
 
3018
      CALL VVV1_0(W(1,7),W(1,17),W(1,6),GC_10,AMP(35))
 
3019
      CALL VVV1_0(W(1,7),W(1,9),W(1,6),GC_10,AMP(36))
 
3020
      CALL VVVV1_1(W(1,3),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,10))
 
3021
      CALL VVVV3_1(W(1,3),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,18))
 
3022
      CALL VVVV4_1(W(1,3),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,19))
 
3023
C     Amplitude(s) for diagram number 23
 
3024
      CALL VVV1_0(W(1,7),W(1,10),W(1,5),GC_10,AMP(37))
 
3025
      CALL VVV1_0(W(1,7),W(1,18),W(1,5),GC_10,AMP(38))
 
3026
      CALL VVV1_0(W(1,7),W(1,19),W(1,5),GC_10,AMP(39))
 
3027
      CALL VVVV1_1(W(1,3),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,20))
 
3028
      CALL VVVV3_1(W(1,3),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,21))
 
3029
      CALL VVVV4_1(W(1,3),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,22))
 
3030
C     Amplitude(s) for diagram number 24
 
3031
      CALL VVV1_0(W(1,7),W(1,20),W(1,4),GC_10,AMP(40))
 
3032
      CALL VVV1_0(W(1,7),W(1,21),W(1,4),GC_10,AMP(41))
 
3033
      CALL VVV1_0(W(1,7),W(1,22),W(1,4),GC_10,AMP(42))
 
3034
      CALL VVVV1_1(W(1,4),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,23))
 
3035
      CALL VVVV3_1(W(1,4),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,24))
 
3036
      CALL VVVV4_1(W(1,4),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,25))
 
3037
C     Amplitude(s) for diagram number 25
 
3038
      CALL VVV1_0(W(1,7),W(1,3),W(1,23),GC_10,AMP(43))
 
3039
      CALL VVV1_0(W(1,7),W(1,3),W(1,24),GC_10,AMP(44))
 
3040
      CALL VVV1_0(W(1,7),W(1,3),W(1,25),GC_10,AMP(45))
 
3041
      CALL VVV1_1(W(1,1),W(1,3),GC_10,ZERO,ZERO,W(1,7))
 
3042
      CALL VVV1_1(W(1,2),W(1,4),GC_10,ZERO,ZERO,W(1,26))
 
3043
C     Amplitude(s) for diagram number 26
 
3044
      CALL VVVV1_0(W(1,7),W(1,26),W(1,5),W(1,6),GC_12,AMP(46))
 
3045
      CALL VVVV3_0(W(1,7),W(1,26),W(1,5),W(1,6),GC_12,AMP(47))
 
3046
      CALL VVVV4_0(W(1,7),W(1,26),W(1,5),W(1,6),GC_12,AMP(48))
 
3047
      CALL VVV1_1(W(1,7),W(1,5),GC_10,ZERO,ZERO,W(1,27))
 
3048
C     Amplitude(s) for diagram number 27
 
3049
      CALL VVV1_0(W(1,26),W(1,6),W(1,27),GC_10,AMP(49))
 
3050
      CALL VVV1_1(W(1,7),W(1,6),GC_10,ZERO,ZERO,W(1,28))
 
3051
C     Amplitude(s) for diagram number 28
 
3052
      CALL VVV1_0(W(1,26),W(1,5),W(1,28),GC_10,AMP(50))
 
3053
C     Amplitude(s) for diagram number 29
 
3054
      CALL VVV1_0(W(1,7),W(1,26),W(1,11),GC_10,AMP(51))
 
3055
      CALL VVV1_1(W(1,2),W(1,5),GC_10,ZERO,ZERO,W(1,29))
 
3056
C     Amplitude(s) for diagram number 30
 
3057
      CALL VVVV1_0(W(1,7),W(1,29),W(1,4),W(1,6),GC_12,AMP(52))
 
3058
      CALL VVVV3_0(W(1,7),W(1,29),W(1,4),W(1,6),GC_12,AMP(53))
 
3059
      CALL VVVV4_0(W(1,7),W(1,29),W(1,4),W(1,6),GC_12,AMP(54))
 
3060
      CALL VVV1_1(W(1,7),W(1,4),GC_10,ZERO,ZERO,W(1,30))
 
3061
C     Amplitude(s) for diagram number 31
 
3062
      CALL VVV1_0(W(1,29),W(1,6),W(1,30),GC_10,AMP(55))
 
3063
C     Amplitude(s) for diagram number 32
 
3064
      CALL VVV1_0(W(1,29),W(1,4),W(1,28),GC_10,AMP(56))
 
3065
C     Amplitude(s) for diagram number 33
 
3066
      CALL VVV1_0(W(1,7),W(1,29),W(1,14),GC_10,AMP(57))
 
3067
      CALL VVV1_1(W(1,2),W(1,6),GC_10,ZERO,ZERO,W(1,31))
 
3068
C     Amplitude(s) for diagram number 34
 
3069
      CALL VVVV1_0(W(1,7),W(1,31),W(1,4),W(1,5),GC_12,AMP(58))
 
3070
      CALL VVVV3_0(W(1,7),W(1,31),W(1,4),W(1,5),GC_12,AMP(59))
 
3071
      CALL VVVV4_0(W(1,7),W(1,31),W(1,4),W(1,5),GC_12,AMP(60))
 
3072
C     Amplitude(s) for diagram number 35
 
3073
      CALL VVV1_0(W(1,31),W(1,5),W(1,30),GC_10,AMP(61))
 
3074
C     Amplitude(s) for diagram number 36
 
3075
      CALL VVV1_0(W(1,31),W(1,4),W(1,27),GC_10,AMP(62))
 
3076
C     Amplitude(s) for diagram number 37
 
3077
      CALL VVV1_0(W(1,7),W(1,31),W(1,16),GC_10,AMP(63))
 
3078
C     Amplitude(s) for diagram number 38
 
3079
      CALL VVVV1_0(W(1,7),W(1,2),W(1,16),W(1,6),GC_12,AMP(64))
 
3080
      CALL VVVV3_0(W(1,7),W(1,2),W(1,16),W(1,6),GC_12,AMP(65))
 
3081
      CALL VVVV4_0(W(1,7),W(1,2),W(1,16),W(1,6),GC_12,AMP(66))
 
3082
      CALL VVV1_1(W(1,7),W(1,2),GC_10,ZERO,ZERO,W(1,32))
 
3083
C     Amplitude(s) for diagram number 39
 
3084
      CALL VVV1_0(W(1,16),W(1,6),W(1,32),GC_10,AMP(67))
 
3085
C     Amplitude(s) for diagram number 40
 
3086
      CALL VVV1_0(W(1,2),W(1,16),W(1,28),GC_10,AMP(68))
 
3087
C     Amplitude(s) for diagram number 41
 
3088
      CALL VVVV1_0(W(1,7),W(1,2),W(1,14),W(1,5),GC_12,AMP(69))
 
3089
      CALL VVVV3_0(W(1,7),W(1,2),W(1,14),W(1,5),GC_12,AMP(70))
 
3090
      CALL VVVV4_0(W(1,7),W(1,2),W(1,14),W(1,5),GC_12,AMP(71))
 
3091
C     Amplitude(s) for diagram number 42
 
3092
      CALL VVV1_0(W(1,14),W(1,5),W(1,32),GC_10,AMP(72))
 
3093
C     Amplitude(s) for diagram number 43
 
3094
      CALL VVV1_0(W(1,2),W(1,14),W(1,27),GC_10,AMP(73))
 
3095
C     Amplitude(s) for diagram number 44
 
3096
      CALL VVVV1_0(W(1,7),W(1,2),W(1,4),W(1,11),GC_12,AMP(74))
 
3097
      CALL VVVV3_0(W(1,7),W(1,2),W(1,4),W(1,11),GC_12,AMP(75))
 
3098
      CALL VVVV4_0(W(1,7),W(1,2),W(1,4),W(1,11),GC_12,AMP(76))
 
3099
C     Amplitude(s) for diagram number 45
 
3100
      CALL VVV1_0(W(1,4),W(1,11),W(1,32),GC_10,AMP(77))
 
3101
C     Amplitude(s) for diagram number 46
 
3102
      CALL VVV1_0(W(1,2),W(1,11),W(1,30),GC_10,AMP(78))
 
3103
      CALL VVVV1_1(W(1,2),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,30))
 
3104
      CALL VVVV3_1(W(1,2),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,32))
 
3105
      CALL VVVV4_1(W(1,2),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,27))
 
3106
C     Amplitude(s) for diagram number 47
 
3107
      CALL VVV1_0(W(1,7),W(1,30),W(1,6),GC_10,AMP(79))
 
3108
      CALL VVV1_0(W(1,7),W(1,32),W(1,6),GC_10,AMP(80))
 
3109
      CALL VVV1_0(W(1,7),W(1,27),W(1,6),GC_10,AMP(81))
 
3110
      CALL VVVV1_1(W(1,2),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,28))
 
3111
      CALL VVVV3_1(W(1,2),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,33))
 
3112
      CALL VVVV4_1(W(1,2),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,34))
 
3113
C     Amplitude(s) for diagram number 48
 
3114
      CALL VVV1_0(W(1,7),W(1,28),W(1,5),GC_10,AMP(82))
 
3115
      CALL VVV1_0(W(1,7),W(1,33),W(1,5),GC_10,AMP(83))
 
3116
      CALL VVV1_0(W(1,7),W(1,34),W(1,5),GC_10,AMP(84))
 
3117
      CALL VVVV1_1(W(1,2),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,35))
 
3118
      CALL VVVV3_1(W(1,2),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,36))
 
3119
      CALL VVVV4_1(W(1,2),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,37))
 
3120
C     Amplitude(s) for diagram number 49
 
3121
      CALL VVV1_0(W(1,7),W(1,35),W(1,4),GC_10,AMP(85))
 
3122
      CALL VVV1_0(W(1,7),W(1,36),W(1,4),GC_10,AMP(86))
 
3123
      CALL VVV1_0(W(1,7),W(1,37),W(1,4),GC_10,AMP(87))
 
3124
C     Amplitude(s) for diagram number 50
 
3125
      CALL VVV1_0(W(1,7),W(1,2),W(1,23),GC_10,AMP(88))
 
3126
      CALL VVV1_0(W(1,7),W(1,2),W(1,24),GC_10,AMP(89))
 
3127
      CALL VVV1_0(W(1,7),W(1,2),W(1,25),GC_10,AMP(90))
 
3128
      CALL VVV1_1(W(1,1),W(1,4),GC_10,ZERO,ZERO,W(1,7))
 
3129
      CALL VVV1_1(W(1,2),W(1,3),GC_10,ZERO,ZERO,W(1,38))
 
3130
C     Amplitude(s) for diagram number 51
 
3131
      CALL VVVV1_0(W(1,7),W(1,38),W(1,5),W(1,6),GC_12,AMP(91))
 
3132
      CALL VVVV3_0(W(1,7),W(1,38),W(1,5),W(1,6),GC_12,AMP(92))
 
3133
      CALL VVVV4_0(W(1,7),W(1,38),W(1,5),W(1,6),GC_12,AMP(93))
 
3134
      CALL VVV1_1(W(1,7),W(1,5),GC_10,ZERO,ZERO,W(1,39))
 
3135
C     Amplitude(s) for diagram number 52
 
3136
      CALL VVV1_0(W(1,38),W(1,6),W(1,39),GC_10,AMP(94))
 
3137
      CALL VVV1_1(W(1,7),W(1,6),GC_10,ZERO,ZERO,W(1,40))
 
3138
C     Amplitude(s) for diagram number 53
 
3139
      CALL VVV1_0(W(1,38),W(1,5),W(1,40),GC_10,AMP(95))
 
3140
C     Amplitude(s) for diagram number 54
 
3141
      CALL VVV1_0(W(1,7),W(1,38),W(1,11),GC_10,AMP(96))
 
3142
C     Amplitude(s) for diagram number 55
 
3143
      CALL VVVV1_0(W(1,7),W(1,29),W(1,3),W(1,6),GC_12,AMP(97))
 
3144
      CALL VVVV3_0(W(1,7),W(1,29),W(1,3),W(1,6),GC_12,AMP(98))
 
3145
      CALL VVVV4_0(W(1,7),W(1,29),W(1,3),W(1,6),GC_12,AMP(99))
 
3146
      CALL VVV1_1(W(1,7),W(1,3),GC_10,ZERO,ZERO,W(1,41))
 
3147
C     Amplitude(s) for diagram number 56
 
3148
      CALL VVV1_0(W(1,29),W(1,6),W(1,41),GC_10,AMP(100))
 
3149
C     Amplitude(s) for diagram number 57
 
3150
      CALL VVV1_0(W(1,29),W(1,3),W(1,40),GC_10,AMP(101))
 
3151
C     Amplitude(s) for diagram number 58
 
3152
      CALL VVV1_0(W(1,7),W(1,29),W(1,15),GC_10,AMP(102))
 
3153
C     Amplitude(s) for diagram number 59
 
3154
      CALL VVVV1_0(W(1,7),W(1,31),W(1,3),W(1,5),GC_12,AMP(103))
 
3155
      CALL VVVV3_0(W(1,7),W(1,31),W(1,3),W(1,5),GC_12,AMP(104))
 
3156
      CALL VVVV4_0(W(1,7),W(1,31),W(1,3),W(1,5),GC_12,AMP(105))
 
3157
C     Amplitude(s) for diagram number 60
 
3158
      CALL VVV1_0(W(1,31),W(1,5),W(1,41),GC_10,AMP(106))
 
3159
C     Amplitude(s) for diagram number 61
 
3160
      CALL VVV1_0(W(1,31),W(1,3),W(1,39),GC_10,AMP(107))
 
3161
C     Amplitude(s) for diagram number 62
 
3162
      CALL VVV1_0(W(1,7),W(1,31),W(1,12),GC_10,AMP(108))
 
3163
C     Amplitude(s) for diagram number 63
 
3164
      CALL VVVV1_0(W(1,7),W(1,2),W(1,12),W(1,6),GC_12,AMP(109))
 
3165
      CALL VVVV3_0(W(1,7),W(1,2),W(1,12),W(1,6),GC_12,AMP(110))
 
3166
      CALL VVVV4_0(W(1,7),W(1,2),W(1,12),W(1,6),GC_12,AMP(111))
 
3167
      CALL VVV1_1(W(1,7),W(1,2),GC_10,ZERO,ZERO,W(1,42))
 
3168
C     Amplitude(s) for diagram number 64
 
3169
      CALL VVV1_0(W(1,12),W(1,6),W(1,42),GC_10,AMP(112))
 
3170
C     Amplitude(s) for diagram number 65
 
3171
      CALL VVV1_0(W(1,2),W(1,12),W(1,40),GC_10,AMP(113))
 
3172
C     Amplitude(s) for diagram number 66
 
3173
      CALL VVVV1_0(W(1,7),W(1,2),W(1,15),W(1,5),GC_12,AMP(114))
 
3174
      CALL VVVV3_0(W(1,7),W(1,2),W(1,15),W(1,5),GC_12,AMP(115))
 
3175
      CALL VVVV4_0(W(1,7),W(1,2),W(1,15),W(1,5),GC_12,AMP(116))
 
3176
C     Amplitude(s) for diagram number 67
 
3177
      CALL VVV1_0(W(1,15),W(1,5),W(1,42),GC_10,AMP(117))
 
3178
C     Amplitude(s) for diagram number 68
 
3179
      CALL VVV1_0(W(1,2),W(1,15),W(1,39),GC_10,AMP(118))
 
3180
C     Amplitude(s) for diagram number 69
 
3181
      CALL VVVV1_0(W(1,7),W(1,2),W(1,3),W(1,11),GC_12,AMP(119))
 
3182
      CALL VVVV3_0(W(1,7),W(1,2),W(1,3),W(1,11),GC_12,AMP(120))
 
3183
      CALL VVVV4_0(W(1,7),W(1,2),W(1,3),W(1,11),GC_12,AMP(121))
 
3184
C     Amplitude(s) for diagram number 70
 
3185
      CALL VVV1_0(W(1,3),W(1,11),W(1,42),GC_10,AMP(122))
 
3186
C     Amplitude(s) for diagram number 71
 
3187
      CALL VVV1_0(W(1,2),W(1,11),W(1,41),GC_10,AMP(123))
 
3188
      CALL VVVV1_1(W(1,2),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,41))
 
3189
      CALL VVVV3_1(W(1,2),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,42))
 
3190
      CALL VVVV4_1(W(1,2),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,39))
 
3191
C     Amplitude(s) for diagram number 72
 
3192
      CALL VVV1_0(W(1,7),W(1,41),W(1,6),GC_10,AMP(124))
 
3193
      CALL VVV1_0(W(1,7),W(1,42),W(1,6),GC_10,AMP(125))
 
3194
      CALL VVV1_0(W(1,7),W(1,39),W(1,6),GC_10,AMP(126))
 
3195
      CALL VVVV1_1(W(1,2),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,40))
 
3196
      CALL VVVV3_1(W(1,2),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,43))
 
3197
      CALL VVVV4_1(W(1,2),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,44))
 
3198
C     Amplitude(s) for diagram number 73
 
3199
      CALL VVV1_0(W(1,7),W(1,40),W(1,5),GC_10,AMP(127))
 
3200
      CALL VVV1_0(W(1,7),W(1,43),W(1,5),GC_10,AMP(128))
 
3201
      CALL VVV1_0(W(1,7),W(1,44),W(1,5),GC_10,AMP(129))
 
3202
C     Amplitude(s) for diagram number 74
 
3203
      CALL VVV1_0(W(1,7),W(1,35),W(1,3),GC_10,AMP(130))
 
3204
      CALL VVV1_0(W(1,7),W(1,36),W(1,3),GC_10,AMP(131))
 
3205
      CALL VVV1_0(W(1,7),W(1,37),W(1,3),GC_10,AMP(132))
 
3206
C     Amplitude(s) for diagram number 75
 
3207
      CALL VVV1_0(W(1,7),W(1,2),W(1,20),GC_10,AMP(133))
 
3208
      CALL VVV1_0(W(1,7),W(1,2),W(1,21),GC_10,AMP(134))
 
3209
      CALL VVV1_0(W(1,7),W(1,2),W(1,22),GC_10,AMP(135))
 
3210
      CALL VVV1_1(W(1,1),W(1,5),GC_10,ZERO,ZERO,W(1,7))
 
3211
C     Amplitude(s) for diagram number 76
 
3212
      CALL VVVV1_0(W(1,7),W(1,38),W(1,4),W(1,6),GC_12,AMP(136))
 
3213
      CALL VVVV3_0(W(1,7),W(1,38),W(1,4),W(1,6),GC_12,AMP(137))
 
3214
      CALL VVVV4_0(W(1,7),W(1,38),W(1,4),W(1,6),GC_12,AMP(138))
 
3215
      CALL VVV1_1(W(1,7),W(1,4),GC_10,ZERO,ZERO,W(1,45))
 
3216
C     Amplitude(s) for diagram number 77
 
3217
      CALL VVV1_0(W(1,38),W(1,6),W(1,45),GC_10,AMP(139))
 
3218
      CALL VVV1_1(W(1,7),W(1,6),GC_10,ZERO,ZERO,W(1,46))
 
3219
C     Amplitude(s) for diagram number 78
 
3220
      CALL VVV1_0(W(1,38),W(1,4),W(1,46),GC_10,AMP(140))
 
3221
C     Amplitude(s) for diagram number 79
 
3222
      CALL VVV1_0(W(1,7),W(1,38),W(1,14),GC_10,AMP(141))
 
3223
C     Amplitude(s) for diagram number 80
 
3224
      CALL VVVV1_0(W(1,7),W(1,26),W(1,3),W(1,6),GC_12,AMP(142))
 
3225
      CALL VVVV3_0(W(1,7),W(1,26),W(1,3),W(1,6),GC_12,AMP(143))
 
3226
      CALL VVVV4_0(W(1,7),W(1,26),W(1,3),W(1,6),GC_12,AMP(144))
 
3227
      CALL VVV1_1(W(1,7),W(1,3),GC_10,ZERO,ZERO,W(1,47))
 
3228
C     Amplitude(s) for diagram number 81
 
3229
      CALL VVV1_0(W(1,26),W(1,6),W(1,47),GC_10,AMP(145))
 
3230
C     Amplitude(s) for diagram number 82
 
3231
      CALL VVV1_0(W(1,26),W(1,3),W(1,46),GC_10,AMP(146))
 
3232
C     Amplitude(s) for diagram number 83
 
3233
      CALL VVV1_0(W(1,7),W(1,26),W(1,15),GC_10,AMP(147))
 
3234
C     Amplitude(s) for diagram number 84
 
3235
      CALL VVVV1_0(W(1,7),W(1,31),W(1,3),W(1,4),GC_12,AMP(148))
 
3236
      CALL VVVV3_0(W(1,7),W(1,31),W(1,3),W(1,4),GC_12,AMP(149))
 
3237
      CALL VVVV4_0(W(1,7),W(1,31),W(1,3),W(1,4),GC_12,AMP(150))
 
3238
C     Amplitude(s) for diagram number 85
 
3239
      CALL VVV1_0(W(1,31),W(1,4),W(1,47),GC_10,AMP(151))
 
3240
C     Amplitude(s) for diagram number 86
 
3241
      CALL VVV1_0(W(1,31),W(1,3),W(1,45),GC_10,AMP(152))
 
3242
C     Amplitude(s) for diagram number 87
 
3243
      CALL VVV1_0(W(1,7),W(1,31),W(1,8),GC_10,AMP(153))
 
3244
C     Amplitude(s) for diagram number 88
 
3245
      CALL VVVV1_0(W(1,7),W(1,2),W(1,8),W(1,6),GC_12,AMP(154))
 
3246
      CALL VVVV3_0(W(1,7),W(1,2),W(1,8),W(1,6),GC_12,AMP(155))
 
3247
      CALL VVVV4_0(W(1,7),W(1,2),W(1,8),W(1,6),GC_12,AMP(156))
 
3248
      CALL VVV1_1(W(1,7),W(1,2),GC_10,ZERO,ZERO,W(1,48))
 
3249
C     Amplitude(s) for diagram number 89
 
3250
      CALL VVV1_0(W(1,8),W(1,6),W(1,48),GC_10,AMP(157))
 
3251
C     Amplitude(s) for diagram number 90
 
3252
      CALL VVV1_0(W(1,2),W(1,8),W(1,46),GC_10,AMP(158))
 
3253
C     Amplitude(s) for diagram number 91
 
3254
      CALL VVVV1_0(W(1,7),W(1,2),W(1,15),W(1,4),GC_12,AMP(159))
 
3255
      CALL VVVV3_0(W(1,7),W(1,2),W(1,15),W(1,4),GC_12,AMP(160))
 
3256
      CALL VVVV4_0(W(1,7),W(1,2),W(1,15),W(1,4),GC_12,AMP(161))
 
3257
C     Amplitude(s) for diagram number 92
 
3258
      CALL VVV1_0(W(1,15),W(1,4),W(1,48),GC_10,AMP(162))
 
3259
C     Amplitude(s) for diagram number 93
 
3260
      CALL VVV1_0(W(1,2),W(1,15),W(1,45),GC_10,AMP(163))
 
3261
C     Amplitude(s) for diagram number 94
 
3262
      CALL VVVV1_0(W(1,7),W(1,2),W(1,3),W(1,14),GC_12,AMP(164))
 
3263
      CALL VVVV3_0(W(1,7),W(1,2),W(1,3),W(1,14),GC_12,AMP(165))
 
3264
      CALL VVVV4_0(W(1,7),W(1,2),W(1,3),W(1,14),GC_12,AMP(166))
 
3265
C     Amplitude(s) for diagram number 95
 
3266
      CALL VVV1_0(W(1,3),W(1,14),W(1,48),GC_10,AMP(167))
 
3267
C     Amplitude(s) for diagram number 96
 
3268
      CALL VVV1_0(W(1,2),W(1,14),W(1,47),GC_10,AMP(168))
 
3269
      CALL VVVV1_1(W(1,2),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,47))
 
3270
      CALL VVVV3_1(W(1,2),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,48))
 
3271
      CALL VVVV4_1(W(1,2),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,45))
 
3272
C     Amplitude(s) for diagram number 97
 
3273
      CALL VVV1_0(W(1,7),W(1,47),W(1,6),GC_10,AMP(169))
 
3274
      CALL VVV1_0(W(1,7),W(1,48),W(1,6),GC_10,AMP(170))
 
3275
      CALL VVV1_0(W(1,7),W(1,45),W(1,6),GC_10,AMP(171))
 
3276
C     Amplitude(s) for diagram number 98
 
3277
      CALL VVV1_0(W(1,7),W(1,40),W(1,4),GC_10,AMP(172))
 
3278
      CALL VVV1_0(W(1,7),W(1,43),W(1,4),GC_10,AMP(173))
 
3279
      CALL VVV1_0(W(1,7),W(1,44),W(1,4),GC_10,AMP(174))
 
3280
C     Amplitude(s) for diagram number 99
 
3281
      CALL VVV1_0(W(1,7),W(1,28),W(1,3),GC_10,AMP(175))
 
3282
      CALL VVV1_0(W(1,7),W(1,33),W(1,3),GC_10,AMP(176))
 
3283
      CALL VVV1_0(W(1,7),W(1,34),W(1,3),GC_10,AMP(177))
 
3284
C     Amplitude(s) for diagram number 100
 
3285
      CALL VVV1_0(W(1,7),W(1,2),W(1,10),GC_10,AMP(178))
 
3286
      CALL VVV1_0(W(1,7),W(1,2),W(1,18),GC_10,AMP(179))
 
3287
      CALL VVV1_0(W(1,7),W(1,2),W(1,19),GC_10,AMP(180))
 
3288
      CALL VVV1_1(W(1,1),W(1,6),GC_10,ZERO,ZERO,W(1,7))
 
3289
C     Amplitude(s) for diagram number 101
 
3290
      CALL VVVV1_0(W(1,7),W(1,38),W(1,4),W(1,5),GC_12,AMP(181))
 
3291
      CALL VVVV3_0(W(1,7),W(1,38),W(1,4),W(1,5),GC_12,AMP(182))
 
3292
      CALL VVVV4_0(W(1,7),W(1,38),W(1,4),W(1,5),GC_12,AMP(183))
 
3293
      CALL VVV1_1(W(1,7),W(1,4),GC_10,ZERO,ZERO,W(1,46))
 
3294
C     Amplitude(s) for diagram number 102
 
3295
      CALL VVV1_0(W(1,38),W(1,5),W(1,46),GC_10,AMP(184))
 
3296
      CALL VVV1_1(W(1,7),W(1,5),GC_10,ZERO,ZERO,W(1,49))
 
3297
C     Amplitude(s) for diagram number 103
 
3298
      CALL VVV1_0(W(1,38),W(1,4),W(1,49),GC_10,AMP(185))
 
3299
C     Amplitude(s) for diagram number 104
 
3300
      CALL VVV1_0(W(1,7),W(1,38),W(1,16),GC_10,AMP(186))
 
3301
C     Amplitude(s) for diagram number 105
 
3302
      CALL VVVV1_0(W(1,7),W(1,26),W(1,3),W(1,5),GC_12,AMP(187))
 
3303
      CALL VVVV3_0(W(1,7),W(1,26),W(1,3),W(1,5),GC_12,AMP(188))
 
3304
      CALL VVVV4_0(W(1,7),W(1,26),W(1,3),W(1,5),GC_12,AMP(189))
 
3305
      CALL VVV1_1(W(1,7),W(1,3),GC_10,ZERO,ZERO,W(1,50))
 
3306
C     Amplitude(s) for diagram number 106
 
3307
      CALL VVV1_0(W(1,26),W(1,5),W(1,50),GC_10,AMP(190))
 
3308
C     Amplitude(s) for diagram number 107
 
3309
      CALL VVV1_0(W(1,26),W(1,3),W(1,49),GC_10,AMP(191))
 
3310
C     Amplitude(s) for diagram number 108
 
3311
      CALL VVV1_0(W(1,7),W(1,26),W(1,12),GC_10,AMP(192))
 
3312
C     Amplitude(s) for diagram number 109
 
3313
      CALL VVVV1_0(W(1,7),W(1,29),W(1,3),W(1,4),GC_12,AMP(193))
 
3314
      CALL VVVV3_0(W(1,7),W(1,29),W(1,3),W(1,4),GC_12,AMP(194))
 
3315
      CALL VVVV4_0(W(1,7),W(1,29),W(1,3),W(1,4),GC_12,AMP(195))
 
3316
C     Amplitude(s) for diagram number 110
 
3317
      CALL VVV1_0(W(1,29),W(1,4),W(1,50),GC_10,AMP(196))
 
3318
C     Amplitude(s) for diagram number 111
 
3319
      CALL VVV1_0(W(1,29),W(1,3),W(1,46),GC_10,AMP(197))
 
3320
C     Amplitude(s) for diagram number 112
 
3321
      CALL VVV1_0(W(1,7),W(1,29),W(1,8),GC_10,AMP(198))
 
3322
C     Amplitude(s) for diagram number 113
 
3323
      CALL VVVV1_0(W(1,7),W(1,2),W(1,8),W(1,5),GC_12,AMP(199))
 
3324
      CALL VVVV3_0(W(1,7),W(1,2),W(1,8),W(1,5),GC_12,AMP(200))
 
3325
      CALL VVVV4_0(W(1,7),W(1,2),W(1,8),W(1,5),GC_12,AMP(201))
 
3326
      CALL VVV1_1(W(1,7),W(1,2),GC_10,ZERO,ZERO,W(1,51))
 
3327
C     Amplitude(s) for diagram number 114
 
3328
      CALL VVV1_0(W(1,8),W(1,5),W(1,51),GC_10,AMP(202))
 
3329
C     Amplitude(s) for diagram number 115
 
3330
      CALL VVV1_0(W(1,2),W(1,8),W(1,49),GC_10,AMP(203))
 
3331
C     Amplitude(s) for diagram number 116
 
3332
      CALL VVVV1_0(W(1,7),W(1,2),W(1,12),W(1,4),GC_12,AMP(204))
 
3333
      CALL VVVV3_0(W(1,7),W(1,2),W(1,12),W(1,4),GC_12,AMP(205))
 
3334
      CALL VVVV4_0(W(1,7),W(1,2),W(1,12),W(1,4),GC_12,AMP(206))
 
3335
C     Amplitude(s) for diagram number 117
 
3336
      CALL VVV1_0(W(1,12),W(1,4),W(1,51),GC_10,AMP(207))
 
3337
C     Amplitude(s) for diagram number 118
 
3338
      CALL VVV1_0(W(1,2),W(1,12),W(1,46),GC_10,AMP(208))
 
3339
C     Amplitude(s) for diagram number 119
 
3340
      CALL VVVV1_0(W(1,7),W(1,2),W(1,3),W(1,16),GC_12,AMP(209))
 
3341
      CALL VVVV3_0(W(1,7),W(1,2),W(1,3),W(1,16),GC_12,AMP(210))
 
3342
      CALL VVVV4_0(W(1,7),W(1,2),W(1,3),W(1,16),GC_12,AMP(211))
 
3343
C     Amplitude(s) for diagram number 120
 
3344
      CALL VVV1_0(W(1,3),W(1,16),W(1,51),GC_10,AMP(212))
 
3345
C     Amplitude(s) for diagram number 121
 
3346
      CALL VVV1_0(W(1,2),W(1,16),W(1,50),GC_10,AMP(213))
 
3347
C     Amplitude(s) for diagram number 122
 
3348
      CALL VVV1_0(W(1,7),W(1,47),W(1,5),GC_10,AMP(214))
 
3349
      CALL VVV1_0(W(1,7),W(1,48),W(1,5),GC_10,AMP(215))
 
3350
      CALL VVV1_0(W(1,7),W(1,45),W(1,5),GC_10,AMP(216))
 
3351
C     Amplitude(s) for diagram number 123
 
3352
      CALL VVV1_0(W(1,7),W(1,41),W(1,4),GC_10,AMP(217))
 
3353
      CALL VVV1_0(W(1,7),W(1,42),W(1,4),GC_10,AMP(218))
 
3354
      CALL VVV1_0(W(1,7),W(1,39),W(1,4),GC_10,AMP(219))
 
3355
C     Amplitude(s) for diagram number 124
 
3356
      CALL VVV1_0(W(1,7),W(1,30),W(1,3),GC_10,AMP(220))
 
3357
      CALL VVV1_0(W(1,7),W(1,32),W(1,3),GC_10,AMP(221))
 
3358
      CALL VVV1_0(W(1,7),W(1,27),W(1,3),GC_10,AMP(222))
 
3359
C     Amplitude(s) for diagram number 125
 
3360
      CALL VVV1_0(W(1,7),W(1,2),W(1,13),GC_10,AMP(223))
 
3361
      CALL VVV1_0(W(1,7),W(1,2),W(1,17),GC_10,AMP(224))
 
3362
      CALL VVV1_0(W(1,7),W(1,2),W(1,9),GC_10,AMP(225))
 
3363
C     Amplitude(s) for diagram number 126
 
3364
      CALL VVVV1_0(W(1,1),W(1,38),W(1,16),W(1,6),GC_12,AMP(226))
 
3365
      CALL VVVV3_0(W(1,1),W(1,38),W(1,16),W(1,6),GC_12,AMP(227))
 
3366
      CALL VVVV4_0(W(1,1),W(1,38),W(1,16),W(1,6),GC_12,AMP(228))
 
3367
      CALL VVV1_1(W(1,1),W(1,38),GC_10,ZERO,ZERO,W(1,7))
 
3368
C     Amplitude(s) for diagram number 127
 
3369
      CALL VVV1_0(W(1,16),W(1,6),W(1,7),GC_10,AMP(229))
 
3370
      CALL VVV1_1(W(1,1),W(1,16),GC_10,ZERO,ZERO,W(1,50))
 
3371
C     Amplitude(s) for diagram number 128
 
3372
      CALL VVV1_0(W(1,38),W(1,6),W(1,50),GC_10,AMP(230))
 
3373
C     Amplitude(s) for diagram number 129
 
3374
      CALL VVVV1_0(W(1,1),W(1,38),W(1,14),W(1,5),GC_12,AMP(231))
 
3375
      CALL VVVV3_0(W(1,1),W(1,38),W(1,14),W(1,5),GC_12,AMP(232))
 
3376
      CALL VVVV4_0(W(1,1),W(1,38),W(1,14),W(1,5),GC_12,AMP(233))
 
3377
C     Amplitude(s) for diagram number 130
 
3378
      CALL VVV1_0(W(1,14),W(1,5),W(1,7),GC_10,AMP(234))
 
3379
      CALL VVV1_1(W(1,1),W(1,14),GC_10,ZERO,ZERO,W(1,51))
 
3380
C     Amplitude(s) for diagram number 131
 
3381
      CALL VVV1_0(W(1,38),W(1,5),W(1,51),GC_10,AMP(235))
 
3382
C     Amplitude(s) for diagram number 132
 
3383
      CALL VVVV1_0(W(1,1),W(1,38),W(1,4),W(1,11),GC_12,AMP(236))
 
3384
      CALL VVVV3_0(W(1,1),W(1,38),W(1,4),W(1,11),GC_12,AMP(237))
 
3385
      CALL VVVV4_0(W(1,1),W(1,38),W(1,4),W(1,11),GC_12,AMP(238))
 
3386
C     Amplitude(s) for diagram number 133
 
3387
      CALL VVV1_0(W(1,4),W(1,11),W(1,7),GC_10,AMP(239))
 
3388
      CALL VVV1_1(W(1,1),W(1,11),GC_10,ZERO,ZERO,W(1,7))
 
3389
C     Amplitude(s) for diagram number 134
 
3390
      CALL VVV1_0(W(1,38),W(1,4),W(1,7),GC_10,AMP(240))
 
3391
C     Amplitude(s) for diagram number 135
 
3392
      CALL VVV1_0(W(1,1),W(1,38),W(1,23),GC_10,AMP(241))
 
3393
      CALL VVV1_0(W(1,1),W(1,38),W(1,24),GC_10,AMP(242))
 
3394
      CALL VVV1_0(W(1,1),W(1,38),W(1,25),GC_10,AMP(243))
 
3395
C     Amplitude(s) for diagram number 136
 
3396
      CALL VVVV1_0(W(1,1),W(1,26),W(1,12),W(1,6),GC_12,AMP(244))
 
3397
      CALL VVVV3_0(W(1,1),W(1,26),W(1,12),W(1,6),GC_12,AMP(245))
 
3398
      CALL VVVV4_0(W(1,1),W(1,26),W(1,12),W(1,6),GC_12,AMP(246))
 
3399
      CALL VVV1_1(W(1,1),W(1,26),GC_10,ZERO,ZERO,W(1,25))
 
3400
C     Amplitude(s) for diagram number 137
 
3401
      CALL VVV1_0(W(1,12),W(1,6),W(1,25),GC_10,AMP(247))
 
3402
      CALL VVV1_1(W(1,1),W(1,12),GC_10,ZERO,ZERO,W(1,24))
 
3403
C     Amplitude(s) for diagram number 138
 
3404
      CALL VVV1_0(W(1,26),W(1,6),W(1,24),GC_10,AMP(248))
 
3405
C     Amplitude(s) for diagram number 139
 
3406
      CALL VVVV1_0(W(1,1),W(1,26),W(1,15),W(1,5),GC_12,AMP(249))
 
3407
      CALL VVVV3_0(W(1,1),W(1,26),W(1,15),W(1,5),GC_12,AMP(250))
 
3408
      CALL VVVV4_0(W(1,1),W(1,26),W(1,15),W(1,5),GC_12,AMP(251))
 
3409
C     Amplitude(s) for diagram number 140
 
3410
      CALL VVV1_0(W(1,15),W(1,5),W(1,25),GC_10,AMP(252))
 
3411
      CALL VVV1_1(W(1,1),W(1,15),GC_10,ZERO,ZERO,W(1,23))
 
3412
C     Amplitude(s) for diagram number 141
 
3413
      CALL VVV1_0(W(1,26),W(1,5),W(1,23),GC_10,AMP(253))
 
3414
C     Amplitude(s) for diagram number 142
 
3415
      CALL VVVV1_0(W(1,1),W(1,26),W(1,3),W(1,11),GC_12,AMP(254))
 
3416
      CALL VVVV3_0(W(1,1),W(1,26),W(1,3),W(1,11),GC_12,AMP(255))
 
3417
      CALL VVVV4_0(W(1,1),W(1,26),W(1,3),W(1,11),GC_12,AMP(256))
 
3418
C     Amplitude(s) for diagram number 143
 
3419
      CALL VVV1_0(W(1,3),W(1,11),W(1,25),GC_10,AMP(257))
 
3420
C     Amplitude(s) for diagram number 144
 
3421
      CALL VVV1_0(W(1,26),W(1,3),W(1,7),GC_10,AMP(258))
 
3422
C     Amplitude(s) for diagram number 145
 
3423
      CALL VVV1_0(W(1,1),W(1,26),W(1,20),GC_10,AMP(259))
 
3424
      CALL VVV1_0(W(1,1),W(1,26),W(1,21),GC_10,AMP(260))
 
3425
      CALL VVV1_0(W(1,1),W(1,26),W(1,22),GC_10,AMP(261))
 
3426
C     Amplitude(s) for diagram number 146
 
3427
      CALL VVVV1_0(W(1,1),W(1,29),W(1,8),W(1,6),GC_12,AMP(262))
 
3428
      CALL VVVV3_0(W(1,1),W(1,29),W(1,8),W(1,6),GC_12,AMP(263))
 
3429
      CALL VVVV4_0(W(1,1),W(1,29),W(1,8),W(1,6),GC_12,AMP(264))
 
3430
      CALL VVV1_1(W(1,1),W(1,29),GC_10,ZERO,ZERO,W(1,22))
 
3431
C     Amplitude(s) for diagram number 147
 
3432
      CALL VVV1_0(W(1,8),W(1,6),W(1,22),GC_10,AMP(265))
 
3433
      CALL VVV1_1(W(1,1),W(1,8),GC_10,ZERO,ZERO,W(1,21))
 
3434
C     Amplitude(s) for diagram number 148
 
3435
      CALL VVV1_0(W(1,29),W(1,6),W(1,21),GC_10,AMP(266))
 
3436
C     Amplitude(s) for diagram number 149
 
3437
      CALL VVVV1_0(W(1,1),W(1,29),W(1,15),W(1,4),GC_12,AMP(267))
 
3438
      CALL VVVV3_0(W(1,1),W(1,29),W(1,15),W(1,4),GC_12,AMP(268))
 
3439
      CALL VVVV4_0(W(1,1),W(1,29),W(1,15),W(1,4),GC_12,AMP(269))
 
3440
C     Amplitude(s) for diagram number 150
 
3441
      CALL VVV1_0(W(1,15),W(1,4),W(1,22),GC_10,AMP(270))
 
3442
C     Amplitude(s) for diagram number 151
 
3443
      CALL VVV1_0(W(1,29),W(1,4),W(1,23),GC_10,AMP(271))
 
3444
C     Amplitude(s) for diagram number 152
 
3445
      CALL VVVV1_0(W(1,1),W(1,29),W(1,3),W(1,14),GC_12,AMP(272))
 
3446
      CALL VVVV3_0(W(1,1),W(1,29),W(1,3),W(1,14),GC_12,AMP(273))
 
3447
      CALL VVVV4_0(W(1,1),W(1,29),W(1,3),W(1,14),GC_12,AMP(274))
 
3448
C     Amplitude(s) for diagram number 153
 
3449
      CALL VVV1_0(W(1,3),W(1,14),W(1,22),GC_10,AMP(275))
 
3450
C     Amplitude(s) for diagram number 154
 
3451
      CALL VVV1_0(W(1,29),W(1,3),W(1,51),GC_10,AMP(276))
 
3452
C     Amplitude(s) for diagram number 155
 
3453
      CALL VVV1_0(W(1,1),W(1,29),W(1,10),GC_10,AMP(277))
 
3454
      CALL VVV1_0(W(1,1),W(1,29),W(1,18),GC_10,AMP(278))
 
3455
      CALL VVV1_0(W(1,1),W(1,29),W(1,19),GC_10,AMP(279))
 
3456
C     Amplitude(s) for diagram number 156
 
3457
      CALL VVVV1_0(W(1,1),W(1,31),W(1,8),W(1,5),GC_12,AMP(280))
 
3458
      CALL VVVV3_0(W(1,1),W(1,31),W(1,8),W(1,5),GC_12,AMP(281))
 
3459
      CALL VVVV4_0(W(1,1),W(1,31),W(1,8),W(1,5),GC_12,AMP(282))
 
3460
      CALL VVV1_1(W(1,1),W(1,31),GC_10,ZERO,ZERO,W(1,19))
 
3461
C     Amplitude(s) for diagram number 157
 
3462
      CALL VVV1_0(W(1,8),W(1,5),W(1,19),GC_10,AMP(283))
 
3463
C     Amplitude(s) for diagram number 158
 
3464
      CALL VVV1_0(W(1,31),W(1,5),W(1,21),GC_10,AMP(284))
 
3465
C     Amplitude(s) for diagram number 159
 
3466
      CALL VVVV1_0(W(1,1),W(1,31),W(1,12),W(1,4),GC_12,AMP(285))
 
3467
      CALL VVVV3_0(W(1,1),W(1,31),W(1,12),W(1,4),GC_12,AMP(286))
 
3468
      CALL VVVV4_0(W(1,1),W(1,31),W(1,12),W(1,4),GC_12,AMP(287))
 
3469
C     Amplitude(s) for diagram number 160
 
3470
      CALL VVV1_0(W(1,12),W(1,4),W(1,19),GC_10,AMP(288))
 
3471
C     Amplitude(s) for diagram number 161
 
3472
      CALL VVV1_0(W(1,31),W(1,4),W(1,24),GC_10,AMP(289))
 
3473
C     Amplitude(s) for diagram number 162
 
3474
      CALL VVVV1_0(W(1,1),W(1,31),W(1,3),W(1,16),GC_12,AMP(290))
 
3475
      CALL VVVV3_0(W(1,1),W(1,31),W(1,3),W(1,16),GC_12,AMP(291))
 
3476
      CALL VVVV4_0(W(1,1),W(1,31),W(1,3),W(1,16),GC_12,AMP(292))
 
3477
C     Amplitude(s) for diagram number 163
 
3478
      CALL VVV1_0(W(1,3),W(1,16),W(1,19),GC_10,AMP(293))
 
3479
C     Amplitude(s) for diagram number 164
 
3480
      CALL VVV1_0(W(1,31),W(1,3),W(1,50),GC_10,AMP(294))
 
3481
C     Amplitude(s) for diagram number 165
 
3482
      CALL VVV1_0(W(1,1),W(1,31),W(1,13),GC_10,AMP(295))
 
3483
      CALL VVV1_0(W(1,1),W(1,31),W(1,17),GC_10,AMP(296))
 
3484
      CALL VVV1_0(W(1,1),W(1,31),W(1,9),GC_10,AMP(297))
 
3485
C     Amplitude(s) for diagram number 166
 
3486
      CALL VVVV1_0(W(1,1),W(1,2),W(1,8),W(1,11),GC_12,AMP(298))
 
3487
      CALL VVVV3_0(W(1,1),W(1,2),W(1,8),W(1,11),GC_12,AMP(299))
 
3488
      CALL VVVV4_0(W(1,1),W(1,2),W(1,8),W(1,11),GC_12,AMP(300))
 
3489
C     Amplitude(s) for diagram number 167
 
3490
      CALL VVV1_0(W(1,2),W(1,11),W(1,21),GC_10,AMP(301))
 
3491
C     Amplitude(s) for diagram number 168
 
3492
      CALL VVV1_0(W(1,2),W(1,8),W(1,7),GC_10,AMP(302))
 
3493
C     Amplitude(s) for diagram number 169
 
3494
      CALL VVVV1_0(W(1,1),W(1,2),W(1,12),W(1,14),GC_12,AMP(303))
 
3495
      CALL VVVV3_0(W(1,1),W(1,2),W(1,12),W(1,14),GC_12,AMP(304))
 
3496
      CALL VVVV4_0(W(1,1),W(1,2),W(1,12),W(1,14),GC_12,AMP(305))
 
3497
C     Amplitude(s) for diagram number 170
 
3498
      CALL VVV1_0(W(1,2),W(1,14),W(1,24),GC_10,AMP(306))
 
3499
C     Amplitude(s) for diagram number 171
 
3500
      CALL VVV1_0(W(1,2),W(1,12),W(1,51),GC_10,AMP(307))
 
3501
C     Amplitude(s) for diagram number 172
 
3502
      CALL VVVV1_0(W(1,1),W(1,2),W(1,15),W(1,16),GC_12,AMP(308))
 
3503
      CALL VVVV3_0(W(1,1),W(1,2),W(1,15),W(1,16),GC_12,AMP(309))
 
3504
      CALL VVVV4_0(W(1,1),W(1,2),W(1,15),W(1,16),GC_12,AMP(310))
 
3505
C     Amplitude(s) for diagram number 173
 
3506
      CALL VVV1_0(W(1,2),W(1,16),W(1,23),GC_10,AMP(311))
 
3507
C     Amplitude(s) for diagram number 174
 
3508
      CALL VVV1_0(W(1,2),W(1,15),W(1,50),GC_10,AMP(312))
 
3509
      CALL VVVV1_1(W(1,1),W(1,2),W(1,3),GC_12,ZERO,ZERO,W(1,50))
 
3510
      CALL VVVV3_1(W(1,1),W(1,2),W(1,3),GC_12,ZERO,ZERO,W(1,23))
 
3511
      CALL VVVV4_1(W(1,1),W(1,2),W(1,3),GC_12,ZERO,ZERO,W(1,51))
 
3512
C     Amplitude(s) for diagram number 175
 
3513
      CALL VVV1_0(W(1,50),W(1,16),W(1,6),GC_10,AMP(313))
 
3514
      CALL VVV1_0(W(1,23),W(1,16),W(1,6),GC_10,AMP(314))
 
3515
      CALL VVV1_0(W(1,51),W(1,16),W(1,6),GC_10,AMP(315))
 
3516
C     Amplitude(s) for diagram number 176
 
3517
      CALL VVV1_0(W(1,50),W(1,14),W(1,5),GC_10,AMP(316))
 
3518
      CALL VVV1_0(W(1,23),W(1,14),W(1,5),GC_10,AMP(317))
 
3519
      CALL VVV1_0(W(1,51),W(1,14),W(1,5),GC_10,AMP(318))
 
3520
C     Amplitude(s) for diagram number 177
 
3521
      CALL VVV1_0(W(1,50),W(1,4),W(1,11),GC_10,AMP(319))
 
3522
      CALL VVV1_0(W(1,23),W(1,4),W(1,11),GC_10,AMP(320))
 
3523
      CALL VVV1_0(W(1,51),W(1,4),W(1,11),GC_10,AMP(321))
 
3524
C     Amplitude(s) for diagram number 178
 
3525
      CALL VVVV1_0(W(1,4),W(1,5),W(1,6),W(1,50),GC_12,AMP(322))
 
3526
      CALL VVVV3_0(W(1,4),W(1,5),W(1,6),W(1,50),GC_12,AMP(323))
 
3527
      CALL VVVV4_0(W(1,4),W(1,5),W(1,6),W(1,50),GC_12,AMP(324))
 
3528
      CALL VVVV1_0(W(1,4),W(1,5),W(1,6),W(1,23),GC_12,AMP(325))
 
3529
      CALL VVVV3_0(W(1,4),W(1,5),W(1,6),W(1,23),GC_12,AMP(326))
 
3530
      CALL VVVV4_0(W(1,4),W(1,5),W(1,6),W(1,23),GC_12,AMP(327))
 
3531
      CALL VVVV1_0(W(1,4),W(1,5),W(1,6),W(1,51),GC_12,AMP(328))
 
3532
      CALL VVVV3_0(W(1,4),W(1,5),W(1,6),W(1,51),GC_12,AMP(329))
 
3533
      CALL VVVV4_0(W(1,4),W(1,5),W(1,6),W(1,51),GC_12,AMP(330))
 
3534
      CALL VVVV1_1(W(1,1),W(1,2),W(1,4),GC_12,ZERO,ZERO,W(1,51))
 
3535
      CALL VVVV3_1(W(1,1),W(1,2),W(1,4),GC_12,ZERO,ZERO,W(1,23))
 
3536
      CALL VVVV4_1(W(1,1),W(1,2),W(1,4),GC_12,ZERO,ZERO,W(1,50))
 
3537
C     Amplitude(s) for diagram number 179
 
3538
      CALL VVV1_0(W(1,51),W(1,12),W(1,6),GC_10,AMP(331))
 
3539
      CALL VVV1_0(W(1,23),W(1,12),W(1,6),GC_10,AMP(332))
 
3540
      CALL VVV1_0(W(1,50),W(1,12),W(1,6),GC_10,AMP(333))
 
3541
C     Amplitude(s) for diagram number 180
 
3542
      CALL VVV1_0(W(1,51),W(1,15),W(1,5),GC_10,AMP(334))
 
3543
      CALL VVV1_0(W(1,23),W(1,15),W(1,5),GC_10,AMP(335))
 
3544
      CALL VVV1_0(W(1,50),W(1,15),W(1,5),GC_10,AMP(336))
 
3545
C     Amplitude(s) for diagram number 181
 
3546
      CALL VVV1_0(W(1,51),W(1,3),W(1,11),GC_10,AMP(337))
 
3547
      CALL VVV1_0(W(1,23),W(1,3),W(1,11),GC_10,AMP(338))
 
3548
      CALL VVV1_0(W(1,50),W(1,3),W(1,11),GC_10,AMP(339))
 
3549
C     Amplitude(s) for diagram number 182
 
3550
      CALL VVVV1_0(W(1,3),W(1,5),W(1,6),W(1,51),GC_12,AMP(340))
 
3551
      CALL VVVV3_0(W(1,3),W(1,5),W(1,6),W(1,51),GC_12,AMP(341))
 
3552
      CALL VVVV4_0(W(1,3),W(1,5),W(1,6),W(1,51),GC_12,AMP(342))
 
3553
      CALL VVVV1_0(W(1,3),W(1,5),W(1,6),W(1,23),GC_12,AMP(343))
 
3554
      CALL VVVV3_0(W(1,3),W(1,5),W(1,6),W(1,23),GC_12,AMP(344))
 
3555
      CALL VVVV4_0(W(1,3),W(1,5),W(1,6),W(1,23),GC_12,AMP(345))
 
3556
      CALL VVVV1_0(W(1,3),W(1,5),W(1,6),W(1,50),GC_12,AMP(346))
 
3557
      CALL VVVV3_0(W(1,3),W(1,5),W(1,6),W(1,50),GC_12,AMP(347))
 
3558
      CALL VVVV4_0(W(1,3),W(1,5),W(1,6),W(1,50),GC_12,AMP(348))
 
3559
      CALL VVVV1_1(W(1,1),W(1,2),W(1,5),GC_12,ZERO,ZERO,W(1,50))
 
3560
      CALL VVVV3_1(W(1,1),W(1,2),W(1,5),GC_12,ZERO,ZERO,W(1,23))
 
3561
      CALL VVVV4_1(W(1,1),W(1,2),W(1,5),GC_12,ZERO,ZERO,W(1,51))
 
3562
C     Amplitude(s) for diagram number 183
 
3563
      CALL VVV1_0(W(1,50),W(1,8),W(1,6),GC_10,AMP(349))
 
3564
      CALL VVV1_0(W(1,23),W(1,8),W(1,6),GC_10,AMP(350))
 
3565
      CALL VVV1_0(W(1,51),W(1,8),W(1,6),GC_10,AMP(351))
 
3566
C     Amplitude(s) for diagram number 184
 
3567
      CALL VVV1_0(W(1,50),W(1,15),W(1,4),GC_10,AMP(352))
 
3568
      CALL VVV1_0(W(1,23),W(1,15),W(1,4),GC_10,AMP(353))
 
3569
      CALL VVV1_0(W(1,51),W(1,15),W(1,4),GC_10,AMP(354))
 
3570
C     Amplitude(s) for diagram number 185
 
3571
      CALL VVV1_0(W(1,50),W(1,3),W(1,14),GC_10,AMP(355))
 
3572
      CALL VVV1_0(W(1,23),W(1,3),W(1,14),GC_10,AMP(356))
 
3573
      CALL VVV1_0(W(1,51),W(1,3),W(1,14),GC_10,AMP(357))
 
3574
C     Amplitude(s) for diagram number 186
 
3575
      CALL VVVV1_0(W(1,3),W(1,4),W(1,6),W(1,50),GC_12,AMP(358))
 
3576
      CALL VVVV3_0(W(1,3),W(1,4),W(1,6),W(1,50),GC_12,AMP(359))
 
3577
      CALL VVVV4_0(W(1,3),W(1,4),W(1,6),W(1,50),GC_12,AMP(360))
 
3578
      CALL VVVV1_0(W(1,3),W(1,4),W(1,6),W(1,23),GC_12,AMP(361))
 
3579
      CALL VVVV3_0(W(1,3),W(1,4),W(1,6),W(1,23),GC_12,AMP(362))
 
3580
      CALL VVVV4_0(W(1,3),W(1,4),W(1,6),W(1,23),GC_12,AMP(363))
 
3581
      CALL VVVV1_0(W(1,3),W(1,4),W(1,6),W(1,51),GC_12,AMP(364))
 
3582
      CALL VVVV3_0(W(1,3),W(1,4),W(1,6),W(1,51),GC_12,AMP(365))
 
3583
      CALL VVVV4_0(W(1,3),W(1,4),W(1,6),W(1,51),GC_12,AMP(366))
 
3584
      CALL VVVV1_1(W(1,1),W(1,2),W(1,6),GC_12,ZERO,ZERO,W(1,51))
 
3585
      CALL VVVV3_1(W(1,1),W(1,2),W(1,6),GC_12,ZERO,ZERO,W(1,23))
 
3586
      CALL VVVV4_1(W(1,1),W(1,2),W(1,6),GC_12,ZERO,ZERO,W(1,50))
 
3587
C     Amplitude(s) for diagram number 187
 
3588
      CALL VVV1_0(W(1,51),W(1,8),W(1,5),GC_10,AMP(367))
 
3589
      CALL VVV1_0(W(1,23),W(1,8),W(1,5),GC_10,AMP(368))
 
3590
      CALL VVV1_0(W(1,50),W(1,8),W(1,5),GC_10,AMP(369))
 
3591
C     Amplitude(s) for diagram number 188
 
3592
      CALL VVV1_0(W(1,51),W(1,12),W(1,4),GC_10,AMP(370))
 
3593
      CALL VVV1_0(W(1,23),W(1,12),W(1,4),GC_10,AMP(371))
 
3594
      CALL VVV1_0(W(1,50),W(1,12),W(1,4),GC_10,AMP(372))
 
3595
C     Amplitude(s) for diagram number 189
 
3596
      CALL VVV1_0(W(1,51),W(1,3),W(1,16),GC_10,AMP(373))
 
3597
      CALL VVV1_0(W(1,23),W(1,3),W(1,16),GC_10,AMP(374))
 
3598
      CALL VVV1_0(W(1,50),W(1,3),W(1,16),GC_10,AMP(375))
 
3599
C     Amplitude(s) for diagram number 190
 
3600
      CALL VVVV1_0(W(1,3),W(1,4),W(1,5),W(1,51),GC_12,AMP(376))
 
3601
      CALL VVVV3_0(W(1,3),W(1,4),W(1,5),W(1,51),GC_12,AMP(377))
 
3602
      CALL VVVV4_0(W(1,3),W(1,4),W(1,5),W(1,51),GC_12,AMP(378))
 
3603
      CALL VVVV1_0(W(1,3),W(1,4),W(1,5),W(1,23),GC_12,AMP(379))
 
3604
      CALL VVVV3_0(W(1,3),W(1,4),W(1,5),W(1,23),GC_12,AMP(380))
 
3605
      CALL VVVV4_0(W(1,3),W(1,4),W(1,5),W(1,23),GC_12,AMP(381))
 
3606
      CALL VVVV1_0(W(1,3),W(1,4),W(1,5),W(1,50),GC_12,AMP(382))
 
3607
      CALL VVVV3_0(W(1,3),W(1,4),W(1,5),W(1,50),GC_12,AMP(383))
 
3608
      CALL VVVV4_0(W(1,3),W(1,4),W(1,5),W(1,50),GC_12,AMP(384))
 
3609
      CALL VVVV1_1(W(1,1),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,50))
 
3610
      CALL VVVV3_1(W(1,1),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,23))
 
3611
      CALL VVVV4_1(W(1,1),W(1,3),W(1,4),GC_12,ZERO,ZERO,W(1,51))
 
3612
C     Amplitude(s) for diagram number 191
 
3613
      CALL VVV1_0(W(1,50),W(1,29),W(1,6),GC_10,AMP(385))
 
3614
      CALL VVV1_0(W(1,23),W(1,29),W(1,6),GC_10,AMP(386))
 
3615
      CALL VVV1_0(W(1,51),W(1,29),W(1,6),GC_10,AMP(387))
 
3616
C     Amplitude(s) for diagram number 192
 
3617
      CALL VVV1_0(W(1,50),W(1,31),W(1,5),GC_10,AMP(388))
 
3618
      CALL VVV1_0(W(1,23),W(1,31),W(1,5),GC_10,AMP(389))
 
3619
      CALL VVV1_0(W(1,51),W(1,31),W(1,5),GC_10,AMP(390))
 
3620
C     Amplitude(s) for diagram number 193
 
3621
      CALL VVV1_0(W(1,50),W(1,2),W(1,11),GC_10,AMP(391))
 
3622
      CALL VVV1_0(W(1,23),W(1,2),W(1,11),GC_10,AMP(392))
 
3623
      CALL VVV1_0(W(1,51),W(1,2),W(1,11),GC_10,AMP(393))
 
3624
C     Amplitude(s) for diagram number 194
 
3625
      CALL VVVV1_0(W(1,2),W(1,5),W(1,6),W(1,50),GC_12,AMP(394))
 
3626
      CALL VVVV3_0(W(1,2),W(1,5),W(1,6),W(1,50),GC_12,AMP(395))
 
3627
      CALL VVVV4_0(W(1,2),W(1,5),W(1,6),W(1,50),GC_12,AMP(396))
 
3628
      CALL VVVV1_0(W(1,2),W(1,5),W(1,6),W(1,23),GC_12,AMP(397))
 
3629
      CALL VVVV3_0(W(1,2),W(1,5),W(1,6),W(1,23),GC_12,AMP(398))
 
3630
      CALL VVVV4_0(W(1,2),W(1,5),W(1,6),W(1,23),GC_12,AMP(399))
 
3631
      CALL VVVV1_0(W(1,2),W(1,5),W(1,6),W(1,51),GC_12,AMP(400))
 
3632
      CALL VVVV3_0(W(1,2),W(1,5),W(1,6),W(1,51),GC_12,AMP(401))
 
3633
      CALL VVVV4_0(W(1,2),W(1,5),W(1,6),W(1,51),GC_12,AMP(402))
 
3634
      CALL VVVV1_1(W(1,1),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,51))
 
3635
      CALL VVVV3_1(W(1,1),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,23))
 
3636
      CALL VVVV4_1(W(1,1),W(1,3),W(1,5),GC_12,ZERO,ZERO,W(1,50))
 
3637
C     Amplitude(s) for diagram number 195
 
3638
      CALL VVV1_0(W(1,51),W(1,26),W(1,6),GC_10,AMP(403))
 
3639
      CALL VVV1_0(W(1,23),W(1,26),W(1,6),GC_10,AMP(404))
 
3640
      CALL VVV1_0(W(1,50),W(1,26),W(1,6),GC_10,AMP(405))
 
3641
C     Amplitude(s) for diagram number 196
 
3642
      CALL VVV1_0(W(1,51),W(1,31),W(1,4),GC_10,AMP(406))
 
3643
      CALL VVV1_0(W(1,23),W(1,31),W(1,4),GC_10,AMP(407))
 
3644
      CALL VVV1_0(W(1,50),W(1,31),W(1,4),GC_10,AMP(408))
 
3645
C     Amplitude(s) for diagram number 197
 
3646
      CALL VVV1_0(W(1,51),W(1,2),W(1,14),GC_10,AMP(409))
 
3647
      CALL VVV1_0(W(1,23),W(1,2),W(1,14),GC_10,AMP(410))
 
3648
      CALL VVV1_0(W(1,50),W(1,2),W(1,14),GC_10,AMP(411))
 
3649
C     Amplitude(s) for diagram number 198
 
3650
      CALL VVVV1_0(W(1,2),W(1,4),W(1,6),W(1,51),GC_12,AMP(412))
 
3651
      CALL VVVV3_0(W(1,2),W(1,4),W(1,6),W(1,51),GC_12,AMP(413))
 
3652
      CALL VVVV4_0(W(1,2),W(1,4),W(1,6),W(1,51),GC_12,AMP(414))
 
3653
      CALL VVVV1_0(W(1,2),W(1,4),W(1,6),W(1,23),GC_12,AMP(415))
 
3654
      CALL VVVV3_0(W(1,2),W(1,4),W(1,6),W(1,23),GC_12,AMP(416))
 
3655
      CALL VVVV4_0(W(1,2),W(1,4),W(1,6),W(1,23),GC_12,AMP(417))
 
3656
      CALL VVVV1_0(W(1,2),W(1,4),W(1,6),W(1,50),GC_12,AMP(418))
 
3657
      CALL VVVV3_0(W(1,2),W(1,4),W(1,6),W(1,50),GC_12,AMP(419))
 
3658
      CALL VVVV4_0(W(1,2),W(1,4),W(1,6),W(1,50),GC_12,AMP(420))
 
3659
      CALL VVVV1_1(W(1,1),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,50))
 
3660
      CALL VVVV3_1(W(1,1),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,23))
 
3661
      CALL VVVV4_1(W(1,1),W(1,3),W(1,6),GC_12,ZERO,ZERO,W(1,51))
 
3662
C     Amplitude(s) for diagram number 199
 
3663
      CALL VVV1_0(W(1,50),W(1,26),W(1,5),GC_10,AMP(421))
 
3664
      CALL VVV1_0(W(1,23),W(1,26),W(1,5),GC_10,AMP(422))
 
3665
      CALL VVV1_0(W(1,51),W(1,26),W(1,5),GC_10,AMP(423))
 
3666
C     Amplitude(s) for diagram number 200
 
3667
      CALL VVV1_0(W(1,50),W(1,29),W(1,4),GC_10,AMP(424))
 
3668
      CALL VVV1_0(W(1,23),W(1,29),W(1,4),GC_10,AMP(425))
 
3669
      CALL VVV1_0(W(1,51),W(1,29),W(1,4),GC_10,AMP(426))
 
3670
C     Amplitude(s) for diagram number 201
 
3671
      CALL VVV1_0(W(1,50),W(1,2),W(1,16),GC_10,AMP(427))
 
3672
      CALL VVV1_0(W(1,23),W(1,2),W(1,16),GC_10,AMP(428))
 
3673
      CALL VVV1_0(W(1,51),W(1,2),W(1,16),GC_10,AMP(429))
 
3674
C     Amplitude(s) for diagram number 202
 
3675
      CALL VVVV1_0(W(1,2),W(1,4),W(1,5),W(1,50),GC_12,AMP(430))
 
3676
      CALL VVVV3_0(W(1,2),W(1,4),W(1,5),W(1,50),GC_12,AMP(431))
 
3677
      CALL VVVV4_0(W(1,2),W(1,4),W(1,5),W(1,50),GC_12,AMP(432))
 
3678
      CALL VVVV1_0(W(1,2),W(1,4),W(1,5),W(1,23),GC_12,AMP(433))
 
3679
      CALL VVVV3_0(W(1,2),W(1,4),W(1,5),W(1,23),GC_12,AMP(434))
 
3680
      CALL VVVV4_0(W(1,2),W(1,4),W(1,5),W(1,23),GC_12,AMP(435))
 
3681
      CALL VVVV1_0(W(1,2),W(1,4),W(1,5),W(1,51),GC_12,AMP(436))
 
3682
      CALL VVVV3_0(W(1,2),W(1,4),W(1,5),W(1,51),GC_12,AMP(437))
 
3683
      CALL VVVV4_0(W(1,2),W(1,4),W(1,5),W(1,51),GC_12,AMP(438))
 
3684
      CALL VVVV1_1(W(1,1),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,51))
 
3685
      CALL VVVV3_1(W(1,1),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,23))
 
3686
      CALL VVVV4_1(W(1,1),W(1,4),W(1,5),GC_12,ZERO,ZERO,W(1,50))
 
3687
C     Amplitude(s) for diagram number 203
 
3688
      CALL VVV1_0(W(1,51),W(1,38),W(1,6),GC_10,AMP(439))
 
3689
      CALL VVV1_0(W(1,23),W(1,38),W(1,6),GC_10,AMP(440))
 
3690
      CALL VVV1_0(W(1,50),W(1,38),W(1,6),GC_10,AMP(441))
 
3691
C     Amplitude(s) for diagram number 204
 
3692
      CALL VVV1_0(W(1,51),W(1,31),W(1,3),GC_10,AMP(442))
 
3693
      CALL VVV1_0(W(1,23),W(1,31),W(1,3),GC_10,AMP(443))
 
3694
      CALL VVV1_0(W(1,50),W(1,31),W(1,3),GC_10,AMP(444))
 
3695
C     Amplitude(s) for diagram number 205
 
3696
      CALL VVV1_0(W(1,51),W(1,2),W(1,15),GC_10,AMP(445))
 
3697
      CALL VVV1_0(W(1,23),W(1,2),W(1,15),GC_10,AMP(446))
 
3698
      CALL VVV1_0(W(1,50),W(1,2),W(1,15),GC_10,AMP(447))
 
3699
C     Amplitude(s) for diagram number 206
 
3700
      CALL VVVV1_0(W(1,2),W(1,3),W(1,6),W(1,51),GC_12,AMP(448))
 
3701
      CALL VVVV3_0(W(1,2),W(1,3),W(1,6),W(1,51),GC_12,AMP(449))
 
3702
      CALL VVVV4_0(W(1,2),W(1,3),W(1,6),W(1,51),GC_12,AMP(450))
 
3703
      CALL VVVV1_0(W(1,2),W(1,3),W(1,6),W(1,23),GC_12,AMP(451))
 
3704
      CALL VVVV3_0(W(1,2),W(1,3),W(1,6),W(1,23),GC_12,AMP(452))
 
3705
      CALL VVVV4_0(W(1,2),W(1,3),W(1,6),W(1,23),GC_12,AMP(453))
 
3706
      CALL VVVV1_0(W(1,2),W(1,3),W(1,6),W(1,50),GC_12,AMP(454))
 
3707
      CALL VVVV3_0(W(1,2),W(1,3),W(1,6),W(1,50),GC_12,AMP(455))
 
3708
      CALL VVVV4_0(W(1,2),W(1,3),W(1,6),W(1,50),GC_12,AMP(456))
 
3709
      CALL VVVV1_1(W(1,1),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,50))
 
3710
      CALL VVVV3_1(W(1,1),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,23))
 
3711
      CALL VVVV4_1(W(1,1),W(1,4),W(1,6),GC_12,ZERO,ZERO,W(1,51))
 
3712
C     Amplitude(s) for diagram number 207
 
3713
      CALL VVV1_0(W(1,50),W(1,38),W(1,5),GC_10,AMP(457))
 
3714
      CALL VVV1_0(W(1,23),W(1,38),W(1,5),GC_10,AMP(458))
 
3715
      CALL VVV1_0(W(1,51),W(1,38),W(1,5),GC_10,AMP(459))
 
3716
C     Amplitude(s) for diagram number 208
 
3717
      CALL VVV1_0(W(1,50),W(1,29),W(1,3),GC_10,AMP(460))
 
3718
      CALL VVV1_0(W(1,23),W(1,29),W(1,3),GC_10,AMP(461))
 
3719
      CALL VVV1_0(W(1,51),W(1,29),W(1,3),GC_10,AMP(462))
 
3720
C     Amplitude(s) for diagram number 209
 
3721
      CALL VVV1_0(W(1,50),W(1,2),W(1,12),GC_10,AMP(463))
 
3722
      CALL VVV1_0(W(1,23),W(1,2),W(1,12),GC_10,AMP(464))
 
3723
      CALL VVV1_0(W(1,51),W(1,2),W(1,12),GC_10,AMP(465))
 
3724
C     Amplitude(s) for diagram number 210
 
3725
      CALL VVVV1_0(W(1,2),W(1,3),W(1,5),W(1,50),GC_12,AMP(466))
 
3726
      CALL VVVV3_0(W(1,2),W(1,3),W(1,5),W(1,50),GC_12,AMP(467))
 
3727
      CALL VVVV4_0(W(1,2),W(1,3),W(1,5),W(1,50),GC_12,AMP(468))
 
3728
      CALL VVVV1_0(W(1,2),W(1,3),W(1,5),W(1,23),GC_12,AMP(469))
 
3729
      CALL VVVV3_0(W(1,2),W(1,3),W(1,5),W(1,23),GC_12,AMP(470))
 
3730
      CALL VVVV4_0(W(1,2),W(1,3),W(1,5),W(1,23),GC_12,AMP(471))
 
3731
      CALL VVVV1_0(W(1,2),W(1,3),W(1,5),W(1,51),GC_12,AMP(472))
 
3732
      CALL VVVV3_0(W(1,2),W(1,3),W(1,5),W(1,51),GC_12,AMP(473))
 
3733
      CALL VVVV4_0(W(1,2),W(1,3),W(1,5),W(1,51),GC_12,AMP(474))
 
3734
      CALL VVVV1_1(W(1,1),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,51))
 
3735
      CALL VVVV3_1(W(1,1),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,23))
 
3736
      CALL VVVV4_1(W(1,1),W(1,5),W(1,6),GC_12,ZERO,ZERO,W(1,50))
 
3737
C     Amplitude(s) for diagram number 211
 
3738
      CALL VVV1_0(W(1,51),W(1,38),W(1,4),GC_10,AMP(475))
 
3739
      CALL VVV1_0(W(1,23),W(1,38),W(1,4),GC_10,AMP(476))
 
3740
      CALL VVV1_0(W(1,50),W(1,38),W(1,4),GC_10,AMP(477))
 
3741
C     Amplitude(s) for diagram number 212
 
3742
      CALL VVV1_0(W(1,51),W(1,26),W(1,3),GC_10,AMP(478))
 
3743
      CALL VVV1_0(W(1,23),W(1,26),W(1,3),GC_10,AMP(479))
 
3744
      CALL VVV1_0(W(1,50),W(1,26),W(1,3),GC_10,AMP(480))
 
3745
C     Amplitude(s) for diagram number 213
 
3746
      CALL VVV1_0(W(1,51),W(1,2),W(1,8),GC_10,AMP(481))
 
3747
      CALL VVV1_0(W(1,23),W(1,2),W(1,8),GC_10,AMP(482))
 
3748
      CALL VVV1_0(W(1,50),W(1,2),W(1,8),GC_10,AMP(483))
 
3749
C     Amplitude(s) for diagram number 214
 
3750
      CALL VVVV1_0(W(1,2),W(1,3),W(1,4),W(1,51),GC_12,AMP(484))
 
3751
      CALL VVVV3_0(W(1,2),W(1,3),W(1,4),W(1,51),GC_12,AMP(485))
 
3752
      CALL VVVV4_0(W(1,2),W(1,3),W(1,4),W(1,51),GC_12,AMP(486))
 
3753
      CALL VVVV1_0(W(1,2),W(1,3),W(1,4),W(1,23),GC_12,AMP(487))
 
3754
      CALL VVVV3_0(W(1,2),W(1,3),W(1,4),W(1,23),GC_12,AMP(488))
 
3755
      CALL VVVV4_0(W(1,2),W(1,3),W(1,4),W(1,23),GC_12,AMP(489))
 
3756
      CALL VVVV1_0(W(1,2),W(1,3),W(1,4),W(1,50),GC_12,AMP(490))
 
3757
      CALL VVVV3_0(W(1,2),W(1,3),W(1,4),W(1,50),GC_12,AMP(491))
 
3758
      CALL VVVV4_0(W(1,2),W(1,3),W(1,4),W(1,50),GC_12,AMP(492))
 
3759
C     Amplitude(s) for diagram number 215
 
3760
      CALL VVV1_0(W(1,1),W(1,47),W(1,11),GC_10,AMP(493))
 
3761
      CALL VVV1_0(W(1,1),W(1,48),W(1,11),GC_10,AMP(494))
 
3762
      CALL VVV1_0(W(1,1),W(1,45),W(1,11),GC_10,AMP(495))
 
3763
C     Amplitude(s) for diagram number 216
 
3764
      CALL VVV1_0(W(1,1),W(1,41),W(1,14),GC_10,AMP(496))
 
3765
      CALL VVV1_0(W(1,1),W(1,42),W(1,14),GC_10,AMP(497))
 
3766
      CALL VVV1_0(W(1,1),W(1,39),W(1,14),GC_10,AMP(498))
 
3767
C     Amplitude(s) for diagram number 217
 
3768
      CALL VVV1_0(W(1,1),W(1,40),W(1,16),GC_10,AMP(499))
 
3769
      CALL VVV1_0(W(1,1),W(1,43),W(1,16),GC_10,AMP(500))
 
3770
      CALL VVV1_0(W(1,1),W(1,44),W(1,16),GC_10,AMP(501))
 
3771
C     Amplitude(s) for diagram number 218
 
3772
      CALL VVV1_0(W(1,1),W(1,30),W(1,15),GC_10,AMP(502))
 
3773
      CALL VVV1_0(W(1,1),W(1,32),W(1,15),GC_10,AMP(503))
 
3774
      CALL VVV1_0(W(1,1),W(1,27),W(1,15),GC_10,AMP(504))
 
3775
C     Amplitude(s) for diagram number 219
 
3776
      CALL VVV1_0(W(1,1),W(1,28),W(1,12),GC_10,AMP(505))
 
3777
      CALL VVV1_0(W(1,1),W(1,33),W(1,12),GC_10,AMP(506))
 
3778
      CALL VVV1_0(W(1,1),W(1,34),W(1,12),GC_10,AMP(507))
 
3779
C     Amplitude(s) for diagram number 220
 
3780
      CALL VVV1_0(W(1,1),W(1,35),W(1,8),GC_10,AMP(508))
 
3781
      CALL VVV1_0(W(1,1),W(1,36),W(1,8),GC_10,AMP(509))
 
3782
      CALL VVV1_0(W(1,1),W(1,37),W(1,8),GC_10,AMP(510))
 
3783
      JAMP(1)=+2D0*(+AMP(1)-AMP(3)-AMP(5)+AMP(6)+AMP(19)-AMP(21)
 
3784
     $ +AMP(22)-AMP(23)+AMP(29)-AMP(31)+AMP(32)-AMP(36)+AMP(34)
 
3785
     $ -AMP(45)+AMP(43)-AMP(181)+AMP(183)+AMP(185)-AMP(186)-AMP(199)
 
3786
     $ +AMP(201)-AMP(202)+AMP(203)-AMP(209)+AMP(211)-AMP(212)
 
3787
     $ +AMP(216)-AMP(214)+AMP(225)-AMP(223)+AMP(226)-AMP(228)+AMP(229)
 
3788
     $ +AMP(236)-AMP(238)+AMP(239)-AMP(240)-AMP(243)+AMP(241)
 
3789
     $ +AMP(298)-AMP(300)-AMP(302)+AMP(313)-AMP(315)+AMP(319)-AMP(321)
 
3790
     $ +AMP(322)-AMP(324)-AMP(328)+AMP(330)+AMP(368)+AMP(369)+AMP(374)
 
3791
     $ +AMP(375)-AMP(381)+AMP(382)-AMP(384)+AMP(379)-AMP(476)-AMP(475)
 
3792
     $ -AMP(482)-AMP(481)+AMP(489)-AMP(484)+AMP(486)-AMP(487)
 
3793
     $ +AMP(493)-AMP(495))
 
3794
      JAMP(2)=+2D0*(-AMP(1)-AMP(2)-AMP(4)-AMP(6)+AMP(24)-AMP(26)
 
3795
     $ +AMP(27)-AMP(28)-AMP(29)+AMP(31)-AMP(32)-AMP(39)+AMP(37)
 
3796
     $ -AMP(44)-AMP(43)-AMP(136)+AMP(138)+AMP(140)-AMP(141)-AMP(154)
 
3797
     $ +AMP(156)-AMP(157)+AMP(158)-AMP(164)+AMP(166)-AMP(167)
 
3798
     $ +AMP(171)-AMP(169)+AMP(180)-AMP(178)+AMP(231)-AMP(233)
 
3799
     $ +AMP(234)-AMP(236)+AMP(238)-AMP(239)+AMP(240)-AMP(242)-AMP(241)
 
3800
     $ -AMP(298)+AMP(300)+AMP(302)+AMP(316)-AMP(318)-AMP(319)+AMP(321)
 
3801
     $ +AMP(323)-AMP(329)+AMP(324)-AMP(330)+AMP(350)+AMP(351)+AMP(356)
 
3802
     $ +AMP(357)-AMP(363)+AMP(364)-AMP(366)+AMP(361)+AMP(475)-AMP(477)
 
3803
     $ +AMP(481)-AMP(483)+AMP(484)-AMP(486)-AMP(490)+AMP(492)-AMP(493)
 
3804
     $ +AMP(495))
 
3805
      JAMP(3)=+2D0*(+AMP(7)-AMP(9)-AMP(11)+AMP(12)-AMP(19)+AMP(21)
 
3806
     $ -AMP(22)+AMP(23)-AMP(24)-AMP(25)-AMP(27)-AMP(35)-AMP(34)
 
3807
     $ +AMP(45)+AMP(44)+AMP(181)+AMP(182)+AMP(184)+AMP(186)-AMP(204)
 
3808
     $ +AMP(206)-AMP(207)+AMP(208)+AMP(209)-AMP(211)+AMP(212)
 
3809
     $ +AMP(219)-AMP(217)+AMP(224)+AMP(223)-AMP(226)+AMP(228)-AMP(229)
 
3810
     $ -AMP(231)-AMP(232)-AMP(234)-AMP(235)+AMP(243)+AMP(242)
 
3811
     $ +AMP(303)-AMP(305)-AMP(307)-AMP(313)+AMP(315)-AMP(316)
 
3812
     $ +AMP(318)-AMP(323)-AMP(322)+AMP(329)+AMP(328)+AMP(371)
 
3813
     $ +AMP(372)-AMP(374)-AMP(375)+AMP(381)+AMP(383)+AMP(384)
 
3814
     $ +AMP(380)-AMP(458)-AMP(457)-AMP(464)-AMP(463)+AMP(471)-AMP(466)
 
3815
     $ +AMP(468)-AMP(469)+AMP(496)-AMP(498))
 
3816
      JAMP(4)=+2D0*(-AMP(7)-AMP(8)-AMP(10)-AMP(12)+AMP(24)+AMP(25)
 
3817
     $ +AMP(27)-AMP(29)-AMP(30)-AMP(32)-AMP(33)-AMP(42)+AMP(40)
 
3818
     $ -AMP(44)-AMP(43)-AMP(91)+AMP(93)+AMP(95)-AMP(96)-AMP(109)
 
3819
     $ +AMP(111)-AMP(112)+AMP(113)-AMP(119)+AMP(121)-AMP(122)
 
3820
     $ +AMP(126)-AMP(124)+AMP(135)-AMP(133)+AMP(231)+AMP(232)+AMP(234)
 
3821
     $ +AMP(235)-AMP(236)-AMP(237)-AMP(239)-AMP(242)-AMP(241)-AMP(303)
 
3822
     $ +AMP(305)+AMP(307)+AMP(316)-AMP(318)-AMP(319)+AMP(321)
 
3823
     $ +AMP(323)-AMP(329)+AMP(324)-AMP(330)+AMP(332)+AMP(333)+AMP(338)
 
3824
     $ +AMP(339)-AMP(345)+AMP(346)-AMP(348)+AMP(343)+AMP(457)-AMP(459)
 
3825
     $ +AMP(463)-AMP(465)+AMP(466)-AMP(468)-AMP(472)+AMP(474)-AMP(496)
 
3826
     $ +AMP(498))
 
3827
      JAMP(5)=+2D0*(+AMP(13)-AMP(15)-AMP(17)+AMP(18)-AMP(19)-AMP(20)
 
3828
     $ -AMP(22)-AMP(24)+AMP(26)-AMP(27)+AMP(28)-AMP(38)-AMP(37)
 
3829
     $ +AMP(45)+AMP(44)+AMP(136)+AMP(137)+AMP(139)+AMP(141)-AMP(159)
 
3830
     $ +AMP(161)-AMP(162)+AMP(163)+AMP(164)-AMP(166)+AMP(167)
 
3831
     $ +AMP(174)-AMP(172)+AMP(179)+AMP(178)-AMP(226)-AMP(227)-AMP(229)
 
3832
     $ -AMP(230)-AMP(231)+AMP(233)-AMP(234)+AMP(243)+AMP(242)
 
3833
     $ +AMP(308)-AMP(310)-AMP(312)-AMP(313)+AMP(315)-AMP(316)
 
3834
     $ +AMP(318)-AMP(323)-AMP(322)+AMP(329)+AMP(328)+AMP(353)
 
3835
     $ +AMP(354)-AMP(356)-AMP(357)+AMP(363)+AMP(365)+AMP(366)
 
3836
     $ +AMP(362)-AMP(440)-AMP(439)-AMP(446)-AMP(445)+AMP(453)-AMP(448)
 
3837
     $ +AMP(450)-AMP(451)+AMP(499)-AMP(501))
 
3838
      JAMP(6)=+2D0*(-AMP(13)-AMP(14)-AMP(16)-AMP(18)+AMP(19)+AMP(20)
 
3839
     $ +AMP(22)+AMP(29)+AMP(30)+AMP(32)+AMP(33)-AMP(41)-AMP(40)
 
3840
     $ -AMP(45)+AMP(43)+AMP(91)+AMP(92)+AMP(94)+AMP(96)-AMP(114)
 
3841
     $ +AMP(116)-AMP(117)+AMP(118)+AMP(119)-AMP(121)+AMP(122)
 
3842
     $ +AMP(129)-AMP(127)+AMP(134)+AMP(133)+AMP(226)+AMP(227)+AMP(229)
 
3843
     $ +AMP(230)+AMP(236)+AMP(237)+AMP(239)-AMP(243)+AMP(241)-AMP(308)
 
3844
     $ +AMP(310)+AMP(312)+AMP(313)-AMP(315)+AMP(319)-AMP(321)
 
3845
     $ +AMP(322)-AMP(324)-AMP(328)+AMP(330)+AMP(335)+AMP(336)-AMP(338)
 
3846
     $ -AMP(339)+AMP(345)+AMP(347)+AMP(348)+AMP(344)+AMP(439)-AMP(441)
 
3847
     $ +AMP(445)-AMP(447)+AMP(448)-AMP(450)-AMP(454)+AMP(456)-AMP(499)
 
3848
     $ +AMP(501))
 
3849
      JAMP(7)=+2D0*(-AMP(1)+AMP(3)+AMP(5)-AMP(6)+AMP(8)+AMP(9)+AMP(10)
 
3850
     $ +AMP(11)+AMP(30)+AMP(31)+AMP(33)+AMP(36)+AMP(35)+AMP(42)
 
3851
     $ -AMP(40)-AMP(187)+AMP(189)+AMP(191)-AMP(192)+AMP(199)-AMP(201)
 
3852
     $ +AMP(202)-AMP(203)+AMP(204)+AMP(205)+AMP(207)+AMP(215)
 
3853
     $ +AMP(214)-AMP(225)-AMP(224)+AMP(244)-AMP(246)+AMP(247)
 
3854
     $ +AMP(254)-AMP(256)+AMP(257)-AMP(258)-AMP(261)+AMP(259)-AMP(298)
 
3855
     $ +AMP(300)+AMP(302)+AMP(331)-AMP(333)+AMP(337)-AMP(339)
 
3856
     $ +AMP(340)-AMP(342)-AMP(346)+AMP(348)-AMP(368)-AMP(369)-AMP(371)
 
3857
     $ -AMP(372)-AMP(383)-AMP(382)-AMP(379)-AMP(380)-AMP(479)-AMP(478)
 
3858
     $ +AMP(482)+AMP(481)-AMP(485)-AMP(489)-AMP(486)-AMP(488)-AMP(494)
 
3859
     $ -AMP(493))
 
3860
      JAMP(8)=+2D0*(+AMP(1)+AMP(2)+AMP(4)+AMP(6)+AMP(14)+AMP(15)
 
3861
     $ +AMP(16)+AMP(17)-AMP(30)-AMP(31)-AMP(33)+AMP(39)+AMP(38)
 
3862
     $ +AMP(41)+AMP(40)-AMP(142)+AMP(144)+AMP(146)-AMP(147)+AMP(154)
 
3863
     $ -AMP(156)+AMP(157)-AMP(158)+AMP(159)+AMP(160)+AMP(162)+AMP(170)
 
3864
     $ +AMP(169)-AMP(180)-AMP(179)+AMP(249)-AMP(251)+AMP(252)-AMP(254)
 
3865
     $ +AMP(256)-AMP(257)+AMP(258)-AMP(260)-AMP(259)+AMP(298)-AMP(300)
 
3866
     $ -AMP(302)+AMP(334)-AMP(336)-AMP(337)+AMP(339)+AMP(341)-AMP(347)
 
3867
     $ +AMP(342)-AMP(348)-AMP(350)-AMP(351)-AMP(353)-AMP(354)-AMP(365)
 
3868
     $ -AMP(364)-AMP(361)-AMP(362)+AMP(478)-AMP(480)-AMP(481)+AMP(483)
 
3869
     $ +AMP(485)-AMP(491)+AMP(486)-AMP(492)+AMP(494)+AMP(493))
 
3870
      JAMP(9)=+2D0*(-AMP(8)-AMP(9)-AMP(10)-AMP(11)-AMP(13)-AMP(14)
 
3871
     $ -AMP(16)-AMP(18)+AMP(20)+AMP(21)+AMP(23)-AMP(35)-AMP(34)
 
3872
     $ -AMP(42)-AMP(41)+AMP(187)+AMP(188)+AMP(190)+AMP(192)-AMP(204)
 
3873
     $ -AMP(205)-AMP(207)+AMP(209)+AMP(210)+AMP(212)+AMP(213)
 
3874
     $ +AMP(222)-AMP(220)+AMP(224)+AMP(223)-AMP(244)+AMP(246)-AMP(247)
 
3875
     $ -AMP(249)-AMP(250)-AMP(252)-AMP(253)+AMP(261)+AMP(260)-AMP(308)
 
3876
     $ -AMP(309)-AMP(311)-AMP(331)+AMP(333)-AMP(334)+AMP(336)-AMP(341)
 
3877
     $ -AMP(340)+AMP(347)+AMP(346)+AMP(371)+AMP(372)-AMP(374)-AMP(375)
 
3878
     $ +AMP(381)+AMP(383)+AMP(384)+AMP(380)-AMP(422)-AMP(421)-AMP(428)
 
3879
     $ -AMP(427)+AMP(435)-AMP(430)+AMP(432)-AMP(433)+AMP(502)-AMP(504))
 
3880
      JAMP(10)=+2D0*(+AMP(13)+AMP(14)+AMP(16)+AMP(18)-AMP(19)-AMP(20)
 
3881
     $ -AMP(22)-AMP(29)-AMP(30)-AMP(32)-AMP(33)+AMP(41)+AMP(40)
 
3882
     $ +AMP(45)-AMP(43)-AMP(46)+AMP(48)+AMP(50)-AMP(51)-AMP(64)
 
3883
     $ +AMP(66)-AMP(67)+AMP(68)-AMP(74)+AMP(76)-AMP(77)+AMP(81)
 
3884
     $ -AMP(79)+AMP(90)-AMP(88)+AMP(249)+AMP(250)+AMP(252)+AMP(253)
 
3885
     $ -AMP(254)-AMP(255)-AMP(257)-AMP(260)-AMP(259)+AMP(308)+AMP(309)
 
3886
     $ +AMP(311)+AMP(314)+AMP(315)+AMP(320)+AMP(321)-AMP(327)
 
3887
     $ +AMP(328)-AMP(330)+AMP(325)+AMP(334)-AMP(336)-AMP(337)+AMP(339)
 
3888
     $ +AMP(341)-AMP(347)+AMP(342)-AMP(348)+AMP(421)-AMP(423)
 
3889
     $ +AMP(427)-AMP(429)+AMP(430)-AMP(432)-AMP(436)+AMP(438)-AMP(502)
 
3890
     $ +AMP(504))
 
3891
      JAMP(11)=+2D0*(-AMP(7)-AMP(8)-AMP(10)-AMP(12)-AMP(14)-AMP(15)
 
3892
     $ -AMP(16)-AMP(17)+AMP(25)+AMP(26)+AMP(28)-AMP(38)-AMP(37)
 
3893
     $ -AMP(42)-AMP(41)+AMP(142)+AMP(143)+AMP(145)+AMP(147)-AMP(159)
 
3894
     $ -AMP(160)-AMP(162)+AMP(164)+AMP(165)+AMP(167)+AMP(168)
 
3895
     $ +AMP(177)-AMP(175)+AMP(179)+AMP(178)-AMP(244)-AMP(245)-AMP(247)
 
3896
     $ -AMP(248)-AMP(249)+AMP(251)-AMP(252)+AMP(261)+AMP(260)-AMP(303)
 
3897
     $ -AMP(304)-AMP(306)-AMP(331)+AMP(333)-AMP(334)+AMP(336)-AMP(341)
 
3898
     $ -AMP(340)+AMP(347)+AMP(346)+AMP(353)+AMP(354)-AMP(356)-AMP(357)
 
3899
     $ +AMP(363)+AMP(365)+AMP(366)+AMP(362)-AMP(404)-AMP(403)-AMP(410)
 
3900
     $ -AMP(409)+AMP(417)-AMP(412)+AMP(414)-AMP(415)+AMP(505)-AMP(507))
 
3901
      JAMP(12)=+2D0*(+AMP(7)+AMP(8)+AMP(10)+AMP(12)-AMP(24)-AMP(25)
 
3902
     $ -AMP(27)+AMP(29)+AMP(30)+AMP(32)+AMP(33)+AMP(42)-AMP(40)
 
3903
     $ +AMP(44)+AMP(43)+AMP(46)+AMP(47)+AMP(49)+AMP(51)-AMP(69)
 
3904
     $ +AMP(71)-AMP(72)+AMP(73)+AMP(74)-AMP(76)+AMP(77)+AMP(84)
 
3905
     $ -AMP(82)+AMP(89)+AMP(88)+AMP(244)+AMP(245)+AMP(247)+AMP(248)
 
3906
     $ +AMP(254)+AMP(255)+AMP(257)-AMP(261)+AMP(259)+AMP(303)+AMP(304)
 
3907
     $ +AMP(306)+AMP(317)+AMP(318)-AMP(320)-AMP(321)+AMP(327)+AMP(329)
 
3908
     $ +AMP(330)+AMP(326)+AMP(331)-AMP(333)+AMP(337)-AMP(339)
 
3909
     $ +AMP(340)-AMP(342)-AMP(346)+AMP(348)+AMP(403)-AMP(405)
 
3910
     $ +AMP(409)-AMP(411)+AMP(412)-AMP(414)-AMP(418)+AMP(420)-AMP(505)
 
3911
     $ +AMP(507))
 
3912
      JAMP(13)=+2D0*(+AMP(2)+AMP(3)+AMP(4)+AMP(5)-AMP(7)+AMP(9)
 
3913
     $ +AMP(11)-AMP(12)+AMP(25)+AMP(26)+AMP(28)+AMP(36)+AMP(35)
 
3914
     $ +AMP(39)-AMP(37)-AMP(193)+AMP(195)+AMP(197)-AMP(198)+AMP(199)
 
3915
     $ +AMP(200)+AMP(202)+AMP(204)-AMP(206)+AMP(207)-AMP(208)+AMP(218)
 
3916
     $ +AMP(217)-AMP(225)-AMP(224)+AMP(262)-AMP(264)+AMP(265)
 
3917
     $ +AMP(272)-AMP(274)+AMP(275)-AMP(276)-AMP(279)+AMP(277)-AMP(303)
 
3918
     $ +AMP(305)+AMP(307)+AMP(349)-AMP(351)+AMP(355)-AMP(357)
 
3919
     $ +AMP(358)-AMP(360)-AMP(364)+AMP(366)-AMP(368)-AMP(369)-AMP(371)
 
3920
     $ -AMP(372)-AMP(383)-AMP(382)-AMP(379)-AMP(380)-AMP(461)-AMP(460)
 
3921
     $ +AMP(464)+AMP(463)-AMP(467)-AMP(471)-AMP(468)-AMP(470)-AMP(497)
 
3922
     $ -AMP(496))
 
3923
      JAMP(14)=+2D0*(+AMP(7)+AMP(8)+AMP(10)+AMP(12)+AMP(14)+AMP(15)
 
3924
     $ +AMP(16)+AMP(17)-AMP(25)-AMP(26)-AMP(28)+AMP(38)+AMP(37)
 
3925
     $ +AMP(42)+AMP(41)-AMP(97)+AMP(99)+AMP(101)-AMP(102)+AMP(109)
 
3926
     $ -AMP(111)+AMP(112)-AMP(113)+AMP(114)+AMP(115)+AMP(117)+AMP(125)
 
3927
     $ +AMP(124)-AMP(135)-AMP(134)+AMP(267)-AMP(269)+AMP(270)-AMP(272)
 
3928
     $ +AMP(274)-AMP(275)+AMP(276)-AMP(278)-AMP(277)+AMP(303)-AMP(305)
 
3929
     $ -AMP(307)-AMP(332)-AMP(333)-AMP(335)-AMP(336)-AMP(347)-AMP(346)
 
3930
     $ -AMP(343)-AMP(344)+AMP(352)-AMP(354)-AMP(355)+AMP(357)
 
3931
     $ +AMP(359)-AMP(365)+AMP(360)-AMP(366)+AMP(460)-AMP(462)-AMP(463)
 
3932
     $ +AMP(465)+AMP(467)-AMP(473)+AMP(468)-AMP(474)+AMP(497)+AMP(496))
 
3933
      JAMP(15)=+2D0*(-AMP(2)-AMP(3)-AMP(4)-AMP(5)+AMP(13)-AMP(15)
 
3934
     $ -AMP(17)+AMP(18)-AMP(20)-AMP(21)-AMP(23)-AMP(36)+AMP(34)
 
3935
     $ -AMP(39)-AMP(38)+AMP(193)+AMP(194)+AMP(196)+AMP(198)-AMP(199)
 
3936
     $ -AMP(200)-AMP(202)-AMP(209)-AMP(210)-AMP(212)-AMP(213)+AMP(221)
 
3937
     $ +AMP(220)+AMP(225)-AMP(223)-AMP(262)+AMP(264)-AMP(265)-AMP(267)
 
3938
     $ -AMP(268)-AMP(270)-AMP(271)+AMP(279)+AMP(278)+AMP(308)+AMP(309)
 
3939
     $ +AMP(311)-AMP(349)+AMP(351)-AMP(352)+AMP(354)-AMP(359)-AMP(358)
 
3940
     $ +AMP(365)+AMP(364)+AMP(368)+AMP(369)+AMP(374)+AMP(375)-AMP(381)
 
3941
     $ +AMP(382)-AMP(384)+AMP(379)-AMP(425)-AMP(424)+AMP(428)
 
3942
     $ +AMP(427)-AMP(431)-AMP(435)-AMP(432)-AMP(434)-AMP(503)-AMP(502))
 
3943
      JAMP(16)=+2D0*(-AMP(13)+AMP(15)+AMP(17)-AMP(18)+AMP(19)+AMP(20)
 
3944
     $ +AMP(22)+AMP(24)-AMP(26)+AMP(27)-AMP(28)+AMP(38)+AMP(37)
 
3945
     $ -AMP(45)-AMP(44)-AMP(52)+AMP(54)+AMP(56)-AMP(57)+AMP(64)
 
3946
     $ -AMP(66)+AMP(67)-AMP(68)+AMP(69)+AMP(70)+AMP(72)+AMP(80)
 
3947
     $ +AMP(79)-AMP(90)-AMP(89)+AMP(267)+AMP(268)+AMP(270)+AMP(271)
 
3948
     $ -AMP(272)-AMP(273)-AMP(275)-AMP(278)-AMP(277)-AMP(308)-AMP(309)
 
3949
     $ -AMP(311)-AMP(314)-AMP(315)-AMP(317)-AMP(318)-AMP(329)-AMP(328)
 
3950
     $ -AMP(325)-AMP(326)+AMP(352)-AMP(354)-AMP(355)+AMP(357)
 
3951
     $ +AMP(359)-AMP(365)+AMP(360)-AMP(366)+AMP(424)-AMP(426)-AMP(427)
 
3952
     $ +AMP(429)+AMP(431)-AMP(437)+AMP(432)-AMP(438)+AMP(503)+AMP(502))
 
3953
      JAMP(17)=+2D0*(-AMP(1)-AMP(2)-AMP(4)-AMP(6)-AMP(14)-AMP(15)
 
3954
     $ -AMP(16)-AMP(17)+AMP(30)+AMP(31)+AMP(33)-AMP(39)-AMP(38)
 
3955
     $ -AMP(41)-AMP(40)+AMP(97)+AMP(98)+AMP(100)+AMP(102)-AMP(114)
 
3956
     $ -AMP(115)-AMP(117)+AMP(119)+AMP(120)+AMP(122)+AMP(123)
 
3957
     $ +AMP(132)-AMP(130)+AMP(134)+AMP(133)-AMP(262)-AMP(263)-AMP(265)
 
3958
     $ -AMP(266)-AMP(267)+AMP(269)-AMP(270)+AMP(279)+AMP(278)-AMP(298)
 
3959
     $ -AMP(299)-AMP(301)+AMP(335)+AMP(336)-AMP(338)-AMP(339)+AMP(345)
 
3960
     $ +AMP(347)+AMP(348)+AMP(344)-AMP(349)+AMP(351)-AMP(352)
 
3961
     $ +AMP(354)-AMP(359)-AMP(358)+AMP(365)+AMP(364)-AMP(386)-AMP(385)
 
3962
     $ -AMP(392)-AMP(391)+AMP(399)-AMP(394)+AMP(396)-AMP(397)
 
3963
     $ +AMP(508)-AMP(510))
 
3964
      JAMP(18)=+2D0*(+AMP(1)+AMP(2)+AMP(4)+AMP(6)-AMP(24)+AMP(26)
 
3965
     $ -AMP(27)+AMP(28)+AMP(29)-AMP(31)+AMP(32)+AMP(39)-AMP(37)
 
3966
     $ +AMP(44)+AMP(43)+AMP(52)+AMP(53)+AMP(55)+AMP(57)-AMP(69)
 
3967
     $ -AMP(70)-AMP(72)+AMP(74)+AMP(75)+AMP(77)+AMP(78)+AMP(87)
 
3968
     $ -AMP(85)+AMP(89)+AMP(88)+AMP(262)+AMP(263)+AMP(265)+AMP(266)
 
3969
     $ +AMP(272)+AMP(273)+AMP(275)-AMP(279)+AMP(277)+AMP(298)+AMP(299)
 
3970
     $ +AMP(301)+AMP(317)+AMP(318)-AMP(320)-AMP(321)+AMP(327)+AMP(329)
 
3971
     $ +AMP(330)+AMP(326)+AMP(349)-AMP(351)+AMP(355)-AMP(357)
 
3972
     $ +AMP(358)-AMP(360)-AMP(364)+AMP(366)+AMP(385)-AMP(387)
 
3973
     $ +AMP(391)-AMP(393)+AMP(394)-AMP(396)-AMP(400)+AMP(402)-AMP(508)
 
3974
     $ +AMP(510))
 
3975
      JAMP(19)=+2D0*(+AMP(2)+AMP(3)+AMP(4)+AMP(5)-AMP(13)+AMP(15)
 
3976
     $ +AMP(17)-AMP(18)+AMP(20)+AMP(21)+AMP(23)+AMP(36)-AMP(34)
 
3977
     $ +AMP(39)+AMP(38)-AMP(148)+AMP(150)+AMP(152)-AMP(153)+AMP(154)
 
3978
     $ +AMP(155)+AMP(157)+AMP(159)-AMP(161)+AMP(162)-AMP(163)+AMP(173)
 
3979
     $ +AMP(172)-AMP(180)-AMP(179)+AMP(280)-AMP(282)+AMP(283)
 
3980
     $ +AMP(290)-AMP(292)+AMP(293)-AMP(294)-AMP(297)+AMP(295)-AMP(308)
 
3981
     $ +AMP(310)+AMP(312)-AMP(350)-AMP(351)-AMP(353)-AMP(354)-AMP(365)
 
3982
     $ -AMP(364)-AMP(361)-AMP(362)+AMP(367)-AMP(369)+AMP(373)-AMP(375)
 
3983
     $ +AMP(376)-AMP(378)-AMP(382)+AMP(384)-AMP(443)-AMP(442)+AMP(446)
 
3984
     $ +AMP(445)-AMP(449)-AMP(453)-AMP(450)-AMP(452)-AMP(500)-AMP(499))
 
3985
      JAMP(20)=+2D0*(+AMP(8)+AMP(9)+AMP(10)+AMP(11)+AMP(13)+AMP(14)
 
3986
     $ +AMP(16)+AMP(18)-AMP(20)-AMP(21)-AMP(23)+AMP(35)+AMP(34)
 
3987
     $ +AMP(42)+AMP(41)-AMP(103)+AMP(105)+AMP(107)-AMP(108)+AMP(109)
 
3988
     $ +AMP(110)+AMP(112)+AMP(114)-AMP(116)+AMP(117)-AMP(118)+AMP(128)
 
3989
     $ +AMP(127)-AMP(135)-AMP(134)+AMP(285)-AMP(287)+AMP(288)-AMP(290)
 
3990
     $ +AMP(292)-AMP(293)+AMP(294)-AMP(296)-AMP(295)+AMP(308)-AMP(310)
 
3991
     $ -AMP(312)-AMP(332)-AMP(333)-AMP(335)-AMP(336)-AMP(347)-AMP(346)
 
3992
     $ -AMP(343)-AMP(344)+AMP(370)-AMP(372)-AMP(373)+AMP(375)
 
3993
     $ +AMP(377)-AMP(383)+AMP(378)-AMP(384)+AMP(442)-AMP(444)-AMP(445)
 
3994
     $ +AMP(447)+AMP(449)-AMP(455)+AMP(450)-AMP(456)+AMP(500)+AMP(499))
 
3995
      JAMP(21)=+2D0*(-AMP(2)-AMP(3)-AMP(4)-AMP(5)+AMP(7)-AMP(9)
 
3996
     $ -AMP(11)+AMP(12)-AMP(25)-AMP(26)-AMP(28)-AMP(36)-AMP(35)
 
3997
     $ -AMP(39)+AMP(37)+AMP(148)+AMP(149)+AMP(151)+AMP(153)-AMP(154)
 
3998
     $ -AMP(155)-AMP(157)-AMP(164)-AMP(165)-AMP(167)-AMP(168)+AMP(176)
 
3999
     $ +AMP(175)+AMP(180)-AMP(178)-AMP(280)+AMP(282)-AMP(283)-AMP(285)
 
4000
     $ -AMP(286)-AMP(288)-AMP(289)+AMP(297)+AMP(296)+AMP(303)+AMP(304)
 
4001
     $ +AMP(306)+AMP(350)+AMP(351)+AMP(356)+AMP(357)-AMP(363)
 
4002
     $ +AMP(364)-AMP(366)+AMP(361)-AMP(367)+AMP(369)-AMP(370)
 
4003
     $ +AMP(372)-AMP(377)-AMP(376)+AMP(383)+AMP(382)-AMP(407)-AMP(406)
 
4004
     $ +AMP(410)+AMP(409)-AMP(413)-AMP(417)-AMP(414)-AMP(416)-AMP(506)
 
4005
     $ -AMP(505))
 
4006
      JAMP(22)=+2D0*(-AMP(7)+AMP(9)+AMP(11)-AMP(12)+AMP(19)-AMP(21)
 
4007
     $ +AMP(22)-AMP(23)+AMP(24)+AMP(25)+AMP(27)+AMP(35)+AMP(34)
 
4008
     $ -AMP(45)-AMP(44)-AMP(58)+AMP(60)+AMP(62)-AMP(63)+AMP(64)
 
4009
     $ +AMP(65)+AMP(67)+AMP(69)-AMP(71)+AMP(72)-AMP(73)+AMP(83)
 
4010
     $ +AMP(82)-AMP(90)-AMP(89)+AMP(285)+AMP(286)+AMP(288)+AMP(289)
 
4011
     $ -AMP(290)-AMP(291)-AMP(293)-AMP(296)-AMP(295)-AMP(303)-AMP(304)
 
4012
     $ -AMP(306)-AMP(314)-AMP(315)-AMP(317)-AMP(318)-AMP(329)-AMP(328)
 
4013
     $ -AMP(325)-AMP(326)+AMP(370)-AMP(372)-AMP(373)+AMP(375)
 
4014
     $ +AMP(377)-AMP(383)+AMP(378)-AMP(384)+AMP(406)-AMP(408)-AMP(409)
 
4015
     $ +AMP(411)+AMP(413)-AMP(419)+AMP(414)-AMP(420)+AMP(506)+AMP(505))
 
4016
      JAMP(23)=+2D0*(+AMP(1)-AMP(3)-AMP(5)+AMP(6)-AMP(8)-AMP(9)
 
4017
     $ -AMP(10)-AMP(11)-AMP(30)-AMP(31)-AMP(33)-AMP(36)-AMP(35)
 
4018
     $ -AMP(42)+AMP(40)+AMP(103)+AMP(104)+AMP(106)+AMP(108)-AMP(109)
 
4019
     $ -AMP(110)-AMP(112)-AMP(119)-AMP(120)-AMP(122)-AMP(123)+AMP(131)
 
4020
     $ +AMP(130)+AMP(135)-AMP(133)-AMP(280)-AMP(281)-AMP(283)-AMP(284)
 
4021
     $ -AMP(285)+AMP(287)-AMP(288)+AMP(297)+AMP(296)+AMP(298)+AMP(299)
 
4022
     $ +AMP(301)+AMP(332)+AMP(333)+AMP(338)+AMP(339)-AMP(345)
 
4023
     $ +AMP(346)-AMP(348)+AMP(343)-AMP(367)+AMP(369)-AMP(370)
 
4024
     $ +AMP(372)-AMP(377)-AMP(376)+AMP(383)+AMP(382)-AMP(389)-AMP(388)
 
4025
     $ +AMP(392)+AMP(391)-AMP(395)-AMP(399)-AMP(396)-AMP(398)-AMP(509)
 
4026
     $ -AMP(508))
 
4027
      JAMP(24)=+2D0*(-AMP(1)+AMP(3)+AMP(5)-AMP(6)-AMP(19)+AMP(21)
 
4028
     $ -AMP(22)+AMP(23)-AMP(29)+AMP(31)-AMP(32)+AMP(36)-AMP(34)
 
4029
     $ +AMP(45)-AMP(43)+AMP(58)+AMP(59)+AMP(61)+AMP(63)-AMP(64)
 
4030
     $ -AMP(65)-AMP(67)-AMP(74)-AMP(75)-AMP(77)-AMP(78)+AMP(86)
 
4031
     $ +AMP(85)+AMP(90)-AMP(88)+AMP(280)+AMP(281)+AMP(283)+AMP(284)
 
4032
     $ +AMP(290)+AMP(291)+AMP(293)-AMP(297)+AMP(295)-AMP(298)-AMP(299)
 
4033
     $ -AMP(301)+AMP(314)+AMP(315)+AMP(320)+AMP(321)-AMP(327)
 
4034
     $ +AMP(328)-AMP(330)+AMP(325)+AMP(367)-AMP(369)+AMP(373)-AMP(375)
 
4035
     $ +AMP(376)-AMP(378)-AMP(382)+AMP(384)+AMP(388)-AMP(390)-AMP(391)
 
4036
     $ +AMP(393)+AMP(395)-AMP(401)+AMP(396)-AMP(402)+AMP(509)+AMP(508))
 
4037
      JAMP(25)=+2D0*(+AMP(46)-AMP(48)-AMP(50)+AMP(51)+AMP(64)-AMP(66)
 
4038
     $ +AMP(67)-AMP(68)+AMP(74)-AMP(76)+AMP(77)-AMP(81)+AMP(79)
 
4039
     $ -AMP(90)+AMP(88)+AMP(181)-AMP(183)-AMP(185)+AMP(186)-AMP(188)
 
4040
     $ -AMP(189)-AMP(190)-AMP(191)-AMP(210)-AMP(211)-AMP(213)-AMP(216)
 
4041
     $ -AMP(215)-AMP(222)+AMP(220)-AMP(226)+AMP(228)-AMP(229)-AMP(236)
 
4042
     $ +AMP(238)-AMP(239)+AMP(240)+AMP(243)-AMP(241)+AMP(255)+AMP(256)
 
4043
     $ +AMP(258)-AMP(314)-AMP(313)-AMP(320)-AMP(319)+AMP(327)-AMP(322)
 
4044
     $ +AMP(324)-AMP(325)+AMP(422)+AMP(423)+AMP(428)+AMP(429)-AMP(435)
 
4045
     $ +AMP(436)-AMP(438)+AMP(433)+AMP(476)+AMP(475)+AMP(479)+AMP(478)
 
4046
     $ +AMP(485)+AMP(484)+AMP(487)+AMP(488)+AMP(494)+AMP(495))
 
4047
      JAMP(26)=+2D0*(-AMP(46)-AMP(47)-AMP(49)-AMP(51)+AMP(69)-AMP(71)
 
4048
     $ +AMP(72)-AMP(73)-AMP(74)+AMP(76)-AMP(77)-AMP(84)+AMP(82)
 
4049
     $ -AMP(89)-AMP(88)+AMP(136)-AMP(138)-AMP(140)+AMP(141)-AMP(143)
 
4050
     $ -AMP(144)-AMP(145)-AMP(146)-AMP(165)-AMP(166)-AMP(168)-AMP(171)
 
4051
     $ -AMP(170)-AMP(177)+AMP(175)-AMP(231)+AMP(233)-AMP(234)
 
4052
     $ +AMP(236)-AMP(238)+AMP(239)-AMP(240)+AMP(242)+AMP(241)-AMP(255)
 
4053
     $ -AMP(256)-AMP(258)-AMP(317)-AMP(316)+AMP(320)+AMP(319)-AMP(323)
 
4054
     $ -AMP(327)-AMP(324)-AMP(326)+AMP(404)+AMP(405)+AMP(410)
 
4055
     $ +AMP(411)-AMP(417)+AMP(418)-AMP(420)+AMP(415)-AMP(475)
 
4056
     $ +AMP(477)-AMP(478)+AMP(480)-AMP(485)-AMP(484)+AMP(491)
 
4057
     $ +AMP(490)-AMP(494)-AMP(495))
 
4058
      JAMP(27)=+2D0*(+AMP(52)-AMP(54)-AMP(56)+AMP(57)-AMP(64)
 
4059
     $ +AMP(66)-AMP(67)+AMP(68)-AMP(69)-AMP(70)-AMP(72)-AMP(80)
 
4060
     $ -AMP(79)+AMP(90)+AMP(89)-AMP(181)-AMP(182)-AMP(184)-AMP(186)
 
4061
     $ -AMP(194)-AMP(195)-AMP(196)-AMP(197)+AMP(210)+AMP(211)
 
4062
     $ +AMP(213)-AMP(219)-AMP(218)-AMP(221)-AMP(220)+AMP(226)-AMP(228)
 
4063
     $ +AMP(229)+AMP(231)+AMP(232)+AMP(234)+AMP(235)-AMP(243)-AMP(242)
 
4064
     $ +AMP(273)+AMP(274)+AMP(276)+AMP(314)+AMP(313)+AMP(317)+AMP(316)
 
4065
     $ +AMP(323)+AMP(322)+AMP(325)+AMP(326)+AMP(425)+AMP(426)-AMP(428)
 
4066
     $ -AMP(429)+AMP(435)+AMP(437)+AMP(438)+AMP(434)+AMP(458)+AMP(457)
 
4067
     $ +AMP(461)+AMP(460)+AMP(467)+AMP(466)+AMP(469)+AMP(470)+AMP(497)
 
4068
     $ +AMP(498))
 
4069
      JAMP(28)=+2D0*(-AMP(52)-AMP(53)-AMP(55)-AMP(57)+AMP(69)+AMP(70)
 
4070
     $ +AMP(72)-AMP(74)-AMP(75)-AMP(77)-AMP(78)-AMP(87)+AMP(85)
 
4071
     $ -AMP(89)-AMP(88)+AMP(91)-AMP(93)-AMP(95)+AMP(96)-AMP(98)
 
4072
     $ -AMP(99)-AMP(100)-AMP(101)-AMP(120)-AMP(121)-AMP(123)-AMP(126)
 
4073
     $ -AMP(125)-AMP(132)+AMP(130)-AMP(231)-AMP(232)-AMP(234)-AMP(235)
 
4074
     $ +AMP(236)+AMP(237)+AMP(239)+AMP(242)+AMP(241)-AMP(273)-AMP(274)
 
4075
     $ -AMP(276)-AMP(317)-AMP(316)+AMP(320)+AMP(319)-AMP(323)-AMP(327)
 
4076
     $ -AMP(324)-AMP(326)+AMP(386)+AMP(387)+AMP(392)+AMP(393)-AMP(399)
 
4077
     $ +AMP(400)-AMP(402)+AMP(397)-AMP(457)+AMP(459)-AMP(460)
 
4078
     $ +AMP(462)-AMP(467)-AMP(466)+AMP(473)+AMP(472)-AMP(497)-AMP(498))
 
4079
      JAMP(29)=+2D0*(+AMP(58)-AMP(60)-AMP(62)+AMP(63)-AMP(64)-AMP(65)
 
4080
     $ -AMP(67)-AMP(69)+AMP(71)-AMP(72)+AMP(73)-AMP(83)-AMP(82)
 
4081
     $ +AMP(90)+AMP(89)-AMP(136)-AMP(137)-AMP(139)-AMP(141)-AMP(149)
 
4082
     $ -AMP(150)-AMP(151)-AMP(152)+AMP(165)+AMP(166)+AMP(168)-AMP(174)
 
4083
     $ -AMP(173)-AMP(176)-AMP(175)+AMP(226)+AMP(227)+AMP(229)+AMP(230)
 
4084
     $ +AMP(231)-AMP(233)+AMP(234)-AMP(243)-AMP(242)+AMP(291)+AMP(292)
 
4085
     $ +AMP(294)+AMP(314)+AMP(313)+AMP(317)+AMP(316)+AMP(323)+AMP(322)
 
4086
     $ +AMP(325)+AMP(326)+AMP(407)+AMP(408)-AMP(410)-AMP(411)+AMP(417)
 
4087
     $ +AMP(419)+AMP(420)+AMP(416)+AMP(440)+AMP(439)+AMP(443)+AMP(442)
 
4088
     $ +AMP(449)+AMP(448)+AMP(451)+AMP(452)+AMP(500)+AMP(501))
 
4089
      JAMP(30)=+2D0*(-AMP(58)-AMP(59)-AMP(61)-AMP(63)+AMP(64)+AMP(65)
 
4090
     $ +AMP(67)+AMP(74)+AMP(75)+AMP(77)+AMP(78)-AMP(86)-AMP(85)
 
4091
     $ -AMP(90)+AMP(88)-AMP(91)-AMP(92)-AMP(94)-AMP(96)-AMP(104)
 
4092
     $ -AMP(105)-AMP(106)-AMP(107)+AMP(120)+AMP(121)+AMP(123)-AMP(129)
 
4093
     $ -AMP(128)-AMP(131)-AMP(130)-AMP(226)-AMP(227)-AMP(229)-AMP(230)
 
4094
     $ -AMP(236)-AMP(237)-AMP(239)+AMP(243)-AMP(241)-AMP(291)-AMP(292)
 
4095
     $ -AMP(294)-AMP(314)-AMP(313)-AMP(320)-AMP(319)+AMP(327)-AMP(322)
 
4096
     $ +AMP(324)-AMP(325)+AMP(389)+AMP(390)-AMP(392)-AMP(393)+AMP(399)
 
4097
     $ +AMP(401)+AMP(402)+AMP(398)-AMP(439)+AMP(441)-AMP(442)
 
4098
     $ +AMP(444)-AMP(449)-AMP(448)+AMP(455)+AMP(454)-AMP(500)-AMP(501))
 
4099
      JAMP(31)=+2D0*(-AMP(46)+AMP(48)+AMP(50)-AMP(51)+AMP(53)+AMP(54)
 
4100
     $ +AMP(55)+AMP(56)+AMP(75)+AMP(76)+AMP(78)+AMP(81)+AMP(80)
 
4101
     $ +AMP(87)-AMP(85)+AMP(188)+AMP(189)+AMP(190)+AMP(191)+AMP(193)
 
4102
     $ +AMP(194)+AMP(196)+AMP(198)-AMP(200)-AMP(201)-AMP(203)+AMP(215)
 
4103
     $ +AMP(214)+AMP(222)+AMP(221)-AMP(255)-AMP(256)-AMP(258)+AMP(263)
 
4104
     $ +AMP(264)+AMP(266)+AMP(299)+AMP(300)+AMP(301)+AMP(302)
 
4105
     $ +AMP(385)-AMP(387)+AMP(391)-AMP(393)+AMP(394)-AMP(396)-AMP(400)
 
4106
     $ +AMP(402)-AMP(422)-AMP(423)-AMP(425)-AMP(426)-AMP(437)-AMP(436)
 
4107
     $ -AMP(433)-AMP(434)-AMP(479)-AMP(478)+AMP(482)+AMP(481)-AMP(485)
 
4108
     $ -AMP(489)-AMP(486)-AMP(488)-AMP(494)-AMP(493)-AMP(508)+AMP(510))
 
4109
      JAMP(32)=+2D0*(+AMP(46)+AMP(47)+AMP(49)+AMP(51)+AMP(59)+AMP(60)
 
4110
     $ +AMP(61)+AMP(62)-AMP(75)-AMP(76)-AMP(78)+AMP(84)+AMP(83)
 
4111
     $ +AMP(86)+AMP(85)+AMP(143)+AMP(144)+AMP(145)+AMP(146)+AMP(148)
 
4112
     $ +AMP(149)+AMP(151)+AMP(153)-AMP(155)-AMP(156)-AMP(158)+AMP(170)
 
4113
     $ +AMP(169)+AMP(177)+AMP(176)+AMP(255)+AMP(256)+AMP(258)+AMP(281)
 
4114
     $ +AMP(282)+AMP(284)-AMP(299)-AMP(300)-AMP(301)-AMP(302)
 
4115
     $ +AMP(388)-AMP(390)-AMP(391)+AMP(393)+AMP(395)-AMP(401)
 
4116
     $ +AMP(396)-AMP(402)-AMP(404)-AMP(405)-AMP(407)-AMP(408)-AMP(419)
 
4117
     $ -AMP(418)-AMP(415)-AMP(416)+AMP(478)-AMP(480)-AMP(481)+AMP(483)
 
4118
     $ +AMP(485)-AMP(491)+AMP(486)-AMP(492)+AMP(494)+AMP(493)+AMP(509)
 
4119
     $ +AMP(508))
 
4120
      JAMP(33)=+2D0*(-AMP(53)-AMP(54)-AMP(55)-AMP(56)-AMP(58)-AMP(59)
 
4121
     $ -AMP(61)-AMP(63)+AMP(65)+AMP(66)+AMP(68)-AMP(80)-AMP(79)
 
4122
     $ -AMP(87)-AMP(86)-AMP(193)-AMP(194)-AMP(196)-AMP(198)+AMP(199)
 
4123
     $ +AMP(200)+AMP(202)+AMP(209)+AMP(210)+AMP(212)+AMP(213)-AMP(221)
 
4124
     $ -AMP(220)-AMP(225)+AMP(223)-AMP(263)-AMP(264)-AMP(266)-AMP(280)
 
4125
     $ -AMP(281)-AMP(283)-AMP(284)-AMP(290)-AMP(291)-AMP(293)
 
4126
     $ +AMP(297)-AMP(295)-AMP(368)-AMP(367)-AMP(374)-AMP(373)
 
4127
     $ +AMP(381)-AMP(376)+AMP(378)-AMP(379)-AMP(385)+AMP(387)-AMP(388)
 
4128
     $ +AMP(390)-AMP(395)-AMP(394)+AMP(401)+AMP(400)+AMP(425)
 
4129
     $ +AMP(426)-AMP(428)-AMP(429)+AMP(435)+AMP(437)+AMP(438)
 
4130
     $ +AMP(434)-AMP(509)-AMP(510))
 
4131
      JAMP(34)=+2D0*(-AMP(1)+AMP(3)+AMP(5)-AMP(6)-AMP(19)+AMP(21)
 
4132
     $ -AMP(22)+AMP(23)-AMP(29)+AMP(31)-AMP(32)+AMP(36)-AMP(34)
 
4133
     $ +AMP(45)-AMP(43)+AMP(58)+AMP(59)+AMP(61)+AMP(63)-AMP(64)
 
4134
     $ -AMP(65)-AMP(67)-AMP(74)-AMP(75)-AMP(77)-AMP(78)+AMP(86)
 
4135
     $ +AMP(85)+AMP(90)-AMP(88)+AMP(280)+AMP(281)+AMP(283)+AMP(284)
 
4136
     $ +AMP(290)+AMP(291)+AMP(293)-AMP(297)+AMP(295)-AMP(298)-AMP(299)
 
4137
     $ -AMP(301)+AMP(314)+AMP(315)+AMP(320)+AMP(321)-AMP(327)
 
4138
     $ +AMP(328)-AMP(330)+AMP(325)+AMP(367)-AMP(369)+AMP(373)-AMP(375)
 
4139
     $ +AMP(376)-AMP(378)-AMP(382)+AMP(384)+AMP(388)-AMP(390)-AMP(391)
 
4140
     $ +AMP(393)+AMP(395)-AMP(401)+AMP(396)-AMP(402)+AMP(509)+AMP(508))
 
4141
      JAMP(35)=+2D0*(-AMP(52)-AMP(53)-AMP(55)-AMP(57)-AMP(59)-AMP(60)
 
4142
     $ -AMP(61)-AMP(62)+AMP(70)+AMP(71)+AMP(73)-AMP(83)-AMP(82)
 
4143
     $ -AMP(87)-AMP(86)-AMP(148)-AMP(149)-AMP(151)-AMP(153)+AMP(154)
 
4144
     $ +AMP(155)+AMP(157)+AMP(164)+AMP(165)+AMP(167)+AMP(168)-AMP(176)
 
4145
     $ -AMP(175)-AMP(180)+AMP(178)-AMP(262)-AMP(263)-AMP(265)-AMP(266)
 
4146
     $ -AMP(272)-AMP(273)-AMP(275)+AMP(279)-AMP(277)-AMP(281)-AMP(282)
 
4147
     $ -AMP(284)-AMP(350)-AMP(349)-AMP(356)-AMP(355)+AMP(363)-AMP(358)
 
4148
     $ +AMP(360)-AMP(361)-AMP(385)+AMP(387)-AMP(388)+AMP(390)-AMP(395)
 
4149
     $ -AMP(394)+AMP(401)+AMP(400)+AMP(407)+AMP(408)-AMP(410)-AMP(411)
 
4150
     $ +AMP(417)+AMP(419)+AMP(420)+AMP(416)-AMP(509)-AMP(510))
 
4151
      JAMP(36)=+2D0*(+AMP(1)+AMP(2)+AMP(4)+AMP(6)-AMP(24)+AMP(26)
 
4152
     $ -AMP(27)+AMP(28)+AMP(29)-AMP(31)+AMP(32)+AMP(39)-AMP(37)
 
4153
     $ +AMP(44)+AMP(43)+AMP(52)+AMP(53)+AMP(55)+AMP(57)-AMP(69)
 
4154
     $ -AMP(70)-AMP(72)+AMP(74)+AMP(75)+AMP(77)+AMP(78)+AMP(87)
 
4155
     $ -AMP(85)+AMP(89)+AMP(88)+AMP(262)+AMP(263)+AMP(265)+AMP(266)
 
4156
     $ +AMP(272)+AMP(273)+AMP(275)-AMP(279)+AMP(277)+AMP(298)+AMP(299)
 
4157
     $ +AMP(301)+AMP(317)+AMP(318)-AMP(320)-AMP(321)+AMP(327)+AMP(329)
 
4158
     $ +AMP(330)+AMP(326)+AMP(349)-AMP(351)+AMP(355)-AMP(357)
 
4159
     $ +AMP(358)-AMP(360)-AMP(364)+AMP(366)+AMP(385)-AMP(387)
 
4160
     $ +AMP(391)-AMP(393)+AMP(394)-AMP(396)-AMP(400)+AMP(402)-AMP(508)
 
4161
     $ +AMP(510))
 
4162
      JAMP(37)=+2D0*(+AMP(47)+AMP(48)+AMP(49)+AMP(50)-AMP(52)+AMP(54)
 
4163
     $ +AMP(56)-AMP(57)+AMP(70)+AMP(71)+AMP(73)+AMP(81)+AMP(80)
 
4164
     $ +AMP(84)-AMP(82)+AMP(187)+AMP(188)+AMP(190)+AMP(192)+AMP(194)
 
4165
     $ +AMP(195)+AMP(196)+AMP(197)-AMP(205)-AMP(206)-AMP(208)+AMP(218)
 
4166
     $ +AMP(217)+AMP(222)+AMP(221)+AMP(245)+AMP(246)+AMP(248)-AMP(273)
 
4167
     $ -AMP(274)-AMP(276)+AMP(304)+AMP(305)+AMP(306)+AMP(307)
 
4168
     $ +AMP(403)-AMP(405)+AMP(409)-AMP(411)+AMP(412)-AMP(414)-AMP(418)
 
4169
     $ +AMP(420)-AMP(422)-AMP(423)-AMP(425)-AMP(426)-AMP(437)-AMP(436)
 
4170
     $ -AMP(433)-AMP(434)-AMP(461)-AMP(460)+AMP(464)+AMP(463)-AMP(467)
 
4171
     $ -AMP(471)-AMP(468)-AMP(470)-AMP(497)-AMP(496)-AMP(505)+AMP(507))
 
4172
      JAMP(38)=+2D0*(+AMP(52)+AMP(53)+AMP(55)+AMP(57)+AMP(59)+AMP(60)
 
4173
     $ +AMP(61)+AMP(62)-AMP(70)-AMP(71)-AMP(73)+AMP(83)+AMP(82)
 
4174
     $ +AMP(87)+AMP(86)+AMP(98)+AMP(99)+AMP(100)+AMP(101)+AMP(103)
 
4175
     $ +AMP(104)+AMP(106)+AMP(108)-AMP(110)-AMP(111)-AMP(113)+AMP(125)
 
4176
     $ +AMP(124)+AMP(132)+AMP(131)+AMP(273)+AMP(274)+AMP(276)+AMP(286)
 
4177
     $ +AMP(287)+AMP(289)-AMP(304)-AMP(305)-AMP(306)-AMP(307)-AMP(386)
 
4178
     $ -AMP(387)-AMP(389)-AMP(390)-AMP(401)-AMP(400)-AMP(397)-AMP(398)
 
4179
     $ +AMP(406)-AMP(408)-AMP(409)+AMP(411)+AMP(413)-AMP(419)
 
4180
     $ +AMP(414)-AMP(420)+AMP(460)-AMP(462)-AMP(463)+AMP(465)
 
4181
     $ +AMP(467)-AMP(473)+AMP(468)-AMP(474)+AMP(497)+AMP(496)+AMP(506)
 
4182
     $ +AMP(505))
 
4183
      JAMP(39)=+2D0*(-AMP(47)-AMP(48)-AMP(49)-AMP(50)+AMP(58)-AMP(60)
 
4184
     $ -AMP(62)+AMP(63)-AMP(65)-AMP(66)-AMP(68)-AMP(81)+AMP(79)
 
4185
     $ -AMP(84)-AMP(83)-AMP(187)-AMP(188)-AMP(190)-AMP(192)+AMP(204)
 
4186
     $ +AMP(205)+AMP(207)-AMP(209)-AMP(210)-AMP(212)-AMP(213)-AMP(222)
 
4187
     $ +AMP(220)-AMP(224)-AMP(223)-AMP(245)-AMP(246)-AMP(248)-AMP(285)
 
4188
     $ -AMP(286)-AMP(288)-AMP(289)+AMP(290)+AMP(291)+AMP(293)+AMP(296)
 
4189
     $ +AMP(295)-AMP(371)-AMP(370)+AMP(374)+AMP(373)-AMP(377)-AMP(381)
 
4190
     $ -AMP(378)-AMP(380)-AMP(403)+AMP(405)-AMP(406)+AMP(408)-AMP(413)
 
4191
     $ -AMP(412)+AMP(419)+AMP(418)+AMP(422)+AMP(423)+AMP(428)
 
4192
     $ +AMP(429)-AMP(435)+AMP(436)-AMP(438)+AMP(433)-AMP(506)-AMP(507))
 
4193
      JAMP(40)=+2D0*(-AMP(7)+AMP(9)+AMP(11)-AMP(12)+AMP(19)-AMP(21)
 
4194
     $ +AMP(22)-AMP(23)+AMP(24)+AMP(25)+AMP(27)+AMP(35)+AMP(34)
 
4195
     $ -AMP(45)-AMP(44)-AMP(58)+AMP(60)+AMP(62)-AMP(63)+AMP(64)
 
4196
     $ +AMP(65)+AMP(67)+AMP(69)-AMP(71)+AMP(72)-AMP(73)+AMP(83)
 
4197
     $ +AMP(82)-AMP(90)-AMP(89)+AMP(285)+AMP(286)+AMP(288)+AMP(289)
 
4198
     $ -AMP(290)-AMP(291)-AMP(293)-AMP(296)-AMP(295)-AMP(303)-AMP(304)
 
4199
     $ -AMP(306)-AMP(314)-AMP(315)-AMP(317)-AMP(318)-AMP(329)-AMP(328)
 
4200
     $ -AMP(325)-AMP(326)+AMP(370)-AMP(372)-AMP(373)+AMP(375)
 
4201
     $ +AMP(377)-AMP(383)+AMP(378)-AMP(384)+AMP(406)-AMP(408)-AMP(409)
 
4202
     $ +AMP(411)+AMP(413)-AMP(419)+AMP(414)-AMP(420)+AMP(506)+AMP(505))
 
4203
      JAMP(41)=+2D0*(-AMP(46)-AMP(47)-AMP(49)-AMP(51)-AMP(59)-AMP(60)
 
4204
     $ -AMP(61)-AMP(62)+AMP(75)+AMP(76)+AMP(78)-AMP(84)-AMP(83)
 
4205
     $ -AMP(86)-AMP(85)-AMP(103)-AMP(104)-AMP(106)-AMP(108)+AMP(109)
 
4206
     $ +AMP(110)+AMP(112)+AMP(119)+AMP(120)+AMP(122)+AMP(123)-AMP(131)
 
4207
     $ -AMP(130)-AMP(135)+AMP(133)-AMP(244)-AMP(245)-AMP(247)-AMP(248)
 
4208
     $ -AMP(254)-AMP(255)-AMP(257)+AMP(261)-AMP(259)-AMP(286)-AMP(287)
 
4209
     $ -AMP(289)-AMP(332)-AMP(331)-AMP(338)-AMP(337)+AMP(345)-AMP(340)
 
4210
     $ +AMP(342)-AMP(343)+AMP(389)+AMP(390)-AMP(392)-AMP(393)+AMP(399)
 
4211
     $ +AMP(401)+AMP(402)+AMP(398)-AMP(403)+AMP(405)-AMP(406)
 
4212
     $ +AMP(408)-AMP(413)-AMP(412)+AMP(419)+AMP(418)-AMP(506)-AMP(507))
 
4213
      JAMP(42)=+2D0*(+AMP(7)+AMP(8)+AMP(10)+AMP(12)-AMP(24)-AMP(25)
 
4214
     $ -AMP(27)+AMP(29)+AMP(30)+AMP(32)+AMP(33)+AMP(42)-AMP(40)
 
4215
     $ +AMP(44)+AMP(43)+AMP(46)+AMP(47)+AMP(49)+AMP(51)-AMP(69)
 
4216
     $ +AMP(71)-AMP(72)+AMP(73)+AMP(74)-AMP(76)+AMP(77)+AMP(84)
 
4217
     $ -AMP(82)+AMP(89)+AMP(88)+AMP(244)+AMP(245)+AMP(247)+AMP(248)
 
4218
     $ +AMP(254)+AMP(255)+AMP(257)-AMP(261)+AMP(259)+AMP(303)+AMP(304)
 
4219
     $ +AMP(306)+AMP(317)+AMP(318)-AMP(320)-AMP(321)+AMP(327)+AMP(329)
 
4220
     $ +AMP(330)+AMP(326)+AMP(331)-AMP(333)+AMP(337)-AMP(339)
 
4221
     $ +AMP(340)-AMP(342)-AMP(346)+AMP(348)+AMP(403)-AMP(405)
 
4222
     $ +AMP(409)-AMP(411)+AMP(412)-AMP(414)-AMP(418)+AMP(420)-AMP(505)
 
4223
     $ +AMP(507))
 
4224
      JAMP(43)=+2D0*(+AMP(47)+AMP(48)+AMP(49)+AMP(50)-AMP(58)+AMP(60)
 
4225
     $ +AMP(62)-AMP(63)+AMP(65)+AMP(66)+AMP(68)+AMP(81)-AMP(79)
 
4226
     $ +AMP(84)+AMP(83)+AMP(142)+AMP(143)+AMP(145)+AMP(147)+AMP(149)
 
4227
     $ +AMP(150)+AMP(151)+AMP(152)-AMP(160)-AMP(161)-AMP(163)+AMP(173)
 
4228
     $ +AMP(172)+AMP(177)+AMP(176)+AMP(250)+AMP(251)+AMP(253)-AMP(291)
 
4229
     $ -AMP(292)-AMP(294)+AMP(309)+AMP(310)+AMP(311)+AMP(312)-AMP(404)
 
4230
     $ -AMP(405)-AMP(407)-AMP(408)-AMP(419)-AMP(418)-AMP(415)-AMP(416)
 
4231
     $ +AMP(421)-AMP(423)+AMP(427)-AMP(429)+AMP(430)-AMP(432)-AMP(436)
 
4232
     $ +AMP(438)-AMP(443)-AMP(442)+AMP(446)+AMP(445)-AMP(449)-AMP(453)
 
4233
     $ -AMP(450)-AMP(452)-AMP(500)-AMP(499)-AMP(502)+AMP(504))
 
4234
      JAMP(44)=+2D0*(+AMP(53)+AMP(54)+AMP(55)+AMP(56)+AMP(58)+AMP(59)
 
4235
     $ +AMP(61)+AMP(63)-AMP(65)-AMP(66)-AMP(68)+AMP(80)+AMP(79)
 
4236
     $ +AMP(87)+AMP(86)+AMP(97)+AMP(98)+AMP(100)+AMP(102)+AMP(104)
 
4237
     $ +AMP(105)+AMP(106)+AMP(107)-AMP(115)-AMP(116)-AMP(118)+AMP(128)
 
4238
     $ +AMP(127)+AMP(132)+AMP(131)+AMP(268)+AMP(269)+AMP(271)+AMP(291)
 
4239
     $ +AMP(292)+AMP(294)-AMP(309)-AMP(310)-AMP(311)-AMP(312)-AMP(386)
 
4240
     $ -AMP(387)-AMP(389)-AMP(390)-AMP(401)-AMP(400)-AMP(397)-AMP(398)
 
4241
     $ +AMP(424)-AMP(426)-AMP(427)+AMP(429)+AMP(431)-AMP(437)
 
4242
     $ +AMP(432)-AMP(438)+AMP(442)-AMP(444)-AMP(445)+AMP(447)
 
4243
     $ +AMP(449)-AMP(455)+AMP(450)-AMP(456)+AMP(500)+AMP(499)+AMP(503)
 
4244
     $ +AMP(502))
 
4245
      JAMP(45)=+2D0*(-AMP(47)-AMP(48)-AMP(49)-AMP(50)+AMP(52)-AMP(54)
 
4246
     $ -AMP(56)+AMP(57)-AMP(70)-AMP(71)-AMP(73)-AMP(81)-AMP(80)
 
4247
     $ -AMP(84)+AMP(82)-AMP(142)-AMP(143)-AMP(145)-AMP(147)+AMP(159)
 
4248
     $ +AMP(160)+AMP(162)-AMP(164)-AMP(165)-AMP(167)-AMP(168)-AMP(177)
 
4249
     $ +AMP(175)-AMP(179)-AMP(178)-AMP(250)-AMP(251)-AMP(253)-AMP(267)
 
4250
     $ -AMP(268)-AMP(270)-AMP(271)+AMP(272)+AMP(273)+AMP(275)+AMP(278)
 
4251
     $ +AMP(277)-AMP(353)-AMP(352)+AMP(356)+AMP(355)-AMP(359)-AMP(363)
 
4252
     $ -AMP(360)-AMP(362)+AMP(404)+AMP(405)+AMP(410)+AMP(411)-AMP(417)
 
4253
     $ +AMP(418)-AMP(420)+AMP(415)-AMP(421)+AMP(423)-AMP(424)
 
4254
     $ +AMP(426)-AMP(431)-AMP(430)+AMP(437)+AMP(436)-AMP(503)-AMP(504))
 
4255
      JAMP(46)=+2D0*(-AMP(13)+AMP(15)+AMP(17)-AMP(18)+AMP(19)+AMP(20)
 
4256
     $ +AMP(22)+AMP(24)-AMP(26)+AMP(27)-AMP(28)+AMP(38)+AMP(37)
 
4257
     $ -AMP(45)-AMP(44)-AMP(52)+AMP(54)+AMP(56)-AMP(57)+AMP(64)
 
4258
     $ -AMP(66)+AMP(67)-AMP(68)+AMP(69)+AMP(70)+AMP(72)+AMP(80)
 
4259
     $ +AMP(79)-AMP(90)-AMP(89)+AMP(267)+AMP(268)+AMP(270)+AMP(271)
 
4260
     $ -AMP(272)-AMP(273)-AMP(275)-AMP(278)-AMP(277)-AMP(308)-AMP(309)
 
4261
     $ -AMP(311)-AMP(314)-AMP(315)-AMP(317)-AMP(318)-AMP(329)-AMP(328)
 
4262
     $ -AMP(325)-AMP(326)+AMP(352)-AMP(354)-AMP(355)+AMP(357)
 
4263
     $ +AMP(359)-AMP(365)+AMP(360)-AMP(366)+AMP(424)-AMP(426)-AMP(427)
 
4264
     $ +AMP(429)+AMP(431)-AMP(437)+AMP(432)-AMP(438)+AMP(503)+AMP(502))
 
4265
      JAMP(47)=+2D0*(+AMP(46)-AMP(48)-AMP(50)+AMP(51)-AMP(53)-AMP(54)
 
4266
     $ -AMP(55)-AMP(56)-AMP(75)-AMP(76)-AMP(78)-AMP(81)-AMP(80)
 
4267
     $ -AMP(87)+AMP(85)-AMP(97)-AMP(98)-AMP(100)-AMP(102)+AMP(114)
 
4268
     $ +AMP(115)+AMP(117)-AMP(119)-AMP(120)-AMP(122)-AMP(123)-AMP(132)
 
4269
     $ +AMP(130)-AMP(134)-AMP(133)-AMP(249)-AMP(250)-AMP(252)-AMP(253)
 
4270
     $ +AMP(254)+AMP(255)+AMP(257)+AMP(260)+AMP(259)-AMP(268)-AMP(269)
 
4271
     $ -AMP(271)-AMP(335)-AMP(334)+AMP(338)+AMP(337)-AMP(341)-AMP(345)
 
4272
     $ -AMP(342)-AMP(344)+AMP(386)+AMP(387)+AMP(392)+AMP(393)-AMP(399)
 
4273
     $ +AMP(400)-AMP(402)+AMP(397)-AMP(421)+AMP(423)-AMP(424)
 
4274
     $ +AMP(426)-AMP(431)-AMP(430)+AMP(437)+AMP(436)-AMP(503)-AMP(504))
 
4275
      JAMP(48)=+2D0*(+AMP(13)+AMP(14)+AMP(16)+AMP(18)-AMP(19)-AMP(20)
 
4276
     $ -AMP(22)-AMP(29)-AMP(30)-AMP(32)-AMP(33)+AMP(41)+AMP(40)
 
4277
     $ +AMP(45)-AMP(43)-AMP(46)+AMP(48)+AMP(50)-AMP(51)-AMP(64)
 
4278
     $ +AMP(66)-AMP(67)+AMP(68)-AMP(74)+AMP(76)-AMP(77)+AMP(81)
 
4279
     $ -AMP(79)+AMP(90)-AMP(88)+AMP(249)+AMP(250)+AMP(252)+AMP(253)
 
4280
     $ -AMP(254)-AMP(255)-AMP(257)-AMP(260)-AMP(259)+AMP(308)+AMP(309)
 
4281
     $ +AMP(311)+AMP(314)+AMP(315)+AMP(320)+AMP(321)-AMP(327)
 
4282
     $ +AMP(328)-AMP(330)+AMP(325)+AMP(334)-AMP(336)-AMP(337)+AMP(339)
 
4283
     $ +AMP(341)-AMP(347)+AMP(342)-AMP(348)+AMP(421)-AMP(423)
 
4284
     $ +AMP(427)-AMP(429)+AMP(430)-AMP(432)-AMP(436)+AMP(438)-AMP(502)
 
4285
     $ +AMP(504))
 
4286
      JAMP(49)=+2D0*(+AMP(91)-AMP(93)-AMP(95)+AMP(96)+AMP(109)
 
4287
     $ -AMP(111)+AMP(112)-AMP(113)+AMP(119)-AMP(121)+AMP(122)-AMP(126)
 
4288
     $ +AMP(124)-AMP(135)+AMP(133)-AMP(182)-AMP(183)-AMP(184)-AMP(185)
 
4289
     $ +AMP(187)-AMP(189)-AMP(191)+AMP(192)-AMP(205)-AMP(206)-AMP(208)
 
4290
     $ -AMP(216)-AMP(215)-AMP(219)+AMP(217)+AMP(237)+AMP(238)
 
4291
     $ +AMP(240)-AMP(244)+AMP(246)-AMP(247)-AMP(254)+AMP(256)-AMP(257)
 
4292
     $ +AMP(258)+AMP(261)-AMP(259)-AMP(332)-AMP(331)-AMP(338)-AMP(337)
 
4293
     $ +AMP(345)-AMP(340)+AMP(342)-AMP(343)+AMP(458)+AMP(459)+AMP(464)
 
4294
     $ +AMP(465)-AMP(471)+AMP(472)-AMP(474)+AMP(469)+AMP(476)+AMP(475)
 
4295
     $ +AMP(479)+AMP(478)+AMP(485)+AMP(484)+AMP(487)+AMP(488)+AMP(494)
 
4296
     $ +AMP(495))
 
4297
      JAMP(50)=+2D0*(-AMP(91)-AMP(92)-AMP(94)-AMP(96)+AMP(114)
 
4298
     $ -AMP(116)+AMP(117)-AMP(118)-AMP(119)+AMP(121)-AMP(122)-AMP(129)
 
4299
     $ +AMP(127)-AMP(134)-AMP(133)-AMP(137)-AMP(138)-AMP(139)-AMP(140)
 
4300
     $ +AMP(142)-AMP(144)-AMP(146)+AMP(147)-AMP(160)-AMP(161)-AMP(163)
 
4301
     $ -AMP(171)-AMP(170)-AMP(174)+AMP(172)-AMP(237)-AMP(238)-AMP(240)
 
4302
     $ -AMP(249)+AMP(251)-AMP(252)+AMP(254)-AMP(256)+AMP(257)-AMP(258)
 
4303
     $ +AMP(260)+AMP(259)-AMP(335)-AMP(334)+AMP(338)+AMP(337)-AMP(341)
 
4304
     $ -AMP(345)-AMP(342)-AMP(344)+AMP(440)+AMP(441)+AMP(446)
 
4305
     $ +AMP(447)-AMP(453)+AMP(454)-AMP(456)+AMP(451)-AMP(475)
 
4306
     $ +AMP(477)-AMP(478)+AMP(480)-AMP(485)-AMP(484)+AMP(491)
 
4307
     $ +AMP(490)-AMP(494)-AMP(495))
 
4308
      JAMP(51)=+2D0*(+AMP(97)-AMP(99)-AMP(101)+AMP(102)-AMP(109)
 
4309
     $ +AMP(111)-AMP(112)+AMP(113)-AMP(114)-AMP(115)-AMP(117)-AMP(125)
 
4310
     $ -AMP(124)+AMP(135)+AMP(134)-AMP(187)-AMP(188)-AMP(190)-AMP(192)
 
4311
     $ -AMP(194)-AMP(195)-AMP(196)-AMP(197)+AMP(205)+AMP(206)
 
4312
     $ +AMP(208)-AMP(218)-AMP(217)-AMP(222)-AMP(221)+AMP(244)-AMP(246)
 
4313
     $ +AMP(247)+AMP(249)+AMP(250)+AMP(252)+AMP(253)-AMP(261)-AMP(260)
 
4314
     $ +AMP(268)+AMP(269)+AMP(271)+AMP(332)+AMP(331)+AMP(335)+AMP(334)
 
4315
     $ +AMP(341)+AMP(340)+AMP(343)+AMP(344)+AMP(422)+AMP(421)+AMP(425)
 
4316
     $ +AMP(424)+AMP(431)+AMP(430)+AMP(433)+AMP(434)+AMP(461)
 
4317
     $ +AMP(462)-AMP(464)-AMP(465)+AMP(471)+AMP(473)+AMP(474)+AMP(470)
 
4318
     $ +AMP(503)+AMP(504))
 
4319
      JAMP(52)=+2D0*(+AMP(46)-AMP(48)-AMP(50)+AMP(51)-AMP(53)-AMP(54)
 
4320
     $ -AMP(55)-AMP(56)-AMP(75)-AMP(76)-AMP(78)-AMP(81)-AMP(80)
 
4321
     $ -AMP(87)+AMP(85)-AMP(97)-AMP(98)-AMP(100)-AMP(102)+AMP(114)
 
4322
     $ +AMP(115)+AMP(117)-AMP(119)-AMP(120)-AMP(122)-AMP(123)-AMP(132)
 
4323
     $ +AMP(130)-AMP(134)-AMP(133)-AMP(249)-AMP(250)-AMP(252)-AMP(253)
 
4324
     $ +AMP(254)+AMP(255)+AMP(257)+AMP(260)+AMP(259)-AMP(268)-AMP(269)
 
4325
     $ -AMP(271)-AMP(335)-AMP(334)+AMP(338)+AMP(337)-AMP(341)-AMP(345)
 
4326
     $ -AMP(342)-AMP(344)+AMP(386)+AMP(387)+AMP(392)+AMP(393)-AMP(399)
 
4327
     $ +AMP(400)-AMP(402)+AMP(397)-AMP(421)+AMP(423)-AMP(424)
 
4328
     $ +AMP(426)-AMP(431)-AMP(430)+AMP(437)+AMP(436)-AMP(503)-AMP(504))
 
4329
      JAMP(53)=+2D0*(+AMP(103)-AMP(105)-AMP(107)+AMP(108)-AMP(109)
 
4330
     $ -AMP(110)-AMP(112)-AMP(114)+AMP(116)-AMP(117)+AMP(118)-AMP(128)
 
4331
     $ -AMP(127)+AMP(135)+AMP(134)-AMP(142)-AMP(143)-AMP(145)-AMP(147)
 
4332
     $ -AMP(149)-AMP(150)-AMP(151)-AMP(152)+AMP(160)+AMP(161)
 
4333
     $ +AMP(163)-AMP(173)-AMP(172)-AMP(177)-AMP(176)+AMP(244)+AMP(245)
 
4334
     $ +AMP(247)+AMP(248)+AMP(249)-AMP(251)+AMP(252)-AMP(261)-AMP(260)
 
4335
     $ +AMP(286)+AMP(287)+AMP(289)+AMP(332)+AMP(331)+AMP(335)+AMP(334)
 
4336
     $ +AMP(341)+AMP(340)+AMP(343)+AMP(344)+AMP(404)+AMP(403)+AMP(407)
 
4337
     $ +AMP(406)+AMP(413)+AMP(412)+AMP(415)+AMP(416)+AMP(443)
 
4338
     $ +AMP(444)-AMP(446)-AMP(447)+AMP(453)+AMP(455)+AMP(456)+AMP(452)
 
4339
     $ +AMP(506)+AMP(507))
 
4340
      JAMP(54)=+2D0*(-AMP(46)-AMP(47)-AMP(49)-AMP(51)-AMP(59)-AMP(60)
 
4341
     $ -AMP(61)-AMP(62)+AMP(75)+AMP(76)+AMP(78)-AMP(84)-AMP(83)
 
4342
     $ -AMP(86)-AMP(85)-AMP(103)-AMP(104)-AMP(106)-AMP(108)+AMP(109)
 
4343
     $ +AMP(110)+AMP(112)+AMP(119)+AMP(120)+AMP(122)+AMP(123)-AMP(131)
 
4344
     $ -AMP(130)-AMP(135)+AMP(133)-AMP(244)-AMP(245)-AMP(247)-AMP(248)
 
4345
     $ -AMP(254)-AMP(255)-AMP(257)+AMP(261)-AMP(259)-AMP(286)-AMP(287)
 
4346
     $ -AMP(289)-AMP(332)-AMP(331)-AMP(338)-AMP(337)+AMP(345)-AMP(340)
 
4347
     $ +AMP(342)-AMP(343)+AMP(389)+AMP(390)-AMP(392)-AMP(393)+AMP(399)
 
4348
     $ +AMP(401)+AMP(402)+AMP(398)-AMP(403)+AMP(405)-AMP(406)
 
4349
     $ +AMP(408)-AMP(413)-AMP(412)+AMP(419)+AMP(418)-AMP(506)-AMP(507))
 
4350
      JAMP(55)=+2D0*(-AMP(91)+AMP(93)+AMP(95)-AMP(96)+AMP(98)+AMP(99)
 
4351
     $ +AMP(100)+AMP(101)+AMP(120)+AMP(121)+AMP(123)+AMP(126)+AMP(125)
 
4352
     $ +AMP(132)-AMP(130)+AMP(182)+AMP(183)+AMP(184)+AMP(185)-AMP(193)
 
4353
     $ +AMP(195)+AMP(197)-AMP(198)+AMP(200)+AMP(201)+AMP(203)
 
4354
     $ +AMP(216)-AMP(214)+AMP(219)+AMP(218)-AMP(237)-AMP(238)-AMP(240)
 
4355
     $ -AMP(263)-AMP(264)-AMP(266)-AMP(299)-AMP(300)-AMP(301)-AMP(302)
 
4356
     $ -AMP(386)-AMP(385)-AMP(392)-AMP(391)+AMP(399)-AMP(394)
 
4357
     $ +AMP(396)-AMP(397)-AMP(458)-AMP(459)-AMP(461)-AMP(462)-AMP(473)
 
4358
     $ -AMP(472)-AMP(469)-AMP(470)-AMP(476)-AMP(475)-AMP(482)-AMP(481)
 
4359
     $ +AMP(489)-AMP(484)+AMP(486)-AMP(487)+AMP(493)-AMP(495)
 
4360
     $ +AMP(508)-AMP(510))
 
4361
      JAMP(56)=+2D0*(+AMP(91)+AMP(92)+AMP(94)+AMP(96)+AMP(104)
 
4362
     $ +AMP(105)+AMP(106)+AMP(107)-AMP(120)-AMP(121)-AMP(123)+AMP(129)
 
4363
     $ +AMP(128)+AMP(131)+AMP(130)+AMP(137)+AMP(138)+AMP(139)
 
4364
     $ +AMP(140)-AMP(148)+AMP(150)+AMP(152)-AMP(153)+AMP(155)+AMP(156)
 
4365
     $ +AMP(158)+AMP(171)-AMP(169)+AMP(174)+AMP(173)+AMP(237)+AMP(238)
 
4366
     $ +AMP(240)-AMP(281)-AMP(282)-AMP(284)+AMP(299)+AMP(300)+AMP(301)
 
4367
     $ +AMP(302)-AMP(389)-AMP(388)+AMP(392)+AMP(391)-AMP(395)-AMP(399)
 
4368
     $ -AMP(396)-AMP(398)-AMP(440)-AMP(441)-AMP(443)-AMP(444)-AMP(455)
 
4369
     $ -AMP(454)-AMP(451)-AMP(452)+AMP(475)-AMP(477)+AMP(481)-AMP(483)
 
4370
     $ +AMP(484)-AMP(486)-AMP(490)+AMP(492)-AMP(493)+AMP(495)-AMP(509)
 
4371
     $ -AMP(508))
 
4372
      JAMP(57)=+2D0*(-AMP(98)-AMP(99)-AMP(100)-AMP(101)-AMP(103)
 
4373
     $ -AMP(104)-AMP(106)-AMP(108)+AMP(110)+AMP(111)+AMP(113)-AMP(125)
 
4374
     $ -AMP(124)-AMP(132)-AMP(131)+AMP(193)-AMP(195)-AMP(197)
 
4375
     $ +AMP(198)-AMP(199)-AMP(200)-AMP(202)-AMP(204)+AMP(206)-AMP(207)
 
4376
     $ +AMP(208)-AMP(218)-AMP(217)+AMP(225)+AMP(224)+AMP(263)+AMP(264)
 
4377
     $ +AMP(266)+AMP(280)+AMP(281)+AMP(283)+AMP(284)+AMP(285)-AMP(287)
 
4378
     $ +AMP(288)-AMP(297)-AMP(296)+AMP(368)+AMP(367)+AMP(371)+AMP(370)
 
4379
     $ +AMP(377)+AMP(376)+AMP(379)+AMP(380)+AMP(386)+AMP(385)+AMP(389)
 
4380
     $ +AMP(388)+AMP(395)+AMP(394)+AMP(397)+AMP(398)+AMP(461)
 
4381
     $ +AMP(462)-AMP(464)-AMP(465)+AMP(471)+AMP(473)+AMP(474)+AMP(470)
 
4382
     $ +AMP(509)+AMP(510))
 
4383
      JAMP(58)=+2D0*(+AMP(1)-AMP(3)-AMP(5)+AMP(6)-AMP(8)-AMP(9)
 
4384
     $ -AMP(10)-AMP(11)-AMP(30)-AMP(31)-AMP(33)-AMP(36)-AMP(35)
 
4385
     $ -AMP(42)+AMP(40)+AMP(103)+AMP(104)+AMP(106)+AMP(108)-AMP(109)
 
4386
     $ -AMP(110)-AMP(112)-AMP(119)-AMP(120)-AMP(122)-AMP(123)+AMP(131)
 
4387
     $ +AMP(130)+AMP(135)-AMP(133)-AMP(280)-AMP(281)-AMP(283)-AMP(284)
 
4388
     $ -AMP(285)+AMP(287)-AMP(288)+AMP(297)+AMP(296)+AMP(298)+AMP(299)
 
4389
     $ +AMP(301)+AMP(332)+AMP(333)+AMP(338)+AMP(339)-AMP(345)
 
4390
     $ +AMP(346)-AMP(348)+AMP(343)-AMP(367)+AMP(369)-AMP(370)
 
4391
     $ +AMP(372)-AMP(377)-AMP(376)+AMP(383)+AMP(382)-AMP(389)-AMP(388)
 
4392
     $ +AMP(392)+AMP(391)-AMP(395)-AMP(399)-AMP(396)-AMP(398)-AMP(509)
 
4393
     $ -AMP(508))
 
4394
      JAMP(59)=+2D0*(-AMP(97)-AMP(98)-AMP(100)-AMP(102)-AMP(104)
 
4395
     $ -AMP(105)-AMP(106)-AMP(107)+AMP(115)+AMP(116)+AMP(118)-AMP(128)
 
4396
     $ -AMP(127)-AMP(132)-AMP(131)+AMP(148)-AMP(150)-AMP(152)
 
4397
     $ +AMP(153)-AMP(154)-AMP(155)-AMP(157)-AMP(159)+AMP(161)-AMP(162)
 
4398
     $ +AMP(163)-AMP(173)-AMP(172)+AMP(180)+AMP(179)+AMP(262)+AMP(263)
 
4399
     $ +AMP(265)+AMP(266)+AMP(267)-AMP(269)+AMP(270)-AMP(279)-AMP(278)
 
4400
     $ +AMP(281)+AMP(282)+AMP(284)+AMP(350)+AMP(349)+AMP(353)+AMP(352)
 
4401
     $ +AMP(359)+AMP(358)+AMP(361)+AMP(362)+AMP(386)+AMP(385)+AMP(389)
 
4402
     $ +AMP(388)+AMP(395)+AMP(394)+AMP(397)+AMP(398)+AMP(443)
 
4403
     $ +AMP(444)-AMP(446)-AMP(447)+AMP(453)+AMP(455)+AMP(456)+AMP(452)
 
4404
     $ +AMP(509)+AMP(510))
 
4405
      JAMP(60)=+2D0*(-AMP(1)-AMP(2)-AMP(4)-AMP(6)-AMP(14)-AMP(15)
 
4406
     $ -AMP(16)-AMP(17)+AMP(30)+AMP(31)+AMP(33)-AMP(39)-AMP(38)
 
4407
     $ -AMP(41)-AMP(40)+AMP(97)+AMP(98)+AMP(100)+AMP(102)-AMP(114)
 
4408
     $ -AMP(115)-AMP(117)+AMP(119)+AMP(120)+AMP(122)+AMP(123)
 
4409
     $ +AMP(132)-AMP(130)+AMP(134)+AMP(133)-AMP(262)-AMP(263)-AMP(265)
 
4410
     $ -AMP(266)-AMP(267)+AMP(269)-AMP(270)+AMP(279)+AMP(278)-AMP(298)
 
4411
     $ -AMP(299)-AMP(301)+AMP(335)+AMP(336)-AMP(338)-AMP(339)+AMP(345)
 
4412
     $ +AMP(347)+AMP(348)+AMP(344)-AMP(349)+AMP(351)-AMP(352)
 
4413
     $ +AMP(354)-AMP(359)-AMP(358)+AMP(365)+AMP(364)-AMP(386)-AMP(385)
 
4414
     $ -AMP(392)-AMP(391)+AMP(399)-AMP(394)+AMP(396)-AMP(397)
 
4415
     $ +AMP(508)-AMP(510))
 
4416
      JAMP(61)=+2D0*(+AMP(92)+AMP(93)+AMP(94)+AMP(95)-AMP(97)+AMP(99)
 
4417
     $ +AMP(101)-AMP(102)+AMP(115)+AMP(116)+AMP(118)+AMP(126)+AMP(125)
 
4418
     $ +AMP(129)-AMP(127)+AMP(181)+AMP(182)+AMP(184)+AMP(186)+AMP(194)
 
4419
     $ +AMP(195)+AMP(196)+AMP(197)-AMP(210)-AMP(211)-AMP(213)+AMP(219)
 
4420
     $ +AMP(218)+AMP(221)+AMP(220)+AMP(227)+AMP(228)+AMP(230)-AMP(268)
 
4421
     $ -AMP(269)-AMP(271)+AMP(309)+AMP(310)+AMP(311)+AMP(312)-AMP(425)
 
4422
     $ -AMP(424)+AMP(428)+AMP(427)-AMP(431)-AMP(435)-AMP(432)-AMP(434)
 
4423
     $ +AMP(439)-AMP(441)+AMP(445)-AMP(447)+AMP(448)-AMP(450)-AMP(454)
 
4424
     $ +AMP(456)-AMP(458)-AMP(459)-AMP(461)-AMP(462)-AMP(473)-AMP(472)
 
4425
     $ -AMP(469)-AMP(470)-AMP(499)+AMP(501)-AMP(503)-AMP(502))
 
4426
      JAMP(62)=+2D0*(+AMP(53)+AMP(54)+AMP(55)+AMP(56)+AMP(58)+AMP(59)
 
4427
     $ +AMP(61)+AMP(63)-AMP(65)-AMP(66)-AMP(68)+AMP(80)+AMP(79)
 
4428
     $ +AMP(87)+AMP(86)+AMP(97)+AMP(98)+AMP(100)+AMP(102)+AMP(104)
 
4429
     $ +AMP(105)+AMP(106)+AMP(107)-AMP(115)-AMP(116)-AMP(118)+AMP(128)
 
4430
     $ +AMP(127)+AMP(132)+AMP(131)+AMP(268)+AMP(269)+AMP(271)+AMP(291)
 
4431
     $ +AMP(292)+AMP(294)-AMP(309)-AMP(310)-AMP(311)-AMP(312)-AMP(386)
 
4432
     $ -AMP(387)-AMP(389)-AMP(390)-AMP(401)-AMP(400)-AMP(397)-AMP(398)
 
4433
     $ +AMP(424)-AMP(426)-AMP(427)+AMP(429)+AMP(431)-AMP(437)
 
4434
     $ +AMP(432)-AMP(438)+AMP(442)-AMP(444)-AMP(445)+AMP(447)
 
4435
     $ +AMP(449)-AMP(455)+AMP(450)-AMP(456)+AMP(500)+AMP(499)+AMP(503)
 
4436
     $ +AMP(502))
 
4437
      JAMP(63)=+2D0*(-AMP(92)-AMP(93)-AMP(94)-AMP(95)+AMP(103)
 
4438
     $ -AMP(105)-AMP(107)+AMP(108)-AMP(110)-AMP(111)-AMP(113)-AMP(126)
 
4439
     $ +AMP(124)-AMP(129)-AMP(128)-AMP(181)-AMP(182)-AMP(184)-AMP(186)
 
4440
     $ +AMP(204)-AMP(206)+AMP(207)-AMP(208)-AMP(209)+AMP(211)-AMP(212)
 
4441
     $ -AMP(219)+AMP(217)-AMP(224)-AMP(223)-AMP(227)-AMP(228)-AMP(230)
 
4442
     $ -AMP(285)+AMP(287)-AMP(288)+AMP(290)-AMP(292)+AMP(293)-AMP(294)
 
4443
     $ +AMP(296)+AMP(295)-AMP(371)-AMP(370)+AMP(374)+AMP(373)-AMP(377)
 
4444
     $ -AMP(381)-AMP(378)-AMP(380)-AMP(439)+AMP(441)-AMP(442)
 
4445
     $ +AMP(444)-AMP(449)-AMP(448)+AMP(455)+AMP(454)+AMP(458)+AMP(459)
 
4446
     $ +AMP(464)+AMP(465)-AMP(471)+AMP(472)-AMP(474)+AMP(469)-AMP(500)
 
4447
     $ -AMP(501))
 
4448
      JAMP(64)=+2D0*(+AMP(8)+AMP(9)+AMP(10)+AMP(11)+AMP(13)+AMP(14)
 
4449
     $ +AMP(16)+AMP(18)-AMP(20)-AMP(21)-AMP(23)+AMP(35)+AMP(34)
 
4450
     $ +AMP(42)+AMP(41)-AMP(103)+AMP(105)+AMP(107)-AMP(108)+AMP(109)
 
4451
     $ +AMP(110)+AMP(112)+AMP(114)-AMP(116)+AMP(117)-AMP(118)+AMP(128)
 
4452
     $ +AMP(127)-AMP(135)-AMP(134)+AMP(285)-AMP(287)+AMP(288)-AMP(290)
 
4453
     $ +AMP(292)-AMP(293)+AMP(294)-AMP(296)-AMP(295)+AMP(308)-AMP(310)
 
4454
     $ -AMP(312)-AMP(332)-AMP(333)-AMP(335)-AMP(336)-AMP(347)-AMP(346)
 
4455
     $ -AMP(343)-AMP(344)+AMP(370)-AMP(372)-AMP(373)+AMP(375)
 
4456
     $ +AMP(377)-AMP(383)+AMP(378)-AMP(384)+AMP(442)-AMP(444)-AMP(445)
 
4457
     $ +AMP(447)+AMP(449)-AMP(455)+AMP(450)-AMP(456)+AMP(500)+AMP(499))
 
4458
      JAMP(65)=+2D0*(-AMP(58)-AMP(59)-AMP(61)-AMP(63)+AMP(64)+AMP(65)
 
4459
     $ +AMP(67)+AMP(74)+AMP(75)+AMP(77)+AMP(78)-AMP(86)-AMP(85)
 
4460
     $ -AMP(90)+AMP(88)-AMP(91)-AMP(92)-AMP(94)-AMP(96)-AMP(104)
 
4461
     $ -AMP(105)-AMP(106)-AMP(107)+AMP(120)+AMP(121)+AMP(123)-AMP(129)
 
4462
     $ -AMP(128)-AMP(131)-AMP(130)-AMP(226)-AMP(227)-AMP(229)-AMP(230)
 
4463
     $ -AMP(236)-AMP(237)-AMP(239)+AMP(243)-AMP(241)-AMP(291)-AMP(292)
 
4464
     $ -AMP(294)-AMP(314)-AMP(313)-AMP(320)-AMP(319)+AMP(327)-AMP(322)
 
4465
     $ +AMP(324)-AMP(325)+AMP(389)+AMP(390)-AMP(392)-AMP(393)+AMP(399)
 
4466
     $ +AMP(401)+AMP(402)+AMP(398)-AMP(439)+AMP(441)-AMP(442)
 
4467
     $ +AMP(444)-AMP(449)-AMP(448)+AMP(455)+AMP(454)-AMP(500)-AMP(501))
 
4468
      JAMP(66)=+2D0*(-AMP(13)-AMP(14)-AMP(16)-AMP(18)+AMP(19)+AMP(20)
 
4469
     $ +AMP(22)+AMP(29)+AMP(30)+AMP(32)+AMP(33)-AMP(41)-AMP(40)
 
4470
     $ -AMP(45)+AMP(43)+AMP(91)+AMP(92)+AMP(94)+AMP(96)-AMP(114)
 
4471
     $ +AMP(116)-AMP(117)+AMP(118)+AMP(119)-AMP(121)+AMP(122)
 
4472
     $ +AMP(129)-AMP(127)+AMP(134)+AMP(133)+AMP(226)+AMP(227)+AMP(229)
 
4473
     $ +AMP(230)+AMP(236)+AMP(237)+AMP(239)-AMP(243)+AMP(241)-AMP(308)
 
4474
     $ +AMP(310)+AMP(312)+AMP(313)-AMP(315)+AMP(319)-AMP(321)
 
4475
     $ +AMP(322)-AMP(324)-AMP(328)+AMP(330)+AMP(335)+AMP(336)-AMP(338)
 
4476
     $ -AMP(339)+AMP(345)+AMP(347)+AMP(348)+AMP(344)+AMP(439)-AMP(441)
 
4477
     $ +AMP(445)-AMP(447)+AMP(448)-AMP(450)-AMP(454)+AMP(456)-AMP(499)
 
4478
     $ +AMP(501))
 
4479
      JAMP(67)=+2D0*(+AMP(92)+AMP(93)+AMP(94)+AMP(95)-AMP(103)
 
4480
     $ +AMP(105)+AMP(107)-AMP(108)+AMP(110)+AMP(111)+AMP(113)
 
4481
     $ +AMP(126)-AMP(124)+AMP(129)+AMP(128)+AMP(136)+AMP(137)+AMP(139)
 
4482
     $ +AMP(141)+AMP(149)+AMP(150)+AMP(151)+AMP(152)-AMP(165)-AMP(166)
 
4483
     $ -AMP(168)+AMP(174)+AMP(173)+AMP(176)+AMP(175)+AMP(232)+AMP(233)
 
4484
     $ +AMP(235)-AMP(286)-AMP(287)-AMP(289)+AMP(304)+AMP(305)+AMP(306)
 
4485
     $ +AMP(307)-AMP(407)-AMP(406)+AMP(410)+AMP(409)-AMP(413)-AMP(417)
 
4486
     $ -AMP(414)-AMP(416)-AMP(440)-AMP(441)-AMP(443)-AMP(444)-AMP(455)
 
4487
     $ -AMP(454)-AMP(451)-AMP(452)+AMP(457)-AMP(459)+AMP(463)-AMP(465)
 
4488
     $ +AMP(466)-AMP(468)-AMP(472)+AMP(474)-AMP(496)+AMP(498)-AMP(506)
 
4489
     $ -AMP(505))
 
4490
      JAMP(68)=+2D0*(+AMP(52)+AMP(53)+AMP(55)+AMP(57)+AMP(59)+AMP(60)
 
4491
     $ +AMP(61)+AMP(62)-AMP(70)-AMP(71)-AMP(73)+AMP(83)+AMP(82)
 
4492
     $ +AMP(87)+AMP(86)+AMP(98)+AMP(99)+AMP(100)+AMP(101)+AMP(103)
 
4493
     $ +AMP(104)+AMP(106)+AMP(108)-AMP(110)-AMP(111)-AMP(113)+AMP(125)
 
4494
     $ +AMP(124)+AMP(132)+AMP(131)+AMP(273)+AMP(274)+AMP(276)+AMP(286)
 
4495
     $ +AMP(287)+AMP(289)-AMP(304)-AMP(305)-AMP(306)-AMP(307)-AMP(386)
 
4496
     $ -AMP(387)-AMP(389)-AMP(390)-AMP(401)-AMP(400)-AMP(397)-AMP(398)
 
4497
     $ +AMP(406)-AMP(408)-AMP(409)+AMP(411)+AMP(413)-AMP(419)
 
4498
     $ +AMP(414)-AMP(420)+AMP(460)-AMP(462)-AMP(463)+AMP(465)
 
4499
     $ +AMP(467)-AMP(473)+AMP(468)-AMP(474)+AMP(497)+AMP(496)+AMP(506)
 
4500
     $ +AMP(505))
 
4501
      JAMP(69)=+2D0*(-AMP(92)-AMP(93)-AMP(94)-AMP(95)+AMP(97)-AMP(99)
 
4502
     $ -AMP(101)+AMP(102)-AMP(115)-AMP(116)-AMP(118)-AMP(126)-AMP(125)
 
4503
     $ -AMP(129)+AMP(127)-AMP(136)-AMP(137)-AMP(139)-AMP(141)
 
4504
     $ +AMP(159)-AMP(161)+AMP(162)-AMP(163)-AMP(164)+AMP(166)-AMP(167)
 
4505
     $ -AMP(174)+AMP(172)-AMP(179)-AMP(178)-AMP(232)-AMP(233)-AMP(235)
 
4506
     $ -AMP(267)+AMP(269)-AMP(270)+AMP(272)-AMP(274)+AMP(275)-AMP(276)
 
4507
     $ +AMP(278)+AMP(277)-AMP(353)-AMP(352)+AMP(356)+AMP(355)-AMP(359)
 
4508
     $ -AMP(363)-AMP(360)-AMP(362)+AMP(440)+AMP(441)+AMP(446)
 
4509
     $ +AMP(447)-AMP(453)+AMP(454)-AMP(456)+AMP(451)-AMP(457)
 
4510
     $ +AMP(459)-AMP(460)+AMP(462)-AMP(467)-AMP(466)+AMP(473)
 
4511
     $ +AMP(472)-AMP(497)-AMP(498))
 
4512
      JAMP(70)=+2D0*(+AMP(7)+AMP(8)+AMP(10)+AMP(12)+AMP(14)+AMP(15)
 
4513
     $ +AMP(16)+AMP(17)-AMP(25)-AMP(26)-AMP(28)+AMP(38)+AMP(37)
 
4514
     $ +AMP(42)+AMP(41)-AMP(97)+AMP(99)+AMP(101)-AMP(102)+AMP(109)
 
4515
     $ -AMP(111)+AMP(112)-AMP(113)+AMP(114)+AMP(115)+AMP(117)+AMP(125)
 
4516
     $ +AMP(124)-AMP(135)-AMP(134)+AMP(267)-AMP(269)+AMP(270)-AMP(272)
 
4517
     $ +AMP(274)-AMP(275)+AMP(276)-AMP(278)-AMP(277)+AMP(303)-AMP(305)
 
4518
     $ -AMP(307)-AMP(332)-AMP(333)-AMP(335)-AMP(336)-AMP(347)-AMP(346)
 
4519
     $ -AMP(343)-AMP(344)+AMP(352)-AMP(354)-AMP(355)+AMP(357)
 
4520
     $ +AMP(359)-AMP(365)+AMP(360)-AMP(366)+AMP(460)-AMP(462)-AMP(463)
 
4521
     $ +AMP(465)+AMP(467)-AMP(473)+AMP(468)-AMP(474)+AMP(497)+AMP(496))
 
4522
      JAMP(71)=+2D0*(-AMP(52)-AMP(53)-AMP(55)-AMP(57)+AMP(69)+AMP(70)
 
4523
     $ +AMP(72)-AMP(74)-AMP(75)-AMP(77)-AMP(78)-AMP(87)+AMP(85)
 
4524
     $ -AMP(89)-AMP(88)+AMP(91)-AMP(93)-AMP(95)+AMP(96)-AMP(98)
 
4525
     $ -AMP(99)-AMP(100)-AMP(101)-AMP(120)-AMP(121)-AMP(123)-AMP(126)
 
4526
     $ -AMP(125)-AMP(132)+AMP(130)-AMP(231)-AMP(232)-AMP(234)-AMP(235)
 
4527
     $ +AMP(236)+AMP(237)+AMP(239)+AMP(242)+AMP(241)-AMP(273)-AMP(274)
 
4528
     $ -AMP(276)-AMP(317)-AMP(316)+AMP(320)+AMP(319)-AMP(323)-AMP(327)
 
4529
     $ -AMP(324)-AMP(326)+AMP(386)+AMP(387)+AMP(392)+AMP(393)-AMP(399)
 
4530
     $ +AMP(400)-AMP(402)+AMP(397)-AMP(457)+AMP(459)-AMP(460)
 
4531
     $ +AMP(462)-AMP(467)-AMP(466)+AMP(473)+AMP(472)-AMP(497)-AMP(498))
 
4532
      JAMP(72)=+2D0*(-AMP(7)-AMP(8)-AMP(10)-AMP(12)+AMP(24)+AMP(25)
 
4533
     $ +AMP(27)-AMP(29)-AMP(30)-AMP(32)-AMP(33)-AMP(42)+AMP(40)
 
4534
     $ -AMP(44)-AMP(43)-AMP(91)+AMP(93)+AMP(95)-AMP(96)-AMP(109)
 
4535
     $ +AMP(111)-AMP(112)+AMP(113)-AMP(119)+AMP(121)-AMP(122)
 
4536
     $ +AMP(126)-AMP(124)+AMP(135)-AMP(133)+AMP(231)+AMP(232)+AMP(234)
 
4537
     $ +AMP(235)-AMP(236)-AMP(237)-AMP(239)-AMP(242)-AMP(241)-AMP(303)
 
4538
     $ +AMP(305)+AMP(307)+AMP(316)-AMP(318)-AMP(319)+AMP(321)
 
4539
     $ +AMP(323)-AMP(329)+AMP(324)-AMP(330)+AMP(332)+AMP(333)+AMP(338)
 
4540
     $ +AMP(339)-AMP(345)+AMP(346)-AMP(348)+AMP(343)+AMP(457)-AMP(459)
 
4541
     $ +AMP(463)-AMP(465)+AMP(466)-AMP(468)-AMP(472)+AMP(474)-AMP(496)
 
4542
     $ +AMP(498))
 
4543
      JAMP(73)=+2D0*(+AMP(136)-AMP(138)-AMP(140)+AMP(141)+AMP(154)
 
4544
     $ -AMP(156)+AMP(157)-AMP(158)+AMP(164)-AMP(166)+AMP(167)-AMP(171)
 
4545
     $ +AMP(169)-AMP(180)+AMP(178)-AMP(182)-AMP(183)-AMP(184)-AMP(185)
 
4546
     $ +AMP(193)-AMP(195)-AMP(197)+AMP(198)-AMP(200)-AMP(201)-AMP(203)
 
4547
     $ -AMP(216)+AMP(214)-AMP(219)-AMP(218)+AMP(232)+AMP(233)
 
4548
     $ +AMP(235)-AMP(262)+AMP(264)-AMP(265)-AMP(272)+AMP(274)-AMP(275)
 
4549
     $ +AMP(276)+AMP(279)-AMP(277)-AMP(350)-AMP(349)-AMP(356)-AMP(355)
 
4550
     $ +AMP(363)-AMP(358)+AMP(360)-AMP(361)+AMP(458)+AMP(457)+AMP(461)
 
4551
     $ +AMP(460)+AMP(467)+AMP(466)+AMP(469)+AMP(470)+AMP(476)+AMP(477)
 
4552
     $ +AMP(482)+AMP(483)-AMP(489)+AMP(490)-AMP(492)+AMP(487)+AMP(497)
 
4553
     $ +AMP(498))
 
4554
      JAMP(74)=+2D0*(-AMP(92)-AMP(93)-AMP(94)-AMP(95)+AMP(97)-AMP(99)
 
4555
     $ -AMP(101)+AMP(102)-AMP(115)-AMP(116)-AMP(118)-AMP(126)-AMP(125)
 
4556
     $ -AMP(129)+AMP(127)-AMP(136)-AMP(137)-AMP(139)-AMP(141)
 
4557
     $ +AMP(159)-AMP(161)+AMP(162)-AMP(163)-AMP(164)+AMP(166)-AMP(167)
 
4558
     $ -AMP(174)+AMP(172)-AMP(179)-AMP(178)-AMP(232)-AMP(233)-AMP(235)
 
4559
     $ -AMP(267)+AMP(269)-AMP(270)+AMP(272)-AMP(274)+AMP(275)-AMP(276)
 
4560
     $ +AMP(278)+AMP(277)-AMP(353)-AMP(352)+AMP(356)+AMP(355)-AMP(359)
 
4561
     $ -AMP(363)-AMP(360)-AMP(362)+AMP(440)+AMP(441)+AMP(446)
 
4562
     $ +AMP(447)-AMP(453)+AMP(454)-AMP(456)+AMP(451)-AMP(457)
 
4563
     $ +AMP(459)-AMP(460)+AMP(462)-AMP(467)-AMP(466)+AMP(473)
 
4564
     $ +AMP(472)-AMP(497)-AMP(498))
 
4565
      JAMP(75)=+2D0*(+AMP(142)-AMP(144)-AMP(146)+AMP(147)-AMP(154)
 
4566
     $ +AMP(156)-AMP(157)+AMP(158)-AMP(159)-AMP(160)-AMP(162)-AMP(170)
 
4567
     $ -AMP(169)+AMP(180)+AMP(179)-AMP(188)-AMP(189)-AMP(190)-AMP(191)
 
4568
     $ -AMP(193)-AMP(194)-AMP(196)-AMP(198)+AMP(200)+AMP(201)
 
4569
     $ +AMP(203)-AMP(215)-AMP(214)-AMP(222)-AMP(221)+AMP(250)+AMP(251)
 
4570
     $ +AMP(253)+AMP(262)-AMP(264)+AMP(265)+AMP(267)+AMP(268)+AMP(270)
 
4571
     $ +AMP(271)-AMP(279)-AMP(278)+AMP(350)+AMP(349)+AMP(353)+AMP(352)
 
4572
     $ +AMP(359)+AMP(358)+AMP(361)+AMP(362)+AMP(422)+AMP(421)+AMP(425)
 
4573
     $ +AMP(424)+AMP(431)+AMP(430)+AMP(433)+AMP(434)+AMP(479)
 
4574
     $ +AMP(480)-AMP(482)-AMP(483)+AMP(489)+AMP(491)+AMP(492)+AMP(488)
 
4575
     $ +AMP(503)+AMP(504))
 
4576
      JAMP(76)=+2D0*(-AMP(47)-AMP(48)-AMP(49)-AMP(50)+AMP(52)-AMP(54)
 
4577
     $ -AMP(56)+AMP(57)-AMP(70)-AMP(71)-AMP(73)-AMP(81)-AMP(80)
 
4578
     $ -AMP(84)+AMP(82)-AMP(142)-AMP(143)-AMP(145)-AMP(147)+AMP(159)
 
4579
     $ +AMP(160)+AMP(162)-AMP(164)-AMP(165)-AMP(167)-AMP(168)-AMP(177)
 
4580
     $ +AMP(175)-AMP(179)-AMP(178)-AMP(250)-AMP(251)-AMP(253)-AMP(267)
 
4581
     $ -AMP(268)-AMP(270)-AMP(271)+AMP(272)+AMP(273)+AMP(275)+AMP(278)
 
4582
     $ +AMP(277)-AMP(353)-AMP(352)+AMP(356)+AMP(355)-AMP(359)-AMP(363)
 
4583
     $ -AMP(360)-AMP(362)+AMP(404)+AMP(405)+AMP(410)+AMP(411)-AMP(417)
 
4584
     $ +AMP(418)-AMP(420)+AMP(415)-AMP(421)+AMP(423)-AMP(424)
 
4585
     $ +AMP(426)-AMP(431)-AMP(430)+AMP(437)+AMP(436)-AMP(503)-AMP(504))
 
4586
      JAMP(77)=+2D0*(-AMP(97)-AMP(98)-AMP(100)-AMP(102)-AMP(104)
 
4587
     $ -AMP(105)-AMP(106)-AMP(107)+AMP(115)+AMP(116)+AMP(118)-AMP(128)
 
4588
     $ -AMP(127)-AMP(132)-AMP(131)+AMP(148)-AMP(150)-AMP(152)
 
4589
     $ +AMP(153)-AMP(154)-AMP(155)-AMP(157)-AMP(159)+AMP(161)-AMP(162)
 
4590
     $ +AMP(163)-AMP(173)-AMP(172)+AMP(180)+AMP(179)+AMP(262)+AMP(263)
 
4591
     $ +AMP(265)+AMP(266)+AMP(267)-AMP(269)+AMP(270)-AMP(279)-AMP(278)
 
4592
     $ +AMP(281)+AMP(282)+AMP(284)+AMP(350)+AMP(349)+AMP(353)+AMP(352)
 
4593
     $ +AMP(359)+AMP(358)+AMP(361)+AMP(362)+AMP(386)+AMP(385)+AMP(389)
 
4594
     $ +AMP(388)+AMP(395)+AMP(394)+AMP(397)+AMP(398)+AMP(443)
 
4595
     $ +AMP(444)-AMP(446)-AMP(447)+AMP(453)+AMP(455)+AMP(456)+AMP(452)
 
4596
     $ +AMP(509)+AMP(510))
 
4597
      JAMP(78)=+2D0*(-AMP(52)-AMP(53)-AMP(55)-AMP(57)-AMP(59)-AMP(60)
 
4598
     $ -AMP(61)-AMP(62)+AMP(70)+AMP(71)+AMP(73)-AMP(83)-AMP(82)
 
4599
     $ -AMP(87)-AMP(86)-AMP(148)-AMP(149)-AMP(151)-AMP(153)+AMP(154)
 
4600
     $ +AMP(155)+AMP(157)+AMP(164)+AMP(165)+AMP(167)+AMP(168)-AMP(176)
 
4601
     $ -AMP(175)-AMP(180)+AMP(178)-AMP(262)-AMP(263)-AMP(265)-AMP(266)
 
4602
     $ -AMP(272)-AMP(273)-AMP(275)+AMP(279)-AMP(277)-AMP(281)-AMP(282)
 
4603
     $ -AMP(284)-AMP(350)-AMP(349)-AMP(356)-AMP(355)+AMP(363)-AMP(358)
 
4604
     $ +AMP(360)-AMP(361)-AMP(385)+AMP(387)-AMP(388)+AMP(390)-AMP(395)
 
4605
     $ -AMP(394)+AMP(401)+AMP(400)+AMP(407)+AMP(408)-AMP(410)-AMP(411)
 
4606
     $ +AMP(417)+AMP(419)+AMP(420)+AMP(416)-AMP(509)-AMP(510))
 
4607
      JAMP(79)=+2D0*(-AMP(136)+AMP(138)+AMP(140)-AMP(141)+AMP(143)
 
4608
     $ +AMP(144)+AMP(145)+AMP(146)+AMP(165)+AMP(166)+AMP(168)+AMP(171)
 
4609
     $ +AMP(170)+AMP(177)-AMP(175)+AMP(182)+AMP(183)+AMP(184)
 
4610
     $ +AMP(185)-AMP(187)+AMP(189)+AMP(191)-AMP(192)+AMP(205)+AMP(206)
 
4611
     $ +AMP(208)+AMP(216)+AMP(215)+AMP(219)-AMP(217)-AMP(232)-AMP(233)
 
4612
     $ -AMP(235)-AMP(245)-AMP(246)-AMP(248)-AMP(304)-AMP(305)-AMP(306)
 
4613
     $ -AMP(307)-AMP(404)-AMP(403)-AMP(410)-AMP(409)+AMP(417)-AMP(412)
 
4614
     $ +AMP(414)-AMP(415)-AMP(458)-AMP(457)-AMP(464)-AMP(463)
 
4615
     $ +AMP(471)-AMP(466)+AMP(468)-AMP(469)-AMP(476)-AMP(477)-AMP(479)
 
4616
     $ -AMP(480)-AMP(491)-AMP(490)-AMP(487)-AMP(488)+AMP(496)-AMP(498)
 
4617
     $ +AMP(505)-AMP(507))
 
4618
      JAMP(80)=+2D0*(+AMP(92)+AMP(93)+AMP(94)+AMP(95)-AMP(103)
 
4619
     $ +AMP(105)+AMP(107)-AMP(108)+AMP(110)+AMP(111)+AMP(113)
 
4620
     $ +AMP(126)-AMP(124)+AMP(129)+AMP(128)+AMP(136)+AMP(137)+AMP(139)
 
4621
     $ +AMP(141)+AMP(149)+AMP(150)+AMP(151)+AMP(152)-AMP(165)-AMP(166)
 
4622
     $ -AMP(168)+AMP(174)+AMP(173)+AMP(176)+AMP(175)+AMP(232)+AMP(233)
 
4623
     $ +AMP(235)-AMP(286)-AMP(287)-AMP(289)+AMP(304)+AMP(305)+AMP(306)
 
4624
     $ +AMP(307)-AMP(407)-AMP(406)+AMP(410)+AMP(409)-AMP(413)-AMP(417)
 
4625
     $ -AMP(414)-AMP(416)-AMP(440)-AMP(441)-AMP(443)-AMP(444)-AMP(455)
 
4626
     $ -AMP(454)-AMP(451)-AMP(452)+AMP(457)-AMP(459)+AMP(463)-AMP(465)
 
4627
     $ +AMP(466)-AMP(468)-AMP(472)+AMP(474)-AMP(496)+AMP(498)-AMP(506)
 
4628
     $ -AMP(505))
 
4629
      JAMP(81)=+2D0*(-AMP(143)-AMP(144)-AMP(145)-AMP(146)-AMP(148)
 
4630
     $ -AMP(149)-AMP(151)-AMP(153)+AMP(155)+AMP(156)+AMP(158)-AMP(170)
 
4631
     $ -AMP(169)-AMP(177)-AMP(176)+AMP(187)-AMP(189)-AMP(191)
 
4632
     $ +AMP(192)-AMP(199)+AMP(201)-AMP(202)+AMP(203)-AMP(204)-AMP(205)
 
4633
     $ -AMP(207)-AMP(215)-AMP(214)+AMP(225)+AMP(224)+AMP(245)+AMP(246)
 
4634
     $ +AMP(248)+AMP(280)-AMP(282)+AMP(283)+AMP(285)+AMP(286)+AMP(288)
 
4635
     $ +AMP(289)-AMP(297)-AMP(296)+AMP(368)+AMP(367)+AMP(371)+AMP(370)
 
4636
     $ +AMP(377)+AMP(376)+AMP(379)+AMP(380)+AMP(404)+AMP(403)+AMP(407)
 
4637
     $ +AMP(406)+AMP(413)+AMP(412)+AMP(415)+AMP(416)+AMP(479)
 
4638
     $ +AMP(480)-AMP(482)-AMP(483)+AMP(489)+AMP(491)+AMP(492)+AMP(488)
 
4639
     $ +AMP(506)+AMP(507))
 
4640
      JAMP(82)=+2D0*(-AMP(2)-AMP(3)-AMP(4)-AMP(5)+AMP(7)-AMP(9)
 
4641
     $ -AMP(11)+AMP(12)-AMP(25)-AMP(26)-AMP(28)-AMP(36)-AMP(35)
 
4642
     $ -AMP(39)+AMP(37)+AMP(148)+AMP(149)+AMP(151)+AMP(153)-AMP(154)
 
4643
     $ -AMP(155)-AMP(157)-AMP(164)-AMP(165)-AMP(167)-AMP(168)+AMP(176)
 
4644
     $ +AMP(175)+AMP(180)-AMP(178)-AMP(280)+AMP(282)-AMP(283)-AMP(285)
 
4645
     $ -AMP(286)-AMP(288)-AMP(289)+AMP(297)+AMP(296)+AMP(303)+AMP(304)
 
4646
     $ +AMP(306)+AMP(350)+AMP(351)+AMP(356)+AMP(357)-AMP(363)
 
4647
     $ +AMP(364)-AMP(366)+AMP(361)-AMP(367)+AMP(369)-AMP(370)
 
4648
     $ +AMP(372)-AMP(377)-AMP(376)+AMP(383)+AMP(382)-AMP(407)-AMP(406)
 
4649
     $ +AMP(410)+AMP(409)-AMP(413)-AMP(417)-AMP(414)-AMP(416)-AMP(506)
 
4650
     $ -AMP(505))
 
4651
      JAMP(83)=+2D0*(+AMP(103)-AMP(105)-AMP(107)+AMP(108)-AMP(109)
 
4652
     $ -AMP(110)-AMP(112)-AMP(114)+AMP(116)-AMP(117)+AMP(118)-AMP(128)
 
4653
     $ -AMP(127)+AMP(135)+AMP(134)-AMP(142)-AMP(143)-AMP(145)-AMP(147)
 
4654
     $ -AMP(149)-AMP(150)-AMP(151)-AMP(152)+AMP(160)+AMP(161)
 
4655
     $ +AMP(163)-AMP(173)-AMP(172)-AMP(177)-AMP(176)+AMP(244)+AMP(245)
 
4656
     $ +AMP(247)+AMP(248)+AMP(249)-AMP(251)+AMP(252)-AMP(261)-AMP(260)
 
4657
     $ +AMP(286)+AMP(287)+AMP(289)+AMP(332)+AMP(331)+AMP(335)+AMP(334)
 
4658
     $ +AMP(341)+AMP(340)+AMP(343)+AMP(344)+AMP(404)+AMP(403)+AMP(407)
 
4659
     $ +AMP(406)+AMP(413)+AMP(412)+AMP(415)+AMP(416)+AMP(443)
 
4660
     $ +AMP(444)-AMP(446)-AMP(447)+AMP(453)+AMP(455)+AMP(456)+AMP(452)
 
4661
     $ +AMP(506)+AMP(507))
 
4662
      JAMP(84)=+2D0*(-AMP(7)-AMP(8)-AMP(10)-AMP(12)-AMP(14)-AMP(15)
 
4663
     $ -AMP(16)-AMP(17)+AMP(25)+AMP(26)+AMP(28)-AMP(38)-AMP(37)
 
4664
     $ -AMP(42)-AMP(41)+AMP(142)+AMP(143)+AMP(145)+AMP(147)-AMP(159)
 
4665
     $ -AMP(160)-AMP(162)+AMP(164)+AMP(165)+AMP(167)+AMP(168)
 
4666
     $ +AMP(177)-AMP(175)+AMP(179)+AMP(178)-AMP(244)-AMP(245)-AMP(247)
 
4667
     $ -AMP(248)-AMP(249)+AMP(251)-AMP(252)+AMP(261)+AMP(260)-AMP(303)
 
4668
     $ -AMP(304)-AMP(306)-AMP(331)+AMP(333)-AMP(334)+AMP(336)-AMP(341)
 
4669
     $ -AMP(340)+AMP(347)+AMP(346)+AMP(353)+AMP(354)-AMP(356)-AMP(357)
 
4670
     $ +AMP(363)+AMP(365)+AMP(366)+AMP(362)-AMP(404)-AMP(403)-AMP(410)
 
4671
     $ -AMP(409)+AMP(417)-AMP(412)+AMP(414)-AMP(415)+AMP(505)-AMP(507))
 
4672
      JAMP(85)=+2D0*(+AMP(137)+AMP(138)+AMP(139)+AMP(140)-AMP(142)
 
4673
     $ +AMP(144)+AMP(146)-AMP(147)+AMP(160)+AMP(161)+AMP(163)+AMP(171)
 
4674
     $ +AMP(170)+AMP(174)-AMP(172)-AMP(181)+AMP(183)+AMP(185)-AMP(186)
 
4675
     $ +AMP(188)+AMP(189)+AMP(190)+AMP(191)+AMP(210)+AMP(211)+AMP(213)
 
4676
     $ +AMP(216)+AMP(215)+AMP(222)-AMP(220)-AMP(227)-AMP(228)-AMP(230)
 
4677
     $ -AMP(250)-AMP(251)-AMP(253)-AMP(309)-AMP(310)-AMP(311)-AMP(312)
 
4678
     $ -AMP(422)-AMP(421)-AMP(428)-AMP(427)+AMP(435)-AMP(430)
 
4679
     $ +AMP(432)-AMP(433)-AMP(440)-AMP(439)-AMP(446)-AMP(445)
 
4680
     $ +AMP(453)-AMP(448)+AMP(450)-AMP(451)-AMP(476)-AMP(477)-AMP(479)
 
4681
     $ -AMP(480)-AMP(491)-AMP(490)-AMP(487)-AMP(488)+AMP(499)-AMP(501)
 
4682
     $ +AMP(502)-AMP(504))
 
4683
      JAMP(86)=+2D0*(+AMP(47)+AMP(48)+AMP(49)+AMP(50)-AMP(58)+AMP(60)
 
4684
     $ +AMP(62)-AMP(63)+AMP(65)+AMP(66)+AMP(68)+AMP(81)-AMP(79)
 
4685
     $ +AMP(84)+AMP(83)+AMP(142)+AMP(143)+AMP(145)+AMP(147)+AMP(149)
 
4686
     $ +AMP(150)+AMP(151)+AMP(152)-AMP(160)-AMP(161)-AMP(163)+AMP(173)
 
4687
     $ +AMP(172)+AMP(177)+AMP(176)+AMP(250)+AMP(251)+AMP(253)-AMP(291)
 
4688
     $ -AMP(292)-AMP(294)+AMP(309)+AMP(310)+AMP(311)+AMP(312)-AMP(404)
 
4689
     $ -AMP(405)-AMP(407)-AMP(408)-AMP(419)-AMP(418)-AMP(415)-AMP(416)
 
4690
     $ +AMP(421)-AMP(423)+AMP(427)-AMP(429)+AMP(430)-AMP(432)-AMP(436)
 
4691
     $ +AMP(438)-AMP(443)-AMP(442)+AMP(446)+AMP(445)-AMP(449)-AMP(453)
 
4692
     $ -AMP(450)-AMP(452)-AMP(500)-AMP(499)-AMP(502)+AMP(504))
 
4693
      JAMP(87)=+2D0*(-AMP(137)-AMP(138)-AMP(139)-AMP(140)+AMP(148)
 
4694
     $ -AMP(150)-AMP(152)+AMP(153)-AMP(155)-AMP(156)-AMP(158)-AMP(171)
 
4695
     $ +AMP(169)-AMP(174)-AMP(173)+AMP(181)-AMP(183)-AMP(185)+AMP(186)
 
4696
     $ +AMP(199)-AMP(201)+AMP(202)-AMP(203)+AMP(209)-AMP(211)
 
4697
     $ +AMP(212)-AMP(216)+AMP(214)-AMP(225)+AMP(223)+AMP(227)+AMP(228)
 
4698
     $ +AMP(230)-AMP(280)+AMP(282)-AMP(283)-AMP(290)+AMP(292)-AMP(293)
 
4699
     $ +AMP(294)+AMP(297)-AMP(295)-AMP(368)-AMP(367)-AMP(374)-AMP(373)
 
4700
     $ +AMP(381)-AMP(376)+AMP(378)-AMP(379)+AMP(440)+AMP(439)+AMP(443)
 
4701
     $ +AMP(442)+AMP(449)+AMP(448)+AMP(451)+AMP(452)+AMP(476)+AMP(477)
 
4702
     $ +AMP(482)+AMP(483)-AMP(489)+AMP(490)-AMP(492)+AMP(487)+AMP(500)
 
4703
     $ +AMP(501))
 
4704
      JAMP(88)=+2D0*(+AMP(2)+AMP(3)+AMP(4)+AMP(5)-AMP(13)+AMP(15)
 
4705
     $ +AMP(17)-AMP(18)+AMP(20)+AMP(21)+AMP(23)+AMP(36)-AMP(34)
 
4706
     $ +AMP(39)+AMP(38)-AMP(148)+AMP(150)+AMP(152)-AMP(153)+AMP(154)
 
4707
     $ +AMP(155)+AMP(157)+AMP(159)-AMP(161)+AMP(162)-AMP(163)+AMP(173)
 
4708
     $ +AMP(172)-AMP(180)-AMP(179)+AMP(280)-AMP(282)+AMP(283)
 
4709
     $ +AMP(290)-AMP(292)+AMP(293)-AMP(294)-AMP(297)+AMP(295)-AMP(308)
 
4710
     $ +AMP(310)+AMP(312)-AMP(350)-AMP(351)-AMP(353)-AMP(354)-AMP(365)
 
4711
     $ -AMP(364)-AMP(361)-AMP(362)+AMP(367)-AMP(369)+AMP(373)-AMP(375)
 
4712
     $ +AMP(376)-AMP(378)-AMP(382)+AMP(384)-AMP(443)-AMP(442)+AMP(446)
 
4713
     $ +AMP(445)-AMP(449)-AMP(453)-AMP(450)-AMP(452)-AMP(500)-AMP(499))
 
4714
      JAMP(89)=+2D0*(+AMP(58)-AMP(60)-AMP(62)+AMP(63)-AMP(64)-AMP(65)
 
4715
     $ -AMP(67)-AMP(69)+AMP(71)-AMP(72)+AMP(73)-AMP(83)-AMP(82)
 
4716
     $ +AMP(90)+AMP(89)-AMP(136)-AMP(137)-AMP(139)-AMP(141)-AMP(149)
 
4717
     $ -AMP(150)-AMP(151)-AMP(152)+AMP(165)+AMP(166)+AMP(168)-AMP(174)
 
4718
     $ -AMP(173)-AMP(176)-AMP(175)+AMP(226)+AMP(227)+AMP(229)+AMP(230)
 
4719
     $ +AMP(231)-AMP(233)+AMP(234)-AMP(243)-AMP(242)+AMP(291)+AMP(292)
 
4720
     $ +AMP(294)+AMP(314)+AMP(313)+AMP(317)+AMP(316)+AMP(323)+AMP(322)
 
4721
     $ +AMP(325)+AMP(326)+AMP(407)+AMP(408)-AMP(410)-AMP(411)+AMP(417)
 
4722
     $ +AMP(419)+AMP(420)+AMP(416)+AMP(440)+AMP(439)+AMP(443)+AMP(442)
 
4723
     $ +AMP(449)+AMP(448)+AMP(451)+AMP(452)+AMP(500)+AMP(501))
 
4724
      JAMP(90)=+2D0*(+AMP(13)-AMP(15)-AMP(17)+AMP(18)-AMP(19)-AMP(20)
 
4725
     $ -AMP(22)-AMP(24)+AMP(26)-AMP(27)+AMP(28)-AMP(38)-AMP(37)
 
4726
     $ +AMP(45)+AMP(44)+AMP(136)+AMP(137)+AMP(139)+AMP(141)-AMP(159)
 
4727
     $ +AMP(161)-AMP(162)+AMP(163)+AMP(164)-AMP(166)+AMP(167)
 
4728
     $ +AMP(174)-AMP(172)+AMP(179)+AMP(178)-AMP(226)-AMP(227)-AMP(229)
 
4729
     $ -AMP(230)-AMP(231)+AMP(233)-AMP(234)+AMP(243)+AMP(242)
 
4730
     $ +AMP(308)-AMP(310)-AMP(312)-AMP(313)+AMP(315)-AMP(316)
 
4731
     $ +AMP(318)-AMP(323)-AMP(322)+AMP(329)+AMP(328)+AMP(353)
 
4732
     $ +AMP(354)-AMP(356)-AMP(357)+AMP(363)+AMP(365)+AMP(366)
 
4733
     $ +AMP(362)-AMP(440)-AMP(439)-AMP(446)-AMP(445)+AMP(453)-AMP(448)
 
4734
     $ +AMP(450)-AMP(451)+AMP(499)-AMP(501))
 
4735
      JAMP(91)=+2D0*(+AMP(91)+AMP(92)+AMP(94)+AMP(96)+AMP(104)
 
4736
     $ +AMP(105)+AMP(106)+AMP(107)-AMP(120)-AMP(121)-AMP(123)+AMP(129)
 
4737
     $ +AMP(128)+AMP(131)+AMP(130)+AMP(137)+AMP(138)+AMP(139)
 
4738
     $ +AMP(140)-AMP(148)+AMP(150)+AMP(152)-AMP(153)+AMP(155)+AMP(156)
 
4739
     $ +AMP(158)+AMP(171)-AMP(169)+AMP(174)+AMP(173)+AMP(237)+AMP(238)
 
4740
     $ +AMP(240)-AMP(281)-AMP(282)-AMP(284)+AMP(299)+AMP(300)+AMP(301)
 
4741
     $ +AMP(302)-AMP(389)-AMP(388)+AMP(392)+AMP(391)-AMP(395)-AMP(399)
 
4742
     $ -AMP(396)-AMP(398)-AMP(440)-AMP(441)-AMP(443)-AMP(444)-AMP(455)
 
4743
     $ -AMP(454)-AMP(451)-AMP(452)+AMP(475)-AMP(477)+AMP(481)-AMP(483)
 
4744
     $ +AMP(484)-AMP(486)-AMP(490)+AMP(492)-AMP(493)+AMP(495)-AMP(509)
 
4745
     $ -AMP(508))
 
4746
      JAMP(92)=+2D0*(+AMP(46)+AMP(47)+AMP(49)+AMP(51)+AMP(59)+AMP(60)
 
4747
     $ +AMP(61)+AMP(62)-AMP(75)-AMP(76)-AMP(78)+AMP(84)+AMP(83)
 
4748
     $ +AMP(86)+AMP(85)+AMP(143)+AMP(144)+AMP(145)+AMP(146)+AMP(148)
 
4749
     $ +AMP(149)+AMP(151)+AMP(153)-AMP(155)-AMP(156)-AMP(158)+AMP(170)
 
4750
     $ +AMP(169)+AMP(177)+AMP(176)+AMP(255)+AMP(256)+AMP(258)+AMP(281)
 
4751
     $ +AMP(282)+AMP(284)-AMP(299)-AMP(300)-AMP(301)-AMP(302)
 
4752
     $ +AMP(388)-AMP(390)-AMP(391)+AMP(393)+AMP(395)-AMP(401)
 
4753
     $ +AMP(396)-AMP(402)-AMP(404)-AMP(405)-AMP(407)-AMP(408)-AMP(419)
 
4754
     $ -AMP(418)-AMP(415)-AMP(416)+AMP(478)-AMP(480)-AMP(481)+AMP(483)
 
4755
     $ +AMP(485)-AMP(491)+AMP(486)-AMP(492)+AMP(494)+AMP(493)+AMP(509)
 
4756
     $ +AMP(508))
 
4757
      JAMP(93)=+2D0*(-AMP(91)-AMP(92)-AMP(94)-AMP(96)+AMP(114)
 
4758
     $ -AMP(116)+AMP(117)-AMP(118)-AMP(119)+AMP(121)-AMP(122)-AMP(129)
 
4759
     $ +AMP(127)-AMP(134)-AMP(133)-AMP(137)-AMP(138)-AMP(139)-AMP(140)
 
4760
     $ +AMP(142)-AMP(144)-AMP(146)+AMP(147)-AMP(160)-AMP(161)-AMP(163)
 
4761
     $ -AMP(171)-AMP(170)-AMP(174)+AMP(172)-AMP(237)-AMP(238)-AMP(240)
 
4762
     $ -AMP(249)+AMP(251)-AMP(252)+AMP(254)-AMP(256)+AMP(257)-AMP(258)
 
4763
     $ +AMP(260)+AMP(259)-AMP(335)-AMP(334)+AMP(338)+AMP(337)-AMP(341)
 
4764
     $ -AMP(345)-AMP(342)-AMP(344)+AMP(440)+AMP(441)+AMP(446)
 
4765
     $ +AMP(447)-AMP(453)+AMP(454)-AMP(456)+AMP(451)-AMP(475)
 
4766
     $ +AMP(477)-AMP(478)+AMP(480)-AMP(485)-AMP(484)+AMP(491)
 
4767
     $ +AMP(490)-AMP(494)-AMP(495))
 
4768
      JAMP(94)=+2D0*(+AMP(1)+AMP(2)+AMP(4)+AMP(6)+AMP(14)+AMP(15)
 
4769
     $ +AMP(16)+AMP(17)-AMP(30)-AMP(31)-AMP(33)+AMP(39)+AMP(38)
 
4770
     $ +AMP(41)+AMP(40)-AMP(142)+AMP(144)+AMP(146)-AMP(147)+AMP(154)
 
4771
     $ -AMP(156)+AMP(157)-AMP(158)+AMP(159)+AMP(160)+AMP(162)+AMP(170)
 
4772
     $ +AMP(169)-AMP(180)-AMP(179)+AMP(249)-AMP(251)+AMP(252)-AMP(254)
 
4773
     $ +AMP(256)-AMP(257)+AMP(258)-AMP(260)-AMP(259)+AMP(298)-AMP(300)
 
4774
     $ -AMP(302)+AMP(334)-AMP(336)-AMP(337)+AMP(339)+AMP(341)-AMP(347)
 
4775
     $ +AMP(342)-AMP(348)-AMP(350)-AMP(351)-AMP(353)-AMP(354)-AMP(365)
 
4776
     $ -AMP(364)-AMP(361)-AMP(362)+AMP(478)-AMP(480)-AMP(481)+AMP(483)
 
4777
     $ +AMP(485)-AMP(491)+AMP(486)-AMP(492)+AMP(494)+AMP(493))
 
4778
      JAMP(95)=+2D0*(-AMP(46)-AMP(47)-AMP(49)-AMP(51)+AMP(69)-AMP(71)
 
4779
     $ +AMP(72)-AMP(73)-AMP(74)+AMP(76)-AMP(77)-AMP(84)+AMP(82)
 
4780
     $ -AMP(89)-AMP(88)+AMP(136)-AMP(138)-AMP(140)+AMP(141)-AMP(143)
 
4781
     $ -AMP(144)-AMP(145)-AMP(146)-AMP(165)-AMP(166)-AMP(168)-AMP(171)
 
4782
     $ -AMP(170)-AMP(177)+AMP(175)-AMP(231)+AMP(233)-AMP(234)
 
4783
     $ +AMP(236)-AMP(238)+AMP(239)-AMP(240)+AMP(242)+AMP(241)-AMP(255)
 
4784
     $ -AMP(256)-AMP(258)-AMP(317)-AMP(316)+AMP(320)+AMP(319)-AMP(323)
 
4785
     $ -AMP(327)-AMP(324)-AMP(326)+AMP(404)+AMP(405)+AMP(410)
 
4786
     $ +AMP(411)-AMP(417)+AMP(418)-AMP(420)+AMP(415)-AMP(475)
 
4787
     $ +AMP(477)-AMP(478)+AMP(480)-AMP(485)-AMP(484)+AMP(491)
 
4788
     $ +AMP(490)-AMP(494)-AMP(495))
 
4789
      JAMP(96)=+2D0*(-AMP(1)-AMP(2)-AMP(4)-AMP(6)+AMP(24)-AMP(26)
 
4790
     $ +AMP(27)-AMP(28)-AMP(29)+AMP(31)-AMP(32)-AMP(39)+AMP(37)
 
4791
     $ -AMP(44)-AMP(43)-AMP(136)+AMP(138)+AMP(140)-AMP(141)-AMP(154)
 
4792
     $ +AMP(156)-AMP(157)+AMP(158)-AMP(164)+AMP(166)-AMP(167)
 
4793
     $ +AMP(171)-AMP(169)+AMP(180)-AMP(178)+AMP(231)-AMP(233)
 
4794
     $ +AMP(234)-AMP(236)+AMP(238)-AMP(239)+AMP(240)-AMP(242)-AMP(241)
 
4795
     $ -AMP(298)+AMP(300)+AMP(302)+AMP(316)-AMP(318)-AMP(319)+AMP(321)
 
4796
     $ +AMP(323)-AMP(329)+AMP(324)-AMP(330)+AMP(350)+AMP(351)+AMP(356)
 
4797
     $ +AMP(357)-AMP(363)+AMP(364)-AMP(366)+AMP(361)+AMP(475)-AMP(477)
 
4798
     $ +AMP(481)-AMP(483)+AMP(484)-AMP(486)-AMP(490)+AMP(492)-AMP(493)
 
4799
     $ +AMP(495))
 
4800
      JAMP(97)=+2D0*(-AMP(137)-AMP(138)-AMP(139)-AMP(140)+AMP(148)
 
4801
     $ -AMP(150)-AMP(152)+AMP(153)-AMP(155)-AMP(156)-AMP(158)-AMP(171)
 
4802
     $ +AMP(169)-AMP(174)-AMP(173)+AMP(181)-AMP(183)-AMP(185)+AMP(186)
 
4803
     $ +AMP(199)-AMP(201)+AMP(202)-AMP(203)+AMP(209)-AMP(211)
 
4804
     $ +AMP(212)-AMP(216)+AMP(214)-AMP(225)+AMP(223)+AMP(227)+AMP(228)
 
4805
     $ +AMP(230)-AMP(280)+AMP(282)-AMP(283)-AMP(290)+AMP(292)-AMP(293)
 
4806
     $ +AMP(294)+AMP(297)-AMP(295)-AMP(368)-AMP(367)-AMP(374)-AMP(373)
 
4807
     $ +AMP(381)-AMP(376)+AMP(378)-AMP(379)+AMP(440)+AMP(439)+AMP(443)
 
4808
     $ +AMP(442)+AMP(449)+AMP(448)+AMP(451)+AMP(452)+AMP(476)+AMP(477)
 
4809
     $ +AMP(482)+AMP(483)-AMP(489)+AMP(490)-AMP(492)+AMP(487)+AMP(500)
 
4810
     $ +AMP(501))
 
4811
      JAMP(98)=+2D0*(-AMP(92)-AMP(93)-AMP(94)-AMP(95)+AMP(103)
 
4812
     $ -AMP(105)-AMP(107)+AMP(108)-AMP(110)-AMP(111)-AMP(113)-AMP(126)
 
4813
     $ +AMP(124)-AMP(129)-AMP(128)-AMP(181)-AMP(182)-AMP(184)-AMP(186)
 
4814
     $ +AMP(204)-AMP(206)+AMP(207)-AMP(208)-AMP(209)+AMP(211)-AMP(212)
 
4815
     $ -AMP(219)+AMP(217)-AMP(224)-AMP(223)-AMP(227)-AMP(228)-AMP(230)
 
4816
     $ -AMP(285)+AMP(287)-AMP(288)+AMP(290)-AMP(292)+AMP(293)-AMP(294)
 
4817
     $ +AMP(296)+AMP(295)-AMP(371)-AMP(370)+AMP(374)+AMP(373)-AMP(377)
 
4818
     $ -AMP(381)-AMP(378)-AMP(380)-AMP(439)+AMP(441)-AMP(442)
 
4819
     $ +AMP(444)-AMP(449)-AMP(448)+AMP(455)+AMP(454)+AMP(458)+AMP(459)
 
4820
     $ +AMP(464)+AMP(465)-AMP(471)+AMP(472)-AMP(474)+AMP(469)-AMP(500)
 
4821
     $ -AMP(501))
 
4822
      JAMP(99)=+2D0*(-AMP(143)-AMP(144)-AMP(145)-AMP(146)-AMP(148)
 
4823
     $ -AMP(149)-AMP(151)-AMP(153)+AMP(155)+AMP(156)+AMP(158)-AMP(170)
 
4824
     $ -AMP(169)-AMP(177)-AMP(176)+AMP(187)-AMP(189)-AMP(191)
 
4825
     $ +AMP(192)-AMP(199)+AMP(201)-AMP(202)+AMP(203)-AMP(204)-AMP(205)
 
4826
     $ -AMP(207)-AMP(215)-AMP(214)+AMP(225)+AMP(224)+AMP(245)+AMP(246)
 
4827
     $ +AMP(248)+AMP(280)-AMP(282)+AMP(283)+AMP(285)+AMP(286)+AMP(288)
 
4828
     $ +AMP(289)-AMP(297)-AMP(296)+AMP(368)+AMP(367)+AMP(371)+AMP(370)
 
4829
     $ +AMP(377)+AMP(376)+AMP(379)+AMP(380)+AMP(404)+AMP(403)+AMP(407)
 
4830
     $ +AMP(406)+AMP(413)+AMP(412)+AMP(415)+AMP(416)+AMP(479)
 
4831
     $ +AMP(480)-AMP(482)-AMP(483)+AMP(489)+AMP(491)+AMP(492)+AMP(488)
 
4832
     $ +AMP(506)+AMP(507))
 
4833
      JAMP(100)=+2D0*(-AMP(47)-AMP(48)-AMP(49)-AMP(50)+AMP(58)-AMP(60)
 
4834
     $ -AMP(62)+AMP(63)-AMP(65)-AMP(66)-AMP(68)-AMP(81)+AMP(79)
 
4835
     $ -AMP(84)-AMP(83)-AMP(187)-AMP(188)-AMP(190)-AMP(192)+AMP(204)
 
4836
     $ +AMP(205)+AMP(207)-AMP(209)-AMP(210)-AMP(212)-AMP(213)-AMP(222)
 
4837
     $ +AMP(220)-AMP(224)-AMP(223)-AMP(245)-AMP(246)-AMP(248)-AMP(285)
 
4838
     $ -AMP(286)-AMP(288)-AMP(289)+AMP(290)+AMP(291)+AMP(293)+AMP(296)
 
4839
     $ +AMP(295)-AMP(371)-AMP(370)+AMP(374)+AMP(373)-AMP(377)-AMP(381)
 
4840
     $ -AMP(378)-AMP(380)-AMP(403)+AMP(405)-AMP(406)+AMP(408)-AMP(413)
 
4841
     $ -AMP(412)+AMP(419)+AMP(418)+AMP(422)+AMP(423)+AMP(428)
 
4842
     $ +AMP(429)-AMP(435)+AMP(436)-AMP(438)+AMP(433)-AMP(506)-AMP(507))
 
4843
      JAMP(101)=+2D0*(-AMP(98)-AMP(99)-AMP(100)-AMP(101)-AMP(103)
 
4844
     $ -AMP(104)-AMP(106)-AMP(108)+AMP(110)+AMP(111)+AMP(113)-AMP(125)
 
4845
     $ -AMP(124)-AMP(132)-AMP(131)+AMP(193)-AMP(195)-AMP(197)
 
4846
     $ +AMP(198)-AMP(199)-AMP(200)-AMP(202)-AMP(204)+AMP(206)-AMP(207)
 
4847
     $ +AMP(208)-AMP(218)-AMP(217)+AMP(225)+AMP(224)+AMP(263)+AMP(264)
 
4848
     $ +AMP(266)+AMP(280)+AMP(281)+AMP(283)+AMP(284)+AMP(285)-AMP(287)
 
4849
     $ +AMP(288)-AMP(297)-AMP(296)+AMP(368)+AMP(367)+AMP(371)+AMP(370)
 
4850
     $ +AMP(377)+AMP(376)+AMP(379)+AMP(380)+AMP(386)+AMP(385)+AMP(389)
 
4851
     $ +AMP(388)+AMP(395)+AMP(394)+AMP(397)+AMP(398)+AMP(461)
 
4852
     $ +AMP(462)-AMP(464)-AMP(465)+AMP(471)+AMP(473)+AMP(474)+AMP(470)
 
4853
     $ +AMP(509)+AMP(510))
 
4854
      JAMP(102)=+2D0*(-AMP(53)-AMP(54)-AMP(55)-AMP(56)-AMP(58)-AMP(59)
 
4855
     $ -AMP(61)-AMP(63)+AMP(65)+AMP(66)+AMP(68)-AMP(80)-AMP(79)
 
4856
     $ -AMP(87)-AMP(86)-AMP(193)-AMP(194)-AMP(196)-AMP(198)+AMP(199)
 
4857
     $ +AMP(200)+AMP(202)+AMP(209)+AMP(210)+AMP(212)+AMP(213)-AMP(221)
 
4858
     $ -AMP(220)-AMP(225)+AMP(223)-AMP(263)-AMP(264)-AMP(266)-AMP(280)
 
4859
     $ -AMP(281)-AMP(283)-AMP(284)-AMP(290)-AMP(291)-AMP(293)
 
4860
     $ +AMP(297)-AMP(295)-AMP(368)-AMP(367)-AMP(374)-AMP(373)
 
4861
     $ +AMP(381)-AMP(376)+AMP(378)-AMP(379)-AMP(385)+AMP(387)-AMP(388)
 
4862
     $ +AMP(390)-AMP(395)-AMP(394)+AMP(401)+AMP(400)+AMP(425)
 
4863
     $ +AMP(426)-AMP(428)-AMP(429)+AMP(435)+AMP(437)+AMP(438)
 
4864
     $ +AMP(434)-AMP(509)-AMP(510))
 
4865
      JAMP(103)=+2D0*(+AMP(137)+AMP(138)+AMP(139)+AMP(140)-AMP(142)
 
4866
     $ +AMP(144)+AMP(146)-AMP(147)+AMP(160)+AMP(161)+AMP(163)+AMP(171)
 
4867
     $ +AMP(170)+AMP(174)-AMP(172)-AMP(181)+AMP(183)+AMP(185)-AMP(186)
 
4868
     $ +AMP(188)+AMP(189)+AMP(190)+AMP(191)+AMP(210)+AMP(211)+AMP(213)
 
4869
     $ +AMP(216)+AMP(215)+AMP(222)-AMP(220)-AMP(227)-AMP(228)-AMP(230)
 
4870
     $ -AMP(250)-AMP(251)-AMP(253)-AMP(309)-AMP(310)-AMP(311)-AMP(312)
 
4871
     $ -AMP(422)-AMP(421)-AMP(428)-AMP(427)+AMP(435)-AMP(430)
 
4872
     $ +AMP(432)-AMP(433)-AMP(440)-AMP(439)-AMP(446)-AMP(445)
 
4873
     $ +AMP(453)-AMP(448)+AMP(450)-AMP(451)-AMP(476)-AMP(477)-AMP(479)
 
4874
     $ -AMP(480)-AMP(491)-AMP(490)-AMP(487)-AMP(488)+AMP(499)-AMP(501)
 
4875
     $ +AMP(502)-AMP(504))
 
4876
      JAMP(104)=+2D0*(+AMP(92)+AMP(93)+AMP(94)+AMP(95)-AMP(97)+AMP(99)
 
4877
     $ +AMP(101)-AMP(102)+AMP(115)+AMP(116)+AMP(118)+AMP(126)+AMP(125)
 
4878
     $ +AMP(129)-AMP(127)+AMP(181)+AMP(182)+AMP(184)+AMP(186)+AMP(194)
 
4879
     $ +AMP(195)+AMP(196)+AMP(197)-AMP(210)-AMP(211)-AMP(213)+AMP(219)
 
4880
     $ +AMP(218)+AMP(221)+AMP(220)+AMP(227)+AMP(228)+AMP(230)-AMP(268)
 
4881
     $ -AMP(269)-AMP(271)+AMP(309)+AMP(310)+AMP(311)+AMP(312)-AMP(425)
 
4882
     $ -AMP(424)+AMP(428)+AMP(427)-AMP(431)-AMP(435)-AMP(432)-AMP(434)
 
4883
     $ +AMP(439)-AMP(441)+AMP(445)-AMP(447)+AMP(448)-AMP(450)-AMP(454)
 
4884
     $ +AMP(456)-AMP(458)-AMP(459)-AMP(461)-AMP(462)-AMP(473)-AMP(472)
 
4885
     $ -AMP(469)-AMP(470)-AMP(499)+AMP(501)-AMP(503)-AMP(502))
 
4886
      JAMP(105)=+2D0*(+AMP(142)-AMP(144)-AMP(146)+AMP(147)-AMP(154)
 
4887
     $ +AMP(156)-AMP(157)+AMP(158)-AMP(159)-AMP(160)-AMP(162)-AMP(170)
 
4888
     $ -AMP(169)+AMP(180)+AMP(179)-AMP(188)-AMP(189)-AMP(190)-AMP(191)
 
4889
     $ -AMP(193)-AMP(194)-AMP(196)-AMP(198)+AMP(200)+AMP(201)
 
4890
     $ +AMP(203)-AMP(215)-AMP(214)-AMP(222)-AMP(221)+AMP(250)+AMP(251)
 
4891
     $ +AMP(253)+AMP(262)-AMP(264)+AMP(265)+AMP(267)+AMP(268)+AMP(270)
 
4892
     $ +AMP(271)-AMP(279)-AMP(278)+AMP(350)+AMP(349)+AMP(353)+AMP(352)
 
4893
     $ +AMP(359)+AMP(358)+AMP(361)+AMP(362)+AMP(422)+AMP(421)+AMP(425)
 
4894
     $ +AMP(424)+AMP(431)+AMP(430)+AMP(433)+AMP(434)+AMP(479)
 
4895
     $ +AMP(480)-AMP(482)-AMP(483)+AMP(489)+AMP(491)+AMP(492)+AMP(488)
 
4896
     $ +AMP(503)+AMP(504))
 
4897
      JAMP(106)=+2D0*(-AMP(2)-AMP(3)-AMP(4)-AMP(5)+AMP(13)-AMP(15)
 
4898
     $ -AMP(17)+AMP(18)-AMP(20)-AMP(21)-AMP(23)-AMP(36)+AMP(34)
 
4899
     $ -AMP(39)-AMP(38)+AMP(193)+AMP(194)+AMP(196)+AMP(198)-AMP(199)
 
4900
     $ -AMP(200)-AMP(202)-AMP(209)-AMP(210)-AMP(212)-AMP(213)+AMP(221)
 
4901
     $ +AMP(220)+AMP(225)-AMP(223)-AMP(262)+AMP(264)-AMP(265)-AMP(267)
 
4902
     $ -AMP(268)-AMP(270)-AMP(271)+AMP(279)+AMP(278)+AMP(308)+AMP(309)
 
4903
     $ +AMP(311)-AMP(349)+AMP(351)-AMP(352)+AMP(354)-AMP(359)-AMP(358)
 
4904
     $ +AMP(365)+AMP(364)+AMP(368)+AMP(369)+AMP(374)+AMP(375)-AMP(381)
 
4905
     $ +AMP(382)-AMP(384)+AMP(379)-AMP(425)-AMP(424)+AMP(428)
 
4906
     $ +AMP(427)-AMP(431)-AMP(435)-AMP(432)-AMP(434)-AMP(503)-AMP(502))
 
4907
      JAMP(107)=+2D0*(+AMP(97)-AMP(99)-AMP(101)+AMP(102)-AMP(109)
 
4908
     $ +AMP(111)-AMP(112)+AMP(113)-AMP(114)-AMP(115)-AMP(117)-AMP(125)
 
4909
     $ -AMP(124)+AMP(135)+AMP(134)-AMP(187)-AMP(188)-AMP(190)-AMP(192)
 
4910
     $ -AMP(194)-AMP(195)-AMP(196)-AMP(197)+AMP(205)+AMP(206)
 
4911
     $ +AMP(208)-AMP(218)-AMP(217)-AMP(222)-AMP(221)+AMP(244)-AMP(246)
 
4912
     $ +AMP(247)+AMP(249)+AMP(250)+AMP(252)+AMP(253)-AMP(261)-AMP(260)
 
4913
     $ +AMP(268)+AMP(269)+AMP(271)+AMP(332)+AMP(331)+AMP(335)+AMP(334)
 
4914
     $ +AMP(341)+AMP(340)+AMP(343)+AMP(344)+AMP(422)+AMP(421)+AMP(425)
 
4915
     $ +AMP(424)+AMP(431)+AMP(430)+AMP(433)+AMP(434)+AMP(461)
 
4916
     $ +AMP(462)-AMP(464)-AMP(465)+AMP(471)+AMP(473)+AMP(474)+AMP(470)
 
4917
     $ +AMP(503)+AMP(504))
 
4918
      JAMP(108)=+2D0*(-AMP(8)-AMP(9)-AMP(10)-AMP(11)-AMP(13)-AMP(14)
 
4919
     $ -AMP(16)-AMP(18)+AMP(20)+AMP(21)+AMP(23)-AMP(35)-AMP(34)
 
4920
     $ -AMP(42)-AMP(41)+AMP(187)+AMP(188)+AMP(190)+AMP(192)-AMP(204)
 
4921
     $ -AMP(205)-AMP(207)+AMP(209)+AMP(210)+AMP(212)+AMP(213)
 
4922
     $ +AMP(222)-AMP(220)+AMP(224)+AMP(223)-AMP(244)+AMP(246)-AMP(247)
 
4923
     $ -AMP(249)-AMP(250)-AMP(252)-AMP(253)+AMP(261)+AMP(260)-AMP(308)
 
4924
     $ -AMP(309)-AMP(311)-AMP(331)+AMP(333)-AMP(334)+AMP(336)-AMP(341)
 
4925
     $ -AMP(340)+AMP(347)+AMP(346)+AMP(371)+AMP(372)-AMP(374)-AMP(375)
 
4926
     $ +AMP(381)+AMP(383)+AMP(384)+AMP(380)-AMP(422)-AMP(421)-AMP(428)
 
4927
     $ -AMP(427)+AMP(435)-AMP(430)+AMP(432)-AMP(433)+AMP(502)-AMP(504))
 
4928
      JAMP(109)=+2D0*(-AMP(136)+AMP(138)+AMP(140)-AMP(141)+AMP(143)
 
4929
     $ +AMP(144)+AMP(145)+AMP(146)+AMP(165)+AMP(166)+AMP(168)+AMP(171)
 
4930
     $ +AMP(170)+AMP(177)-AMP(175)+AMP(182)+AMP(183)+AMP(184)
 
4931
     $ +AMP(185)-AMP(187)+AMP(189)+AMP(191)-AMP(192)+AMP(205)+AMP(206)
 
4932
     $ +AMP(208)+AMP(216)+AMP(215)+AMP(219)-AMP(217)-AMP(232)-AMP(233)
 
4933
     $ -AMP(235)-AMP(245)-AMP(246)-AMP(248)-AMP(304)-AMP(305)-AMP(306)
 
4934
     $ -AMP(307)-AMP(404)-AMP(403)-AMP(410)-AMP(409)+AMP(417)-AMP(412)
 
4935
     $ +AMP(414)-AMP(415)-AMP(458)-AMP(457)-AMP(464)-AMP(463)
 
4936
     $ +AMP(471)-AMP(466)+AMP(468)-AMP(469)-AMP(476)-AMP(477)-AMP(479)
 
4937
     $ -AMP(480)-AMP(491)-AMP(490)-AMP(487)-AMP(488)+AMP(496)-AMP(498)
 
4938
     $ +AMP(505)-AMP(507))
 
4939
      JAMP(110)=+2D0*(+AMP(47)+AMP(48)+AMP(49)+AMP(50)-AMP(52)+AMP(54)
 
4940
     $ +AMP(56)-AMP(57)+AMP(70)+AMP(71)+AMP(73)+AMP(81)+AMP(80)
 
4941
     $ +AMP(84)-AMP(82)+AMP(187)+AMP(188)+AMP(190)+AMP(192)+AMP(194)
 
4942
     $ +AMP(195)+AMP(196)+AMP(197)-AMP(205)-AMP(206)-AMP(208)+AMP(218)
 
4943
     $ +AMP(217)+AMP(222)+AMP(221)+AMP(245)+AMP(246)+AMP(248)-AMP(273)
 
4944
     $ -AMP(274)-AMP(276)+AMP(304)+AMP(305)+AMP(306)+AMP(307)
 
4945
     $ +AMP(403)-AMP(405)+AMP(409)-AMP(411)+AMP(412)-AMP(414)-AMP(418)
 
4946
     $ +AMP(420)-AMP(422)-AMP(423)-AMP(425)-AMP(426)-AMP(437)-AMP(436)
 
4947
     $ -AMP(433)-AMP(434)-AMP(461)-AMP(460)+AMP(464)+AMP(463)-AMP(467)
 
4948
     $ -AMP(471)-AMP(468)-AMP(470)-AMP(497)-AMP(496)-AMP(505)+AMP(507))
 
4949
      JAMP(111)=+2D0*(+AMP(136)-AMP(138)-AMP(140)+AMP(141)+AMP(154)
 
4950
     $ -AMP(156)+AMP(157)-AMP(158)+AMP(164)-AMP(166)+AMP(167)-AMP(171)
 
4951
     $ +AMP(169)-AMP(180)+AMP(178)-AMP(182)-AMP(183)-AMP(184)-AMP(185)
 
4952
     $ +AMP(193)-AMP(195)-AMP(197)+AMP(198)-AMP(200)-AMP(201)-AMP(203)
 
4953
     $ -AMP(216)+AMP(214)-AMP(219)-AMP(218)+AMP(232)+AMP(233)
 
4954
     $ +AMP(235)-AMP(262)+AMP(264)-AMP(265)-AMP(272)+AMP(274)-AMP(275)
 
4955
     $ +AMP(276)+AMP(279)-AMP(277)-AMP(350)-AMP(349)-AMP(356)-AMP(355)
 
4956
     $ +AMP(363)-AMP(358)+AMP(360)-AMP(361)+AMP(458)+AMP(457)+AMP(461)
 
4957
     $ +AMP(460)+AMP(467)+AMP(466)+AMP(469)+AMP(470)+AMP(476)+AMP(477)
 
4958
     $ +AMP(482)+AMP(483)-AMP(489)+AMP(490)-AMP(492)+AMP(487)+AMP(497)
 
4959
     $ +AMP(498))
 
4960
      JAMP(112)=+2D0*(+AMP(2)+AMP(3)+AMP(4)+AMP(5)-AMP(7)+AMP(9)
 
4961
     $ +AMP(11)-AMP(12)+AMP(25)+AMP(26)+AMP(28)+AMP(36)+AMP(35)
 
4962
     $ +AMP(39)-AMP(37)-AMP(193)+AMP(195)+AMP(197)-AMP(198)+AMP(199)
 
4963
     $ +AMP(200)+AMP(202)+AMP(204)-AMP(206)+AMP(207)-AMP(208)+AMP(218)
 
4964
     $ +AMP(217)-AMP(225)-AMP(224)+AMP(262)-AMP(264)+AMP(265)
 
4965
     $ +AMP(272)-AMP(274)+AMP(275)-AMP(276)-AMP(279)+AMP(277)-AMP(303)
 
4966
     $ +AMP(305)+AMP(307)+AMP(349)-AMP(351)+AMP(355)-AMP(357)
 
4967
     $ +AMP(358)-AMP(360)-AMP(364)+AMP(366)-AMP(368)-AMP(369)-AMP(371)
 
4968
     $ -AMP(372)-AMP(383)-AMP(382)-AMP(379)-AMP(380)-AMP(461)-AMP(460)
 
4969
     $ +AMP(464)+AMP(463)-AMP(467)-AMP(471)-AMP(468)-AMP(470)-AMP(497)
 
4970
     $ -AMP(496))
 
4971
      JAMP(113)=+2D0*(+AMP(52)-AMP(54)-AMP(56)+AMP(57)-AMP(64)
 
4972
     $ +AMP(66)-AMP(67)+AMP(68)-AMP(69)-AMP(70)-AMP(72)-AMP(80)
 
4973
     $ -AMP(79)+AMP(90)+AMP(89)-AMP(181)-AMP(182)-AMP(184)-AMP(186)
 
4974
     $ -AMP(194)-AMP(195)-AMP(196)-AMP(197)+AMP(210)+AMP(211)
 
4975
     $ +AMP(213)-AMP(219)-AMP(218)-AMP(221)-AMP(220)+AMP(226)-AMP(228)
 
4976
     $ +AMP(229)+AMP(231)+AMP(232)+AMP(234)+AMP(235)-AMP(243)-AMP(242)
 
4977
     $ +AMP(273)+AMP(274)+AMP(276)+AMP(314)+AMP(313)+AMP(317)+AMP(316)
 
4978
     $ +AMP(323)+AMP(322)+AMP(325)+AMP(326)+AMP(425)+AMP(426)-AMP(428)
 
4979
     $ -AMP(429)+AMP(435)+AMP(437)+AMP(438)+AMP(434)+AMP(458)+AMP(457)
 
4980
     $ +AMP(461)+AMP(460)+AMP(467)+AMP(466)+AMP(469)+AMP(470)+AMP(497)
 
4981
     $ +AMP(498))
 
4982
      JAMP(114)=+2D0*(+AMP(7)-AMP(9)-AMP(11)+AMP(12)-AMP(19)+AMP(21)
 
4983
     $ -AMP(22)+AMP(23)-AMP(24)-AMP(25)-AMP(27)-AMP(35)-AMP(34)
 
4984
     $ +AMP(45)+AMP(44)+AMP(181)+AMP(182)+AMP(184)+AMP(186)-AMP(204)
 
4985
     $ +AMP(206)-AMP(207)+AMP(208)+AMP(209)-AMP(211)+AMP(212)
 
4986
     $ +AMP(219)-AMP(217)+AMP(224)+AMP(223)-AMP(226)+AMP(228)-AMP(229)
 
4987
     $ -AMP(231)-AMP(232)-AMP(234)-AMP(235)+AMP(243)+AMP(242)
 
4988
     $ +AMP(303)-AMP(305)-AMP(307)-AMP(313)+AMP(315)-AMP(316)
 
4989
     $ +AMP(318)-AMP(323)-AMP(322)+AMP(329)+AMP(328)+AMP(371)
 
4990
     $ +AMP(372)-AMP(374)-AMP(375)+AMP(381)+AMP(383)+AMP(384)
 
4991
     $ +AMP(380)-AMP(458)-AMP(457)-AMP(464)-AMP(463)+AMP(471)-AMP(466)
 
4992
     $ +AMP(468)-AMP(469)+AMP(496)-AMP(498))
 
4993
      JAMP(115)=+2D0*(-AMP(91)+AMP(93)+AMP(95)-AMP(96)+AMP(98)+AMP(99)
 
4994
     $ +AMP(100)+AMP(101)+AMP(120)+AMP(121)+AMP(123)+AMP(126)+AMP(125)
 
4995
     $ +AMP(132)-AMP(130)+AMP(182)+AMP(183)+AMP(184)+AMP(185)-AMP(193)
 
4996
     $ +AMP(195)+AMP(197)-AMP(198)+AMP(200)+AMP(201)+AMP(203)
 
4997
     $ +AMP(216)-AMP(214)+AMP(219)+AMP(218)-AMP(237)-AMP(238)-AMP(240)
 
4998
     $ -AMP(263)-AMP(264)-AMP(266)-AMP(299)-AMP(300)-AMP(301)-AMP(302)
 
4999
     $ -AMP(386)-AMP(385)-AMP(392)-AMP(391)+AMP(399)-AMP(394)
 
5000
     $ +AMP(396)-AMP(397)-AMP(458)-AMP(459)-AMP(461)-AMP(462)-AMP(473)
 
5001
     $ -AMP(472)-AMP(469)-AMP(470)-AMP(476)-AMP(475)-AMP(482)-AMP(481)
 
5002
     $ +AMP(489)-AMP(484)+AMP(486)-AMP(487)+AMP(493)-AMP(495)
 
5003
     $ +AMP(508)-AMP(510))
 
5004
      JAMP(116)=+2D0*(-AMP(46)+AMP(48)+AMP(50)-AMP(51)+AMP(53)+AMP(54)
 
5005
     $ +AMP(55)+AMP(56)+AMP(75)+AMP(76)+AMP(78)+AMP(81)+AMP(80)
 
5006
     $ +AMP(87)-AMP(85)+AMP(188)+AMP(189)+AMP(190)+AMP(191)+AMP(193)
 
5007
     $ +AMP(194)+AMP(196)+AMP(198)-AMP(200)-AMP(201)-AMP(203)+AMP(215)
 
5008
     $ +AMP(214)+AMP(222)+AMP(221)-AMP(255)-AMP(256)-AMP(258)+AMP(263)
 
5009
     $ +AMP(264)+AMP(266)+AMP(299)+AMP(300)+AMP(301)+AMP(302)
 
5010
     $ +AMP(385)-AMP(387)+AMP(391)-AMP(393)+AMP(394)-AMP(396)-AMP(400)
 
5011
     $ +AMP(402)-AMP(422)-AMP(423)-AMP(425)-AMP(426)-AMP(437)-AMP(436)
 
5012
     $ -AMP(433)-AMP(434)-AMP(479)-AMP(478)+AMP(482)+AMP(481)-AMP(485)
 
5013
     $ -AMP(489)-AMP(486)-AMP(488)-AMP(494)-AMP(493)-AMP(508)+AMP(510))
 
5014
      JAMP(117)=+2D0*(+AMP(91)-AMP(93)-AMP(95)+AMP(96)+AMP(109)
 
5015
     $ -AMP(111)+AMP(112)-AMP(113)+AMP(119)-AMP(121)+AMP(122)-AMP(126)
 
5016
     $ +AMP(124)-AMP(135)+AMP(133)-AMP(182)-AMP(183)-AMP(184)-AMP(185)
 
5017
     $ +AMP(187)-AMP(189)-AMP(191)+AMP(192)-AMP(205)-AMP(206)-AMP(208)
 
5018
     $ -AMP(216)-AMP(215)-AMP(219)+AMP(217)+AMP(237)+AMP(238)
 
5019
     $ +AMP(240)-AMP(244)+AMP(246)-AMP(247)-AMP(254)+AMP(256)-AMP(257)
 
5020
     $ +AMP(258)+AMP(261)-AMP(259)-AMP(332)-AMP(331)-AMP(338)-AMP(337)
 
5021
     $ +AMP(345)-AMP(340)+AMP(342)-AMP(343)+AMP(458)+AMP(459)+AMP(464)
 
5022
     $ +AMP(465)-AMP(471)+AMP(472)-AMP(474)+AMP(469)+AMP(476)+AMP(475)
 
5023
     $ +AMP(479)+AMP(478)+AMP(485)+AMP(484)+AMP(487)+AMP(488)+AMP(494)
 
5024
     $ +AMP(495))
 
5025
      JAMP(118)=+2D0*(-AMP(1)+AMP(3)+AMP(5)-AMP(6)+AMP(8)+AMP(9)
 
5026
     $ +AMP(10)+AMP(11)+AMP(30)+AMP(31)+AMP(33)+AMP(36)+AMP(35)
 
5027
     $ +AMP(42)-AMP(40)-AMP(187)+AMP(189)+AMP(191)-AMP(192)+AMP(199)
 
5028
     $ -AMP(201)+AMP(202)-AMP(203)+AMP(204)+AMP(205)+AMP(207)+AMP(215)
 
5029
     $ +AMP(214)-AMP(225)-AMP(224)+AMP(244)-AMP(246)+AMP(247)
 
5030
     $ +AMP(254)-AMP(256)+AMP(257)-AMP(258)-AMP(261)+AMP(259)-AMP(298)
 
5031
     $ +AMP(300)+AMP(302)+AMP(331)-AMP(333)+AMP(337)-AMP(339)
 
5032
     $ +AMP(340)-AMP(342)-AMP(346)+AMP(348)-AMP(368)-AMP(369)-AMP(371)
 
5033
     $ -AMP(372)-AMP(383)-AMP(382)-AMP(379)-AMP(380)-AMP(479)-AMP(478)
 
5034
     $ +AMP(482)+AMP(481)-AMP(485)-AMP(489)-AMP(486)-AMP(488)-AMP(494)
 
5035
     $ -AMP(493))
 
5036
      JAMP(119)=+2D0*(+AMP(46)-AMP(48)-AMP(50)+AMP(51)+AMP(64)-AMP(66)
 
5037
     $ +AMP(67)-AMP(68)+AMP(74)-AMP(76)+AMP(77)-AMP(81)+AMP(79)
 
5038
     $ -AMP(90)+AMP(88)+AMP(181)-AMP(183)-AMP(185)+AMP(186)-AMP(188)
 
5039
     $ -AMP(189)-AMP(190)-AMP(191)-AMP(210)-AMP(211)-AMP(213)-AMP(216)
 
5040
     $ -AMP(215)-AMP(222)+AMP(220)-AMP(226)+AMP(228)-AMP(229)-AMP(236)
 
5041
     $ +AMP(238)-AMP(239)+AMP(240)+AMP(243)-AMP(241)+AMP(255)+AMP(256)
 
5042
     $ +AMP(258)-AMP(314)-AMP(313)-AMP(320)-AMP(319)+AMP(327)-AMP(322)
 
5043
     $ +AMP(324)-AMP(325)+AMP(422)+AMP(423)+AMP(428)+AMP(429)-AMP(435)
 
5044
     $ +AMP(436)-AMP(438)+AMP(433)+AMP(476)+AMP(475)+AMP(479)+AMP(478)
 
5045
     $ +AMP(485)+AMP(484)+AMP(487)+AMP(488)+AMP(494)+AMP(495))
 
5046
      JAMP(120)=+2D0*(+AMP(1)-AMP(3)-AMP(5)+AMP(6)+AMP(19)-AMP(21)
 
5047
     $ +AMP(22)-AMP(23)+AMP(29)-AMP(31)+AMP(32)-AMP(36)+AMP(34)
 
5048
     $ -AMP(45)+AMP(43)-AMP(181)+AMP(183)+AMP(185)-AMP(186)-AMP(199)
 
5049
     $ +AMP(201)-AMP(202)+AMP(203)-AMP(209)+AMP(211)-AMP(212)
 
5050
     $ +AMP(216)-AMP(214)+AMP(225)-AMP(223)+AMP(226)-AMP(228)+AMP(229)
 
5051
     $ +AMP(236)-AMP(238)+AMP(239)-AMP(240)-AMP(243)+AMP(241)
 
5052
     $ +AMP(298)-AMP(300)-AMP(302)+AMP(313)-AMP(315)+AMP(319)-AMP(321)
 
5053
     $ +AMP(322)-AMP(324)-AMP(328)+AMP(330)+AMP(368)+AMP(369)+AMP(374)
 
5054
     $ +AMP(375)-AMP(381)+AMP(382)-AMP(384)+AMP(379)-AMP(476)-AMP(475)
 
5055
     $ -AMP(482)-AMP(481)+AMP(489)-AMP(484)+AMP(486)-AMP(487)
 
5056
     $ +AMP(493)-AMP(495))
 
5057
      MATRIX1 = 0.D0
 
5058
      DO I = 1, NCOLOR
 
5059
        ZTEMP = (0.D0,0.D0)
 
5060
        DO J = 1, NCOLOR
 
5061
          ZTEMP = ZTEMP + CF(J,I)*JAMP(J)
 
5062
        ENDDO
 
5063
        MATRIX1=MATRIX1+ZTEMP*DCONJG(JAMP(I))/DENOM(I)
 
5064
      ENDDO
 
5065
      AMP2(2)=AMP2(2)+AMP(4)*DCONJG(AMP(4))
 
5066
      AMP2(3)=AMP2(3)+AMP(5)*DCONJG(AMP(5))
 
5067
      AMP2(4)=AMP2(4)+AMP(6)*DCONJG(AMP(6))
 
5068
      AMP2(6)=AMP2(6)+AMP(10)*DCONJG(AMP(10))
 
5069
      AMP2(7)=AMP2(7)+AMP(11)*DCONJG(AMP(11))
 
5070
      AMP2(8)=AMP2(8)+AMP(12)*DCONJG(AMP(12))
 
5071
      AMP2(10)=AMP2(10)+AMP(16)*DCONJG(AMP(16))
 
5072
      AMP2(11)=AMP2(11)+AMP(17)*DCONJG(AMP(17))
 
5073
      AMP2(12)=AMP2(12)+AMP(18)*DCONJG(AMP(18))
 
5074
      AMP2(14)=AMP2(14)+AMP(22)*DCONJG(AMP(22))
 
5075
      AMP2(15)=AMP2(15)+AMP(23)*DCONJG(AMP(23))
 
5076
      AMP2(17)=AMP2(17)+AMP(27)*DCONJG(AMP(27))
 
5077
      AMP2(18)=AMP2(18)+AMP(28)*DCONJG(AMP(28))
 
5078
      AMP2(20)=AMP2(20)+AMP(32)*DCONJG(AMP(32))
 
5079
      AMP2(21)=AMP2(21)+AMP(33)*DCONJG(AMP(33))
 
5080
      AMP2(27)=AMP2(27)+AMP(49)*DCONJG(AMP(49))
 
5081
      AMP2(28)=AMP2(28)+AMP(50)*DCONJG(AMP(50))
 
5082
      AMP2(29)=AMP2(29)+AMP(51)*DCONJG(AMP(51))
 
5083
      AMP2(31)=AMP2(31)+AMP(55)*DCONJG(AMP(55))
 
5084
      AMP2(32)=AMP2(32)+AMP(56)*DCONJG(AMP(56))
 
5085
      AMP2(33)=AMP2(33)+AMP(57)*DCONJG(AMP(57))
 
5086
      AMP2(35)=AMP2(35)+AMP(61)*DCONJG(AMP(61))
 
5087
      AMP2(36)=AMP2(36)+AMP(62)*DCONJG(AMP(62))
 
5088
      AMP2(37)=AMP2(37)+AMP(63)*DCONJG(AMP(63))
 
5089
      AMP2(39)=AMP2(39)+AMP(67)*DCONJG(AMP(67))
 
5090
      AMP2(40)=AMP2(40)+AMP(68)*DCONJG(AMP(68))
 
5091
      AMP2(42)=AMP2(42)+AMP(72)*DCONJG(AMP(72))
 
5092
      AMP2(43)=AMP2(43)+AMP(73)*DCONJG(AMP(73))
 
5093
      AMP2(45)=AMP2(45)+AMP(77)*DCONJG(AMP(77))
 
5094
      AMP2(46)=AMP2(46)+AMP(78)*DCONJG(AMP(78))
 
5095
      AMP2(52)=AMP2(52)+AMP(94)*DCONJG(AMP(94))
 
5096
      AMP2(53)=AMP2(53)+AMP(95)*DCONJG(AMP(95))
 
5097
      AMP2(54)=AMP2(54)+AMP(96)*DCONJG(AMP(96))
 
5098
      AMP2(56)=AMP2(56)+AMP(100)*DCONJG(AMP(100))
 
5099
      AMP2(57)=AMP2(57)+AMP(101)*DCONJG(AMP(101))
 
5100
      AMP2(58)=AMP2(58)+AMP(102)*DCONJG(AMP(102))
 
5101
      AMP2(60)=AMP2(60)+AMP(106)*DCONJG(AMP(106))
 
5102
      AMP2(61)=AMP2(61)+AMP(107)*DCONJG(AMP(107))
 
5103
      AMP2(62)=AMP2(62)+AMP(108)*DCONJG(AMP(108))
 
5104
      AMP2(64)=AMP2(64)+AMP(112)*DCONJG(AMP(112))
 
5105
      AMP2(65)=AMP2(65)+AMP(113)*DCONJG(AMP(113))
 
5106
      AMP2(67)=AMP2(67)+AMP(117)*DCONJG(AMP(117))
 
5107
      AMP2(68)=AMP2(68)+AMP(118)*DCONJG(AMP(118))
 
5108
      AMP2(70)=AMP2(70)+AMP(122)*DCONJG(AMP(122))
 
5109
      AMP2(71)=AMP2(71)+AMP(123)*DCONJG(AMP(123))
 
5110
      AMP2(77)=AMP2(77)+AMP(139)*DCONJG(AMP(139))
 
5111
      AMP2(78)=AMP2(78)+AMP(140)*DCONJG(AMP(140))
 
5112
      AMP2(79)=AMP2(79)+AMP(141)*DCONJG(AMP(141))
 
5113
      AMP2(81)=AMP2(81)+AMP(145)*DCONJG(AMP(145))
 
5114
      AMP2(82)=AMP2(82)+AMP(146)*DCONJG(AMP(146))
 
5115
      AMP2(83)=AMP2(83)+AMP(147)*DCONJG(AMP(147))
 
5116
      AMP2(85)=AMP2(85)+AMP(151)*DCONJG(AMP(151))
 
5117
      AMP2(86)=AMP2(86)+AMP(152)*DCONJG(AMP(152))
 
5118
      AMP2(87)=AMP2(87)+AMP(153)*DCONJG(AMP(153))
 
5119
      AMP2(89)=AMP2(89)+AMP(157)*DCONJG(AMP(157))
 
5120
      AMP2(90)=AMP2(90)+AMP(158)*DCONJG(AMP(158))
 
5121
      AMP2(92)=AMP2(92)+AMP(162)*DCONJG(AMP(162))
 
5122
      AMP2(93)=AMP2(93)+AMP(163)*DCONJG(AMP(163))
 
5123
      AMP2(95)=AMP2(95)+AMP(167)*DCONJG(AMP(167))
 
5124
      AMP2(96)=AMP2(96)+AMP(168)*DCONJG(AMP(168))
 
5125
      AMP2(102)=AMP2(102)+AMP(184)*DCONJG(AMP(184))
 
5126
      AMP2(103)=AMP2(103)+AMP(185)*DCONJG(AMP(185))
 
5127
      AMP2(104)=AMP2(104)+AMP(186)*DCONJG(AMP(186))
 
5128
      AMP2(106)=AMP2(106)+AMP(190)*DCONJG(AMP(190))
 
5129
      AMP2(107)=AMP2(107)+AMP(191)*DCONJG(AMP(191))
 
5130
      AMP2(108)=AMP2(108)+AMP(192)*DCONJG(AMP(192))
 
5131
      AMP2(110)=AMP2(110)+AMP(196)*DCONJG(AMP(196))
 
5132
      AMP2(111)=AMP2(111)+AMP(197)*DCONJG(AMP(197))
 
5133
      AMP2(112)=AMP2(112)+AMP(198)*DCONJG(AMP(198))
 
5134
      AMP2(114)=AMP2(114)+AMP(202)*DCONJG(AMP(202))
 
5135
      AMP2(115)=AMP2(115)+AMP(203)*DCONJG(AMP(203))
 
5136
      AMP2(117)=AMP2(117)+AMP(207)*DCONJG(AMP(207))
 
5137
      AMP2(118)=AMP2(118)+AMP(208)*DCONJG(AMP(208))
 
5138
      AMP2(120)=AMP2(120)+AMP(212)*DCONJG(AMP(212))
 
5139
      AMP2(121)=AMP2(121)+AMP(213)*DCONJG(AMP(213))
 
5140
      AMP2(127)=AMP2(127)+AMP(229)*DCONJG(AMP(229))
 
5141
      AMP2(128)=AMP2(128)+AMP(230)*DCONJG(AMP(230))
 
5142
      AMP2(130)=AMP2(130)+AMP(234)*DCONJG(AMP(234))
 
5143
      AMP2(131)=AMP2(131)+AMP(235)*DCONJG(AMP(235))
 
5144
      AMP2(133)=AMP2(133)+AMP(239)*DCONJG(AMP(239))
 
5145
      AMP2(134)=AMP2(134)+AMP(240)*DCONJG(AMP(240))
 
5146
      AMP2(137)=AMP2(137)+AMP(247)*DCONJG(AMP(247))
 
5147
      AMP2(138)=AMP2(138)+AMP(248)*DCONJG(AMP(248))
 
5148
      AMP2(140)=AMP2(140)+AMP(252)*DCONJG(AMP(252))
 
5149
      AMP2(141)=AMP2(141)+AMP(253)*DCONJG(AMP(253))
 
5150
      AMP2(143)=AMP2(143)+AMP(257)*DCONJG(AMP(257))
 
5151
      AMP2(144)=AMP2(144)+AMP(258)*DCONJG(AMP(258))
 
5152
      AMP2(147)=AMP2(147)+AMP(265)*DCONJG(AMP(265))
 
5153
      AMP2(148)=AMP2(148)+AMP(266)*DCONJG(AMP(266))
 
5154
      AMP2(150)=AMP2(150)+AMP(270)*DCONJG(AMP(270))
 
5155
      AMP2(151)=AMP2(151)+AMP(271)*DCONJG(AMP(271))
 
5156
      AMP2(153)=AMP2(153)+AMP(275)*DCONJG(AMP(275))
 
5157
      AMP2(154)=AMP2(154)+AMP(276)*DCONJG(AMP(276))
 
5158
      AMP2(157)=AMP2(157)+AMP(283)*DCONJG(AMP(283))
 
5159
      AMP2(158)=AMP2(158)+AMP(284)*DCONJG(AMP(284))
 
5160
      AMP2(160)=AMP2(160)+AMP(288)*DCONJG(AMP(288))
 
5161
      AMP2(161)=AMP2(161)+AMP(289)*DCONJG(AMP(289))
 
5162
      AMP2(163)=AMP2(163)+AMP(293)*DCONJG(AMP(293))
 
5163
      AMP2(164)=AMP2(164)+AMP(294)*DCONJG(AMP(294))
 
5164
      AMP2(167)=AMP2(167)+AMP(301)*DCONJG(AMP(301))
 
5165
      AMP2(168)=AMP2(168)+AMP(302)*DCONJG(AMP(302))
 
5166
      AMP2(170)=AMP2(170)+AMP(306)*DCONJG(AMP(306))
 
5167
      AMP2(171)=AMP2(171)+AMP(307)*DCONJG(AMP(307))
 
5168
      AMP2(173)=AMP2(173)+AMP(311)*DCONJG(AMP(311))
 
5169
      AMP2(174)=AMP2(174)+AMP(312)*DCONJG(AMP(312))
 
5170
      DO I = 1, NCOLOR
 
5171
        JAMP2(I)=JAMP2(I)+JAMP(I)*DCONJG(JAMP(I))
 
5172
      ENDDO
 
5173
 
 
5174
      END
 
5175