Lines Matching refs:HL2
31 real*8 :: H6, H26, HL, HR, HL2, HR2 local
37 HL2 = HL * HL
39 …S = ( ( Mi_1 * HR2 * Hr + Mi * HL2 * Hl ) / 6.0 + ( Yi_1 - Mi_1 * H26 ) * HR + ( Yi - Mi * H26 )…
40 … S1 = ( ( Mi * HL2 - Mi_1 * HR2 ) / 2.0d+00 + Yi - Yi_1 ) / Hi_1 - H6 * ( Mi - Mi_1 )
115 real*8 :: HL, HR, H, H6, H26, HR2, HL2, HRH, HLH local
123 HL2 = HL * HL
127 … CalcSpline1_0 = ( M(j) * HR2 * HRH + M(i) * HL2 * HLH ) / 6.0d+00 + ( F(j) - M(j) * H26 ) * HRH &
137 real*8 :: HL, HR, H, H6, H26, HR2, HL2, HRH, HLH local
145 HL2 = HL * HL
149 …S = ( M(j) * HR2 * HRH + M(i) * HL2 * HLH ) / 6.0d+00 + ( F(j) - M(j) * H26 ) * HRH + ( F(i) - M…
150 … S1 = ( ( M(i) * HL2 - M(j) * HR2 ) / 2.0d+00 + F(i) - F(j) ) / H - H6 * ( M(i) - M(j) )
159 real*8 :: HL, HR, H, H6, H26, HR2, HL2, HRH, HLH local
167 HL2 = HL * HL
171 …S = ( M(j) * HR2 * HRH + M(i) * HL2 * HLH ) / 6.0d+00 + ( F(j) - M(j) * H26 ) * HRH + ( F(i) - M…
172 … S1 = ( ( M(i) * HL2 - M(j) * HR2 ) / 2.0d+00 + F(i) - F(j) ) / H - H6 * ( M(i) - M(j) )