LAPACK  3.9.0
LAPACK: Linear Algebra PACKage

◆ sladiv2()

real function sladiv2 ( real  A,
real  B,
real  C,
real  D,
real  R,
real  T 
)

Definition at line 220 of file sladiv.f.

220 *
221 * -- LAPACK auxiliary routine (version 3.7.0) --
222 * -- LAPACK is a software package provided by Univ. of Tennessee, --
223 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
224 * January 2013
225 *
226 * .. Scalar Arguments ..
227  REAL A, B, C, D, R, T
228 * ..
229 *
230 * =====================================================================
231 *
232 * .. Parameters ..
233  REAL ZERO
234  parameter( zero = 0.0e0 )
235 *
236 * .. Local Scalars ..
237  REAL BR
238 * ..
239 * .. Executable Statements ..
240 *
241  IF( r.NE.zero ) THEN
242  br = b * r
243  if( br.NE.zero ) THEN
244  sladiv2 = (a + br) * t
245  ELSE
246  sladiv2 = a * t + (b * t) * r
247  END IF
248  ELSE
249  sladiv2 = (a + d * (b / c)) * t
250  END IF
251 *
252  RETURN
253 *
254 * End of SLADIV
255 *
sladiv2
real function sladiv2(A, B, C, D, R, T)
Definition: sladiv.f:220