Lines Matching refs:D12
136 REAL D12, SA, SB, SC, SS local
182 DATA D12 /4096.E0/
189 DTRUE(1,5) = 45.E-11 * (D12 * D12)
190 DTRUE(3,5) = 4.E5 / (3.E0 * D12)
191 DTRUE(6,5) = 1.E0 / D12
192 DTRUE(8,5) = 1.E4 / (3.E0 * D12)
193 DTRUE(1,6) = 4.E10 / (1.5E0 * D12 * D12)
195 DTRUE(8,6) = 5.E-7 * D12
197 DTRUE(2,7) = (2.E-10 / 1.5E0) * (D12 * D12)
199 DTRUE(9,7) = 1.E4 / D12
201 DTRUE(2,8) = 2.E10 / (1.5E0 * D12 * D12)