Optimize the parsing of SNAME in skew-symmetric blas testing cases

Author: sh-zheng

BLAS/TESTING/dblat2.f

@@ -862,7 +862,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       FULL = SNAME( 3: 3 ).EQ.'Y'
       BANDED = SNAME( 3: 3 ).EQ.'B'
       PACKED = SNAME( 3: 3 ).EQ.'P'
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
 *     Define the number of arguments.
       IF( FULL.OR.SKEWFULL )THEN
          NARGS = 10
@@ -2113,7 +2113,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *     .. Executable Statements ..
       FULL = SNAME( 3: 3 ).EQ.'Y'
       PACKED = SNAME( 3: 3 ).EQ.'P'
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
 *     Define the number of arguments.
       IF( FULL.OR.SKEWFULL )THEN
          NARGS = 9

BLAS/TESTING/dblat3.f

@@ -741,7 +741,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       DATA               ICHS/'LR'/, ICHU/'UL'/
 *     .. Executable Statements ..
 *
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
       NARGS = 12
       NC = 0
       RESET = .TRUE.
@@ -1606,7 +1606,7 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       DATA               ICHT/'NTC'/, ICHU/'UL'/
 *     .. Executable Statements ..
 *
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
       NARGS = 12
       NC = 0
       RESET = .TRUE.

BLAS/TESTING/sblat2.f

@@ -862,7 +862,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       FULL = SNAME( 3: 3 ).EQ.'Y'
       BANDED = SNAME( 3: 3 ).EQ.'B'
       PACKED = SNAME( 3: 3 ).EQ.'P'
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
 *     Define the number of arguments.
       IF( FULL.OR.SKEWFULL )THEN
          NARGS = 10
@@ -2113,7 +2113,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *     .. Executable Statements ..
       FULL = SNAME( 3: 3 ).EQ.'Y'
       PACKED = SNAME( 3: 3 ).EQ.'P'
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
 *     Define the number of arguments.
       IF( FULL.OR.SKEWFULL )THEN
          NARGS = 9

BLAS/TESTING/sblat3.f

@@ -741,7 +741,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       DATA               ICHS/'LR'/, ICHU/'UL'/
 *     .. Executable Statements ..
 *
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
       NARGS = 12
       NC = 0
       RESET = .TRUE.
@@ -1606,7 +1606,7 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       DATA               ICHT/'NTC'/, ICHU/'UL'/
 *     .. Executable Statements ..
 *
-      SKEWFULL = SNAME( 2: 2 ).EQ.'S'.AND.SNAME( 3: 3 ).EQ.'K'
+      SKEWFULL = SNAME( 2: 5 ).EQ.'SKEW'
       NARGS = 12
       NC = 0
       RESET = .TRUE.