01:       SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO )
02: *
03: *  -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) --
04: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
05: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
06: *     August 2007
07: *
08: *     ..
09: *     .. Scalar Arguments ..
10:       INTEGER            INFO, LDA, LDSA, M, N
11: *     ..
12: *     .. Array Arguments ..
13:       REAL               SA( LDSA, * )
14:       DOUBLE PRECISION   A( LDA, * )
15: *     ..
16: *
17: *  Purpose
18: *  =======
19: *
20: *  SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE
21: *  PRECISION matrix, A.
22: *
23: *  Note that while it is possible to overflow while converting
24: *  from double to single, it is not possible to overflow when
25: *  converting from single to double.
26: *
27: *  This is an auxiliary routine so there is no argument checking.
28: *
29: *  Arguments
30: *  =========
31: *
32: *  M       (input) INTEGER
33: *          The number of lines of the matrix A.  M >= 0.
34: *
35: *  N       (input) INTEGER
36: *          The number of columns of the matrix A.  N >= 0.
37: *
38: *  SA      (input) REAL array, dimension (LDSA,N)
39: *          On entry, the M-by-N coefficient matrix SA.
40: *
41: *  LDSA    (input) INTEGER
42: *          The leading dimension of the array SA.  LDSA >= max(1,M).
43: *
44: *  A       (output) DOUBLE PRECISION array, dimension (LDA,N)
45: *          On exit, the M-by-N coefficient matrix A.
46: *
47: *  LDA     (input) INTEGER
48: *          The leading dimension of the array A.  LDA >= max(1,M).
49: *
50: *  INFO    (output) INTEGER
51: *          = 0:  successful exit
52: *  =========
53: *
54: *     .. Local Scalars ..
55:       INTEGER            I, J
56: *     ..
57: *     .. Executable Statements ..
58: *
59:       INFO = 0
60:       DO 20 J = 1, N
61:          DO 10 I = 1, M
62:             A( I, J ) = SA( I, J )
63:    10    CONTINUE
64:    20 CONTINUE
65:       RETURN
66: *
67: *     End of SLAG2D
68: *
69:       END
70: