Skip to content

Commit

Permalink
Fixed ARPACK routine calling in ClassicMDS
Browse files Browse the repository at this point in the history
  • Loading branch information
lisitsyn committed Jul 30, 2011
1 parent 9a6e8ac commit 6e05605
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/shogun/preprocessor/ClassicMDS.cpp
Expand Up @@ -94,7 +94,7 @@ SGMatrix<float64_t> CClassicMDS::embed_by_distance(CDistance* distance)
// using ARPACK
float64_t* eigenvalues_vector = SG_MALLOC(float64_t, m_target_dim);
// solve eigenproblem with ARPACK (faster)
arpack_dsaupd(Ds_matrix, N, m_target_dim, "LM", 1, 0.0, false,
arpack_dsaupd(Ds_matrix, N, m_target_dim, "LM", 1, false, 0.0,
eigenvalues_vector, replace_feature_matrix,
eigenproblem_status);
// check for failure
Expand Down Expand Up @@ -132,7 +132,7 @@ SGMatrix<float64_t> CClassicMDS::embed_by_distance(CDistance* distance)
m_eigenvalues.free_vector();
m_eigenvalues = SGVector<float64_t>(eigenvalues_vector,m_target_dim,true);
#else /* not HAVE_ARPACK */
// using LAPACK
// using LAPACK
float64_t* eigenvalues_vector = SG_MALLOC(float64_t, m_target_dim);
// solve eigenproblem with LAPACK
wrap_dsyevr('V','U',N,Ds_matrix,N,N-m_target_dim+1,N,eigenvalues_vector,Ds_matrix,&eigenproblem_status);
Expand Down

0 comments on commit 6e05605

Please sign in to comment.