Skip to content

Commit ccdc1a5

Browse files
weslleyspereiraweslleyspereira
authored
Merge pull request #856 from Reference-LAPACK/revert-846-master
Revert "Add Index-64 API as extended API with _64 suffix for CBLAS"
2 parents a9a4288 + 88aa204 commit ccdc1a5

File tree

207 files changed

+865
-1771
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

207 files changed

+865
-1771
lines changed

‎BLAS/SRC/CMakeLists.txt

Lines changed: 1 addition & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -109,35 +109,7 @@ if(BUILD_COMPLEX16)
109109
endif()
110110
list(REMOVE_DUPLICATES SOURCES)
111111

112-
add_library(${BLASLIB}_obj OBJECT ${SOURCES})
113-
target_compile_options(${BLASLIB}_obj PRIVATE -fPIC)
114-
115-
if(BUILD_INDEX64_EXT_API)
116-
#Add _64 suffix to all Fortran functions via macros
117-
set(COPT_64_F)
118-
list(APPEND COPT_64_F -cpp)
119-
foreach(F IN LISTS SOURCES)
120-
file(STRINGS ${F} ${F}.lst)
121-
list(FILTER ${F}.lst INCLUDE REGEX "subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION")
122-
list(FILTER ${F}.lst EXCLUDE REGEX "^!.*")
123-
list(FILTER ${F}.lst EXCLUDE REGEX "^[*].*")
124-
list(FILTER ${F}.lst EXCLUDE REGEX "end|END")
125-
foreach(FUNC IN LISTS ${F}.lst)
126-
string(REGEX REPLACE "^[a-zA-Z0-9_ *]*(subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION)[ ]*[*]?" "" FUNC ${FUNC})
127-
string(REGEX REPLACE "[(][a-zA-Z0-9_, )]*$" "" FUNC ${FUNC})
128-
string(STRIP ${FUNC} FUNC)
129-
list(APPEND COPT_64_F "-D${FUNC}=${FUNC}_64")
130-
endforeach()
131-
endforeach()
132-
list(REMOVE_DUPLICATES COPT_64_F)
133-
add_library(${BLASLIB}_64_obj OBJECT ${SOURCES})
134-
target_compile_options(${BLASLIB}_64_obj PRIVATE -fPIC ${FOPT_ILP64} ${COPT_64_F})
135-
endif()
136-
137-
add_library(${BLASLIB}
138-
$<TARGET_OBJECTS:${BLASLIB}_obj>
139-
$<$<BOOL:${BUILD_INDEX64_EXT_API}>: $<TARGET_OBJECTS:${BLASLIB}_64_obj>>)
140-
112+
add_library(${BLASLIB} ${SOURCES})
141113
set_target_properties(
142114
${BLASLIB} PROPERTIES
143115
VERSION ${LAPACK_VERSION}

‎BLAS/SRC/cgbmv.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -183,8 +183,7 @@
183183
*> \endverbatim
184184
*>
185185
* =====================================================================
186-
SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,
187-
+ BETA,Y,INCY)
186+
SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
188187
*
189188
* -- Reference BLAS level2 routine --
190189
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgemm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -183,8 +183,7 @@
183183
*> \endverbatim
184184
*>
185185
* =====================================================================
186-
SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,
187-
+ BETA,C,LDC)
186+
SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
188187
*
189188
* -- Reference BLAS level3 routine --
190189
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/chemm.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -238,11 +238,9 @@ SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
238238
* Test the input parameters.
239239
*
240240
INFO = 0
241-
IF ((.NOT.LSAME(SIDE,'L')) .AND.
242-
+ (.NOT.LSAME(SIDE,'R'))) THEN
241+
IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN
243242
INFO = 1
244-
ELSE IF ((.NOT.UPPER) .AND.
245-
+ (.NOT.LSAME(UPLO,'L'))) THEN
243+
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
246244
INFO = 2
247245
ELSE IF (M.LT.0) THEN
248246
INFO = 3

