112       SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO )  subroutine
119       CHARACTER          UPLO
120       INTEGER            INFO, ITYPE, N
123       COMPLEX*16         AP( * ), BP( * )
129       DOUBLE PRECISION   ONE, HALF
131       COMPLEX*16         CONE
135       LOGICAL            UPPER
136       INTEGER            J, J1, J1J1, JJ, K, K1, K1K1, KK  local
137       DOUBLE PRECISION   AJJ, AKK, BJJ, BKK
138       COMPLEX*16         CT
166          CALL XERBLA( 'ZHPGST', -INFO )  argument
193    10       CONTINUE
221    20       CONTINUE
248    30       CONTINUE
276 *     End of ZHPGST  argument