diff options
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/cggev.f | 4 | ||||
| -rw-r--r-- | SRC/cggevx.f | 4 | ||||
| -rw-r--r-- | SRC/dggev.f | 5 | ||||
| -rw-r--r-- | SRC/dggevx.f | 4 | ||||
| -rw-r--r-- | SRC/sggev.f | 5 | ||||
| -rw-r--r-- | SRC/sggevx.f | 4 | ||||
| -rw-r--r-- | SRC/zggev.f | 4 | ||||
| -rw-r--r-- | SRC/zggevx.f | 4 |
8 files changed, 16 insertions, 18 deletions
diff --git a/SRC/cggev.f b/SRC/cggev.f index e8eba2be..3fb5608d 100644 --- a/SRC/cggev.f +++ b/SRC/cggev.f @@ -542,15 +542,15 @@ * * Undo scaling if necessary * + 70 CONTINUE +* IF( ILASCL ) $ CALL CLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHA, N, IERR ) * IF( ILBSCL ) $ CALL CLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) * - 70 CONTINUE WORK( 1 ) = LWKOPT -* RETURN * * End of CGGEV diff --git a/SRC/cggevx.f b/SRC/cggevx.f index fe09a24f..cf4b5cee 100644 --- a/SRC/cggevx.f +++ b/SRC/cggevx.f @@ -788,15 +788,15 @@ * * Undo scaling if necessary * + 90 CONTINUE +* IF( ILASCL ) $ CALL CLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHA, N, IERR ) * IF( ILBSCL ) $ CALL CLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) * - 90 CONTINUE WORK( 1 ) = MAXWRK -* RETURN * * End of CGGEVX diff --git a/SRC/dggev.f b/SRC/dggev.f index 82b7c695..39a87a17 100644 --- a/SRC/dggev.f +++ b/SRC/dggev.f @@ -573,6 +573,8 @@ * * Undo scaling if necessary * + 110 CONTINUE +* IF( ILASCL ) THEN CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR ) CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR ) @@ -582,10 +584,7 @@ CALL DLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) END IF * - 110 CONTINUE -* WORK( 1 ) = MAXWRK -* RETURN * * End of DGGEV diff --git a/SRC/dggevx.f b/SRC/dggevx.f index fbde0183..549cd2ee 100644 --- a/SRC/dggevx.f +++ b/SRC/dggevx.f @@ -849,6 +849,8 @@ * * Undo scaling if necessary * + 130 CONTINUE +* IF( ILASCL ) THEN CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR ) CALL DLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR ) @@ -858,9 +860,7 @@ CALL DLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) END IF * - 130 CONTINUE WORK( 1 ) = MAXWRK -* RETURN * * End of DGGEVX diff --git a/SRC/sggev.f b/SRC/sggev.f index 6b23a3d2..216b23ef 100644 --- a/SRC/sggev.f +++ b/SRC/sggev.f @@ -573,6 +573,8 @@ * * Undo scaling if necessary * + 110 CONTINUE +* IF( ILASCL ) THEN CALL SLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR ) CALL SLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR ) @@ -582,10 +584,7 @@ CALL SLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) END IF * - 110 CONTINUE -* WORK( 1 ) = MAXWRK -* RETURN * * End of SGGEV diff --git a/SRC/sggevx.f b/SRC/sggevx.f index 8ecaa54e..ca7a4cc8 100644 --- a/SRC/sggevx.f +++ b/SRC/sggevx.f @@ -847,6 +847,8 @@ * * Undo scaling if necessary * + 130 CONTINUE +* IF( ILASCL ) THEN CALL SLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAR, N, IERR ) CALL SLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHAI, N, IERR ) @@ -856,9 +858,7 @@ CALL SLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) END IF * - 130 CONTINUE WORK( 1 ) = MAXWRK -* RETURN * * End of SGGEVX diff --git a/SRC/zggev.f b/SRC/zggev.f index e656115c..7f1c6dbf 100644 --- a/SRC/zggev.f +++ b/SRC/zggev.f @@ -542,15 +542,15 @@ * * Undo scaling if necessary * + 70 CONTINUE +* IF( ILASCL ) $ CALL ZLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHA, N, IERR ) * IF( ILBSCL ) $ CALL ZLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) * - 70 CONTINUE WORK( 1 ) = LWKOPT -* RETURN * * End of ZGGEV diff --git a/SRC/zggevx.f b/SRC/zggevx.f index 04a1421a..ec1ad8c8 100644 --- a/SRC/zggevx.f +++ b/SRC/zggevx.f @@ -788,15 +788,15 @@ * * Undo scaling if necessary * + 90 CONTINUE +* IF( ILASCL ) $ CALL ZLASCL( 'G', 0, 0, ANRMTO, ANRM, N, 1, ALPHA, N, IERR ) * IF( ILBSCL ) $ CALL ZLASCL( 'G', 0, 0, BNRMTO, BNRM, N, 1, BETA, N, IERR ) * - 90 CONTINUE WORK( 1 ) = MAXWRK -* RETURN * * End of ZGGEVX |