| 1857 | |
| 1858 | |
| 1859 | static inline fortran_int |
| 1860 | call_potrf(POTR_PARAMS_t<fortran_real> *params) |
| 1861 | { |
| 1862 | fortran_int rv; |
| 1863 | LAPACK(spotrf)(¶ms->UPLO, |
| 1864 | ¶ms->N, params->A, ¶ms->LDA, |
| 1865 | &rv); |
| 1866 | return rv; |
| 1867 | } |
| 1868 | |
| 1869 | static inline fortran_int |
| 1870 | call_potrf(POTR_PARAMS_t<fortran_doublereal> *params) |