Skip to content

Commit 0d69a29

Browse files
martin-frbgmartin-frbg
authored
Fix empty prototypes of select/selctg
1 parent ebbe682 commit 0d69a29

File tree

20 files changed

+39
-36
lines changed

20 files changed

+39
-36
lines changed

‎lapack-netlib/SRC/cgees.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -710,8 +710,8 @@ or GE matrices</b> */
710710
/* > \ingroup complexGEeigen */
711711

712712
/* ===================================================================== */
713-
/* Subroutine */ void cgees_(char *jobvs, char *sort, L_fp select, integer *n,
714-
complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
713+
/* Subroutine */ void cgees_(char *jobvs, char *sort, logical (*select)(complex*),
714+
integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
715715
integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
716716
bwork, integer *info)
717717
{

‎lapack-netlib/SRC/cgeesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -752,8 +752,8 @@ f"> */
752752
/* > \ingroup complexGEeigen */
753753

754754
/* ===================================================================== */
755-
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, L_fp select, char *
756-
sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
755+
/* Subroutine */ void cgeesx_(char *jobvs, char *sort, logical (*select)(complex*),
756+
char *sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
757757
w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
758758
work, integer *lwork, real *rwork, logical *bwork, integer *info)
759759
{

‎lapack-netlib/SRC/cgges.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -784,8 +784,8 @@ or GE matrices</b> */
784784
/* > \ingroup complexGEeigen */
785785

786786
/* ===================================================================== */
787-
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
788-
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
787+
/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, logical
788+
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
789789
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
790790
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
791791
lwork, real *rwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/cgges3.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -783,8 +783,8 @@ f"> */
783783
/* > \ingroup complexGEeigen */
784784

785785
/* ===================================================================== */
786-
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
787-
selctg, integer *n, complex *a, integer *lda, complex *b, integer *
786+
/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, logical
787+
(*selctg)(complex*,complex*), integer *n, complex *a, integer *lda, complex *b, integer *
788788
ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
789789
integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
790790
lwork, real *rwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/cggesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -843,8 +843,8 @@ f"> */
843843
/* > \ingroup complexGEeigen */
844844

845845
/* ===================================================================== */
846-
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
847-
selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
846+
/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, logical
847+
(*selctg)(complex*,complex*), char *sense, integer *n, complex *a, integer *lda, complex *b,
848848
integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
849849
vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
850850
*rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,

‎lapack-netlib/SRC/dgees.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -729,7 +729,7 @@ or GE matrices</b> */
729729
/* > \ingroup doubleGEeigen */
730730

731731
/* ===================================================================== */
732-
/* Subroutine */ void dgees_(char *jobvs, char *sort, L_fp select, integer *n,
732+
/* Subroutine */ void dgees_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), integer *n,
733733
doublereal *a, integer *lda, integer *sdim, doublereal *wr,
734734
doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
735735
integer *lwork, logical *bwork, integer *info)

‎lapack-netlib/SRC/dgeesx.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -793,7 +793,7 @@ f"> */
793793
/* > \ingroup doubleGEeigen */
794794

795795
/* ===================================================================== */
796-
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, L_fp select, char *
796+
/* Subroutine */ void dgeesx_(char *jobvs, char *sort, logical(*select)(doublereal*,doublereal*), char *
797797
sense, integer *n, doublereal *a, integer *lda, integer *sdim,
798798
doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
799799
doublereal *rconde, doublereal *rcondv, doublereal *work, integer *

‎lapack-netlib/SRC/dgges.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -798,8 +798,8 @@ or GE matrices</b> */
798798
/* > \ingroup doubleGEeigen */
799799

800800
/* ===================================================================== */
801-
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
802-
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
801+
/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, logical
802+
(selctg)(doublereal*, doublereal*, doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
803803
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
804804
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
805805
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

‎lapack-netlib/SRC/dgges3.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -796,8 +796,8 @@ f"> */
796796
/* > \ingroup doubleGEeigen */
797797

798798
/* ===================================================================== */
799-
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp
800-
selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
799+
/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, logical
800+
(*selctg)(doublereal*,doublereal*,doublereal*), integer *n, doublereal *a, integer *lda, doublereal *b,
801801
integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
802802
doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
803803
integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,

‎lapack-netlib/SRC/dggesx.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -878,8 +878,8 @@ f"> */
878878
/* > \endverbatim */
879879
/* > */
880880
/* ===================================================================== */
881-
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
882-
selctg, char *sense, integer *n, doublereal *a, integer *lda,
881+
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, logical
882+
(*selctg)(doublereal*,doublereal*,doublereal*), char *sense, integer *n, doublereal *a, integer *lda,
883883
doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
884884
doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
885885
doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *

0 commit comments

Comments
 (0)