‎BLAS/SRC/csymm.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -236,11 +236,9 @@ SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
236236
* Test the input parameters.
237237
*
238238
INFO = 0
239-
IF ((.NOT.LSAME(SIDE,'L')) .AND.
240-
+ (.NOT.LSAME(SIDE,'R'))) THEN
239+
IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN
241240
INFO = 1
242-
ELSE IF ((.NOT.UPPER) .AND.
243-
+ (.NOT.LSAME(UPLO,'L'))) THEN
241+
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
244242
INFO = 2
245243
ELSE IF (M.LT.0) THEN
246244
INFO = 3

‎BLAS/SRC/ctbmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -223,12 +223,10 @@ SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
223223
INFO = 0
224224
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
225225
INFO = 1
226-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227-
+ .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
228227
+ .NOT.LSAME(TRANS,'C')) THEN
229228
INFO = 2
230-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231-
+ .NOT.LSAME(DIAG,'N')) THEN
229+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
232230
INFO = 3
233231
ELSE IF (N.LT.0) THEN
234232
INFO = 4

‎BLAS/SRC/ctbsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -226,12 +226,10 @@ SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
226226
INFO = 0
227227
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
228228
INFO = 1
229-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230-
+ .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
231230
+ .NOT.LSAME(TRANS,'C')) THEN
232231
INFO = 2
233-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234-
+ .NOT.LSAME(DIAG,'N')) THEN
232+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
235233
INFO = 3
236234
ELSE IF (N.LT.0) THEN
237235
INFO = 4

‎BLAS/SRC/ctpmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -179,12 +179,10 @@ SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
179179
INFO = 0
180180
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
181181
INFO = 1
182-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
183-
+ .NOT.LSAME(TRANS,'T') .AND.
182+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
184183
+ .NOT.LSAME(TRANS,'C')) THEN
185184
INFO = 2
186-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
187-
+ .NOT.LSAME(DIAG,'N')) THEN
185+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
188186
INFO = 3
189187
ELSE IF (N.LT.0) THEN
190188
INFO = 4

‎BLAS/SRC/ctpsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -181,12 +181,10 @@ SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
181181
INFO = 0
182182
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
183183
INFO = 1
184-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
185-
+ .NOT.LSAME(TRANS,'T') .AND.
184+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
186185
+ .NOT.LSAME(TRANS,'C')) THEN
187186
INFO = 2
188-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
189-
+ .NOT.LSAME(DIAG,'N')) THEN
187+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
190188
INFO = 3
191189
ELSE IF (N.LT.0) THEN
192190
INFO = 4

‎BLAS/SRC/ctrmm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -233,8 +233,7 @@ SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
233233
+ (.NOT.LSAME(TRANSA,'T')) .AND.
234234
+ (.NOT.LSAME(TRANSA,'C'))) THEN
235235
INFO = 3
236-
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
237-
+ (.NOT.LSAME(DIAG,'N'))) THEN
236+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN
238237
INFO = 4
239238
ELSE IF (M.LT.0) THEN
240239
INFO = 5

‎BLAS/SRC/ctrmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -184,12 +184,10 @@ SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
184184
INFO = 0
185185
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
186186
INFO = 1
187-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
188-
+ .NOT.LSAME(TRANS,'T') .AND.
187+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
189188
+ .NOT.LSAME(TRANS,'C')) THEN
190189
INFO = 2
191-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
192-
+ .NOT.LSAME(DIAG,'N')) THEN
190+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
193191
INFO = 3
194192
ELSE IF (N.LT.0) THEN
195193
INFO = 4

‎BLAS/SRC/ctrsm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -236,8 +236,7 @@ SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
236236
+ (.NOT.LSAME(TRANSA,'T')) .AND.
237237
+ (.NOT.LSAME(TRANSA,'C'))) THEN
238238
INFO = 3
239-
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
240-
+ (.NOT.LSAME(DIAG,'N'))) THEN
239+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN
241240
INFO = 4
242241
ELSE IF (M.LT.0) THEN
243242
INFO = 5

