sladiv2()

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

Definition at line 215 of file sladiv.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      REAL               A, B, C, D, R, T
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      REAL               ZERO
      parameter( zero = 0.0e0 )
*
*     .. Local Scalars ..
      REAL               BR
*     ..
*     .. Executable Statements ..
*
      IF( r.NE.zero ) THEN
         br = b * r
         if( br.NE.zero ) THEN
            sladiv2 = (a + br) * t
         ELSE
            sladiv2 = a * t + (b * t) * r
         END IF
      ELSE
         sladiv2 = (a + d * (b / c)) * t
      END IF
*
      RETURN
*
*     End of SLADIV2
*

Here is the call graph for this function:

Here is the caller graph for this function: