| 257 | } /* ilaclc_ */ |
| 258 | |
| 259 | integer ilaclr_(integer *m, integer *n, complex *a, integer *lda) |
| 260 | { |
| 261 | /* System generated locals */ |
| 262 | integer a_dim1, a_offset, ret_val, i__1, i__2; |
| 263 | |
| 264 | /* Local variables */ |
| 265 | static integer i__, j; |
| 266 | |
| 267 | |
| 268 | /* |
| 269 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 270 | |
| 271 | -- June 2010 -- |
| 272 | |
| 273 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 274 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 275 | |
| 276 | |
| 277 | Purpose |
| 278 | ======= |
| 279 | |
| 280 | ILACLR scans A for its last non-zero row. |
| 281 | |
| 282 | Arguments |
| 283 | ========= |
| 284 | |
| 285 | M (input) INTEGER |
| 286 | The number of rows of the matrix A. |
| 287 | |
| 288 | N (input) INTEGER |
| 289 | The number of columns of the matrix A. |
| 290 | |
| 291 | A (input) COMPLEX array, dimension (LDA,N) |
| 292 | The m by n matrix A. |
| 293 | |
| 294 | LDA (input) INTEGER |
| 295 | The leading dimension of the array A. LDA >= max(1,M). |
| 296 | |
| 297 | ===================================================================== |
| 298 | |
| 299 | |
| 300 | Quick test for the common case where one corner is non-zero. |
| 301 | */ |
| 302 | /* Parameter adjustments */ |
| 303 | a_dim1 = *lda; |
| 304 | a_offset = 1 + a_dim1; |
| 305 | a -= a_offset; |
| 306 | |
| 307 | /* Function Body */ |
| 308 | if (*m == 0) { |
| 309 | ret_val = *m; |
| 310 | } else /* if(complicated condition) */ { |
| 311 | i__1 = *m + a_dim1; |
| 312 | i__2 = *m + *n * a_dim1; |
| 313 | if (a[i__1].r != 0.f || a[i__1].i != 0.f || (a[i__2].r != 0.f || a[ |
| 314 | i__2].i != 0.f)) { |
| 315 | ret_val = *m; |
| 316 | } else { |