anchor.diff:                          END IF
   *
                           IF( .NOT.NULL )THEN
  -                           IF( SNAME( 4: 5 ).EQ.'mv' )THEN
  +                           IF( SNAME( 10: 11 ).EQ.'mv' )THEN
   *
   *                             Check the result.
   *
  
positive.code:                               CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
       $                                    N, AA, XX, INCX )
                             END IF
                          ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
                             IF( FULL )THEN
                                IF( TRACE )
       $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
  
negative.code: *     .. Common blocks ..
        COMMON             /INFOC/INFOT, NOUTC, OK
  *     .. Executable Statements ..
        CONJ = SNAME( 11: 11 ).EQ.'c'
  *     Define the number of arguments.
        NARGS = 9
  *
  