anchor.diff:                                CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
        $                                    N, AA, XX, INCX )
                              END IF
  -                        ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN
  +                        ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
                              IF( FULL )THEN
                                 IF( TRACE )
        $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
  
positive.code:                         END IF
  *
                          IF( .NOT.NULL )THEN
                             IF( SNAME( 4: 5 ).EQ.'mv' )THEN
  *
  *                             Check the result.
  *
  
negative.code:      $                                    INCX, ZERO, Z, INCX, XT, G,
       $                                    XX, EPS, ERR, FATAL, NOUT,
       $                                    .TRUE. )
                             ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
  *
  *                             Compute approximation to original vector.
  *
  