| 2582 | } |
| 2583 | |
| 2584 | static inline int |
| 2585 | compute_urows_vtcolumns(char jobz, |
| 2586 | fortran_int m, fortran_int n, |
| 2587 | fortran_int *urows, fortran_int *vtcolumns) |
| 2588 | { |
| 2589 | fortran_int min_m_n = fortran_int_min(m, n); |
| 2590 | switch(jobz) |
| 2591 | { |
| 2592 | case 'N': |
| 2593 | *urows = 0; |
| 2594 | *vtcolumns = 0; |
| 2595 | break; |
| 2596 | case 'A': |
| 2597 | *urows = m; |
| 2598 | *vtcolumns = n; |
| 2599 | break; |
| 2600 | case 'S': |
| 2601 | { |
| 2602 | *urows = min_m_n; |
| 2603 | *vtcolumns = min_m_n; |
| 2604 | } |
| 2605 | break; |
| 2606 | default: |
| 2607 | return 0; |
| 2608 | } |
| 2609 | |
| 2610 | return 1; |
| 2611 | } |
| 2612 | |
| 2613 | static inline fortran_int |
| 2614 | call_gesdd(GESDD_PARAMS_t<fortran_real> *params) |
no test coverage detected