NONE INCLUDE 'cbasictria.inc' C constants DOUBLE PRECISION A1,A2,A3,R1,R2,R3 PARAMETER (A1=0.125D0,A2=0.25D0,A3=0.08333333D0) PARAMETER (R1=0.25D0,R2=0.5D0,R3=0.16666666D0) C parameters DOUBLE PRECISION DU1(*) [...] QZ12) ENDIF ENDIF C IF (NADJ0.GT.1) THEN DCORVG(1,IVT1)=0.25D0*(QX1 +QX2 +QX3 +QX4) DCORVG(1,IVT2)=0.25D0*(QX1 +QX5 +QX6 +QX9) DCORVG(1,IVT3)=0.25D0*(QX2 +QX6 +QX7 +QX10) DCORVG(1,IVT4)=0.25D0*(QX3 +QX7 [...] DCORVG(1,IVT6)=0.25D0*(QX9 +QX10+QX11+QX12) DCORVG(2,IVT1)=0.25D0*(QY1 +QY2 +QY3 +QY4) DCORVG(2,IVT2)=0.25D0*(QY1 +QY5 +QY6 +QY9) DCORVG(2,IVT3)=0.25D0*(QY2 +QY6 +QY7 +QY10) DCORVG(2,IVT4)=0.25D0*(QY3 +QY7 …

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.42 0 1.42 0 0 0 0 0 0 0 0 1.42 0 0.361 0 0 0 0 2.025 7 81 "nonspam" 0 0 0 0 0 0 0 0 0 0.42 0 0.42 0 0 0 0 0 0 3.4 0 0.42 0 0 0.42 1.27 0.85 0 0.85 0 0 …