1ZLAG2C  ‐ a DOUBLE PRECISION COMPLEX matrix, SA, to a SINGLE PRE‐
2CISION COMPLEX matrix, A SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LD‐
3SA, INFO)
4    INTEGER INFO,LDA,LDSA,M,N
5    COMPLEX SA(LDSA,*)
6    COMPLEX*16  A(LDA,*)  ZLAG2C converts a DOUBLE PRECISION COM‐
7PLEX matrix, SA, to a SINGLE PRECISION COMPLEX matrix, A.
8
9RMAX is the overflow for the SINGLE PRECISION arithmetic
10ZLAG2C checks that all the entries of A  are  between  ‐RMAX  and
11RMAX. If not the convertion is aborted and a flag is raised.
12
13This is a helper routine so there is no argument checking.
14
15M        (input)  INTEGER The number of lines of the matrix A.  M
16>= 0.  N       (input) INTEGER The number of columns of  the  ma‐
17trix  A.  N >= 0.  A       (input) DOUBLE PRECISION array, dimen‐
18sion (LDA,N) On entry, the  M‐by‐N  coefficient  matrix  A.   LDA
19(input)  INTEGER  The  leading  dimension of the array A.  LDA >=
20max(1,M).  SA      (output) REAL array, dimension (LDSA,N) On ex‐
21it, if INFO=0, the M‐by‐N coefficient matrix SA.  LDSA    (input)
22INTEGER The leading dimension of the array SA.  LDSA >= max(1,M).
23INFO    (output) INTEGER = 0:  successful exit
24> 0:  if INFO = k, the (i,j) entry of the matrix A has overflowed
25when moving from DOUBLE PRECISION to SINGLE k is  given  by  k  =
26(i‐1)*LDA+j
27
28=========
29
30
31
32
33
34End of ZLAG2C
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66