Update Function Arguments in dgees, dgeesx, dgges3, dgges, dggesx

2025-11-30 10:29:08 +01:00
parent 5a22051d73
commit efe84a130d
5 changed files with 30 additions and 10 deletions
@@ -227,8 +227,12 @@
     $                   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
 *     ..
 *
 *  =====================================================================
@@ -294,8 +294,12 @@
     $                   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
 *     ..
 *
 *  =====================================================================
@@ -297,8 +297,12 @@
     $                   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
 *     ..
 *
 *  =====================================================================
@@ -296,8 +296,12 @@
     $                   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
 *     ..
 *
 *  =====================================================================
@@ -381,8 +381,12 @@
     $                   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
 *     ..
 *
 *  =====================================================================