diff options
Diffstat (limited to 'ctest/c_dblat2.f')
| -rw-r--r-- | ctest/c_dblat2.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ctest/c_dblat2.f b/ctest/c_dblat2.f index 357816bd3..27ceda622 100644 --- a/ctest/c_dblat2.f +++ b/ctest/c_dblat2.f @@ -572,7 +572,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' @@ -921,7 +921,7 @@ UPLO = ICH( IC: IC ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1215,7 +1215,7 @@ LOGICAL LDE, LDERES EXTERNAL LDE, LDERES * .. External Subroutines .. - EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV, + EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV, $ CDTPSV, CDTRMV, CDTRSV * .. Intrinsic Functions .. INTRINSIC ABS, MAX @@ -1283,7 +1283,7 @@ UPLO = ICHU( ICU: ICU ) IF (UPLO.EQ.'U')THEN CUPLO = ' CblasUpper' - ELSE + ELSE CUPLO = ' CblasLower' END IF * @@ -1293,7 +1293,7 @@ CTRANS = ' CblasNoTrans' ELSE IF (TRANS.EQ.'T')THEN CTRANS = ' CblasTrans' - ELSE + ELSE CTRANS = 'CblasConjTrans' END IF * @@ -1972,7 +1972,7 @@ $ ALPHA, INCX, LDA IF( REWI ) $ REWIND NTRA - CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, + CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, $ AA, LDA ) ELSE IF( PACKED )THEN IF( TRACE ) @@ -2737,7 +2737,7 @@ WRITE( NOUT, FMT = 9998 )I, YT( I ), $ YY( 1 + ( I - 1 )*ABS( INCY ) ) ELSE - WRITE( NOUT, FMT = 9998 )I, + WRITE( NOUT, FMT = 9998 )I, $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) END IF 60 CONTINUE |