Skip to content

Commit 4c2236a

Browse files
mkrainiukmkrainiuk
committed
Add Index-64 API as extended API with _64 suffix for CBLAS
1 parent bd77187 commit 4c2236a

File tree

207 files changed

+1771
-865
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

+1771
-865
lines changed

‎BLAS/SRC/CMakeLists.txt

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

112-
add_library(${BLASLIB} ${SOURCES})
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+
113141
set_target_properties(
114142
${BLASLIB} PROPERTIES
115143
VERSION ${LAPACK_VERSION}

‎BLAS/SRC/cgbmv.f

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

‎BLAS/SRC/cgemm.f

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

‎BLAS/SRC/chemm.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -238,9 +238,11 @@ 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. (.NOT.LSAME(SIDE,'R'))) THEN
241+
IF ((.NOT.LSAME(SIDE,'L')) .AND.
242+
+ (.NOT.LSAME(SIDE,'R'))) THEN
242243
INFO = 1
243-
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
244+
ELSE IF ((.NOT.UPPER) .AND.
245+
+ (.NOT.LSAME(UPLO,'L'))) THEN
244246
INFO = 2
245247
ELSE IF (M.LT.0) THEN
246248
INFO = 3

‎BLAS/SRC/csymm.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -236,9 +236,11 @@ 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. (.NOT.LSAME(SIDE,'R'))) THEN
239+
IF ((.NOT.LSAME(SIDE,'L')) .AND.
240+
+ (.NOT.LSAME(SIDE,'R'))) THEN
240241
INFO = 1
241-
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
242+
ELSE IF ((.NOT.UPPER) .AND.
243+
+ (.NOT.LSAME(UPLO,'L'))) THEN
242244
INFO = 2
243245
ELSE IF (M.LT.0) THEN
244246
INFO = 3

‎BLAS/SRC/ctbmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -223,10 +223,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227+
+ .NOT.LSAME(TRANS,'T') .AND.
227228
+ .NOT.LSAME(TRANS,'C')) THEN
228229
INFO = 2
229-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
230+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231+
+ .NOT.LSAME(DIAG,'N')) THEN
230232
INFO = 3
231233
ELSE IF (N.LT.0) THEN
232234
INFO = 4

‎BLAS/SRC/ctbsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -226,10 +226,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230+
+ .NOT.LSAME(TRANS,'T') .AND.
230231
+ .NOT.LSAME(TRANS,'C')) THEN
231232
INFO = 2
232-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
233+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234+
+ .NOT.LSAME(DIAG,'N')) THEN
233235
INFO = 3
234236
ELSE IF (N.LT.0) THEN
235237
INFO = 4

‎BLAS/SRC/ctpmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -179,10 +179,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
182+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
183+
+ .NOT.LSAME(TRANS,'T') .AND.
183184
+ .NOT.LSAME(TRANS,'C')) THEN
184185
INFO = 2
185-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
186+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
187+
+ .NOT.LSAME(DIAG,'N')) THEN
186188
INFO = 3
187189
ELSE IF (N.LT.0) THEN
188190
INFO = 4

‎BLAS/SRC/ctpsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -181,10 +181,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
184+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
185+
+ .NOT.LSAME(TRANS,'T') .AND.
185186
+ .NOT.LSAME(TRANS,'C')) THEN
186187
INFO = 2
187-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
188+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
189+
+ .NOT.LSAME(DIAG,'N')) THEN
188190
INFO = 3
189191
ELSE IF (N.LT.0) THEN
190192
INFO = 4

‎BLAS/SRC/ctrmm.f

+2-1
Original file line numberDiff line numberDiff line change
@@ -233,7 +233,8 @@ 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. (.NOT.LSAME(DIAG,'N'))) THEN
236+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
237+
+ (.NOT.LSAME(DIAG,'N'))) THEN
237238
INFO = 4
238239
ELSE IF (M.LT.0) THEN
239240
INFO = 5

‎BLAS/SRC/ctrmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -184,10 +184,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
187+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
188+
+ .NOT.LSAME(TRANS,'T') .AND.
188189
+ .NOT.LSAME(TRANS,'C')) THEN
189190
INFO = 2
190-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
191+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
192+
+ .NOT.LSAME(DIAG,'N')) THEN
191193
INFO = 3
192194
ELSE IF (N.LT.0) THEN
193195
INFO = 4

‎BLAS/SRC/ctrsm.f

+2-1
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,8 @@ 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. (.NOT.LSAME(DIAG,'N'))) THEN
239+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
240+
+ (.NOT.LSAME(DIAG,'N'))) THEN
240241
INFO = 4
241242
ELSE IF (M.LT.0) THEN
242243
INFO = 5

‎BLAS/SRC/ctrsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -186,10 +186,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
189+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
190+
+ .NOT.LSAME(TRANS,'T') .AND.
190191
+ .NOT.LSAME(TRANS,'C')) THEN
191192
INFO = 2
192-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
193+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
194+
+ .NOT.LSAME(DIAG,'N')) THEN
193195
INFO = 3
194196
ELSE IF (N.LT.0) THEN
195197
INFO = 4

‎BLAS/SRC/dgbmv.f

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

‎BLAS/SRC/dgemm.f

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

‎BLAS/SRC/dsymm.f

+2-1
Original file line numberDiff line numberDiff line change
@@ -234,7 +234,8 @@ 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. (.NOT.LSAME(SIDE,'R'))) THEN
237+
IF ((.NOT.LSAME(SIDE,'L')) .AND.
238+
+ (.NOT.LSAME(SIDE,'R'))) THEN
238239
INFO = 1
239240
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
240241
INFO = 2

