phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1255 from ACSimon33/remove_bind_c

Browse Source 
Remove BIND(C) for 3.13.0 release
This commit is contained in:
langou
2026-04-22 19:36:56 -06:00
committed by GitHub
parent d1d33467ee c2340cf803
commit 8a1ae32a4c
20 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/cgees.f
+1 -1
View File
@@ -209,7 +209,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(EV)
COMPLEX EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/cgeesx.f
+1 -1
View File
@@ -253,7 +253,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(EV)
COMPLEX EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/cgges.f
+1 -1
View File
@@ -285,7 +285,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/cgges3.f
+1 -1
View File
@@ -284,7 +284,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/cggesx.f
+1 -1
View File
@@ -347,7 +347,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/dgees.f
+1 -1
View File
@@ -228,7 +228,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI)
DOUBLE PRECISION WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/dgeesx.f
+1 -1
View File
@@ -295,7 +295,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI)
DOUBLE PRECISION WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/dgges.f
+1 -1
View File
@@ -298,7 +298,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/dgges3.f
+1 -1
View File
@@ -297,7 +297,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/dggesx.f
+1 -1
View File
@@ -382,7 +382,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
DOUBLE PRECISION ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/sgees.f
+1 -1
View File
@@ -228,7 +228,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI)
REAL WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/sgeesx.f
+1 -1
View File
@@ -295,7 +295,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(WR, WI)
REAL WR, WI
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/sgges.f
+1 -1
View File
@@ -298,7 +298,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/sgges3.f
+1 -1
View File
@@ -297,7 +297,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/sggesx.f
+1 -1
View File
@@ -382,7 +382,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHAR, ALPHAI, BETA)
REAL ALPHAR, ALPHAI, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/zgees.f
+1 -1
View File
@@ -209,7 +209,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(EV)
COMPLEX*16 EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/zgeesx.f
+1 -1
View File
@@ -253,7 +253,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELECT_PROC_TYPE(EV) BIND(C)
LOGICAL FUNCTION SELECT_PROC_TYPE(EV)
COMPLEX*16 EV
END FUNCTION SELECT_PROC_TYPE
END INTERFACE
SRC/zgges.f
+1 -1
View File
@@ -285,7 +285,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/zgges3.f
+1 -1
View File
@@ -284,7 +284,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE
SRC/zggesx.f
+1 -1
View File
@@ -347,7 +347,7 @@
* ..
* .. Function Arguments ..
INTERFACE
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA) BIND(C)
LOGICAL FUNCTION SELCTG_PROC_TYPE(ALPHA,BETA)
COMPLEX*16 ALPHA, BETA
END FUNCTION SELCTG_PROC_TYPE
END INTERFACE