LAPACK 3.12.0
LAPACK: Linear Algebra PACKage

Functions  
subroutine  ctgex2 (wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, j1, info) 
CTGEX2 swaps adjacent diagonal blocks in an upper (quasi) triangular matrix pair by an unitary equivalence transformation.  
subroutine  dtgex2 (wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, j1, n1, n2, work, lwork, info) 
DTGEX2 swaps adjacent diagonal blocks in an upper (quasi) triangular matrix pair by an orthogonal equivalence transformation.  
subroutine  stgex2 (wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, j1, n1, n2, work, lwork, info) 
STGEX2 swaps adjacent diagonal blocks in an upper (quasi) triangular matrix pair by an orthogonal equivalence transformation.  
subroutine  ztgex2 (wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, j1, info) 
ZTGEX2 swaps adjacent diagonal blocks in an upper (quasi) triangular matrix pair by an unitary equivalence transformation.  