00001 /* clag2z.f -- translated by f2c (version 20061008). 00002 You must link the resulting object file with libf2c: 00003 on Microsoft Windows system, link with libf2c.lib; 00004 on Linux or Unix systems, link with .../path/to/libf2c.a -lm 00005 or, if you install libf2c.a in a standard place, with -lf2c -lm 00006 -- in that order, at the end of the command line, as in 00007 cc *.o -lf2c -lm 00008 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., 00009 00010 http://www.netlib.org/f2c/libf2c.zip 00011 */ 00012 00013 #include "f2c.h" 00014 #include "blaswrap.h" 00015 00016 /* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer * 00017 ldsa, doublecomplex *a, integer *lda, integer *info) 00018 { 00019 /* System generated locals */ 00020 integer sa_dim1, sa_offset, a_dim1, a_offset, i__1, i__2, i__3, i__4; 00021 00022 /* Local variables */ 00023 integer i__, j; 00024 00025 00026 /* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- */ 00027 /* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */ 00028 /* August 2007 */ 00029 00030 /* .. */ 00031 /* .. Scalar Arguments .. */ 00032 /* .. */ 00033 /* .. Array Arguments .. */ 00034 /* .. */ 00035 00036 /* Purpose */ 00037 /* ======= */ 00038 00039 /* CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A. */ 00040 00041 /* Note that while it is possible to overflow while converting */ 00042 /* from double to single, it is not possible to overflow when */ 00043 /* converting from single to double. */ 00044 00045 /* This is an auxiliary routine so there is no argument checking. */ 00046 00047 /* Arguments */ 00048 /* ========= */ 00049 00050 /* M (input) INTEGER */ 00051 /* The number of lines of the matrix A. M >= 0. */ 00052 00053 /* N (input) INTEGER */ 00054 /* The number of columns of the matrix A. N >= 0. */ 00055 00056 /* SA (input) COMPLEX array, dimension (LDSA,N) */ 00057 /* On entry, the M-by-N coefficient matrix SA. */ 00058 00059 /* LDSA (input) INTEGER */ 00060 /* The leading dimension of the array SA. LDSA >= max(1,M). */ 00061 00062 /* A (output) COMPLEX*16 array, dimension (LDA,N) */ 00063 /* On exit, the M-by-N coefficient matrix A. */ 00064 00065 /* LDA (input) INTEGER */ 00066 /* The leading dimension of the array A. LDA >= max(1,M). */ 00067 00068 /* INFO (output) INTEGER */ 00069 /* = 0: successful exit */ 00070 /* ========= */ 00071 00072 /* .. Local Scalars .. */ 00073 /* .. */ 00074 /* .. Executable Statements .. */ 00075 00076 /* Parameter adjustments */ 00077 sa_dim1 = *ldsa; 00078 sa_offset = 1 + sa_dim1; 00079 sa -= sa_offset; 00080 a_dim1 = *lda; 00081 a_offset = 1 + a_dim1; 00082 a -= a_offset; 00083 00084 /* Function Body */ 00085 *info = 0; 00086 i__1 = *n; 00087 for (j = 1; j <= i__1; ++j) { 00088 i__2 = *m; 00089 for (i__ = 1; i__ <= i__2; ++i__) { 00090 i__3 = i__ + j * a_dim1; 00091 i__4 = i__ + j * sa_dim1; 00092 a[i__3].r = sa[i__4].r, a[i__3].i = sa[i__4].i; 00093 /* L10: */ 00094 } 00095 /* L20: */ 00096 } 00097 return 0; 00098 00099 /* End of CLAG2Z */ 00100 00101 } /* clag2z_ */