Lines Matching refs:D12
136 DOUBLE PRECISION SA, SB, SC, SS, D12
182 DATA D12 /4096.D0/
189 DTRUE(1,5) = 45.D-11 * (D12 * D12)
190 DTRUE(3,5) = 4.D5 / (3.D0 * D12)
191 DTRUE(6,5) = 1.D0 / D12
192 DTRUE(8,5) = 1.D4 / (3.D0 * D12)
193 DTRUE(1,6) = 4.D10 / (1.5D0 * D12 * D12)
195 DTRUE(8,6) = 5.D-7 * D12
197 DTRUE(2,7) = (2.D-10 / 1.5D0) * (D12 * D12)
199 DTRUE(9,7) = 1.D4 / D12
201 DTRUE(2,8) = 2.D10 / (1.5D0 * D12 * D12)
940 99997 FORMAT (1X,I4,I3,2I5,I3,2D36.8,2D12.4)