Skip to content

Update Function Arguments in ?gees, ?geesx, ?gges, ?ggesx, and ?gges3 #1173

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 5 commits into
base: master
Choose a base branch
from
Open

Update Function Arguments in ?gees, ?geesx, ?gges, ?ggesx, and ?gges3 #1173

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
d8a000d
Update Function Arguments in cgees, cgeesx, cgges3, cgges, cggesx
foxtran Nov 30, 2025
8492fc3
Update Function Arguments in zgees, zgeesx, zgges3, zgges, zggesx
foxtran Nov 30, 2025
5a22051
Update Function Arguments in sgees, sgeesx, sgges3, sgges, sggesx
foxtran Nov 30, 2025
efe84a1
Update Function Arguments in dgees, dgeesx, dgges3, dgges, dggesx
foxtran Nov 30, 2025
53c4803
Use normal compiler
foxtran Dec 2, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion .appveyor.yml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@ environment:
install:
- call %CONDA_INSTALL_LOCN%\Scripts\activate.bat
# - conda config --set auto_update_conda false
- conda install -c conda-forge --yes --quiet flang=11.0.1 jom
- conda install -c conda-forge --yes --quiet flang=21.1.6 jom
- call "C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" amd64
- set "LIB=%CONDA_INSTALL_LOCN%\Library\lib;%LIB%"
- set "CPATH=%CONDA_INSTALL_LOCN%\Library\include;%CPATH%"
Expand Down
8 changes: 6 additions & 2 deletions SRC/cgees.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -208,8 +208,12 @@ SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS,
COMPLEX A( LDA, * ), VS( LDVS, * ), W( * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
COMPLEX EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/cgeesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -252,8 +252,12 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM,
COMPLEX A( LDA, * ), VS( LDVS, * ), W( * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
COMPLEX EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/cgges.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -284,8 +284,12 @@ SUBROUTINE CGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/cgges3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -283,8 +283,12 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/cggesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -346,8 +346,12 @@ SUBROUTINE CGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/dgees.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -227,8 +227,12 @@ SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI,
$ WR( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
DOUBLE PRECISION WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/dgeesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -294,8 +294,12 @@ SUBROUTINE DGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM,
$ WR( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
DOUBLE PRECISION WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/dgges.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -297,8 +297,12 @@ SUBROUTINE DGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ VSR( LDVSR, * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/dgges3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -296,8 +296,12 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ VSR( LDVSR, * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/dggesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -381,8 +381,12 @@ SUBROUTINE DGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/sgees.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -227,8 +227,12 @@ SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI,
$ WR( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
REAL WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/sgeesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -294,8 +294,12 @@ SUBROUTINE SGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM,
$ WR( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
REAL WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/sgges.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -297,8 +297,12 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ VSR( LDVSR, * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/sgges3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -296,8 +296,12 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ VSR( LDVSR, * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/sggesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -381,8 +381,12 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/zgees.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -208,8 +208,12 @@ SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS,
COMPLEX*16 A( LDA, * ), VS( LDVS, * ), W( * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
COMPLEX*16 EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/zgeesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -252,8 +252,12 @@ SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM,
COMPLEX*16 A( LDA, * ), VS( LDVS, * ), W( * ), WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELECT
EXTERNAL SELECT
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
COMPLEX*16 EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
PROCEDURE(SELECT_PROC_TYPE) :: SELECT
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/zgges.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -284,8 +284,12 @@ SUBROUTINE ZGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/zgges3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -283,8 +283,12 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down
8 changes: 6 additions & 2 deletions SRC/zggesx.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -346,8 +346,12 @@ SUBROUTINE ZGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A,
$ WORK( * )
* ..
* .. Function Arguments ..
LOGICAL SELCTG
EXTERNAL SELCTG
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
PROCEDURE(SELCTG_PROC_TYPE) :: SELCTG
* ..
*
* =====================================================================
Expand Down