‎BLAS/SRC/dtbmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -223,10 +223,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227+
+ .NOT.LSAME(TRANS,'T') .AND.
227228
+ .NOT.LSAME(TRANS,'C')) THEN
228229
INFO = 2
229-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
230+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231+
+ .NOT.LSAME(DIAG,'N')) THEN
230232
INFO = 3
231233
ELSE IF (N.LT.0) THEN
232234
INFO = 4

‎BLAS/SRC/dtbsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -226,10 +226,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230+
+ .NOT.LSAME(TRANS,'T') .AND.
230231
+ .NOT.LSAME(TRANS,'C')) THEN
231232
INFO = 2
232-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
233+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234+
+ .NOT.LSAME(DIAG,'N')) THEN
233235
INFO = 3
234236
ELSE IF (N.LT.0) THEN
235237
INFO = 4

‎BLAS/SRC/dtpmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -176,10 +176,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
179+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
180+
+ .NOT.LSAME(TRANS,'T') .AND.
180181
+ .NOT.LSAME(TRANS,'C')) THEN
181182
INFO = 2
182-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
183+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
184+
+ .NOT.LSAME(DIAG,'N')) THEN
183185
INFO = 3
184186
ELSE IF (N.LT.0) THEN
185187
INFO = 4

‎BLAS/SRC/dtpsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -178,10 +178,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
181+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
182+
+ .NOT.LSAME(TRANS,'T') .AND.
182183
+ .NOT.LSAME(TRANS,'C')) THEN
183184
INFO = 2
184-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
185+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
186+
+ .NOT.LSAME(DIAG,'N')) THEN
185187
INFO = 3
186188
ELSE IF (N.LT.0) THEN
187189
INFO = 4

‎BLAS/SRC/dtrmm.f

+2-1
Original file line numberDiff line numberDiff line change
@@ -230,7 +230,8 @@ 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. (.NOT.LSAME(DIAG,'N'))) THEN
233+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
234+
+ (.NOT.LSAME(DIAG,'N'))) THEN
234235
INFO = 4
235236
ELSE IF (M.LT.0) THEN
236237
INFO = 5

‎BLAS/SRC/dtrmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -184,10 +184,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
187+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
188+
+ .NOT.LSAME(TRANS,'T') .AND.
188189
+ .NOT.LSAME(TRANS,'C')) THEN
189190
INFO = 2
190-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
191+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
192+
+ .NOT.LSAME(DIAG,'N')) THEN
191193
INFO = 3
192194
ELSE IF (N.LT.0) THEN
193195
INFO = 4

‎BLAS/SRC/dtrsm.f

+2-1
Original file line numberDiff line numberDiff line change
@@ -234,7 +234,8 @@ 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. (.NOT.LSAME(DIAG,'N'))) THEN
237+
ELSE IF ((.NOT.LSAME(DIAG,'U')) .AND.
238+
+ (.NOT.LSAME(DIAG,'N'))) THEN
238239
INFO = 4
239240
ELSE IF (M.LT.0) THEN
240241
INFO = 5

‎BLAS/SRC/dtrsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -180,10 +180,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
183+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
184+
+ .NOT.LSAME(TRANS,'T') .AND.
184185
+ .NOT.LSAME(TRANS,'C')) THEN
185186
INFO = 2
186-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
187+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
188+
+ .NOT.LSAME(DIAG,'N')) THEN
187189
INFO = 3
188190
ELSE IF (N.LT.0) THEN
189191
INFO = 4

‎BLAS/SRC/sgbmv.f

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

‎BLAS/SRC/sgemm.f

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

‎BLAS/SRC/ssymm.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -234,9 +234,11 @@ 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. (.NOT.LSAME(SIDE,'R'))) THEN
237+
IF ((.NOT.LSAME(SIDE,'L')) .AND.
238+
+ (.NOT.LSAME(SIDE,'R'))) THEN
238239
INFO = 1
239-
ELSE IF ((.NOT.UPPER) .AND. (.NOT.LSAME(UPLO,'L'))) THEN
240+
ELSE IF ((.NOT.UPPER) .AND.
241+
+ (.NOT.LSAME(UPLO,'L'))) THEN
240242
INFO = 2
241243
ELSE IF (M.LT.0) THEN
242244
INFO = 3

‎BLAS/SRC/stbmv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -223,10 +223,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
226+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
227+
+ .NOT.LSAME(TRANS,'T') .AND.
227228
+ .NOT.LSAME(TRANS,'C')) THEN
228229
INFO = 2
229-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
230+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
231+
+ .NOT.LSAME(DIAG,'N')) THEN
230232
INFO = 3
231233
ELSE IF (N.LT.0) THEN
232234
INFO = 4

‎BLAS/SRC/stbsv.f

+4-2
Original file line numberDiff line numberDiff line change
@@ -226,10 +226,12 @@ 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. .NOT.LSAME(TRANS,'T') .AND.
229+
ELSE IF (.NOT.LSAME(TRANS,'N') .AND.
230+
+ .NOT.LSAME(TRANS,'T') .AND.
230231
+ .NOT.LSAME(TRANS,'C')) THEN
231232
INFO = 2
232-
ELSE IF (.NOT.LSAME(DIAG,'U') .AND. .NOT.LSAME(DIAG,'N')) THEN
233+
ELSE IF (.NOT.LSAME(DIAG,'U') .AND.
234+
+ .NOT.LSAME(DIAG,'N')) THEN
233235
INFO = 3
234236
ELSE IF (N.LT.0) THEN
235237
INFO = 4

0 commit comments

Comments
 (0)