‎BLAS/SRC/ctrsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -186,12 +186,10 @@ SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
186186
INFO = 0
187187
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
188188
INFO = 1
189-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
190-
+ .NOT.LSAME(TRANS,'T') .AND.
189+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
191190
+ .NOT.LSAME(TRANS,'C')) THEN
192191
INFO = 2
193-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
194-
+ .NOT.LSAME(DIAG,'N')) THEN
192+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
195193
INFO = 3
196194
ELSE IF (N.LT.0) THEN
197195
INFO = 4

‎BLAS/SRC/dgbmv.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -181,8 +181,7 @@
181181
*> \endverbatim
182182
*>
183183
* =====================================================================
184-
SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,
185-
+ BETA,Y,INCY)
184+
SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
186185
*
187186
* -- Reference BLAS level2 routine --
188187
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/dgemm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -183,8 +183,7 @@
183183
*> \endverbatim
184184
*>
185185
* =====================================================================
186-
SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,
187-
+ BETA,C,LDC)
186+
SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
188187
*
189188
* -- Reference BLAS level3 routine --
190189
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/dsymm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -234,8 +234,7 @@ SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
234234
* Test the input parameters.
235235
*
236236
INFO = 0
237-
IF ((.NOT.LSAME(SIDE,'L')) .AND.
238-
+ (.NOT.LSAME(SIDE,'R'))) THEN
237+
IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN
239238
INFO = 1
240239
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
241240
INFO = 2

‎BLAS/SRC/dtbmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -223,12 +223,10 @@ SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
223223
INFO = 0
224224
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
225225
INFO = 1
226-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227-
+ .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
228227
+ .NOT.LSAME(TRANS,'C')) THEN
229228
INFO = 2
230-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231-
+ .NOT.LSAME(DIAG,'N')) THEN
229+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
232230
INFO = 3
233231
ELSE IF (N.LT.0) THEN
234232
INFO = 4

‎BLAS/SRC/dtbsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -226,12 +226,10 @@ SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
226226
INFO = 0
227227
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
228228
INFO = 1
229-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230-
+ .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
231230
+ .NOT.LSAME(TRANS,'C')) THEN
232231
INFO = 2
233-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234-
+ .NOT.LSAME(DIAG,'N')) THEN
232+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
235233
INFO = 3
236234
ELSE IF (N.LT.0) THEN
237235
INFO = 4

‎BLAS/SRC/dtpmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -176,12 +176,10 @@ SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
176176
INFO = 0
177177
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
178178
INFO = 1
179-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
180-
+ .NOT.LSAME(TRANS,'T') .AND.
179+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
181180
+ .NOT.LSAME(TRANS,'C')) THEN
182181
INFO = 2
183-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
184-
+ .NOT.LSAME(DIAG,'N')) THEN
182+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
185183
INFO = 3
186184
ELSE IF (N.LT.0) THEN
187185
INFO = 4

‎BLAS/SRC/dtpsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -178,12 +178,10 @@ SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
178178
INFO = 0
179179
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
180180
INFO = 1
181-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
182-
+ .NOT.LSAME(TRANS,'T') .AND.
181+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
183182
+ .NOT.LSAME(TRANS,'C')) THEN
184183
INFO = 2
185-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
186-
+ .NOT.LSAME(DIAG,'N')) THEN
184+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
187185
INFO = 3
188186
ELSE IF (N.LT.0) THEN
189187
INFO = 4

‎BLAS/SRC/dtrmm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -230,8 +230,7 @@ SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
230230
+ (.NOT.LSAME(TRANSA,'T')) .AND.
231231
+ (.NOT.LSAME(TRANSA,'C'))) THEN
232232
INFO = 3
233-
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
234-
+ (.NOT.LSAME(DIAG,'N'))) THEN
233+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN
235234
INFO = 4
236235
ELSE IF (M.LT.0) THEN
237236
INFO = 5

