Fast kernel -- ALGLIB routine -- 19.01.2010 Bochkanov Sergey *************************************************************************/
| 286 | Bochkanov Sergey |
| 287 | *************************************************************************/ |
| 288 | bool rmatrixsyrkf(int n, |
| 289 | int k, |
| 290 | double alpha, |
| 291 | const ap::real_2d_array& a, |
| 292 | int ia, |
| 293 | int ja, |
| 294 | int optypea, |
| 295 | double beta, |
| 296 | ap::real_2d_array& c, |
| 297 | int ic, |
| 298 | int jc, |
| 299 | bool isupper) |
| 300 | { |
| 301 | #ifndef ALGLIB_INTERCEPTS_ABLAS |
| 302 | bool result; |
| 303 | |
| 304 | result = false; |
| 305 | return result; |
| 306 | #else |
| 307 | return ialglib::_i_rmatrixsyrkf(n, k, alpha, a, ia, ja, optypea, beta, c, ic, jc, isupper); |
| 308 | #endif |
| 309 | } |
| 310 | |
| 311 | |
| 312 | /************************************************************************* |