Fix Windows symbol names: use scipy-openblas64 naming convention

Co-authored-by: alexlib <747110+alexlib@users.noreply.github.com>

Author: Copilot

src/lapack_compat.h

@@ -7,48 +7,53 @@ extern "C" {
 
 typedef int lapack_int;
 
+// On Windows with scipy-openblas64, symbols have scipy_ prefix and 64_ suffix
+#if defined(_WIN32) || defined(_WIN64)
+#define FORTRAN_WRAPPER(name) scipy_##name##64_
+#else
 #define FORTRAN_WRAPPER(name) name##_
+#endif
 
-void dgeqrf_(const lapack_int *m, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dgeqrf)(const lapack_int *m, const lapack_int *n, double *a,
              const lapack_int *lda, double *tau, double *work,
              const lapack_int *lwork, lapack_int *info);
-void dorgqr_(const lapack_int *m, const lapack_int *n, const lapack_int *k,
+void FORTRAN_WRAPPER(dorgqr)(const lapack_int *m, const lapack_int *n, const lapack_int *k,
              double *a, const lapack_int *lda, const double *tau,
              double *work, const lapack_int *lwork, lapack_int *info);
-void dtrtrs_(const char *uplo, const char *trans, const char *diag,
+void FORTRAN_WRAPPER(dtrtrs)(const char *uplo, const char *trans, const char *diag,
              const lapack_int *n, const lapack_int *nrhs, const double *a,
              const lapack_int *lda, double *b, const lapack_int *ldb,
              lapack_int *info);
-void dpotrf_(const char *uplo, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dpotrf)(const char *uplo, const lapack_int *n, double *a,
              const lapack_int *lda, lapack_int *info);
-void dpotrs_(const char *uplo, const lapack_int *n, const lapack_int *nrhs,
+void FORTRAN_WRAPPER(dpotrs)(const char *uplo, const lapack_int *n, const lapack_int *nrhs,
              const double *a, const lapack_int *lda, double *b,
              const lapack_int *ldb, lapack_int *info);
-void dgetrf_(const lapack_int *m, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dgetrf)(const lapack_int *m, const lapack_int *n, double *a,
              const lapack_int *lda, lapack_int *ipiv, lapack_int *info);
-void dgetrs_(const char *trans, const lapack_int *n, const lapack_int *nrhs,
+void FORTRAN_WRAPPER(dgetrs)(const char *trans, const lapack_int *n, const lapack_int *nrhs,
              const double *a, const lapack_int *lda, const lapack_int *ipiv,
              double *b, const lapack_int *ldb, lapack_int *info);
-void dgetri_(const lapack_int *n, double *a, const lapack_int *lda,
+void FORTRAN_WRAPPER(dgetri)(const lapack_int *n, double *a, const lapack_int *lda,
              const lapack_int *ipiv, double *work, const lapack_int *lwork,
              lapack_int *info);
-void dgesdd_(const char *jobz, const lapack_int *m, const lapack_int *n,
+void FORTRAN_WRAPPER(dgesdd)(const char *jobz, const lapack_int *m, const lapack_int *n,
              double *a, const lapack_int *lda, double *s, double *u,
              const lapack_int *ldu, double *vt, const lapack_int *ldvt,
              double *work, const lapack_int *lwork, lapack_int *iwork,
              lapack_int *info);
-void dsytrf_(const char *uplo, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dsytrf)(const char *uplo, const lapack_int *n, double *a,
              const lapack_int *lda, lapack_int *ipiv, double *work,
              const lapack_int *lwork, lapack_int *info);
-void dsytrs_(const char *uplo, const lapack_int *n, const lapack_int *nrhs,
+void FORTRAN_WRAPPER(dsytrs)(const char *uplo, const lapack_int *n, const lapack_int *nrhs,
              const double *a, const lapack_int *lda, const lapack_int *ipiv,
              double *b, const lapack_int *ldb, lapack_int *info);
-void dsytri_(const char *uplo, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dsytri)(const char *uplo, const lapack_int *n, double *a,
              const lapack_int *lda, const lapack_int *ipiv, double *work,
              lapack_int *info);
-void dpotf2_(const char *uplo, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dpotf2)(const char *uplo, const lapack_int *n, double *a,
              const lapack_int *lda, lapack_int *info);
-void dpotri_(const char *uplo, const lapack_int *n, double *a,
+void FORTRAN_WRAPPER(dpotri)(const char *uplo, const lapack_int *n, double *a,
              const lapack_int *lda, lapack_int *info);
 
 #ifdef __cplusplus