Update Function Arguments in zgees, zgeesx, zgges3, zgges, zggesx

Author: foxtran

SRC/zgees.f

@@ -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
 *     ..
 *
 *  =====================================================================

SRC/zgeesx.f

@@ -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
 *     ..
 *
 *  =====================================================================

SRC/zgges.f

@@ -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
 *     ..
 *
 *  =====================================================================

SRC/zgges3.f

@@ -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
 *     ..
 *
 *  =====================================================================

SRC/zggesx.f

@@ -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
 *     ..
 *
 *  =====================================================================