145       SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,  subroutine
154       INTEGER            KBAND, LDU, LDWORK, M, N
157       DOUBLE PRECISION   AD( * ), AE( * ), RESULT( 2 ), RWORK( * ),
158      $                   SD( * ), SE( * )
159       COMPLEX*16         U( LDU, * ), WORK( LDWORK, * )
165       DOUBLE PRECISION   ZERO, ONE
167       COMPLEX*16         CZERO, CONE
172       INTEGER            I, J, K  local
173       DOUBLE PRECISION   ANORM, ULP, UNFL, WNORM
174       COMPLEX*16         AUKJ
177       DOUBLE PRECISION   DLAMCH, ZLANGE, ZLANSY
205    10    CONTINUE
224    20       CONTINUE
225    30    CONTINUE
233    40 CONTINUE
263 *     End of ZSTT22  argument