| 2240 | |
| 2241 | template<typename complextyp, typename typ> |
| 2242 | static inline void |
| 2243 | process_geev_results(GEEV_PARAMS_t<typ> *params, scalar_trait) |
| 2244 | { |
| 2245 | /* REAL versions of geev need the results to be translated |
| 2246 | * into complex versions. This is the way to deal with imaginary |
| 2247 | * results. In our gufuncs we will always return complex arrays! |
| 2248 | */ |
| 2249 | mk_complex_array((complextyp*)params->W, (typ*)params->WR, (typ*)params->WI, params->N); |
| 2250 | |
| 2251 | /* handle the eigenvectors */ |
| 2252 | if ('V' == params->JOBVL) { |
| 2253 | mk_geev_complex_eigenvectors((complextyp*)params->VL, (typ*)params->VLR, |
| 2254 | (typ*)params->WI, params->N); |
| 2255 | } |
| 2256 | if ('V' == params->JOBVR) { |
| 2257 | mk_geev_complex_eigenvectors((complextyp*)params->VR, (typ*)params->VRR, |
| 2258 | (typ*)params->WI, params->N); |
| 2259 | } |
| 2260 | } |
| 2261 | |
| 2262 | #if 0 |
| 2263 | static inline fortran_int |
nothing calls this directly
no test coverage detected