1      SUBROUTINE SASQRTB( A, B, C )
2*
3*  -- PBLAS auxiliary routine (version 2.0) --
4*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5*     and University of California, Berkeley.
6*     April 1, 1998
7*
8*     .. Scalar Arguments ..
9      REAL               A, B, C
10*     ..
11*
12*  Purpose
13*  =======
14*
15*  SASQRTB computes c := a * sqrt( b ) where a, b and c are scalars.
16*
17*  Arguments
18*  =========
19*
20*  A       (input) REAL
21*          On entry, A specifies the scalar a.
22*
23*  B       (input) REAL
24*          On entry, B specifies the scalar b.
25*
26*  C       (output) REAL
27*          On entry, C specifies the scalar c. On exit, c is overwritten
28*          by the product of a and the square root of b.
29*
30*  -- Written on April 1, 1998 by
31*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
32*
33*  =====================================================================
34*
35*     .. Intrinsic Functions ..
36      INTRINSIC          SQRT
37*     ..
38*     .. Executable Statements ..
39*
40      C = A * SQRT( B )
41*
42      RETURN
43*
44*     End of SASQRTB
45*
46      END
47