| 184 | } /* ieeeck_ */ |
| 185 | |
| 186 | integer ilaclc_(integer *m, integer *n, complex *a, integer *lda) |
| 187 | { |
| 188 | /* System generated locals */ |
| 189 | integer a_dim1, a_offset, ret_val, i__1, i__2; |
| 190 | |
| 191 | /* Local variables */ |
| 192 | static integer i__; |
| 193 | |
| 194 | |
| 195 | /* |
| 196 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 197 | |
| 198 | -- June 2010 -- |
| 199 | |
| 200 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 201 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 202 | |
| 203 | |
| 204 | Purpose |
| 205 | ======= |
| 206 | |
| 207 | ILACLC scans A for its last non-zero column. |
| 208 | |
| 209 | Arguments |
| 210 | ========= |
| 211 | |
| 212 | M (input) INTEGER |
| 213 | The number of rows of the matrix A. |
| 214 | |
| 215 | N (input) INTEGER |
| 216 | The number of columns of the matrix A. |
| 217 | |
| 218 | A (input) COMPLEX array, dimension (LDA,N) |
| 219 | The m by n matrix A. |
| 220 | |
| 221 | LDA (input) INTEGER |
| 222 | The leading dimension of the array A. LDA >= max(1,M). |
| 223 | |
| 224 | ===================================================================== |
| 225 | |
| 226 | |
| 227 | Quick test for the common case where one corner is non-zero. |
| 228 | */ |
| 229 | /* Parameter adjustments */ |
| 230 | a_dim1 = *lda; |
| 231 | a_offset = 1 + a_dim1; |
| 232 | a -= a_offset; |
| 233 | |
| 234 | /* Function Body */ |
| 235 | if (*n == 0) { |
| 236 | ret_val = *n; |
| 237 | } else /* if(complicated condition) */ { |
| 238 | i__1 = *n * a_dim1 + 1; |
| 239 | i__2 = *m + *n * a_dim1; |
| 240 | if (a[i__1].r != 0.f || a[i__1].i != 0.f || (a[i__2].r != 0.f || a[ |
| 241 | i__2].i != 0.f)) { |
| 242 | ret_val = *n; |
| 243 | } else { |