| 2050 | } |
| 2051 | |
| 2052 | static inline fortran_int |
| 2053 | call_geev(GEEV_PARAMS_t<float>* params) |
| 2054 | { |
| 2055 | fortran_int rv; |
| 2056 | LAPACK(sgeev)(¶ms->JOBVL, ¶ms->JOBVR, |
| 2057 | ¶ms->N, params->A, ¶ms->LDA, |
| 2058 | params->WR, params->WI, |
| 2059 | params->VLR, ¶ms->LDVL, |
| 2060 | params->VRR, ¶ms->LDVR, |
| 2061 | params->WORK, ¶ms->LWORK, |
| 2062 | &rv); |
| 2063 | return rv; |
| 2064 | } |
| 2065 | |
| 2066 | static inline fortran_int |
| 2067 | call_geev(GEEV_PARAMS_t<double>* params) |
no outgoing calls
no test coverage detected