"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "include/armadillo_bits/translate_lapack.hpp" between
armadillo-10.8.2.tar.xz and armadillo-11.0.0.tar.xz

About: Armadillo is a C++ linear algebra library (matrix maths) aiming towards a good balance between speed and ease of use.

translate_lapack.hpp  (armadillo-10.8.2.tar.xz):translate_lapack.hpp  (armadillo-11.0.0.tar.xz)
skipping to change at line 18 skipping to change at line 18
// You may obtain a copy of the License at // You may obtain a copy of the License at
// http://www.apache.org/licenses/LICENSE-2.0 // http://www.apache.org/licenses/LICENSE-2.0
// //
// Unless required by applicable law or agreed to in writing, software // Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS, // distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and // See the License for the specific language governing permissions and
// limitations under the License. // limitations under the License.
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
#ifdef ARMA_USE_LAPACK #if defined(ARMA_USE_LAPACK)
//! \namespace lapack namespace for LAPACK functions //! \namespace lapack namespace for LAPACK functions
namespace lapack namespace lapack
{ {
template<typename eT> template<typename eT>
inline inline
void void
getrf(blas_int* m, blas_int* n, eT* a, blas_int* lda, blas_int* ipiv, blas_int * info) getrf(blas_int* m, blas_int* n, eT* a, blas_int* lda, blas_int* ipiv, blas_int * info)
{ {
skipping to change at line 1176 skipping to change at line 1176
else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dtrev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info, 1, 1); } else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dtrev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info, 1, 1); }
#else #else
if( is_float<eT>::value) { typedef float T; arma_fortran(arma_strev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info); } if( is_float<eT>::value) { typedef float T; arma_fortran(arma_strev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info); }
else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dtrev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info); } else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dtrev c)(side, howmny, select, n, (T*)t, ldt, (T*)vl, ldvl, (T*)vr, ldvr, mm, m, (T*)w ork, info); }
#endif #endif
} }
template<typename eT> template<typename eT>
inline inline
void void
larnv(blas_int* idist, blas_int* iseed, const blas_int* n, eT* x)
{
arma_type_check(( is_supported_blas_type<eT>::value == false ));
if( is_float<eT>::value) { typedef float T; arma_fortran(arma_slarnv)
(idist, iseed, n, (T*)x); }
else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dlarnv)
(idist, iseed, n, (T*)x); }
}
template<typename eT>
inline
void
gehrd(blas_int* n, blas_int* ilo, blas_int* ihi, eT* a, blas_int* lda, eT* tao , eT* work, blas_int* lwork, blas_int* info) gehrd(blas_int* n, blas_int* ilo, blas_int* ihi, eT* a, blas_int* lda, eT* tao , eT* work, blas_int* lwork, blas_int* info)
{ {
arma_type_check(( is_supported_blas_type<eT>::value == false )); arma_type_check(( is_supported_blas_type<eT>::value == false ));
if( is_float<eT>::value) { typedef float T; arma_fortran(arma_sg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); } if( is_float<eT>::value) { typedef float T; arma_fortran(arma_sg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); }
else if( is_double<eT>::value) { typedef double T; arma_fortran(arma_dg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); } else if( is_double<eT>::value) { typedef double T; arma_fortran(arma_dg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); }
else if( is_cx_float<eT>::value) { typedef blas_cxf T; arma_fortran(arma_cg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); } else if( is_cx_float<eT>::value) { typedef blas_cxf T; arma_fortran(arma_cg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); }
else if(is_cx_double<eT>::value) { typedef blas_cxd T; arma_fortran(arma_zg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); } else if(is_cx_double<eT>::value) { typedef blas_cxd T; arma_fortran(arma_zg ehrd)(n, ilo, ihi, (T*)a, lda, (T*)tao, (T*)work, lwork, info); }
} }
 End of changes. 2 change blocks. 
14 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)