1       SUBROUTINE ZTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )  subroutine
12 *  ZTRMV  performs one of the matrix-vector operations  argument
101       COMPLEX*16         ZERO
104       COMPLEX*16         TEMP
105       INTEGER            I, INFO, IX, J, JX, KX
106       LOGICAL            NOCONJ, NOUNIT
108       LOGICAL            LSAME
173    10                CONTINUE
177    20          CONTINUE
187    30                CONTINUE
192    40          CONTINUE
201    50                CONTINUE
205    60          CONTINUE
216    70                CONTINUE
221    80          CONTINUE
237    90                CONTINUE
243   100                CONTINUE
246   110          CONTINUE
258   120                CONTINUE
265   130                CONTINUE
269   140          CONTINUE
280   150                CONTINUE
286   160                CONTINUE
289   170          CONTINUE
319 *     End of ZTRMV .  argument