101       SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO )  subroutine
108       INTEGER            INFO, K, LDA, N
111       INTEGER            ISEED( 4 )
112       DOUBLE PRECISION   D( * )
113       COMPLEX*16         A( LDA, * ), WORK( * )
119       COMPLEX*16         ZERO, ONE, HALF
125       INTEGER            I, II, J, JJ  local
126       DOUBLE PRECISION   WN
127       COMPLEX*16         ALPHA, TAU, WA, WB
154          CALL XERBLA( 'ZLAGSY', -INFO )  argument
163    10    CONTINUE
164    20 CONTINUE
167    30 CONTINUE
212    40       CONTINUE
213    50    CONTINUE
214    60 CONTINUE
281 *     End of ZLAGSY  argument