Skip to content

Commit

Permalink
fix dsygvx (#5443)
Browse files Browse the repository at this point in the history
  • Loading branch information
maki49 authored Nov 10, 2024
1 parent cead7ce commit 32ba8d4
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 11 deletions.
8 changes: 4 additions & 4 deletions source/module_base/lapack_connector.h
Original file line number Diff line number Diff line change
Expand Up @@ -61,10 +61,10 @@ extern "C"


void dsygvx_(const int* itype, const char* jobz, const char* range, const char* uplo,
const int* n, double* A, const int* lda, double* B, const int* ldb,
const double* vl, const double* vu, const int* il, const int* iu,
const double* abstol, const int* m, double* w, double* Z, const int* ldz,
double* work, int* lwork, int*iwork, int* ifail, int* info);
const int* n, double* A, const int* lda, double* B, const int* ldb,
const double* vl, const double* vu, const int* il, const int* iu,
const double* abstol, const int* m, double* w, double* Z, const int* ldz,
double* work, const int* lwork, int* iwork, int* ifail, int* info);

void chegvx_(const int* itype,const char* jobz,const char* range,const char* uplo,
const int* n,std::complex<float> *a,const int* lda,std::complex<float> *b,
Expand Down
14 changes: 7 additions & 7 deletions source/module_base/lapack_wrapper.h
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
#ifndef LAPACK_HPP
#define LAPACK_HPP

#include <iostream>
extern "C"
{
// =================================================================================
Expand Down Expand Up @@ -49,10 +49,10 @@ extern "C"
// =================================================================================
// gvx
void dsygvx_(const int* itype, const char* jobz, const char* range, const char* uplo,
const int* n, double* A, const int* lda, double* B, const int* ldb,
const double* vl, const double* vu, const int* il, const int* iu,
const double* abstol, const int* m, double* w, double* Z, const int* ldz,
double* work, int* lwork, int*iwork, int* ifail, int* info);
const int* n, double* A, const int* lda, double* B, const int* ldb,
const double* vl, const double* vu, const int* il, const int* iu,
const double* abstol, const int* m, double* w, double* Z, const int* ldz,
double* work, const int* lwork, int* iwork, int* ifail, int* info);

void chegvx_(const int* itype,const char* jobz,const char* range,const char* uplo,
const int* n,std::complex<float> *a,const int* lda,std::complex<float> *b,
Expand Down Expand Up @@ -424,8 +424,8 @@ class LapackWrapper
int* ifail,
int& info)
{
// dsygvx_(&itype, &jobz, &range, &uplo, &n, a, &lda, b, &ldb, &vl,
// &vu, &il,&iu, &abstol, &m, w, z, &ldz, work, &lwork, rwork, iwork, ifail, &info);
dsygvx_(&itype, &jobz, &range, &uplo, &n, a, &lda, b, &ldb, &vl,
&vu, &il, &iu, &abstol, &m, w, z, &ldz, work, &lwork, iwork, ifail, &info);
}

// wrap function of fortran lapack routine xhegvx ( pointer version ).
Expand Down

0 comments on commit 32ba8d4

Please sign in to comment.