LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
real function sladiv2 ( real  A,
real  B,
real  C,
real  D,
real  R,
real  T 
)

Definition at line 217 of file sladiv.f.

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