‎BLAS/SRC/dtrmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -184,12 +184,10 @@ SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
184184
INFO = 0
185185
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
186186
INFO = 1
187-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
188-
+ .NOT.LSAME(TRANS,'T') .AND.
187+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
189188
+ .NOT.LSAME(TRANS,'C')) THEN
190189
INFO = 2
191-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
192-
+ .NOT.LSAME(DIAG,'N')) THEN
190+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
193191
INFO = 3
194192
ELSE IF (N.LT.0) THEN
195193
INFO = 4

‎BLAS/SRC/dtrsm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -234,8 +234,7 @@ SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
234234
+ (.NOT.LSAME(TRANSA,'T')) .AND.
235235
+ (.NOT.LSAME(TRANSA,'C'))) THEN
236236
INFO = 3
237-
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
238-
+ (.NOT.LSAME(DIAG,'N'))) THEN
237+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND. (.NOT.LSAME(DIAG,'N'))) THEN
239238
INFO = 4
240239
ELSE IF (M.LT.0) THEN
241240
INFO = 5

‎BLAS/SRC/dtrsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -180,12 +180,10 @@ SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
180180
INFO = 0
181181
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
182182
INFO = 1
183-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
184-
+ .NOT.LSAME(TRANS,'T') .AND.
183+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
185184
+ .NOT.LSAME(TRANS,'C')) THEN
186185
INFO = 2
187-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
188-
+ .NOT.LSAME(DIAG,'N')) THEN
186+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
189187
INFO = 3
190188
ELSE IF (N.LT.0) THEN
191189
INFO = 4

‎BLAS/SRC/sgbmv.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -181,8 +181,7 @@
181181
*> \endverbatim
182182
*>
183183
* =====================================================================
184-
SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,
185-
+ BETA,Y,INCY)
184+
SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
186185
*
187186
* -- Reference BLAS level2 routine --
188187
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/sgemm.f

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -183,8 +183,7 @@
183183
*> \endverbatim
184184
*>
185185
* =====================================================================
186-
SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,
187-
+ BETA,C,LDC)
186+
SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
188187
*
189188
* -- Reference BLAS level3 routine --
190189
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/ssymm.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -234,11 +234,9 @@ SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
234234
* Test the input parameters.
235235
*
236236
INFO = 0
237-
IF ((.NOT.LSAME(SIDE,'L')) .AND.
238-
+ (.NOT.LSAME(SIDE,'R'))) THEN
237+
IF ((.NOT.LSAME(SIDE,'L')) .AND. (.NOT.LSAME(SIDE,'R'))) THEN
239238
INFO = 1
240-
ELSE IF ((.NOT.UPPER) .AND.
241-
+ (.NOT.LSAME(UPLO,'L'))) THEN
239+
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
242240
INFO = 2
243241
ELSE IF (M.LT.0) THEN
244242
INFO = 3

‎BLAS/SRC/stbmv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -223,12 +223,10 @@ SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
223223
INFO = 0
224224
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
225225
INFO = 1
226-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227-
+ .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
228227
+ .NOT.LSAME(TRANS,'C')) THEN
229228
INFO = 2
230-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231-
+ .NOT.LSAME(DIAG,'N')) THEN
229+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
232230
INFO = 3
233231
ELSE IF (N.LT.0) THEN
234232
INFO = 4

‎BLAS/SRC/stbsv.f

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -226,12 +226,10 @@ SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
226226
INFO = 0
227227
IF (.NOT.LSAME(UPLO,'U') .AND. .NOT.LSAME(UPLO,'L')) THEN
228228
INFO = 1
229-
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230-
+ .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND. .NOT.LSAME(TRANS,'T') .AND.
231230
+ .NOT.LSAME(TRANS,'C')) THEN
232231
INFO = 2
233-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234-
+ .NOT.LSAME(DIAG,'N')) THEN
232+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
235233
INFO = 3
236234
ELSE IF (N.LT.0) THEN
237235
INFO = 4

0 commit comments

Comments
 (0)